fact: Definition Qroot_of_Qroot_up_down (e : positive) (Qroot_up : Q -> Q) (Qroot_down : Q -> Q) (x : Q) : Q := if Qle_bool 0 x then let vu := Qroot_up x in let vd := Qroot_down x in let v := if Qle_bool (x - Qpower vd e) (Qpower vu e - x) then vd else vu in v * eval_poly (taylor_series_1pxpow_for_pow (1#e)) (x / Qpower v e - 1) else Qpow' x (1#e).
imports: Coq.Strings.String Coq.Structures.Orders Coq.micromega.Lia Coq.Bool.Bool Coq.Sorting.Mergesort Coq.QArith.QArith Coq.QArith.Qround Coq.QArith.Qabs Coq.QArith.Qminmax Coq.NArith.NArith Coq.ZArith.ZArith Coq.Arith.Arith Coq.Lists.List PerformanceExperiments.LetIn