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
0283ccbb
Commit
0283ccbb
authored
Dec 22, 2016
by
Ralf Jung
Browse files
fewer linebreaks in the core
parent
48371b50
Pipeline
#3478
passed with stage
in 10 minutes and 26 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/core.v
View file @
0283ccbb
...
...
@@ -13,25 +13,19 @@ Section core.
Context
{
M
:
ucmraT
}.
Implicit
Types
P
Q
:
uPred
M
.
Lemma
coreP_intro
P
:
P
-
∗
coreP
P
.
Proof
.
iIntros
"HP"
.
iIntros
(
Q
HQ
HPQ
).
by
iApply
HPQ
.
Qed
.
Lemma
coreP_intro
P
:
P
-
∗
coreP
P
.
Proof
.
iIntros
"HP"
.
iIntros
(
Q
HQ
HPQ
).
by
iApply
HPQ
.
Qed
.
Global
Instance
coreP_persistent
P
:
PersistentP
(
coreP
P
).
Global
Instance
coreP_persistent
P
:
PersistentP
(
coreP
P
).
Proof
.
iIntros
"HCP"
.
iApply
always_forall
.
iIntros
(
Q
).
iApply
always_forall
.
iIntros
(
HQ
).
iApply
always_forall
.
iIntros
(
HPQ
).
iApply
HQ
.
unshelve
iApply
(
"HCP"
$!
Q
).
done
.
Qed
.
Lemma
corP_elim
P
:
PersistentP
P
→
coreP
P
-
∗
P
.
Lemma
corP_elim
P
:
PersistentP
P
→
coreP
P
-
∗
P
.
Proof
.
iIntros
(?)
"HCP"
.
unshelve
iApply
(
"HCP"
$!
P
).
iIntros
"P"
.
done
.
iIntros
(?)
"HCP"
.
unshelve
iApply
(
"HCP"
$!
P
).
iIntros
"P"
.
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