proposition: Lemma map_mpolyZ (c : R) (p : {mpoly R[n]}) : map_mpoly f (c *: p) = (f c) *: (map_mpoly f p).
proof: Proof. by rewrite /map_mpoly mmapZ /= mul_mpolyC. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq path) mathcomp(choice fintype tuple finfun bigop finset binomial) mathcomp(order fingroup perm ssralg zmodp poly ssrint) mathcomp(matrix vector) mathcomp(bigenough) ssrcomplements freeg