fact: Fixpoint NpolyC (R : comRingType) N : R -> Npoly R N := if N isn't N'.+1 return R -> Npoly R N then fun x => x else fun x => (NpolyC N' x)%:P.
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)