# HG changeset patch
# User paulson
# Date 862561159 -7200
# Node ID c9419211e5422c69cf1d73140f4bb1ae20186b26
# Parent  b92a1b50b16ba6744159906aa30e03b6a9a6807c
Higher bound means much faster proof

diff -r b92a1b50b16b -r c9419211e542 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