diff options
| author | Maxime Dénès | 2020-03-05 15:07:10 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2020-03-05 15:07:10 +0100 |
| commit | c5bf968b30fd62d838615ec29d993431d31bbe0b (patch) | |
| tree | 1d49910af3b706460f3cbbd6031e07306090533e /vernac | |
| parent | dca89bdb43c1fe557f1cf681da273f6a8993c338 (diff) | |
| parent | db4cbfef3226cd999b3554b9b8160bc331f45c05 (diff) | |
Merge PR #7791: Deprecating the declaration of arbitrary terms as hints.
Reviewed-by: Zimmi48
Reviewed-by: mattam82
Reviewed-by: maximedenes
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/classes.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index b92c9e9b71..16b9e07fb2 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -60,7 +60,9 @@ let add_instance check inst = let local = is_local_for_hint inst in add_instance_hint (Hints.IsGlobRef inst.is_impl) [inst.is_impl] local inst.is_info poly; - List.iter (fun (path, pri, c) -> add_instance_hint (Hints.IsConstr (EConstr.of_constr c, Univ.ContextSet.empty)) path + List.iter (fun (path, pri, c) -> + let h = Hints.IsConstr (EConstr.of_constr c, Univ.ContextSet.empty) [@ocaml.warning "-3"] in + add_instance_hint h path local pri poly) (build_subclasses ~check:(check && not (isVarRef inst.is_impl)) (Global.env ()) (Evd.from_env (Global.env ())) inst.is_impl inst.is_info) |