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

add test for make_laterable iModIntro

parent c5a82d9a
No related branches found
No related tags found
No related merge requests found
......@@ -383,6 +383,18 @@ Tactic failure: iFrame: cannot frame Q.
--------------------------------------∗
default emp mP
1 goal
PROP : bi
H : BiAffine PROP
P, Q : PROP
H0 : Laterable Q
============================
"HP" : ▷ P
"HQ" : Q
--------------------------------------∗
▷ P ∗ Q
"elim_mod_accessor"
: string
1 goal
......
From iris.bi Require Import laterable.
From iris.proofmode Require Import tactics intro_patterns.
Set Default Proof Using "Type".
......@@ -1079,6 +1080,13 @@ Proof.
iIntros "[P _]". done.
Qed.
Lemma test_iModIntro_make_laterable `{BiAffine PROP} (P Q : PROP) :
Laterable Q
P -∗ Q -∗ make_laterable ( P Q).
Proof.
iIntros (?) "HP HQ". iModIntro. Show. by iFrame.
Qed.
End tests.
Section parsing_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