diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-16 15:05:18 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-16 15:05:18 +0200 |
commit | d4d33ecae807deb850c4da187359f46892e90b64 (patch) | |
tree | b9b47204dfd27160a0cf2e3584921e91d0e7db00 /tactics/equality.ml | |
parent | ed5ec093c216bef6629657f69d7f94256e3ec009 (diff) | |
parent | ab66d07f321810e1142d0d2dc02511fa4ba0cffa (diff) |
Merge PR #7215: Deprecate the "simple subst" tactic.
Diffstat (limited to 'tactics/equality.ml')
-rw-r--r-- | tactics/equality.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index d7a3e9470..b6bbd0be4 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1757,8 +1757,17 @@ type subst_tactic_flags = { let default_subst_tactic_flags = { only_leibniz = false; rewrite_dependent_proof = true } +let warn_deprecated_simple_subst = + CWarnings.create ~name:"deprecated-simple-subst" ~category:"deprecated" + (fun () -> strbrk"\"simple subst\" is deprecated") + let subst_all ?(flags=default_subst_tactic_flags) () = + let () = + if flags.only_leibniz || not flags.rewrite_dependent_proof then + warn_deprecated_simple_subst () + in + if !regular_subst_tactic then (* First step: find hypotheses to treat in linear time *) |