Commit a68ee609 authored by Robbert Krebbers's avatar Robbert Krebbers

Turn some matches into lazymatches to improve error propagation.

parent 4cba2266
......@@ -676,7 +676,7 @@ Local Tactic Notation "iDestructHyp" constr(H) "as" constr(pat) :=
let rec find_pat found pats :=
lazymatch pats with
| [] =>
match found with
lazymatch found with
| true => idtac
| false => fail "iDestruct:" pat "should contain exactly one proper introduction pattern"
end
......@@ -684,7 +684,7 @@ Local Tactic Notation "iDestructHyp" constr(H) "as" constr(pat) :=
| IClear ?H :: ?pats => iClear H; find_pat found pats
| IClearFrame ?H :: ?pats => iFrame H; find_pat found pats
| ?pat :: ?pats =>
match found with
lazymatch found with
| false => go H pat; find_pat true pats
| true => fail "iDestruct:" pat "should contain exactly one proper introduction pattern"
end
......
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