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
Jonas Kastberg
iris
Commits
1805a435
Commit
1805a435
authored
Jan 30, 2017
by
Robbert Krebbers
Browse files
Fix error messages of iAndDestructChoice.
parent
9e4c13a3
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/tactics.v
View file @
1805a435
...
...
@@ -565,10 +565,10 @@ Local Tactic Notation "iAndDestruct" constr(H) "as" constr(H1) constr(H2) :=
Local
Tactic
Notation
"iAndDestructChoice"
constr
(
H
)
"as"
constr
(
lr
)
constr
(
H'
)
:
=
eapply
tac_and_destruct_choice
with
_
H
_
lr
H'
_
_
_;
[
env_cbv
;
reflexivity
||
fail
"iAndDestruct:"
H
"not found"
[
env_cbv
;
reflexivity
||
fail
"iAndDestruct
Choice
:"
H
"not found"
|
let
P
:
=
match
goal
with
|-
IntoAnd
_
?P
_
_
=>
P
end
in
apply
_
||
fail
"iAndDestruct: cannot destruct"
P
|
env_cbv
;
reflexivity
||
fail
"iAndDestruct:"
H'
" not fresh"
|].
apply
_
||
fail
"iAndDestruct
Choice
: cannot destruct"
P
|
env_cbv
;
reflexivity
||
fail
"iAndDestruct
Choice
:"
H'
" not fresh"
|].
Tactic
Notation
"iCombine"
constr
(
H1
)
constr
(
H2
)
"as"
constr
(
H
)
:
=
eapply
tac_combine
with
_
_
_
H1
_
_
H2
_
_
H
_;
...
...
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