diff options
| author | coqbot-app[bot] | 2020-11-06 15:19:09 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-06 15:19:09 +0000 |
| commit | 6cebd412748b82c4c9bbef295503ed1954981b45 (patch) | |
| tree | a81e36c5744ab2df192020fad095d4683abd467c /tactics/hints.ml | |
| parent | e5dc6e5cd189fb0e6fff672d7e978c62b4d4c160 (diff) | |
| parent | 124135344d6c9ef1f7622b8340c16cc3d5ac8e06 (diff) | |
Merge PR #13139: Clean the constr-as-hint API
Reviewed-by: SkySkimmer
Diffstat (limited to 'tactics/hints.ml')
| -rw-r--r-- | tactics/hints.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tactics/hints.ml b/tactics/hints.ml index fe3efef7c5..68229dbe26 100644 --- a/tactics/hints.ml +++ b/tactics/hints.ml @@ -1347,6 +1347,10 @@ 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 (c, diff) = IsConstr (c, diff) + let expand_constructor_hints env sigma lems = List.map_append (fun (evd,lem) -> match EConstr.kind sigma lem with @@ -1365,8 +1369,9 @@ let constructor_hints env sigma eapply lems = List.map_append (fun lem -> make_resolves env sigma (eapply, true) empty_hint_info ~check:true lem) lems -let make_resolves env sigma info ~check ?name hint = - make_resolves env sigma (true, false) info ~check ?name hint +let make_resolves env sigma info hint = + let name = PathHints [hint] in + make_resolves env sigma (true, false) info ~check:false ~name (IsGlobRef hint) let make_local_hint_db env sigma ts eapply lems = let map c = c env sigma in |