fact: Definition meet xi yi := if is_empty xi then xi else if is_empty yi then yi else match xi, yi with | Ibnd xl xu, Ibnd yl yu => let l := match F.is_nan xl, F.is_nan yl with | true, _ => yl | false, true => xl | false, false => F.max xl yl end in let u := match F.is_nan xu, F.is_nan yu with | true, _ => yu | false, true => xu | false, false => F.min xu yu end in Ibnd l u | Inan, _ => yi | _, Inan => xi end.
imports: Coq(Bool Reals Psatz) Flocq(Raux) Stdlib Xreal Basic Sig Interval