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
133d10e0
Commit
133d10e0
authored
Nov 24, 2017
by
Robbert Krebbers
Browse files
Move `simpl` arround to make stuff work.
parent
08d096c5
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/heap_lang/proofmode.v
View file @
133d10e0
...
...
@@ -24,12 +24,12 @@ Proof. rewrite /envs_entails=> ? ->. by apply wp_value. Qed.
Ltac
wp_value_head
:
=
eapply
tac_wp_value
;
[
apply
_
|
lazy
beta
].
Tactic
Notation
"wp_pure"
open_constr
(
efoc
)
:
=
iStartProof
;
iStartProof
;
simpl
;
(* simpl possible [of_val]s *)
lazymatch
goal
with
|
|-
envs_entails
_
(
wp
?E
?e
?Q
)
=>
reshape_expr
e
ltac
:
(
fun
K
e'
=>
unify
e'
efoc
;
eapply
tac_wp_pure
;
[
simpl
;
change
e
with
(
fill
K
e'
)
;
apply
_
(* PureExec *)
eapply
(
tac_wp_pure
_
_
_
(
fill
K
e'
))
;
[
apply
_
(* PureExec *)
|
try
fast_done
(* The pure condition for PureExec *)
|
apply
_
(* IntoLaters *)
|
simpl_subst
;
try
wp_value_head
(* new goal *)
...
...
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