
diff -r 577539640a47 -r 09e28d4c19aa QuotMain.thy
--- a/QuotMain.thy	Tue Nov 24 17:35:31 2009 +0100
+++ b/QuotMain.thy	Tue Nov 24 18:13:18 2009 +0100
@@ -841,8 +841,8 @@
     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])),
-    (APPLY_RSP_TAC rty ctxt THEN' (RANGE [quotient_tac quot_thm, quotient_tac quot_thm])),
+    (instantiate_tac @{thm REP_ABS_RSP(1)} ctxt THEN' (RANGE [SOLVES' (quotient_tac quot_thm)])),
+    (APPLY_RSP_TAC rty ctxt THEN' (RANGE [SOLVES' (quotient_tac quot_thm), SOLVES' (quotient_tac quot_thm)])),
     Cong_Tac.cong_tac @{thm cong},
     rtac @{thm ext},
     rtac reflex_thm,




