theorem Th2:
  minreal.(p,q) = minreal.(q,p)
proof
  thus minreal.(p,q) = q"/\"p by LATTICES:def 2
    .= minreal.(q,p);
end;
