Commit 06fad70e authored by Robbert Krebbers's avatar Robbert Krebbers

Use lazymatch in iClear to avoid backtracking on errors.

parent 669cdfa5
......@@ -58,7 +58,7 @@ Tactic Notation "iRename" constr(H1) "into" constr(H2) :=
Tactic Notation "iClear" constr(Hs) :=
let rec go Hs :=
match Hs with
lazymatch Hs with
| [] => idtac
| "★" :: ?Hs => eapply tac_clear_spatial; [env_cbv; reflexivity|go Hs]
| ?H :: ?Hs =>
......
Markdown is supported
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