proposition: Fact monic_mulr_closed : mulr_closed monic.
proof: Proof. by split=> [|p q mon_p]; rewrite (monic1, monicMl). Qed.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq choice) mathcomp(fintype bigop finset tuple) mathcomp(div ssralg countalg binomial)