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