diff options
| author | Maxime Dénès | 2019-07-25 19:04:12 +0200 |
|---|---|---|
| committer | Théo Zimmermann | 2019-11-30 12:33:17 +0100 |
| commit | cd8c4fc982c874802546769b1f7df3c2dcfc0579 (patch) | |
| tree | d806c46e2bf9743500886a1854d0da4a480febc5 /plugins/btauto/Algebra.v | |
| parent | b76db7671bc23238938bc090af0e00b3009f481c (diff) | |
Actually deprecate the `cutrewrite` tactic
The manual was already saying that it was deprecated, but no warning was
emitted.
Fixes #10572
Diffstat (limited to 'plugins/btauto/Algebra.v')
| -rw-r--r-- | plugins/btauto/Algebra.v | 4 |
1 files changed, 2 insertions, 2 deletions
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 -> |