proposition: Lemma monic_prod_XsubC p : p \is monic -> p = \prod_(x <- root_seq_uniq p) ('X - x%:P)^+(\mu_x p).
proof: Proof. by move/monicP=> H; rewrite {1}[p]prod_XsubC_mu H scale1r. Qed.
imports: mathcomp(all_ssreflect) mathcomp(all_algebra) mathcomp(all_real_closed) CoqEAL(ssrcomplements)