fact: Definition Fdiv_aux2 beta prec m1 e1 m2 e2 := let d1 := Digits.Zdigits beta m1 in let d2 := Digits.Zdigits beta m2 in let e := (e1 - e2)%Z in let (m, e') := match (d2 + prec - d1)%Z with | Zpos p => (m1 * Zpower_pos beta p, e + Zneg p)%Z | _ => (m1, e) end in let '(q, r) := Zfast_div_eucl m m2 in (q, e', Bracket.new_location m2 r Bracket.loc_Exact).
imports: Coq(Reals Bool ZArith) Flocq(Zaux Raux Div Sqrt) Xreal Basic