theorem Th31:
  ex u st for p holds p in u iff p`1 = p`2
proof
  set a = the Element of M;
  take [a,a]~;
  let p;
  p`1,p`2 @@ a,a iff p ## [a,a];
  hence thesis by Th13,Th26;
end;
