theorem Th21:
  (maxfuncreal(A)).(p,q) = (maxfuncreal(A)).(q,p)
proof
  thus (maxfuncreal(A)).(p,q) = q"\/"p by LATTICES:def 1
    .= (maxfuncreal(A)).(q,p);
end;
