--- a/src/HOL/Algebra/Exponent.thy Tue Jul 07 07:56:24 2009 +0200
+++ b/src/HOL/Algebra/Exponent.thy Tue Jul 07 17:39:51 2009 +0200
@@ -217,7 +217,7 @@
prefer 2 apply (blast intro: dvd_mult2)
apply (drule dvd_diffD1)
apply assumption
- prefer 2 apply (blast intro: nat_dvd_diff)
+ prefer 2 apply (blast intro: dvd_diff_nat)
apply (drule gr0_implies_Suc, auto)
done
@@ -233,7 +233,7 @@
prefer 2 apply (blast intro: dvd_mult2)
apply (drule dvd_diffD1)
apply assumption
- prefer 2 apply (blast intro: nat_dvd_diff)
+ prefer 2 apply (blast intro: dvd_diff_nat)
apply (drule less_imp_Suc_add, auto)
done