src/HOL/Real/Rational.thy
changeset 28053 a2106c0d8c45
parent 28010 8312edc51969
child 28091 50f2d6ba024c
     1.1 --- a/src/HOL/Real/Rational.thy	Thu Aug 28 22:08:02 2008 +0200
     1.2 +++ b/src/HOL/Real/Rational.thy	Thu Aug 28 22:08:11 2008 +0200
     1.3 @@ -802,7 +802,7 @@
     1.4    then have "?c \<noteq> 0" by simp
     1.5    then have "Fract ?c ?c = Fract 1 1" by (simp add: eq_rat)
     1.6    moreover have "Fract (a div ?c * ?c + a mod ?c) (b div ?c * ?c + b mod ?c) = Fract a b"
     1.7 -   by (simp add: times_div_mod_plus_zero_one.mod_div_equality)
     1.8 +   by (simp add: semiring_div_class.mod_div_equality)
     1.9    moreover have "a mod ?c = 0" by (simp add: dvd_eq_mod_eq_0 [symmetric])
    1.10    moreover have "b mod ?c = 0" by (simp add: dvd_eq_mod_eq_0 [symmetric])
    1.11    ultimately show ?thesis