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;
reserve x for set;
reserve x for object;
reserve A1,A2,B1,B2 for non empty set,
  f for Function of A1,B1,
  g for Function of A2,B2,
  Y1 for non empty Subset of A1,
  Y2 for non empty Subset of A2;
reserve a,b,c,x,y,z,w,d for object;

theorem Th132:
  a <> b implies (a,b,a) --> (x,y,z) = (a,b) --> (z,y)
  proof
    assume
A1: a <> b;
A2: dom ((a,b,a) --> (x,y,z)) = {a,b,a} by Th128
    .= {a,a,b} by ENUMSET1:57
    .= {a,b} by ENUMSET1:30;
    hence dom ((a,b,a) --> (x,y,z)) = dom ((a,b) --> (z,y)) by Th62;
    let k be object;
    assume
A3: k in dom ((a,b,a) --> (x,y,z));
    per cases by A2,A3,TARSKI:def 2;
    suppose
A4:   k = a;
      hence ((a,b,a) --> (x,y,z)).k = z by Th89
      .= ((a,b) --> (z,y)).k by A1,A4,Th63;
    end;
    suppose
A5:   k = b;
      thus ((a,b,a) --> (x,y,z)).k = ((a .--> x) +* ((b,a) --> (y,z))).k
      by Th14
      .= y by A1,A5,Th84
      .= ((a,b) --> (z,y)).k by A5,Th63;
    end;
  end;
