diff -r 3664eafcad09 -r 7a42cc191111 Quot/quotient_tacs.ML
--- a/Quot/quotient_tacs.ML	Thu Feb 04 18:09:20 2010 +0100
+++ b/Quot/quotient_tacs.ML	Fri Feb 05 10:32:21 2010 +0100
@@ -139,7 +139,7 @@
   0. preliminary simplification step according to
      ball_reg_eqv bex_reg_eqv babs_reg_eqv ball_reg_eqv_range bex_reg_eqv_range
 
-  1. eliminating simple Ball/Bex/Bex1 instances (ball_reg_right bex_reg_left)
+  1. eliminating simple Ball/Bex instances (ball_reg_right bex_reg_left)
 
   2. monos
 
@@ -354,17 +354,6 @@
     (Const(@{const_name Bex},_) $ (Const (@{const_name Respects}, _) $ _) $ _)
       => rtac @{thm fun_rel_id} THEN' quot_true_tac ctxt unlam
 
-| Const (@{const_name "op ="},_) $
-    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _) $ _) $
-    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _) $ _)
-      => rtac @{thm bex1_rsp} THEN' dtac @{thm QT_ex1}
-
-(* TODO: Check why less _ are needed then in EX/ALL cases *)
-| (Const (@{const_name fun_rel}, _) $ _ $ _) $
-    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _)) $
-    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _))
-      => rtac @{thm fun_rel_id} THEN' quot_true_tac ctxt unlam
-
 | (Const (@{const_name fun_rel}, _) $ _ $ _) $
     (Const(@{const_name Bex1_rel},_) $ _) $ (Const(@{const_name Bex1_rel},_) $ _)
       => rtac @{thm bexeq_rsp} THEN' quotient_tac ctxt