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

Consistent variable names in `tests/proofmode_monpred.v`.

parent 9271f6e3
No related branches found
No related tags found
No related merge requests found
...@@ -68,12 +68,12 @@ Tactic failure: iFrame: cannot frame (P i). ...@@ -68,12 +68,12 @@ Tactic failure: iFrame: cannot frame (P i).
Σ : gFunctors Σ : gFunctors
invG0 : invG Σ invG0 : invG Σ
N : namespace N : namespace
P : iProp Σ 𝓟 : iProp Σ
============================ ============================
"H" : ⎡ inv N (<pers> P) ⎤ "H" : ⎡ inv N (<pers> 𝓟) ⎤
"H2" : ⎡ ▷ <pers> P "H2" : ⎡ ▷ <pers> 𝓟
--------------------------------------□ --------------------------------------□
|={⊤ ∖ ↑N}=> ⎡ ▷ <pers> P ⎤ ∗ (|={⊤}=> ⎡ ▷ P ⎤) |={⊤ ∖ ↑N}=> ⎡ ▷ <pers> 𝓟 ⎤ ∗ (|={⊤}=> ⎡ ▷ 𝓟 ⎤)
1 subgoal 1 subgoal
...@@ -81,12 +81,12 @@ Tactic failure: iFrame: cannot frame (P i). ...@@ -81,12 +81,12 @@ Tactic failure: iFrame: cannot frame (P i).
Σ : gFunctors Σ : gFunctors
invG0 : invG Σ invG0 : invG Σ
N : namespace N : namespace
P : iProp Σ 𝓟 : iProp Σ
============================ ============================
"H" : ⎡ inv N (<pers> P) ⎤ "H" : ⎡ inv N (<pers> 𝓟) ⎤
"H2" : ⎡ ▷ <pers> P "H2" : ⎡ ▷ <pers> 𝓟
--------------------------------------□ --------------------------------------□
"Hclose" : ⎡ ▷ <pers> P ={⊤ ∖ ↑N,⊤}=∗ emp ⎤ "Hclose" : ⎡ ▷ <pers> 𝓟 ={⊤ ∖ ↑N,⊤}=∗ emp ⎤
--------------------------------------∗ --------------------------------------∗
|={⊤ ∖ ↑N,⊤}=> ⎡ ▷ P |={⊤ ∖ ↑N,⊤}=> ⎡ ▷ 𝓟
...@@ -174,18 +174,19 @@ Section tests_iprop. ...@@ -174,18 +174,19 @@ Section tests_iprop.
Context {I : biIndex} `{!invG Σ}. Context {I : biIndex} `{!invG Σ}.
Local Notation monPred := (monPred I (iPropI Σ)). Local Notation monPred := (monPred I (iPropI Σ)).
Implicit Types P : iProp Σ. Implicit Types P Q R : monPred.
Implicit Types 𝓟 𝓠 𝓡 : iProp Σ.
Lemma test_iInv_0 N P: Lemma test_iInv_0 N 𝓟 :
embed (B:=monPred) (inv N (<pers> P)) ={}=∗ ⎡▷ P⎤. embed (B:=monPred) (inv N (<pers> 𝓟)) ={}=∗ ⎡▷ 𝓟⎤.
Proof. Proof.
iIntros "#H". iIntros "#H".
iInv N as "#H2". Show. iInv N as "#H2". Show.
iModIntro. iSplit=>//. iModIntro. iModIntro; auto. iModIntro. iSplit=>//. iModIntro. iModIntro; auto.
Qed. Qed.
Lemma test_iInv_0_with_close N P: Lemma test_iInv_0_with_close N 𝓟 :
embed (B:=monPred) (inv N (<pers> P)) ={}=∗ ⎡▷ P⎤. embed (B:=monPred) (inv N (<pers> 𝓟)) ={}=∗ ⎡▷ 𝓟⎤.
Proof. Proof.
iIntros "#H". iIntros "#H".
iInv N as "#H2" "Hclose". Show. iInv N as "#H2" "Hclose". Show.
......
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