Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Marianna Rapoport
iris-coq
Commits
f871290b
Commit
f871290b
authored
Nov 04, 2017
by
Robbert Krebbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove some old hacks.
parent
ab7651d1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
10 deletions
+9
-10
theories/heap_lang/tactics.v
theories/heap_lang/tactics.v
+9
-10
No files found.
theories/heap_lang/tactics.v
View file @
f871290b
...
...
@@ -209,22 +209,21 @@ Ltac solve_closed :=
end
.
Hint
Extern
0
(
Closed
_
_
)
=>
solve_closed
:
typeclass_instances
.
Ltac
solve_to_val
:
=
rewrite
/
AsVal
/
IntoVal
;
try
match
goal
with
|
|-
context
E
[
language
.
to_val
?e
]
=>
let
X
:
=
context
E
[
to_val
e
]
in
change
X
end
;
Ltac
solve_into_val
:
=
match
goal
with
|
|-
to_val
?e
=
Som
e
?v
=>
|
|-
IntoVal
?
e
?v
=>
let
e'
:
=
W
.
of_expr
e
in
change
(
to_val
(
W
.
to_expr
e'
)
=
Some
v
)
;
apply
W
.
to_val_Some
;
simpl
;
unfold
W
.
to_expr
;
reflexivity
|
|-
is_Some
(
to_val
?e
)
=>
end
.
Hint
Extern
10
(
IntoVal
_
_
)
=>
solve_into_val
:
typeclass_instances
.
Ltac
solve_as_val
:
=
match
goal
with
|
|-
AsVal
?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
end
.
Hint
Extern
10
(
IntoVal
_
_
)
=>
solve_to_val
:
typeclass_instances
.
Hint
Extern
10
(
AsVal
_
)
=>
solve_to_val
:
typeclass_instances
.
Hint
Extern
10
(
AsVal
_
)
=>
solve_as_val
:
typeclass_instances
.
Ltac
solve_atomic
:
=
match
goal
with
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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