
diff -r 9802d9613446 -r b4bef5ed8153 QuotMain.thy
--- a/QuotMain.thy	Thu Oct 22 10:38:00 2009 +0200
+++ b/QuotMain.thy	Thu Oct 22 10:45:33 2009 +0200
@@ -1162,6 +1162,21 @@
 apply (rule FUN_QUOTIENT)
 apply (rule QUOTIENT_fset)
 apply (rule IDENTITY_QUOTIENT)
+apply (simp only: FUN_REL.simps)
+apply (rule allI)
+apply (rule allI)
+apply (rule impI)
+apply (tactic {* instantiate_tac @{thm APPLY_RSP} @{context} 1 *})
+apply (rule QUOTIENT_fset)
+apply (rule IDENTITY_QUOTIENT)
+apply (tactic {* instantiate_tac @{thm REP_ABS_RSP(1)} @{context} 1 *})
+apply (rule FUN_QUOTIENT)
+apply (rule QUOTIENT_fset)
+apply (rule IDENTITY_QUOTIENT)
+apply (simp add: FUN_REL.simps)
+apply (tactic {* instantiate_tac @{thm REP_ABS_RSP(1)} @{context} 1 *})
+apply (rule QUOTIENT_fset)
+apply (assumption)
 sorry
 
 prove list_induct_t: trm




