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

theorem
  for A being Subset of R^1, p being Point of RealSpace holds p in Cl A
iff for r being Real st r > 0 holds Ball (p, r) meets A by GOBOARD6:92
