Definition sep_swap2 := sep_swap.

(* Specifications: *)
Lemma sep_swap3:
forall P Q R S, massert_eqv (P ** Q ** R ** S) (R ** Q ** P ** S).
Lemma sep_swap4:
forall P Q R S T, massert_eqv (P ** Q ** R ** S ** T) (S ** Q ** R ** P ** T).
Lemma sep_swap5:
forall P Q R S T U, massert_eqv (P ** Q ** R ** S ** T ** U) (T ** Q ** R ** S ** P ** U).
Lemma sep_drop:
forall P Q m, m |= P ** Q -> m |= Q.
Lemma sep_drop2:
forall P Q R m, m |= P ** Q ** R -> m |= P ** R.
Lemma sep_proj1:
forall Q P m, m |= P ** Q -> m |= P.
Lemma sep_proj2:
forall P Q m, m |= P ** Q -> m |= Q.