theorem :: XXREAL_1:357
for p, r, s being ExtReal st r < s holds
].r,+infty.] \ [.p,s.[ = ].r,p.[ \/ [.s,+infty.] by Th303, XXREAL_0:3;