proposition: Lemma rVpoly0 n (p : 'rV[R]_n) : (rVpoly p == 0) = (p == 0).
proof: Proof. apply/idP/idP => [p0|/eqP ->]; last by rewrite linear0. by apply/eqP/rowP => i; rewrite mxE -coef_rVpoly_ord (eqP p0) coef0. Qed.
imports: mathcomp(all_ssreflect fingroup perm ssralg zmodp) mathcomp(matrix mxalgebra poly polydiv mxpoly) ssralg_ext