src/ZF/func.ML

--- a/src/ZF/func.ML	Fri May 02 10:18:50 1997 +0200
+++ b/src/ZF/func.ML	Fri May 02 10:19:19 1997 +0200
@@ -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) 11 1);	(*11 secs*)
+by (Blast.depth_tac (!claset) 12 1);	(*9 secs*)
 qed "fun_disjoint_Un";
 
 goal ZF.thy