fact: Definition mul mode prec (x y : type) := match x, y with | Fnan, _ => x | _, Fnan => y | Float mx ex, Float my ey => match mantissa_sign mx, mantissa_sign my with | Mzero, _ => x | _, Mzero => y | Mnumber sx mx, Mnumber sy my => round_aux mode prec (xorb sx sy) (mantissa_mul mx my) (exponent_add ex ey) pos_Eq end end.
imports: Coq(ZArith Reals Lia Bool Psatz) Flocq(Zaux Raux Digits Bracket) mathcomp.ssreflect(ssrbool) Xreal Basic Generic Generic_proof Sig Specific_sig