theorem Th28:
  p => q <> p & p => q <> q
proof
  len p < len(p => q) by Th16;
  hence thesis by Th16;
end;
