theorem Th333: :: XXREAL_1:333

for p, q being ExtReal
for s being Real st p < q holds
].-infty,q.[ \ ].p,s.[ = ].-infty,p.] \/ [.s,q.[