diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-09-07 15:15:04 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-09-07 15:15:04 +0000 |
| commit | 4a1077f9d1ee00632ec72a4089013194f558cacd (patch) | |
| tree | 0e38a7ea9d0f9f8b9cd18873f404482f0e98d446 /contrib/interface | |
| parent | 69e52c438714e01fbaefc05b61f47a5ae95a7205 (diff) | |
Fixes in typeclasses resolution. Avoid reducing instances types before
making the auto apply entry. Makes indexing better and avoid polution of
[auto with *] with many abstract lemmas comming from [typeclass_instances].
Quite a nice speedup again, even Field_theory has dropped to 58s from
70s.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11381 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/blast.ml | 2 | ||||
| -rw-r--r-- | contrib/interface/xlate.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/interface/blast.ml b/contrib/interface/blast.ml index 767a7dd66..dcea487a9 100644 --- a/contrib/interface/blast.ml +++ b/contrib/interface/blast.ml @@ -473,7 +473,7 @@ let rec search_gen decomp n db_list local_db extra_sign goal = let hintl = try [make_apply_entry (pf_env g') (project g') - (true,false) + (true,true,false) None (mkVar hid,htyp)] with Failure _ -> [] diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 09e61719a..0516bd551 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -1770,7 +1770,7 @@ let rec xlate_vernac = | HintsImmediate _ -> CT_hints_immediate(l', dblist) | _ -> assert false) | HintsResolve l -> - let f1, formulas = match List.map xlate_formula (List.map snd l) with + let f1, formulas = match List.map xlate_formula (List.map pi3 l) with a :: tl -> a, tl | _ -> failwith "" in let l' = CT_formula_ne_list(f1, formulas) in |