--- a/IntEx2.thy Sun Dec 06 11:21:29 2009 +0100
+++ b/IntEx2.thy Sun Dec 06 11:39:34 2009 +0100
@@ -6,6 +6,7 @@
("Tools/int_arith.ML")
begin
+
fun
intrel :: "(nat \<times> nat) \<Rightarrow> (nat \<times> nat) \<Rightarrow> bool" (infix "\<approx>" 50)
where