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