diff options
| author | msozeau | 2008-09-07 15:15:04 +0000 |
|---|---|---|
| committer | msozeau | 2008-09-07 15:15:04 +0000 |
| commit | 4a1077f9d1ee00632ec72a4089013194f558cacd (patch) | |
| tree | 0e38a7ea9d0f9f8b9cd18873f404482f0e98d446 /parsing | |
| 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 'parsing')
| -rw-r--r-- | parsing/g_proofs.ml4 | 2 | ||||
| -rw-r--r-- | parsing/ppvernac.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_proofs.ml4 b/parsing/g_proofs.ml4 index 32a2427ed1..486f80abc9 100644 --- a/parsing/g_proofs.ml4 +++ b/parsing/g_proofs.ml4 @@ -106,7 +106,7 @@ GEXTEND Gram ; hint: [ [ IDENT "Resolve"; lc = LIST1 constr; n = OPT [ n = natural -> n ] -> - HintsResolve (List.map (fun x -> (n, x)) lc) + HintsResolve (List.map (fun x -> (n, true, x)) lc) | IDENT "Immediate"; lc = LIST1 constr -> HintsImmediate lc | IDENT "Unfold"; lqid = LIST1 global -> HintsUnfold lqid | IDENT "Constructors"; lc = LIST1 global -> HintsConstructors lc diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index bfcaf99164..646f697b6d 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -192,7 +192,7 @@ let pr_hints local db h pr_c pr_pat = match h with | HintsResolve l -> str "Resolve " ++ prlist_with_sep sep - (fun (pri, c) -> pr_c c ++ + (fun (pri, _, c) -> pr_c c ++ match pri with Some x -> spc () ++ str"(" ++ int x ++ str")" | None -> mt ()) l | HintsImmediate l -> |