diff -r 0a2414dd696b -r 8a31d85d27b8 src/HOL/equalities.ML
--- a/src/HOL/equalities.ML	Mon Jun 03 11:44:44 1996 +0200
+++ b/src/HOL/equalities.ML	Mon Jun 03 17:10:56 1996 +0200
@@ -310,7 +310,7 @@
 qed "Inter_Un_subset";
 
 goal Set.thy "Inter(A Un B) = Inter(A) Int Inter(B)";
-by (best_tac eq_cs 1);
+by (best_tac (!claset) 1);
 qed "Inter_Un_distrib";
 
 section "UN and INT";
@@ -412,7 +412,7 @@
 qed "Un_Inter";
 
 goal Set.thy "(INT x:C. A(x) Int B(x)) = Inter(A``C) Int Inter(B``C)";
-by (best_tac eq_cs 1);
+by (best_tac (!claset) 1);
 qed "Int_Inter_image";
 
 (*Equivalent version*)