proposition: Lemma horner_derivE p x : horner tt (deriv tt p) x = \big[Rplus/R0]_(0 <= i < (size p).-1) ((nth p i.+1) * (INR i.+1) * (x ^ i))%R.
proof: Proof. by rewrite (@horner_derivE_wide (size p).-1). Qed.
imports: Coq(ZArith Reals) Coquelicot(Coquelicot) mathcomp.ssreflect(ssreflect ssrfun ssrbool eqtype ssrnat seq fintype bigop) Flocq(Core) Stdlib MathComp Interval Xreal Basic_rec