# HG changeset patch
# User paulson
# Date 883757844 -3600
# Node ID 572440df6aa72eb384c935eccaf0b2be33ca902d
# Parent  93a84eb6c522bbe9654a1bd41c3b3f3622fd62ab
Changed required by new blast_tac (the one that squashes flex-flex pairs)

diff -r 93a84eb6c522 -r 572440df6aa7 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