theorem
  p < r implies [.r,s.] c= ].p,+infty.] by Th39,XXREAL_0:3;
