Commit ef6de2f9 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan

New derived lemma : entails_equiv_and.

parent dcab926c
Pipeline #3502 passed with stage
in 10 minutes and 38 seconds
......@@ -437,6 +437,12 @@ Proof. intros P; apply (anti_symm _); auto. Qed.
Global Instance False_sep : RightAbsorb (⊣⊢) False%I (@uPred_sep M).
Proof. intros P; apply (anti_symm _); auto. Qed.
Lemma entails_equiv_and P Q : (P ⊣⊢ Q P) (P Q).
Proof.
split; first by intros ->; apply uPred.and_elim_l. intros PQ.
apply uPred.equiv_spec; split;
[by apply uPred.and_intro|apply uPred.and_elim_r].
Qed.
Lemma sep_and_l P Q R : P (Q R) (P Q) (P R).
Proof. auto. Qed.
Lemma sep_and_r P Q R : (P Q) R (P R) (Q R).
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment