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