diff options
| -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 *) |