theorem
  f.(c,d) = ((curry' f).d).c
proof
  [c,d] in [:C,D:];
  then [c,d] in dom f by FUNCT_2:def 1;
  hence thesis by Th15;
end;
