diff options
| author | corbinea | 2004-06-26 09:31:26 +0000 |
|---|---|---|
| committer | corbinea | 2004-06-26 09:31:26 +0000 |
| commit | ad12a2fe4c1406ea5485e2a1a4006c93f55fa676 (patch) | |
| tree | dc687fbc53a7b7941d79e35226356eb28783ccd6 /tactics | |
| 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')
| -rw-r--r-- | tactics/hiddentac.ml | 5 | ||||
| -rw-r--r-- | tactics/hiddentac.mli | 3 | ||||
| -rw-r--r-- | tactics/tacinterp.ml | 3 |
3 files changed, 7 insertions, 4 deletions
diff --git a/tactics/hiddentac.ml b/tactics/hiddentac.ml index 99fe569bb7..21f7d43fc7 100644 --- a/tactics/hiddentac.ml +++ b/tactics/hiddentac.ml @@ -48,8 +48,9 @@ let h_generalize_dep c = abstract_tactic (TacGeneralizeDep c)(generalize_dep c) let h_let_tac na c cl = abstract_tactic (TacLetTac (na,c,cl)) (letin_tac true na c cl) let h_instantiate n c cls = - abstract_tactic (TacInstantiate (n,c,cls)) - (Evar_refiner.instantiate n c (simple_clause_of cls)) +(Evar_refiner.instantiate n c (simple_clause_of cls)) + (* abstract_tactic (TacInstantiate (n,c,cls)) + (Evar_refiner.instantiate n c (simple_clause_of cls)) *) (* Derived basic tactics *) let h_simple_induction h = diff --git a/tactics/hiddentac.mli b/tactics/hiddentac.mli index 7c8c1b3c56..90a2d1b3c3 100644 --- a/tactics/hiddentac.mli +++ b/tactics/hiddentac.mli @@ -50,7 +50,8 @@ val h_generalize : constr list -> tactic val h_generalize_dep : constr -> tactic val h_forward : bool -> name -> constr -> tactic val h_let_tac : name -> constr -> Tacticals.clause -> tactic -val h_instantiate : int -> constr -> Tacticals.clause -> tactic +val h_instantiate : int -> Rawterm.rawconstr -> + Tacticals.clause -> tactic (* Derived basic tactics *) diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 06a4c90a75..fe557c9fcf 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 *) |