src/HOL/equalities.ML
changeset 1786 8a31d85d27b8
parent 1763 fb07e359b59f
child 1843 a6d7aef48c2f
     1.1 --- a/src/HOL/equalities.ML	Mon Jun 03 11:44:44 1996 +0200
     1.2 +++ b/src/HOL/equalities.ML	Mon Jun 03 17:10:56 1996 +0200
     1.3 @@ -310,7 +310,7 @@
     1.4  qed "Inter_Un_subset";
     1.5  
     1.6  goal Set.thy "Inter(A Un B) = Inter(A) Int Inter(B)";
     1.7 -by (best_tac eq_cs 1);
     1.8 +by (best_tac (!claset) 1);
     1.9  qed "Inter_Un_distrib";
    1.10  
    1.11  section "UN and INT";
    1.12 @@ -412,7 +412,7 @@
    1.13  qed "Un_Inter";
    1.14  
    1.15  goal Set.thy "(INT x:C. A(x) Int B(x)) = Inter(A``C) Int Inter(B``C)";
    1.16 -by (best_tac eq_cs 1);
    1.17 +by (best_tac (!claset) 1);
    1.18  qed "Int_Inter_image";
    1.19  
    1.20  (*Equivalent version*)