reserve X for RealNormSpace;

theorem
  for X be RealNormSpace, x be Point of X, r be Real
  holds {y where y is
  Point of X: ||.x-y.|| <= r} is closed Subset of TopSpaceNorm X
proof
  let X be RealNormSpace, x be Point of X, r be Real;
  reconsider z=x as Element of MetricSpaceNorm X;
  ex t be Point of X st t = x & cl_Ball(z,r) = {y where y is Point of X:
  ||.t-y.|| <= r} by Th3;
  hence thesis by TOPREAL6:57;
end;
