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