
diff -r ba057402ea53 -r 84621d9942f5 QuotMain.thy
--- a/QuotMain.thy	Tue Nov 24 15:31:29 2009 +0100
+++ b/QuotMain.thy	Tue Nov 24 16:10:31 2009 +0100
@@ -789,8 +789,8 @@
     ball_rsp_tac ctxt,
     bex_rsp_tac ctxt,
     FIRST' (map rtac rsp_thms),
+    rtac refl,
     (instantiate_tac @{thm REP_ABS_RSP(1)} ctxt THEN' (RANGE [quotient_tac quot_thm])),
-    rtac refl,
     (APPLY_RSP_TAC rty ctxt THEN' (RANGE [quotient_tac quot_thm, quotient_tac quot_thm])),
     Cong_Tac.cong_tac @{thm cong},
     rtac @{thm ext},




