--- a/QuotMain.thy	Fri Dec 04 08:18:38 2009 +0100
+++ b/QuotMain.thy	Fri Dec 04 08:19:56 2009 +0100
@@ -741,6 +741,7 @@
      CHANGED o (simp_tac ((Simplifier.context ctxt empty_ss) addsimps @{thms id_simps}))])
 *}
 
+
 lemma FUN_REL_I:
   assumes a: "\<And>x y. R1 x y \<Longrightarrow> R2 (f x) (g y)"
   shows "(R1 ===> R2) f g"