fact: Definition Fdiv_core m1 e1 m2 e2 e := let (m1', m2') := if Zle_bool e (e1 - e2)%Z then (m1 * Zpower beta (e1 - e2 - e), m2)%Z else (m1, m2 * Zpower beta (e - (e1 - e2)))%Z in let '(q, r) := Z.div_eucl m1' m2' in (q, new_location m2' r loc_Exact).
imports: Coq(ZArith Reals Lia) Zaux Raux Defs Generic_fmt Float_prop Digits Bracket