fact: Definition Qpow' (x : Q) (k : Q) := let (int_part, rest) := if Qle_bool (k - Qfloor k) (Qceiling k - k) then (Qfloor k, k - Qfloor k) else (Qceiling k, k - Qceiling k) in Qred (Qpower x int_part) * Qexp (rest * Qln x).
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