diff options
author | 2004-06-26 09:31:26 +0000 | |
---|---|---|
committer | 2004-06-26 09:31:26 +0000 | |
commit | ad12a2fe4c1406ea5485e2a1a4006c93f55fa676 (patch) | |
tree | dc687fbc53a7b7941d79e35226356eb28783ccd6 /tactics/tacinterp.ml | |
parent | d72e919bfb3389b139c9053ee7e87662895a39f8 (diff) |
effective evar refining
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5827 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacinterp.ml')
-rw-r--r-- | tactics/tacinterp.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 06a4c90a7..fe557c9fc 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1712,7 +1712,8 @@ and interp_atomic ist gl = function | TacLetTac (na,c,clp) -> let clp = interp_clause ist gl clp in h_let_tac (interp_name ist na) (pf_interp_constr ist gl c) clp - | TacInstantiate (n,c,ido) -> h_instantiate n (pf_interp_constr ist gl c) + | TacInstantiate (n,c,ido) -> h_instantiate n (fst c) + (* pf_interp_constr ist gl c *) (clause_app (interp_hyp_location ist gl) ido) (* Automation tactics *) |