Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Joshua Yanovski
iris-coq
Commits
5334813e
Commit
5334813e
authored
Mar 20, 2017
by
Ralf Jung
Browse files
Show an interesting lemma about the core
parent
124eea15
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/core.v
View file @
5334813e
...
...
@@ -40,5 +40,14 @@ Section core.
Lemma
coreP_elim
P
:
PersistentP
P
→
coreP
P
-
∗
P
.
Proof
.
rewrite
/
coreP
.
iIntros
(
?
)
"HCP"
.
unshelve
iApply
(
"HCP"
$
!
P
);
auto
.
Qed
.
End
core
.
Lemma
coreP_wand
P
Q
:
(
coreP
P
⊢
Q
)
↔
(
P
⊢
□
Q
).
Proof
.
split
.
-
iIntros
(
HP
)
"HP"
.
iDestruct
(
coreP_intro
with
"HP"
)
as
"#HcP"
.
iClear
"∗"
.
iAlways
.
by
iApply
HP
.
-
iIntros
(
HPQ
)
"HcP"
.
iDestruct
(
coreP_mono
_
_
HPQ
with
"HcP"
)
as
"HcQ"
.
iDestruct
(
coreP_elim
with
"HcQ"
)
as
"#HQ"
.
done
.
Qed
.
End
core
.
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment