reserve a,b,p,x,x9,x1,x19,x2,y,y9,y1,y19,y2,z,z9,z1,z2 for object,
   X,X9,Y,Y9,Z,Z9 for set;
reserve A,D,D9 for non empty set;
reserve f,g,h for Function;

theorem Th67:
  for a,b,c,d being object st a <> c holds (a,c) --> (b,d) = { [a,b],
  [c,d] }
proof
  let a,b,c,d be object such that
A1: a <> c;
  set f = {a} --> b, g = {c} --> d;
  {a} --> b = {[a,b]} & {c} --> d = {[c,d]} by ZFMISC_1:29;
  hence (a,c) --> (b,d) = {[a,b]} \/ {[c,d]} by A1,Th31,ZFMISC_1:11
    .= { [a,b], [c,d] } by ENUMSET1:1;
end;
