theorem Th35:
  p^q = {} implies p = {} & q = {}
proof
  assume p^q={};
  then 0 = len (p^q) .= len p + len q by Th22;
  hence thesis;
end;
