fact: Definition scale2 (f : type) d := match f with | Float m e => match mantissa_sign m with | Mzero => f | Mnumber s p => match mantissa_scale2 p d with | (p2, d2) => float_aux s p2 (exponent_add e d2) end end | _ => f end.
imports: Coq(ZArith Reals Lia Bool Psatz) Flocq(Zaux Raux Digits Bracket) mathcomp.ssreflect(ssrbool) Xreal Basic Generic Generic_proof Sig Specific_sig