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
Rice Wine
Iris
Commits
753de83e
Commit
753de83e
authored
Feb 18, 2018
by
Robbert Krebbers
Browse files
Fix error message of `iMod`
Thanks to
@jtassaro
for reporting this problem.
parent
2850f888
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/tactics.v
View file @
753de83e
...
...
@@ -969,8 +969,8 @@ Tactic Notation "iModCore" constr(H) :=
eapply
tac_modal_elim
with
_
H
_
_
_
_
_;
[
env_reflexivity
||
fail
"iMod:"
H
"not found"
|
apply
_
||
let
P
:
=
match
goal
with
|-
ElimModal
?P
_
_
_
=>
P
end
in
let
Q
:
=
match
goal
with
|-
ElimModal
_
_
?Q
_
=>
Q
end
in
let
P
:
=
match
goal
with
|-
ElimModal
_
?P
_
_
_
=>
P
end
in
let
Q
:
=
match
goal
with
|-
ElimModal
_
_
_
?Q
_
=>
Q
end
in
fail
"iMod: cannot eliminate modality "
P
"in"
Q
|
try
fast_done
(* optional side-condition *)
|
env_reflexivity
|].
...
...
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