theorem Th9:
  n1 <> n2 implies GS.n2 = GS.set(n1,x).n2
proof
  assume n1 <> n2;
  then not n2 in dom (n1.-->x) by TARSKI:def 1;
  hence thesis by FUNCT_4:11;
end;
