fact: Definition Qexp (x : Q) : Q := let (int_part, rest) := if Qle_bool (x - Qfloor x) (Qceiling x - x) then (Qfloor x, x - Qfloor x) else (Qceiling x, x - Qceiling x) in Qpower e_Q int_part * if Qeq_bool rest 0 then 1 else eval_poly taylor_series_exp_for_exp rest.
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