diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-06-28 10:24:24 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-06-28 10:24:24 +0000 |
commit | ecead0d68bc8b1359617e274a7aa8d8bee3aeb77 (patch) | |
tree | aef3f70b864b34cf2bf525a28f41e704fd399e03 | |
parent | 31d6b27e29479b0082dfba5a1211f622c9e4111d (diff) |
Ajout de la coercion id dans context vers evaluable constant (bug #777)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5841 85f007b7-540e-0410-9357-904b9bb8a0f7
-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 |