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. ...@@ -383,6 +383,18 @@ Tactic failure: iFrame: cannot frame Q.
--------------------------------------∗ --------------------------------------∗
default emp mP 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" "elim_mod_accessor"
: string : string
1 goal 1 goal
......
From iris.bi Require Import laterable.
From iris.proofmode Require Import tactics intro_patterns. From iris.proofmode Require Import tactics intro_patterns.
Set Default Proof Using "Type". Set Default Proof Using "Type".
...@@ -1079,6 +1080,13 @@ Proof. ...@@ -1079,6 +1080,13 @@ Proof.
iIntros "[P _]". done. iIntros "[P _]". done.
Qed. 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. End tests.
Section parsing_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