fact: Fixpoint NpolyX (R : comRingType) N : nat -> Npoly R N := if N isn't N'.+1 return nat -> Npoly R N then fun=> 0 else fun n => if n is n.+1 then (NpolyX R N' n)%:P else 'X.
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)