theorem
  dom f1 c= [:X,Y:] & dom f2 c= [:X,Y:] & curry f1 = curry f2 implies f1 = f2
proof
  assume that
A1: dom f1 c= [:X,Y:] and
A2: dom f2 c= [:X,Y:];
  uncurry curry f1 = f1 by A1,Th43;
  hence thesis by A2,Th43;
end;
