| changeset 49962 | a8cc904a6820 |
| parent 46501 | fe51817749d1 |
| child 51480 | 3793c3a11378 |
--- a/src/HOL/ex/Gauge_Integration.thy Fri Oct 19 10:46:42 2012 +0200 +++ b/src/HOL/ex/Gauge_Integration.thy Fri Oct 19 15:12:52 2012 +0200 @@ -521,9 +521,9 @@ = (f z - f x) / (z - x) - f' x") apply (simp add: abs_mult [symmetric] mult_ac diff_minus) apply (subst mult_commute) -apply (simp add: left_distrib diff_minus) +apply (simp add: distrib_right diff_minus) apply (simp add: mult_assoc divide_inverse) -apply (simp add: left_distrib) +apply (simp add: distrib_right) done lemma lemma_straddle: