theorem
  p <= q implies [.-infty,q.] \ ].p,q.[ = [.-infty,p.] \/ {q}
proof
  -infty <= q by XXREAL_0:5;
  hence thesis by Th318;
end;
