
diff -r 8237786171f1 -r 3a48ffcf0f9a Quot/Examples/IntEx2.thy
--- a/Quot/Examples/IntEx2.thy	Fri Dec 25 00:58:06 2009 +0100
+++ b/Quot/Examples/IntEx2.thy	Sat Dec 26 07:15:30 2009 +0100
@@ -1,5 +1,5 @@
 theory IntEx2
-imports "../QuotMain" Nat
+imports "../QuotMain" "../QuotProd" Nat
 (*uses
   ("Tools/numeral.ML")
   ("Tools/numeral_syntax.ML")
@@ -196,7 +196,7 @@
 lemma add:
      "(abs_int (x,y)) + (abs_int (u,v)) =
       (abs_int (x + u, y + v))"
-apply(simp add: plus_int_def)
+apply(simp add: plus_int_def id_simps)
 apply(fold plus_raw.simps)
 apply(rule Quotient_rel_abs[OF Quotient_int])
 apply(rule plus_raw_rsp_aux)




