
theorem Th5:
  for X, Y being non empty TopSpace, x being Point of X, f being
  Function of [:X | {x}, Y:], Y st f = pr2({x}, the carrier of Y) holds f is
  one-to-one
proof
  let X, Y be non empty TopSpace, x be Point of X, f be Function of [:X | {x},
  Y:], Y;
  set Z = {x};
  assume
A1: f = pr2(Z, the carrier of Y);
  let z, y be object such that
A2: z in dom f and
A3: y in dom f and
A4: f.z = f.y;
A5: dom f = [:Z, the carrier of Y:] by A1,FUNCT_3:def 5;
  then consider x1, x2 being object such that
A6: x1 in Z and
A7: x2 in the carrier of Y and
A8: z = [x1,x2] by A2,ZFMISC_1:def 2;
  consider y1, y2 being object such that
A9: y1 in Z and
A10: y2 in the carrier of Y and
A11: y = [y1,y2] by A5,A3,ZFMISC_1:def 2;
A12: x1 = x by A6,TARSKI:def 1
    .= y1 by A9,TARSKI:def 1;
  x2= f.(x1, x2) by A1,A6,A7,FUNCT_3:def 5
    .= f.(y1, y2) by A4,A8,A11
    .= y2 by A1,A9,A10,FUNCT_3:def 5;
  hence thesis by A8,A11,A12;
end;
