fact: Definition Fsqrt (x : float beta) := let (m1, e1) := x in let e' := (Zdigits beta m1 + e1 + 1)%Z in let e := Z.min (fexp (Z.div2 e')) (Z.div2 e1) in let '(m, l) := Fsqrt_core m1 e1 e in (m, e, l).
imports: Coq(ZArith Reals Lia) Zaux Raux Defs Digits Generic_fmt Float_prop Bracket