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
f92cd3f3
Commit
f92cd3f3
authored
Apr 19, 2016
by
Robbert Krebbers
Browse files
Fix error handling of iApply.
parent
3f1a2384
Changes
1
Hide whitespace changes
Inline
Side-by-side
proofmode/tactics.v
View file @
f92cd3f3
...
...
@@ -302,8 +302,8 @@ Tactic Notation "iApply" open_constr (lem) :=
iPoseProof
lem
as
(
fun
H
=>
repeat
(
iForallSpecialize
H
_
)
;
first
[
iExact
H
|
eapply
tac_apply
with
_
H
_
_
_;
[
env_cbv
;
reflexivity
||
fail
"iApply:"
lem
"not found"
|
apply
_
||
fail
"iApply: cannot apply"
lem
|]]).
[
env_cbv
;
reflexivity
||
fail
1
"iApply:"
lem
"not found"
|
apply
_
||
fail
1
"iApply: cannot apply"
lem
|]]).
Tactic
Notation
"iApply"
open_constr
(
H
)
"{"
open_constr
(
x1
)
"}"
:
=
iSpecialize
H
{
x1
}
;
last
iApply
H
.
Tactic
Notation
"iApply"
open_constr
(
H
)
"{"
open_constr
(
x1
)
...
...
@@ -335,8 +335,8 @@ Tactic Notation "iApply" open_constr (lem) constr(Hs) :=
iPoseProof
lem
Hs
as
(
fun
H
=>
first
[
iExact
H
|
eapply
tac_apply
with
_
H
_
_
_;
[
env_cbv
;
reflexivity
||
fail
"iApply:"
lem
"not found"
|
apply
_
||
fail
"iApply: cannot apply"
lem
|]]).
[
env_cbv
;
reflexivity
||
fail
1
"iApply:"
lem
"not found"
|
apply
_
||
fail
1
"iApply: cannot apply"
lem
|]]).
Tactic
Notation
"iApply"
open_constr
(
H
)
"{"
open_constr
(
x1
)
"}"
constr
(
Hs
)
:
=
iSpecialize
H
{
x1
}
;
last
iApply
H
Hs
.
Tactic
Notation
"iApply"
open_constr
(
H
)
"{"
open_constr
(
x1
)
open_constr
(
x2
)
"}"
...
...
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