From be332604f4d495ea875185ff1b5aee1eb12b4178 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 2 Oct 2020 19:01:46 +0200
Subject: Opacify the Hints.hint_term type.

---
 tactics/hints.ml  | 2 ++
 tactics/hints.mli | 6 +++---
 2 files changed, 5 insertions(+), 3 deletions(-)

(limited to 'tactics')

diff --git a/tactics/hints.ml b/tactics/hints.ml
index b8bd459616..2bff610b00 100644
--- a/tactics/hints.ml
+++ b/tactics/hints.ml
@@ -1347,6 +1347,8 @@ let add_hints ~locality dbnames h =
   | HintsExternEntry (info, tacexp) ->
       add_externs info tacexp ~local ~superglobal dbnames
 
+let hint_globref gr = IsGlobRef gr
+
 let hint_constr env sigma ~poly c =
   let c, diff = prepare_hint true env sigma c in
   let diff, uctx =
diff --git a/tactics/hints.mli b/tactics/hints.mli
index e74519f12a..eb0f937302 100644
--- a/tactics/hints.mli
+++ b/tactics/hints.mli
@@ -167,9 +167,7 @@ type hint_db = Hint_db.t
 
 type hnf = bool
 
-type hint_term =
-  | IsGlobRef of GlobRef.t
-  | IsConstr of constr * Univ.ContextSet.t option [@ocaml.deprecated "Declare a hint constant instead"]
+type hint_term
 
 type hints_entry =
   | HintsResolveEntry of (hint_info * hnf * hints_path_atom * hint_term) list
@@ -199,6 +197,8 @@ val current_pure_db : unit -> hint_db list
 
 val add_hints : locality:Goptions.option_locality -> hint_db_name list -> hints_entry -> unit
 
+val hint_globref : GlobRef.t -> hint_term
+
 val hint_constr :
   env -> evar_map -> poly:bool -> evar_map * constr -> hint_term * Univ.ContextSet.t
   [@ocaml.deprecated "Declare a hint constant instead"]
-- 
cgit v1.2.3