Skip to content
Snippets Groups Projects
Commit 06fad70e authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Use lazymatch in iClear to avoid backtracking on errors.

parent 669cdfa5
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
proofmode/tactics.v
+ 1
− 1
View file @ 06fad70e
...@@ -58,7 +58,7 @@ Tactic Notation "iRename" constr(H1) "into" constr(H2) := ...@@ -58,7 +58,7 @@ Tactic Notation "iRename" constr(H1) "into" constr(H2) :=
Tactic Notation "iClear" constr(Hs) := Tactic Notation "iClear" constr(Hs) :=
let rec go Hs := let rec go Hs :=
match Hs with lazymatch Hs with
| [] => idtac | [] => idtac
| "★" :: ?Hs => eapply tac_clear_spatial; [env_cbv; reflexivity|go Hs] | "★" :: ?Hs => eapply tac_clear_spatial; [env_cbv; reflexivity|go Hs]
| ?H :: ?Hs => | ?H :: ?Hs =>
......
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