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
Iris
Iris
Commits
e922a646
Commit
e922a646
authored
Dec 22, 2016
by
Jacques-Henri Jourdan
Browse files
Tweak core.v
parent
fee229c1
Pipeline
#3483
passed with stage
in 10 minutes and 19 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/core.v
View file @
e922a646
...
...
@@ -7,7 +7,7 @@ Import uPred.
in the shallow embedding. *)
Definition
coreP
{
M
:
ucmraT
}
(
P
:
uPred
M
)
:
uPred
M
:
=
(
∀
(
Q
:
uPred
M
)
`
(!
PersistentP
Q
,
!
P
-
∗
Q
),
Q
)%
I
.
(
∀
`
(!
PersistentP
Q
,
P
⊢
Q
),
Q
)%
I
.
Section
core
.
Context
{
M
:
ucmraT
}.
...
...
@@ -23,11 +23,18 @@ Section core.
iIntros
(
HPQ
).
iApply
HQ
.
unshelve
iApply
(
"HCP"
$!
Q
).
done
.
Qed
.
Global
Instance
coreP_mono
:
Proper
((
⊢
)
==>
(
⊢
))
(@
coreP
M
).
Proof
.
unfold
coreP
.
iIntros
(??
ENT
)
"H *"
.
unshelve
iApply
(
"H"
$!
Q
).
by
etrans
.
Qed
.
Global
Instance
coreP_proper
:
Proper
((
⊣
⊢
)
==>
(
⊣
⊢
))
(@
coreP
M
).
Proof
.
intros
??.
rewrite
!
equiv_spec
=>-[
A
B
].
split
;
rewrite
?A
//
?B
//.
Qed
.
Lemma
coreP_elim
P
:
PersistentP
P
→
coreP
P
-
∗
P
.
Proof
.
iIntros
(?)
"HCP"
.
unshelve
iApply
(
"HCP"
$!
P
).
iIntros
"P"
.
done
.
Qed
.
End
core
.
Global
Opaque
coreP
.
\ No newline at end of file
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