--- a/Quot/Examples/FSet.thy	Tue Dec 08 17:40:58 2009 +0100
+++ b/Quot/Examples/FSet.thy	Tue Dec 08 17:43:32 2009 +0100
@@ -340,9 +340,8 @@
 apply (tactic {* (ObjectLogic.full_atomize_tac THEN' gen_frees_tac @{context}) 1 *})
 apply(tactic {* procedure_tac @{context} @{thm list.induct} 1 *})
 apply(tactic {* regularize_tac @{context} 1 *})
-defer
+apply(injection)
 apply(tactic {* clean_tac @{context} 1 *})
-apply(tactic {* inj_repabs_tac @{context} 1*})+
 done
 
 lemma list_induct_part:

--- a/Quot/QuotMain.thy	Tue Dec 08 17:40:58 2009 +0100
+++ b/Quot/QuotMain.thy	Tue Dec 08 17:43:32 2009 +0100
@@ -1055,9 +1055,8 @@
     val thy = ProofContext.theory_of lthy;
     val defs = map (Thm.varifyT o symmetric o #def) (qconsts_dest thy)
       (* FIXME: why is the Thm.varifyT needed: example where it fails is LamEx *)
-    val thms1 = @{thms all_prs ex_prs} @ defs @ (prs_rules_get lthy) 
-    val thms2 = @{thms eq_reflection[OF fun_map.simps]} @ (id_simps_get lthy)
-                @ @{thms Quotient_abs_rep Quotient_rel_rep} 
+    val thms1 = @{thms all_prs ex_prs} @ defs
+    val thms2 = @{thms fun_map.simps Quotient_abs_rep Quotient_rel_rep} @ (id_simps_get lthy)
     fun simps thms = (mk_minimal_ss lthy) addsimps thms addSolver quotient_solver
   in
     EVERY' [lambda_prs_tac lthy,