theorem :: XXREAL_1:356

for p, r, s being ExtReal st r <= s holds
[.r,+infty.[ \ [.p,s.[ = [.r,p.[ \/ [.s,+infty.[