Use lazymatch in iClear to avoid backtracking on errors.

06fad70e · Robbert Krebbers · 669cdfa5 · 06fad70e
Commit 06fad70e authored Sep 27, 2016 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

proofmode/tactics.v proofmode/tactics.v +1 -1

No files found.
--- a/proofmode/tactics.v
+++ b/proofmode/tactics.v
@@ -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 =>