Quot/quotient_tacs.ML
changeset 1120 42b623872781
parent 1113 9f6c606d5b59
child 1128 17ca92ab4660
--- a/Quot/quotient_tacs.ML	Wed Feb 10 11:39:22 2010 +0100
+++ b/Quot/quotient_tacs.ML	Wed Feb 10 11:53:15 2010 +0100
@@ -357,7 +357,7 @@
 
 | (Const (@{const_name fun_rel}, _) $ _ $ _) $
     (Const(@{const_name Bex1_rel},_) $ _) $ (Const(@{const_name Bex1_rel},_) $ _)
-      => rtac @{thm bexeq_rsp} THEN' quotient_tac ctxt
+      => rtac @{thm bex1_rel_rsp} THEN' quotient_tac ctxt
 
 | (_ $
     (Const(@{const_name Babs},_) $ (Const (@{const_name Respects}, _) $ _) $ _) $