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;
reserve A,B for set;
reserve x,y,i,j,k for object;

theorem Th96:
  x .--> x = id{x}
proof
  for y,z being object holds [y,z] in x .--> x iff y in {x} & y = z
  proof
    let y,z be object;
A1: x .--> x = {[x,x]} by ZFMISC_1:29;
    thus [y,z] in x .--> x implies y in {x} & y = z
    proof
      assume [y,z] in x .--> x;
      then
A2:   [y,z] = [x,x] by A1,TARSKI:def 1;
      then y = x by XTUPLE_0:1;
      hence thesis by A2,TARSKI:def 1,XTUPLE_0:1;
    end;
    assume y in {x};
    then y = x by TARSKI:def 1;
    hence thesis by A1,TARSKI:def 1;
  end;
  hence thesis by RELAT_1:def 10;
end;
