reserve X,Y for set, p,x,x1,x2,y,y1,y2,z,z1,z2 for object;
reserve f,g,h for Function;

theorem
  x in dom(f /\ g) implies (f /\ g).x = f.x
proof
  set y = (f /\ g).x;
  assume x in dom(f /\ g);
  then [x,y] in (f /\ g) by FUNCT_1:def 2;
  then [x,y] in f by XBOOLE_0:def 4;
  hence thesis by FUNCT_1:1;
end;
