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