fact: Fixpoint taylor_series_1pxpow (exp : Q) (deg : nat) : polynomial := match deg with | O => [(1, 0%Z)] | S deg' => let '(s, t) := (Qnum exp, Qden exp) in let n := deg in ((Π_{ k = 0 }^{ n - 1 } (s - k * t)) / (fact n * t^n)%Z, Z.of_nat n) :: taylor_series_1pxpow exp deg' end.
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