(* Permutation matrix *)

Definition perm_mx n s : 'M_n := row_perm s 1%:M.Definition tperm_mx n i1 i2 : 'M_n := perm_mx (tperm i1 i2).

Lemma is_perm_mxP n (A : 'M_n) : reflect (exists s, A = perm_mx s) (is_perm_mx A).