proposition: Fact polXY_scaleAr (c : R) (p q : polXY) : c *: (p * q : polXY) = p * (c *: q).
proof: Proof. rewrite !scale_polXYE /polXY_scale /= -!mul_mpolyC. by rewrite mulrA [_ * p]mulrC mulrA. Qed.
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(ssrint rat ssralg ssrnum algC matrix vector) mathcomp(mpoly) tools partition ordtype antisym Schur_mpoly Schur_altdef sympoly homogsym permcent