theorem Th20:
  <*>the carrier of s ==>. x/"x & <*>the carrier of s ==>. x\x
proof
  <*x*> ==>. x by Def18;
  hence thesis by Th19;
end;
