(* 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 tr_tperm_mx n i1 i2 : (tperm_mx i1 i2)^T = tperm_mx i1 i2 :> 'M_n.