theorem Th2:
  x in dom ~f implies ex y,z being object st x = [y,z]
proof
  assume
A1: x in dom ~f;
  ex X,Y st dom ~f c= [:X,Y:] by FUNCT_4:44;
  hence thesis by A1,RELAT_1:def 1;
end;
