theorem :: XXREAL_1:399
for s, p being Real holds REAL \ ].p,s.] = ].-infty,p.] \/ ].s,+infty.[