theorem :: XXREAL_1:241
for p, r, s being ExtReal st p <= r holds
[.r,s.[ c= [.p,+infty.[