Section Diag.
Variable (F : fieldType).
Hint Resolve diagonalizable_diag : core.
Hint Resolve diagonalizable0 : core.

Lemma codiagonalizableP n (As : seq 'M[F]_n) :
{in As &, forall A B, comm_mx A B} /\ {in As, forall A, diagonalizable A}
<-> codiagonalizable As.