--- a/QuotMain.thy	Thu Oct 15 11:55:52 2009 +0200
+++ b/QuotMain.thy	Thu Oct 15 11:56:30 2009 +0200
@@ -1054,11 +1054,7 @@
   apply (rule RIGHT_RES_FORALL_REGULAR)
   prefer 2
   apply (assumption)
-  apply (auto)
-  apply (rule allI)
-  apply (rule impI)
-  apply (rule impI)
-  apply (assumption)
+  apply (metis)
   done
 
 ML {* val li = Thm.freezeT (atomize_thm @{thm card1_suc}) *}
@@ -1067,11 +1063,9 @@
  Logic.mk_implies
    ((prop_of li),
    (regularise (prop_of li) @{typ "'a List.list"} @{term "op \<approx>"} @{context})) *}
-  apply (simp only: equiv_res_forall[OF equiv_list_eq])
-  apply (simp only: equiv_res_exists[OF equiv_list_eq])
+  apply (simp add: equiv_res_forall[OF equiv_list_eq] equiv_res_exists[OF equiv_list_eq])
   done
 
-thm card1_suc
 ML {* @{thm card1_suc_r} OF [li] *}
 
 ML {* val li = Thm.freezeT (atomize_thm @{thm fold1.simps(2)}) *}