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
Rice Wine
Iris
Commits
3e0408b2
Commit
3e0408b2
authored
Jun 30, 2016
by
Robbert Krebbers
Browse files
Add wp_value_pvs' (like wp_value').
parent
238d31bf
Changes
1
Hide whitespace changes
Inline
Side-by-side
program_logic/weakestpre.v
View file @
3e0408b2
...
...
@@ -257,9 +257,11 @@ Lemma wp_strip_pvs E e P Φ :
Proof
.
move
=>->.
by
rewrite
pvs_wp
.
Qed
.
Lemma
wp_value
E
Φ
e
v
:
to_val
e
=
Some
v
→
Φ
v
⊢
WP
e
@
E
{{
Φ
}}.
Proof
.
intros
;
rewrite
-(
of_to_val
e
v
)
//
;
by
apply
wp_value'
.
Qed
.
Lemma
wp_value_pvs'
E
Φ
v
:
(|={
E
}=>
Φ
v
)
⊢
WP
of_val
v
@
E
{{
Φ
}}.
Proof
.
intros
.
by
rewrite
-
wp_pvs
-
wp_value'
.
Qed
.
Lemma
wp_value_pvs
E
Φ
e
v
:
to_val
e
=
Some
v
→
(|={
E
}=>
Φ
v
)
⊢
WP
e
@
E
{{
Φ
}}.
Proof
.
intros
.
rewrite
-
wp_pvs
.
rewrite
-
wp_value
//.
Qed
.
Proof
.
intros
.
rewrite
-
wp_pvs
-
wp_value
//.
Qed
.
Lemma
wp_frame_l
E
e
Φ
R
:
R
★
WP
e
@
E
{{
Φ
}}
⊢
WP
e
@
E
{{
v
,
R
★
Φ
v
}}.
Proof
.
setoid_rewrite
(
comm
_
R
)
;
apply
wp_frame_r
.
Qed
.
Lemma
wp_frame_step_r'
E
e
Φ
R
:
...
...
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