fact: Definition add_exact (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, _ => y | _, Mzero => x | Mnumber sx mx, Mnumber sy my => add_exact_aux2 sx sy mx my ex ey 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