theorem Th325:
  p < q implies [.-infty,q.[ \ ].p,s.[ = [.-infty,p.] \/ [.s,q.[
  by Th298,XXREAL_0:5;
