src/HOL/Rat.thy
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]: