Commit fcf38b87 authored by Ralf Jung's avatar Ralf Jung
Browse files

fix and_exist_r

parent 0cc4e7be
...@@ -560,8 +560,11 @@ Proof. ...@@ -560,8 +560,11 @@ Proof.
- apply exist_elim=>a. apply and_intro; first by rewrite and_elim_l. - apply exist_elim=>a. apply and_intro; first by rewrite and_elim_l.
by rewrite -(exist_intro a) and_elim_r. by rewrite -(exist_intro a) and_elim_r.
Qed. Qed.
Lemma and_exist_r {A} P (Q : A uPred M) : (P a, Q a)%I ( a, P Q a)%I. Lemma and_exist_r {A} P (Q : A uPred M) : (( a, Q a) P)%I ( a, Q a P)%I.
Proof. by rewrite (commutative _ P) -and_exist_l (commutative _ P). Qed. Proof.
rewrite -(commutative _ P) and_exist_l.
apply exist_proper=>a. by rewrite commutative.
Qed.
(* BI connectives *) (* BI connectives *)
Lemma sep_mono P P' Q Q' : P Q P' Q' (P P') (Q Q'). Lemma sep_mono P P' Q Q' : P Q P' Q' (P P') (Q Q').
......
Supports Markdown
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