reserve x1, x2, x3, x4, x5, x6, x7 for set;

theorem Th37:
  for A being Subset of R^1, a being Real st A = {a} holds Cl A = {a}
proof
  let A be Subset of R^1, a be Real;
A1: a is Point of R^1 by TOPMETR:17,XREAL_0:def 1;
  assume A = {a};
  hence thesis by A1,YELLOW_8:26;
end;
