reserve n for Nat,
  a, b, r, w for Real,
  x, y, z for Point of TOP-REAL n,
  e for Point of Euclid n;

theorem
  cl_Ball(x,r) is non empty implies r >= 0;
