proposition: Fact coefp0_multiplicative : multiplicative (coefp 0 : {poly R} -> R).
proof: Proof. split=> [p q|]; last by rewrite polyCK. by rewrite [coefp 0 _]coefM big_ord_recl big_ord0 addr0. Qed.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq choice) mathcomp(fintype bigop finset tuple) mathcomp(div ssralg countalg binomial)