theorem Th16:
  p in <.p.) & p "\/" q in <.p.) & q "\/" p in <.p.)
proof
  p [= p "\/" q by LATTICES:5;
  hence thesis;
end;
