fact: Definition mul_mixed prec xi y := match xi with | Ibnd xl xu => if F.real y then match F.cmp y F.zero with | Xlt => Ibnd (F.mul_DN prec xu y) (F.mul_UP prec xl y) | Xeq => Ibnd F.zero F.zero | Xgt => Ibnd (F.mul_DN prec xl y) (F.mul_UP prec xu y) | Xund => Inan end else Inan | Inan => Inan end.
imports: Coq(Bool Reals Psatz) Flocq(Raux) Stdlib Xreal Basic Sig Interval