theorem
  [.-infty,s.] = [.-infty,s.[ \/ {s} by Th129,XXREAL_0:5;
