483
483
else inject b1 e2
485
let filter_ge (I(b1, e1) as f1) (I(b2, e2)) =
486
let b2 = if F.equal_ieee F.minus_zero e2 then F.minus_zero else b2 in
485
let filter_ge (I(b1, e1) as f1) (I(b2, _e2)) =
486
let b2 = if F.equal_ieee F.minus_zero b2 then F.minus_zero else b2 in
487
487
if not (F.le b2 e1)
488
488
then raise Bottom
489
489
else if F.le b2 b1