theorem Th29:
  [a,b]~ = [c,d]~ implies a@d = b@c
proof
  assume [a,b]~ = [c,d]~;
  then a,b @@ c,d by Th20,Th28;
  hence thesis;
end;
