theorem
  s < q implies ].r,s.] c= [.-infty,q.[ by Th44,XXREAL_0:5;
