fact: Fixpoint NhornerR (R : comRingType) N : seq R -> Npoly R N -> R := if N isn't N'.+1 return seq R -> Npoly R N -> R then fun _ p => p else fun env p => if env is a :: env then NhornerR env p.[NpolyC N' a] else NhornerR [::] p.[0].
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)