theorem Th8:
  GS.set(n,x).n = x
proof
  set G2 = GS.set(n,x);
  n in dom (n.-->x) by TARSKI:def 1;
  hence G2.n = (n.-->x).n by FUNCT_4:13
    .= x by FUNCOP_1:72;
end;
