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