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