theorem
  r >= 0 implies x in cl_Ball(x,r)
proof
  assume r >= 0;
  then dist(x,x) <= r by CSSPACE:50;
  hence thesis by Th48;
end;
