for p, q, s being ExtReal st p <= s & p < q holds
[.p,q.[ \ ].p,s.[ = {p} \/ [.s,q.[