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
773c0bb9
Commit
773c0bb9
authored
Nov 11, 2017
by
Ralf Jung
Committed by
Robbert Krebbers
Nov 15, 2017
Browse files
saved_proper: also provide strong allocation
parent
466710ad
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/saved_prop.v
View file @
773c0bb9
...
...
@@ -62,6 +62,10 @@ Notation savedPropΣ := (savedAnythingΣ (▶ ∙)).
Definition
saved_prop_own
`
{
savedPropG
Σ
}
(
γ
:
gname
)
(
P
:
iProp
Σ
)
:
=
saved_anything_own
(
F
:
=
▶
∙
)
γ
(
Next
P
).
Lemma
saved_prop_alloc_strong
`
{
savedPropG
Σ
}
(
G
:
gset
gname
)
(
P
:
iProp
Σ
)
:
(|==>
∃
γ
,
⌜γ
∉
G
⌝
∧
saved_prop_own
γ
P
)%
I
.
Proof
.
iApply
saved_anything_alloc_strong
.
Qed
.
Lemma
saved_prop_alloc
`
{
savedPropG
Σ
}
(
P
:
iProp
Σ
)
:
(|==>
∃
γ
,
saved_prop_own
γ
P
)%
I
.
Proof
.
iApply
saved_anything_alloc
.
Qed
.
...
...
@@ -79,6 +83,10 @@ Notation savedPredΣ A := (savedAnythingΣ (constCF A -n> ▶ ∙)).
Definition
saved_pred_own
`
{
savedPredG
Σ
A
}
(
γ
:
gname
)
(
f
:
A
-
n
>
iProp
Σ
)
:
=
saved_anything_own
(
F
:
=
A
-
n
>
▶
∙
)
γ
(
CofeMor
Next
◎
f
).
Lemma
saved_pred_alloc_strong
`
{
savedPredG
Σ
A
}
(
G
:
gset
gname
)
(
f
:
A
-
n
>
iProp
Σ
)
:
(|==>
∃
γ
,
⌜γ
∉
G
⌝
∧
saved_pred_own
γ
f
)%
I
.
Proof
.
iApply
saved_anything_alloc_strong
.
Qed
.
Lemma
saved_pred_alloc
`
{
savedPredG
Σ
A
}
(
f
:
A
-
n
>
iProp
Σ
)
:
(|==>
∃
γ
,
saved_pred_own
γ
f
)%
I
.
Proof
.
iApply
saved_anything_alloc
.
Qed
.
...
...
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