Skip to content
Snippets Groups Projects
Commit 7bcd56f3 authored by Ralf Jung's avatar Ralf Jung
Browse files

add a test for framing monPred_at below a wand

parent 0d39643c
No related branches found
No related tags found
No related merge requests found
......@@ -35,3 +35,14 @@
--------------------------------------∗
∀ i : I, 𝓟 ∗ 𝓠 ∗ Q i
1 subgoal
I : biIndex
PROP : sbi
FU0 : BiFUpd PROP * ()
P, Q : monpred.monPred I PROP
i : I
============================
--------------------------------------∗
(Q -∗ emp) i
......@@ -120,7 +120,12 @@ Section tests.
iIntros "[$ #HP]". iFrame "HP".
Qed.
Lemma test_iFrame_monPred_at_wand (P Q : monPred) i :
P i -∗ (Q -∗ P) i.
Proof. iIntros "$". Show. Abort.
Lemma test_iNext_Bi P :
@bi_entails monPredI ( P) ( P).
Proof. iIntros "H". by iNext. Qed.
End tests.
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