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
Tej Chajed
iris
Commits
4e2b0860
Commit
4e2b0860
authored
Jul 19, 2016
by
Robbert Krebbers
Browse files
Some tweaks.
parent
5f56adf8
Changes
2
Hide whitespace changes
Inline
Side-by-side
heap_lang/tactics.v
View file @
4e2b0860
...
...
@@ -206,7 +206,7 @@ Ltac solve_to_val :=
match
goal
with
|
|-
to_val
?e
=
Some
?v
=>
let
e'
:
=
W
.
of_expr
e
in
change
(
to_val
(
W
.
to_expr
e'
)
=
Some
v
)
;
apply
W
.
to_val_Some
;
simpl
;
reflexivity
apply
W
.
to_val_Some
;
simpl
;
unfold
W
.
to_expr
;
reflexivity
|
|-
is_Some
(
to_val
?e
)
=>
let
e'
:
=
W
.
of_expr
e
in
change
(
is_Some
(
to_val
(
W
.
to_expr
e'
)))
;
apply
W
.
to_val_is_Some
,
(
bool_decide_unpack
_
)
;
vm_compute
;
exact
I
...
...
@@ -227,7 +227,7 @@ Hint Extern 0 (language.atomic _) => solve_atomic : fsaV.
(** Substitution *)
Ltac
simpl_subst
:
=
c
simpl
;
simpl
;
repeat
match
goal
with
|
|-
context
[
subst
?x
?er
?e
]
=>
let
er'
:
=
W
.
of_expr
er
in
let
e'
:
=
W
.
of_expr
e
in
...
...
tests/list_reverse.v
View file @
4e2b0860
...
...
@@ -32,7 +32,7 @@ Lemma rev_acc_wp hd acc xs ys (Φ : val → iProp) :
⊢
WP
rev
hd
acc
{{
Φ
}}.
Proof
.
iIntros
"(#Hh & Hxs & Hys & HΦ)"
.
iL
ö
b
(
hd
acc
xs
ys
Φ
)
as
"IH"
.
wp_rec
;
wp_let
.
iL
ö
b
(
hd
acc
xs
ys
Φ
)
as
"IH"
.
wp_rec
.
wp_let
.
destruct
xs
as
[|
x
xs
]
;
iSimplifyEq
.
-
wp_match
.
by
iApply
"HΦ"
.
-
iDestruct
"Hxs"
as
(
l
hd'
)
"(% & Hx & Hxs)"
;
iSimplifyEq
.
...
...
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