Commit 7b221fa8 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Use lazymatch in reshape_val, it should not backtrack.

parent 21d4658d
......@@ -252,7 +252,7 @@ evaluation context [K] and a subexpression [e']. It calls the tactic [tac K e']
for each possible decomposition until [tac] succeeds. *)
Ltac reshape_val e tac :=
let rec go e :=
match e with
lazymatch e with
| of_val ?v => v
| Rec ?f ?x ?e => constr:(RecV f x e)
| Lit ?l => constr:(LitV l)
Supports Markdown
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