--- a/src/HOL/ex/IntRing.thy Thu Jul 08 13:47:27 1999 +0200
+++ b/src/HOL/ex/IntRing.thy Thu Jul 08 13:48:11 1999 +0200
@@ -10,7 +10,7 @@
IntRing = IntRingDefs + Lagrange +
instance int :: add_semigroup (zadd_assoc)
-instance int :: add_monoid (zero_int_def,zadd_nat0,zadd_nat0_right)
+instance int :: add_monoid (zero_int_def,zadd_int0,zadd_int0_right)
instance int :: add_group (left_inv_int,minus_inv_int)
instance int :: add_agroup (zadd_commute)
instance int :: ring (zmult_assoc,zadd_zmult_distrib2,zadd_zmult_distrib)