theorem Th28:
  q in (.p.> iff q [= p
proof
  q in (.p.> iff ex r st q = r & r [= p;
  hence thesis;
end;
