theorem Th58:
  Free (x '=' y) = {x,y}
proof
A1: Var2 (x '=' y) = y by Th1;
  x '=' y is being_equality & Var1 (x '=' y) = x by Th1;
  hence thesis by A1,ZF_MODEL:1;
end;
