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
Jonas Kastberg
iris
Commits
7378a401
Commit
7378a401
authored
Nov 15, 2017
by
Robbert Krebbers
Browse files
Simplify another proof.
parent
8c13c02f
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/saved_prop.v
View file @
7378a401
...
...
@@ -94,10 +94,7 @@ Definition saved_pred_own `{savedPredG Σ A} (γ : gname) (Φ : A -n> iProp Σ)
saved_anything_own
(
F
:
=
A
-
n
>
▶
∙
)
γ
(
CofeMor
Next
◎
Φ
).
Instance
saved_pred_own_contractive
`
{
savedPredG
Σ
A
}
γ
:
Contractive
(
saved_pred_own
γ
).
Proof
.
intros
n
Φ
Φ
'
H
Φ
.
rewrite
/
saved_pred_own
/
saved_anything_own
/=.
do
3
f_equiv
.
intros
x
.
rewrite
/=.
by
f_contractive
.
Qed
.
Proof
.
rewrite
/
saved_pred_own
=>
n
Φ
Φ
'
?.
f_equiv
=>
x
/=.
by
f_contractive
.
Qed
.
Lemma
saved_pred_alloc_strong
`
{
savedPredG
Σ
A
}
(
G
:
gset
gname
)
(
Φ
:
A
-
n
>
iProp
Σ
)
:
(|==>
∃
γ
,
⌜γ
∉
G
⌝
∧
saved_pred_own
γ
Φ
)%
I
.
...
...
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