diff options
| author | Pierre-Marie Pédrot | 2020-10-02 19:01:46 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-11-04 13:43:57 +0100 |
| commit | be332604f4d495ea875185ff1b5aee1eb12b4178 (patch) | |
| tree | 774c39fa9b256d736d48c5ec386025171fc3caae /tactics | |
| parent | 511a3eae36d3b57afbbb37b586ef71adf094f8ca (diff) | |
Opacify the Hints.hint_term type.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/hints.ml | 2 | ||||
| -rw-r--r-- | tactics/hints.mli | 6 |
2 files changed, 5 insertions, 3 deletions
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"] |