src/ZF/func.ML

--- a/src/ZF/func.ML	Fri Jan 02 17:16:39 1998 +0100
+++ b/src/ZF/func.ML	Fri Jan 02 17:17:24 1998 +0100
@@ -329,7 +329,7 @@
 (*Prove the product and domain subgoals using distributive laws*)
 by (asm_full_simp_tac (simpset() addsimps [Pi_iff,extension]@Un_rls) 1);
 by (rewtac function_def);
-by (Blast.depth_tac (claset()) 12 1);	(*9 secs*)
+by (Blast_tac 1);
 qed "fun_disjoint_Un";
 
 goal ZF.thy