theorem Th47:
  E c= [:X,Y:] implies (.:pr1(X,Y)).E = pr1(X,Y).:E
proof
  assume E c= [:X,Y:];
  then E c= dom pr1(X,Y) by FUNCT_3:def 4;
  hence thesis by FUNCT_3:def 1;
end;
