reserve a, b for Real,
  r for Real,
  rr for Real,
  i, j, n for Nat,
  M for non empty MetrSpace,
  p, q, s for Point of TOP-REAL 2,
  e for Point of Euclid 2,
  w for Point of Euclid n,
  z for Point of M,
  A, B for Subset of TOP-REAL n,
  P for Subset of TOP-REAL 2,
  D for non empty Subset of TOP-REAL 2;
reserve a, b for Real;
reserve a, b for Real;
reserve r for Real;

theorem
  D = Ball(e,r) & p = e implies S-bound D = p`2 - r
proof
  assume that
A1: D = Ball(e,r) and
A2: p = e;
  r > 0 by A1,TBSP_1:12;
  then
A3: p`2+0 < p`2+r by XREAL_1:6;
  p`2-r < p`2-0 by A1,TBSP_1:12,XREAL_1:15;
  then p`2-r < p`2+r by A3,XXREAL_0:2;
  then
A4: lower_bound ].p`2-r,p`2+r.[ = p`2-r by Th16;
  proj2.:D = ].p`2-r,p`2+r.[ by A1,A2,Th42;
  hence thesis by A4,SPRECT_1:44;
end;
