proposition: Lemma Nhorner_is_rmorphism (R : comRingType) (N : nat) (env : seq R) : rmorphism (@NhornerR R N env).
proof: Proof. do !split. - by elim: N env=> [|N IHN] [|a env] p q //=; rewrite hornerD hornerN IHN. - by elim: N env=> [|N IHN] [|a env] p q //=; rewrite hornerM IHN. by elim: N env=> [|N IHN] [|b env] //=; rewrite hornerC. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq ssralg ssrint) mathcomp(path choice fintype tuple finset ssralg bigop poly polydiv) mathcomp(zmodp) CoqEAL(hrel param refinements binint poly_op hpoly karatsuba)