diff options
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index fe557c9fc..3c2e05f0a 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -219,6 +219,8 @@ let coerce_to_evaluable_ref env c = let ev = match c with | VConstr c when isConst c -> EvalConstRef (destConst c) | VConstr c when isVar c -> EvalVarRef (destVar c) + | VIntroPattern (IntroIdentifier id) + when Environ.evaluable_named id env -> EvalVarRef id | _ -> error_not_evaluable (pr_value env c) in if not (Tacred.is_evaluable env ev) then |