Skip to content
Snippets Groups Projects
Verified Commit 6eb05dfc authored by Paolo G. Giarrusso's avatar Paolo G. Giarrusso
Browse files

tactics.v: Fix parsing precedence for `select` tactic

parent 432120a3
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
theories/tactics.v
+ 1
− 1
View file @ 6eb05dfc
...@@ -531,7 +531,7 @@ matching hypotheses. ...@@ -531,7 +531,7 @@ matching hypotheses.
[select] is written in CPS and does not return the name of the [select] is written in CPS and does not return the name of the
hypothesis due to limitations in the Ltac1 tactic runtime (see hypothesis due to limitations in the Ltac1 tactic runtime (see
https://gitter.im/coq/coq?at=5e96c82f85b01628f04bbb89). *) https://gitter.im/coq/coq?at=5e96c82f85b01628f04bbb89). *)
Tactic Notation "select" open_constr(pat) tactic(tac) := Tactic Notation "select" open_constr(pat) tactic3(tac) :=
lazymatch goal with lazymatch goal with
(* The [unify] is necessary, otherwise holes in [pat] stay as side-conditions *) (* The [unify] is necessary, otherwise holes in [pat] stay as side-conditions *)
| H : pat |- _ => let T := (type of H) in unify T pat; tac H | H : pat |- _ => let T := (type of H) in unify T pat; tac H
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment