Skip to content
Snippets Groups Projects
Commit 81c377c9 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Merge branch 'master' of gitlab.mpi-sws.org:FP/iris-coq

parents a8dbb44d b91a6280
No related branches found
No related tags found
No related merge requests found
From iris.proofmode Require Import tactics. From iris.proofmode Require Import tactics.
From iris.proofmode Require Import pviewshifts.
Lemma demo_0 {M : cmraT} (P Q : uPred M) : Lemma demo_0 {M : cmraT} (P Q : uPred M) :
(P Q) (( x, x = 0 x = 1) (Q P)). (P Q) (( x, x = 0 x = 1) (Q P)).
...@@ -79,3 +80,16 @@ Proof. ...@@ -79,3 +80,16 @@ Proof.
iIntros "#Hfoo **". iIntros "#Hfoo **".
by iIntros "# _". by iIntros "# _".
Qed. Qed.
Section iris.
Context {Λ : language} {Σ : iFunctor}.
Lemma demo_7 (E1 E2 E : coPset) (P : iProp Λ Σ) :
E1 E2 E E1
(|={E1,E}=> P) (|={E2,E E2 E1}=> P).
Proof.
iIntros {? ?} "Hpvs".
iPvs "Hpvs"; first (split_and?; set_solver).
done.
Qed.
End iris.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment