Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Janno
iriscoq
Commits
c5e7fc1a
Commit
c5e7fc1a
authored
Aug 28, 2017
by
Robbert Krebbers
Browse files
Fix error reporting of iSpecialize.
parent
e8fb0e28
Changes
1
Show whitespace changes
Inline
Sidebyside
theories/proofmode/tactics.v
View file @
c5e7fc1a
...
...
@@ 381,7 +381,7 @@ Local Tactic Notation "iSpecializeArgs" constr(H) open_constr(xs) :=
Local
Tactic
Notation
"iSpecializePat"
constr
(
H
)
constr
(
pat
)
:
=
let
solve_to_wand
H1
:
=
apply
_

let
P
:
=
match
goal
with

IntoWand
?P
_
_
=>
P
end
in
let
P
:
=
match
goal
with

IntoWand
_
?P
_
_
=>
P
end
in
fail
"iSpecialize:"
P
"not an implication/wand"
in
let
rec
go
H1
pats
:
=
lazymatch
pats
with
...
...
@@ 394,8 +394,8 @@ Local Tactic Notation "iSpecializePat" constr(H) constr(pat) :=
[
env_reflexivity

fail
"iSpecialize:"
H2
"not found"

env_reflexivity

fail
"iSpecialize:"
H1
"not found"

apply
_

let
P
:
=
match
goal
with

IntoWand
?P
?Q
_
=>
P
end
in
let
Q
:
=
match
goal
with

IntoWand
?P
?Q
_
=>
Q
end
in
let
P
:
=
match
goal
with

IntoWand
_
?P
?Q
_
=>
P
end
in
let
Q
:
=
match
goal
with

IntoWand
_
?P
?Q
_
=>
Q
end
in
fail
"iSpecialize: cannot instantiate"
P
"with"
Q

env_reflexivity

go
H1
pats
]

SPureGoal
?d
::
?pats
=>
...
...
Write
Preview
Supports
Markdown
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