%% Four.

:- dynamic and_godel/3, pri_inf/3.

member(bottom).
member(alpha).
member(beta).
member(top).
members([bottom,alpha,beta,top]).
leq(bottom,X). leq(X,top).
leq(X,X).
and_godel(X,Y,Z) :- pri_inf(X,Y,Z).
pri_inf(bottom,X,bottom):-!.
pri_inf(alpha,X,alpha):-leq(alpha,X),!.
pri_inf(beta,X,beta):-leq(beta,X),!.
pri_inf(top,X,X):-!.
pri_inf(X,Y,bot).