fact: Fixpoint Nmap_poly (R R' : comRingType) (f : R -> R') N : Npoly R N -> Npoly R' N := if N isn't N'.+1 return Npoly R N -> Npoly R' N then f else map_poly (@Nmap_poly _ _ f N').
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)