theorem :: XXREAL_1:360

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