fact: Definition Frobenius_seq n (A : 'M[F]_n) := [seq (lead_coef p)^-1 *: p | p : E <- take n (Smith_seq (char_poly_mx A))].
imports: mathcomp(all_ssreflect) mathcomp(all_algebra) mathcomp(all_fingroup) mathcomp(all_real_closed) CoqEAL(binetcauchy ssrcomplements mxstructure minor) CoqEAL(smith dvdring polydvd) CoqEAL(similar perm_eq_image companion closed_poly smith_complements)