diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-06-04 21:09:49 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-06-04 21:09:49 +0200 |
commit | d862b659457b12437d4fa348c3c4dc3dd08d8065 (patch) | |
tree | fc4c5009977361e932043cdfff9b4ff434cc1ba0 /plugins/ltac | |
parent | b0ed0c2c1c7ca8fc434ecadd3a9ed906e6e428c2 (diff) | |
parent | 2eecd666a45a79241f0aadb9493ae8ef9cc9795e (diff) |
Merge PR #7229: Deprecate implicit tactic solving.
Diffstat (limited to 'plugins/ltac')
-rw-r--r-- | plugins/ltac/extratactics.ml4 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/plugins/ltac/extratactics.ml4 b/plugins/ltac/extratactics.ml4 index 8813c7764..cb7183638 100644 --- a/plugins/ltac/extratactics.ml4 +++ b/plugins/ltac/extratactics.ml4 @@ -523,10 +523,16 @@ let inImplicitTactic : glob_tactic_expr option -> obj = subst_function = subst_implicit_tactic; classify_function = (fun o -> Dispose)} +let warn_deprecated_implicit_tactic = + CWarnings.create ~name:"deprecated-implicit-tactic" ~category:"deprecated" + (fun () -> strbrk "Implicit tactics are deprecated") + let declare_implicit_tactic tac = + let () = warn_deprecated_implicit_tactic () in Lib.add_anonymous_leaf (inImplicitTactic (Some (Tacintern.glob_tactic tac))) let clear_implicit_tactic () = + let () = warn_deprecated_implicit_tactic () in Lib.add_anonymous_leaf (inImplicitTactic None) VERNAC COMMAND EXTEND ImplicitTactic CLASSIFIED AS SIDEFF |