From e9bbfcd6d589a9e8e5abcd9fbc852a77996c97db Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Tue, 13 Nov 2018 10:11:15 +0100
Subject: Declare initial hint databases in prelude

Previously, they were hard-wired in the ML code.
---
 tactics/class_tactics.ml  |  3 ++-
 tactics/class_tactics.mli |  2 ++
 tactics/hints.ml          | 11 +----------
 tactics/hints.mli         |  5 -----
 4 files changed, 5 insertions(+), 16 deletions(-)

(limited to 'tactics')

diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml
index a3620f4081..5f003b74bd 100644
--- a/tactics/class_tactics.ml
+++ b/tactics/class_tactics.ml
@@ -33,7 +33,8 @@ open Hints
 
 module NamedDecl = Context.Named.Declaration
 
-(** Hint database named "typeclass_instances", now created directly in Auto *)
+(** Hint database named "typeclass_instances", created in prelude *)
+let typeclasses_db = "typeclass_instances"
 
 (** Options handling *)
 
diff --git a/tactics/class_tactics.mli b/tactics/class_tactics.mli
index a6922213d0..c950e3de3d 100644
--- a/tactics/class_tactics.mli
+++ b/tactics/class_tactics.mli
@@ -13,6 +13,8 @@
 open Names
 open EConstr
 
+val typeclasses_db : string
+
 val catchable : exn -> bool
 
 val set_typeclasses_debug : bool -> unit
diff --git a/tactics/hints.ml b/tactics/hints.ml
index 85d75f1010..0daf57ae84 100644
--- a/tactics/hints.ml
+++ b/tactics/hints.ml
@@ -738,16 +738,7 @@ module Hintdbmap = String.Map
 
 type hint_db = Hint_db.t
 
-(** Initially created hint databases, for typeclasses and rewrite *)
-let typeclasses_db = "typeclass_instances"
-let rewrite_db = "rewrite"
-
-let auto_init_db =
-  Hintdbmap.add typeclasses_db (Hint_db.empty TransparentState.full true)
-    (Hintdbmap.add rewrite_db (Hint_db.empty TransparentState.cst_full true)
-       Hintdbmap.empty)
-
-let searchtable = Summary.ref ~name:"searchtable" auto_init_db
+let searchtable = Summary.ref ~name:"searchtable" Hintdbmap.empty
 let statustable = Summary.ref ~name:"statustable" KNmap.empty
 
 let searchtable_map name =
diff --git a/tactics/hints.mli b/tactics/hints.mli
index dd2c63d351..a069e53852 100644
--- a/tactics/hints.mli
+++ b/tactics/hints.mli
@@ -277,11 +277,6 @@ val make_local_hint_db : env -> evar_map -> ?ts:TransparentState.t -> bool -> de
 
 val make_db_list : hint_db_name list -> hint_db list
 
-(** Initially created hint databases, for typeclasses and rewrite *)
-
-val typeclasses_db : hint_db_name
-val rewrite_db : hint_db_name
-
 val wrap_hint_warning : 'a Proofview.tactic -> 'a Proofview.tactic
 (** Use around toplevel calls to hint-using tactics, to enable the tracking of
     non-imported hints. Any tactic calling [run_hint] must be wrapped this
-- 
cgit v1.2.3