proposition: Fact scale_polyDr a : {morph scale_poly a : p q / p + q}.
proof: Proof. by move=> p q; rewrite !scale_polyE mulrDr. Qed.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq choice) mathcomp(fintype bigop finset tuple) mathcomp(div ssralg countalg binomial)