theorem :: XXREAL_1:361

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