fact: Definition Fsqrt_aux2 beta prec m e := let d := Digits.Zdigits beta m in let s := Z.max (2 * prec - d) 0 in let e' := (e - s)%Z in let (s', e'') := if Z.even e' then (s, e') else (s + 1, e' - 1)%Z in let m' := match s' with | Zpos p => (m * Zpower_pos beta p)%Z | _ => m end in let (q, r) := Z.sqrtrem m' in let l := if Zeq_bool r 0 then Bracket.loc_Exact else Bracket.loc_Inexact (if Zle_bool r q then Lt else Gt) in (q, Z.div2 e'', l).
imports: Coq(Reals Bool ZArith) Flocq(Zaux Raux Div Sqrt) Xreal Basic