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