(* Block expresssion of a lifted permutation matrix *)

Definition lift0_mx A : 'M_(1 + n) := block_mx 1 0 0 A.

(* Specifications: *)
Lemma lift0_mx_perm s : lift0_mx (perm_mx s) = perm_mx (lift0_perm s).
Lemma lift0_mx_is_perm s : is_perm_mx (lift0_mx (perm_mx s)).