diff options
| author | barras | 2010-07-28 13:58:22 +0000 |
|---|---|---|
| committer | barras | 2010-07-28 13:58:22 +0000 |
| commit | 45613983f0e96945707c148dad609595b2d7d8db (patch) | |
| tree | a3666327518ef604a8e9746cfac3deb46867f1d0 | |
| parent | 03b782e0cec7c294db4b9cd445bd209e38c1cb0a (diff) | |
oops. commited files I shouldn't have. reverting on r13341
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13342 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/auto.ml | 11 | ||||
| -rw-r--r-- | tactics/tacinterp.ml | 6 |
2 files changed, 5 insertions, 12 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index 9c58b78016..4cac7faae2 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -798,18 +798,11 @@ let add_hint_lemmas eapply lems hint_db gl = list_map_append (pf_apply make_resolves gl (eapply,true,false) None) lems in Hint_db.add_list hintlist' hint_db - -(* Hints supplied by "using" are considered *before* the goal hyps. - This gives the user a (limited) way to control the search space. - Note: number of premisses is still the main ordering criterion, so - local hyps with fewer premisses are still prefered to user supplied - hints with larger number of premisses. (BB) *) let make_local_hint_db eapply lems gl = let sign = pf_hyps gl in let hintlist = list_map_append (pf_apply make_resolve_hyp gl) sign in - Hint_db.add_list hintlist - (add_hint_lemmas eapply lems - (Hint_db.empty empty_transparent_state false) gl) + add_hint_lemmas eapply lems + (Hint_db.add_list hintlist (Hint_db.empty empty_transparent_state false)) gl (* Serait-ce possible de compiler d'abord la tactique puis de faire la substitution sans passer par bdize dont l'objectif est de préparer un diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 6bd7bc17fa..94ea43f45d 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2146,9 +2146,9 @@ and interp_genarg ist gl x = match tactic_genarg_level s with | Some n -> (* Special treatment of tactic arguments *) - in_gen (wit_tactic n) (out_gen (globwit_tactic n) x) -(* in_gen (wit_tactic n) - (TacArg(valueIn(val_interp ist gl (out_gen (globwit_tactic n) x))))*) + in_gen (wit_tactic n) + (TacArg(valueIn(VFun(ist.trace,ist.lfun,[], + out_gen (globwit_tactic n) x)))) | None -> lookup_interp_genarg s ist gl x |