reserve i for Nat,
  j for Element of NAT,
  X,Y,x,y,z for set;

theorem
  for x being variable holds [(vars x) \/ {x}, i] in Vars
proof
  let x be variable;
  x in Vars;
  then consider A being Subset of Vars, j such that
A1: x = [varcl A, j] and A is finite by Th18;
A2: varcl {x} = (varcl A) \/ {x} by A1,Th26;
A3: vars x = varcl A by A1;
  i in NAT by ORDINAL1:def 12;
  hence thesis by A2,A3,Th18;
end;
