for p, q being ExtReal
for s being Real st p < q holds
].-infty,q.[ \ ].p,s.[ = ].-infty,p.] \/ [.s,q.[