--- a/src/HOL/Analysis/Derivative.thy Wed Jan 31 22:36:12 2024 +0100
+++ b/src/HOL/Analysis/Derivative.thy Fri Feb 02 11:25:11 2024 +0000
@@ -1116,7 +1116,7 @@
have "norm (g z - g y) < d0"
by (metis as cancel_comm_monoid_add_class.diff_cancel d(2) \<open>0 < d0\<close> d1 diff_gt_0_iff_gt diff_strict_mono dist_norm dist_self zero_less_dist_iff)
then show ?thesis
- by (metis C(1) \<open>y \<in> T\<close> d0 fg mult_le_cancel_iff1)
+ by (metis C(1) \<open>y \<in> T\<close> d0 fg mult_le_cancel_right_pos)
qed
also have "\<dots> \<le> e * norm (g z - g y)"
using C by (auto simp add: field_simps)