| changeset 60688 | 01488b559910 |
| parent 60429 | d3d1e185cd63 |
| child 60758 | d8d85a8172b5 |
--- a/src/HOL/Rat.thy Wed Jul 08 14:01:40 2015 +0200 +++ b/src/HOL/Rat.thy Wed Jul 08 14:01:41 2015 +0200 @@ -1001,7 +1001,7 @@ in if a = 0 then (0, 1) else (sgn a * b, \<bar>a\<bar>))" proof (cases p) case (Fract a b) then show ?thesis - by (cases "0::int" a rule: linorder_cases) (simp_all add: quotient_of_Fract gcd_int.commute) + by (cases "0::int" a rule: linorder_cases) (simp_all add: quotient_of_Fract gcd.commute) qed lemma rat_divide_code [code abstract]: