theorem Th336: :: XXREAL_1:336

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