From cd8c4fc982c874802546769b1f7df3c2dcfc0579 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Thu, 25 Jul 2019 19:04:12 +0200
Subject: Actually deprecate the `cutrewrite` tactic

The manual was already saying that it was deprecated, but no warning was
emitted.

Fixes #10572
---
 plugins/btauto/Algebra.v      | 4 ++--
 plugins/ltac/extratactics.mlg | 4 ----
 2 files changed, 2 insertions(+), 6 deletions(-)

(limited to 'plugins')

diff --git a/plugins/btauto/Algebra.v b/plugins/btauto/Algebra.v
index b90e44eed8..4a603f2c52 100644
--- a/plugins/btauto/Algebra.v
+++ b/plugins/btauto/Algebra.v
@@ -472,8 +472,8 @@ intros k i p H; induction H; simpl poly_mul_mon; case_decide; intuition.
   - match goal with [ H : null ?p |- _ ] => solve[inversion H] end.
 + apply (valid_le_compat k); auto; constructor; intuition.
   - assert (X := poly_mul_mon_null_compat); intuition eauto.
-  - cutrewrite <- (Pos.max (Pos.succ i) i0 = i0); intuition.
-  - cutrewrite <- (Pos.max (Pos.succ i) (Pos.succ i0) = Pos.succ i0); intuition.
+  - enough (Pos.max (Pos.succ i) i0 = i0) as <-; intuition.
+  - enough (Pos.max (Pos.succ i) (Pos.succ i0) = Pos.succ i0) as <-; intuition.
 Qed.
 
 Lemma poly_mul_valid_compat : forall kl kr pl pr, valid kl pl -> valid kr pr ->
diff --git a/plugins/ltac/extratactics.mlg b/plugins/ltac/extratactics.mlg
index a9e5271e81..6c63a891e8 100644
--- a/plugins/ltac/extratactics.mlg
+++ b/plugins/ltac/extratactics.mlg
@@ -203,10 +203,6 @@ TACTIC EXTEND dependent_rewrite
     -> { rewriteInHyp b c id }
 END
 
-(** To be deprecated?, "cutrewrite (t=u) as <-" is equivalent to
-    "replace u with t" or "enough (t=u) as <-" and
-    "cutrewrite (t=u) as ->" is equivalent to "enough (t=u) as ->". *)
-
 TACTIC EXTEND cut_rewrite
 | [ "cutrewrite" orient(b) constr(eqn) ] -> { cutRewriteInConcl b eqn }
 | [ "cutrewrite" orient(b) constr(eqn) "in" hyp(id) ]
-- 
cgit v1.2.3