theorem Th15:
  q in <.p.) iff p [= q
proof
  q in <.p.) iff ex r st q = r & p [= r;
  hence thesis;
end;
