theorem
  [.-infty,+infty.] \ {p} = [.-infty,p.[ \/ ].p,+infty.] by Th342,XXREAL_0:3;
