Definition sep_swap12 := sep_swap.

(* Specifications: *)
Lemma sep_swap23:
forall P Q R S, massert_eqv (P ** Q ** R ** S) (P ** R ** Q ** S).
Lemma sep_swap34:
forall P Q R S T, massert_eqv (P ** Q ** R ** S ** T) (P ** Q ** S ** R ** T).
Lemma sep_swap45:
forall P Q R S T U, massert_eqv (P ** Q ** R ** S ** T ** U) (P ** Q ** R ** T ** S ** U).