fact: Definition eval_poly_gen {T} (add : T -> T -> T) (pow : T -> Z -> T) (sc_mul : Q -> T -> T) (zero : T) (p : polynomial) (x : T) : T := List.fold_right add zero (List.map (fun '(coeff, exp) => sc_mul coeff (pow x exp)) p).
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