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
Dmitry Khalanskiy
Iris
Commits
46cf3677
Commit
46cf3677
authored
Aug 23, 2016
by
Robbert Krebbers
Browse files
Tweak wp_invariance.
parent
a1ea5292
Changes
1
Hide whitespace changes
Inline
Side-by-side
program_logic/adequacy.v
View file @
46cf3677
...
...
@@ -127,11 +127,11 @@ Proof.
iApply
(
big_sep_elem_of
with
"Htp"
)
;
apply
elem_of_list_fmap
;
eauto
.
Qed
.
Lemma
wptp_invariance
n
e1
e2
t1
t2
σ
1
σ
2
I
φ
:
Lemma
wptp_invariance
n
e1
e2
t1
t2
σ
1
σ
2
I
φ
Φ
:
PersistentP
I
→
nsteps
step
n
(
e1
::
t1
,
σ
1
)
(
t2
,
σ
2
)
→
(
I
={
⊤
,
∅
}=>
∃
σ
'
,
ownP
σ
'
∧
■
φ
σ
'
)
→
I
★
world
σ
1
★
WP
e1
{{
_
,
True
}}
★
wptp
t1
⊢
I
★
world
σ
1
★
WP
e1
{{
Φ
}}
★
wptp
t1
⊢
Nat
.
iter
(
S
(
S
n
))
(
λ
P
,
|=
r
=>
▷
P
)
(
■
φ
σ
2
).
Proof
.
intros
??
HI
.
rewrite
wptp_steps
//.
...
...
@@ -162,9 +162,9 @@ Proof.
iFrame
"Hw HE Hσ"
.
iSplitL
;
auto
.
by
iApply
Hwp
.
Qed
.
Theorem
wp_invariance
Σ
`
{
irisPreG
Λ
Σ
}
(
I
:
iProp
Σ
)
e
φ
σ
1
t2
σ
2
:
Theorem
wp_invariance
Σ
`
{
irisPreG
Λ
Σ
}
e
σ
1
t2
σ
2
I
φ
Φ
:
PersistentP
I
→
(
∀
`
{
irisG
Λ
Σ
},
ownP
σ
1
={
⊤
}=>
I
★
WP
e
{{
_
,
True
}})
→
(
∀
`
{
irisG
Λ
Σ
},
ownP
σ
1
={
⊤
}=>
I
★
WP
e
{{
Φ
}})
→
(
∀
`
{
irisG
Λ
Σ
},
I
={
⊤
,
∅
}=>
∃
σ
'
,
ownP
σ
'
∧
■
φ
σ
'
)
→
rtc
step
([
e
],
σ
1
)
(
t2
,
σ
2
)
→
φ
σ
2
.
...
...
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