Fact mul_polyA : associative mul_poly.
Fact mul_1poly : left_id 1%:P mul_poly.
Fact mul_poly1 : right_id 1%:P mul_poly.
Fact mul_polyDl : left_distributive mul_poly +%R.
Fact mul_polyDr : right_distributive mul_poly +%R.
Fact poly1_neq0 : 1%:P != 0 :> {poly R}.

Lemma size_Msign p n : size ((-1) ^+ n * p) = size p.
Fact coefp0_multiplicative : multiplicative (coefp 0 : {poly R} -> R).