Theorem heiborlem8 30476

Description: Lemma for heibor 30479. The previous lemmas establish that the sequence M is Cauchy, so using completeness we now consider the convergent point Y. By assumption, U is an open cover, so Y is an element of some Z e. U, and some ball centered at Y is contained in Z. But the sequence contains arbitrarily small balls close to Y, so some element ball ( M ` n ) of the sequence is contained in Z. And finally we arrive at a contradiction, because { Z } is a finite subcover of U that covers ball ( M ` n ), yet ball ( M ` n ) e. K. For convenience, we write this contradiction as ph -> ps where ph is all the accumulated hypotheses and ps is anything at all. (Contributed by Jeff Madsen, 22-Jan-2014.)

Hypotheses

Ref	Expression
heibor.1	|- J = ( MetOpen ` D )
heibor.3	|- K = { u | -. E. v e. ( ~P U i^i Fin ) u C_ U. v }
heibor.4	|- G = { <. y , n >. | ( n e. NN0 /\ y e. ( F ` n ) /\ ( y B n ) e. K ) }
heibor.5	|- B = ( z e. X , m e. NN0 |-> ( z ( ball ` D ) ( 1 / ( 2 ^ m ) ) ) )
heibor.6	|- ( ph -> D e. ( CMet ` X ) )
heibor.7	|- ( ph -> F : NN0 --> ( ~P X i^i Fin ) )
heibor.8	|- ( ph -> A. n e. NN0 X = U_ y e. ( F ` n ) ( y B n ) )
heibor.9	|- ( ph -> A. x e. G ( ( T ` x ) G ( ( 2nd ` x ) + 1 ) /\ ( ( B ` x ) i^i ( ( T ` x ) B ( ( 2nd ` x ) + 1 ) ) ) e. K ) )
heibor.10	|- ( ph -> C G 0 )
heibor.11	|- S = seq 0 ( T , ( m e. NN0 |-> if ( m = 0 , C , ( m - 1 ) ) ) )
heibor.12	|- M = ( n e. NN |-> <. ( S ` n ) , ( 3 / ( 2 ^ n ) ) >. )
heibor.13	|- ( ph -> U C_ J )
heibor.14	|- Y e. _V
heibor.15	|- ( ph -> Y e. Z )
heibor.16	|- ( ph -> Z e. U )
heibor.17	|- ( ph -> ( 1st o. M ) ( ~~> t ` J ) Y )

Assertion

Ref	Expression
heiborlem8	|- ( ph -> ps )

Distinct variable groups:   x, n, y, u, F   x, G   ph, x   m, n, u, v, x, y, z, D   m, M, u, x, y, z   T, m, n, x, y, z   B, n, u, v, y   m, J, n, u, v, x, y, z   U, n, u, v, x, y, z   ps, y, z   S, m, n, u, v, x, y, z   m, X, n, u, v, x, y, z   C, m, n, u, v, y   n, K, x, y, z   x, Y   v, Z, x   x, B

Allowed substitution hints:   ph( y, z, v, u, m, n)   ps( x, v, u, m, n)   B( z, m)   C( x, z)   T( v, u)   U( m)   F( z, v, m)   G( y, z, v, u, m, n)   K( v, u, m)   M( v, n)   Y( y, z, v, u, m, n)   Z( y, z, u, m, n)

Proof of Theorem heiborlem8

Dummy variables t k r are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		heibor.6	. . . 4 |- ( ph -> D e. ( CMet ` X ) )
2		cmetmet 21850	. . . 4 |- ( D e. ( CMet ` X ) -> D e. ( Met ` X ) )
3		metxmet 20962	. . . 4 |- ( D e. ( Met ` X ) -> D e. ( *Met ` X ) )
4	1, 2, 3	3syl 20	. . 3 |- ( ph -> D e. ( *Met ` X ) )
5		heibor.13	. . . 4 |- ( ph -> U C_ J )
6		heibor.16	. . . 4 |- ( ph -> Z e. U )
7	5, 6	sseldd 3500	. . 3 |- ( ph -> Z e. J )
8		heibor.15	. . 3 |- ( ph -> Y e. Z )
9		heibor.1	. . . 4 |- J = ( MetOpen ` D )
10	9	mopni2 21121	. . 3 |- ( ( D e. ( *Met ` X ) /\ Z e. J /\ Y e. Z ) -> E. x e. RR+ ( Y ( ball ` D ) x ) C_ Z )
11	4, 7, 8, 10	syl3anc 1228	. 2 |- ( ph -> E. x e. RR+ ( Y ( ball ` D ) x ) C_ Z )
12		rphalfcl 11269	. . . . . 6 |- ( x e. RR+ -> ( x / 2 ) e. RR+ )
13		breq2 4460	. . . . . . . 8 |- ( r = ( x / 2 ) -> ( ( 2nd ` ( M ` k ) ) < r <-> ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) )
14	13	rexbidv 2968	. . . . . . 7 |- ( r = ( x / 2 ) -> ( E. k e. NN ( 2nd ` ( M ` k ) ) < r <-> E. k e. NN ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) )
15		heibor.3	. . . . . . . 8 |- K = { u | -. E. v e. ( ~P U i^i Fin ) u C_ U. v }
16		heibor.4	. . . . . . . 8 |- G = { <. y , n >. | ( n e. NN0 /\ y e. ( F ` n ) /\ ( y B n ) e. K ) }
17		heibor.5	. . . . . . . 8 |- B = ( z e. X , m e. NN0 |-> ( z ( ball ` D ) ( 1 / ( 2 ^ m ) ) ) )
18		heibor.7	. . . . . . . 8 |- ( ph -> F : NN0 --> ( ~P X i^i Fin ) )
19		heibor.8	. . . . . . . 8 |- ( ph -> A. n e. NN0 X = U_ y e. ( F ` n ) ( y B n ) )
20		heibor.9	. . . . . . . 8 |- ( ph -> A. x e. G ( ( T ` x ) G ( ( 2nd ` x ) + 1 ) /\ ( ( B ` x ) i^i ( ( T ` x ) B ( ( 2nd ` x ) + 1 ) ) ) e. K ) )
21		heibor.10	. . . . . . . 8 |- ( ph -> C G 0 )
22		heibor.11	. . . . . . . 8 |- S = seq 0 ( T , ( m e. NN0 |-> if ( m = 0 , C , ( m - 1 ) ) ) )
23		heibor.12	. . . . . . . 8 |- M = ( n e. NN |-> <. ( S ` n ) , ( 3 / ( 2 ^ n ) ) >. )
24	9, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23	heiborlem7 30475	. . . . . . 7 |- A. r e. RR+ E. k e. NN ( 2nd ` ( M ` k ) ) < r
25	14, 24	vtoclri 3184	. . . . . 6 |- ( ( x / 2 ) e. RR+ -> E. k e. NN ( 2nd ` ( M ` k ) ) < ( x / 2 ) )
26	12, 25	syl 16	. . . . 5 |- ( x e. RR+ -> E. k e. NN ( 2nd ` ( M ` k ) ) < ( x / 2 ) )
27	26	adantl 466	. . . 4 |- ( ( ph /\ x e. RR+ ) -> E. k e. NN ( 2nd ` ( M ` k ) ) < ( x / 2 ) )
28		nnnn0 10823	. . . . . . 7 |- ( k e. NN -> k e. NN0 )
29	9, 15, 16, 17, 1, 18, 19, 20, 21, 22	heiborlem4 30472	. . . . . . . 8 |- ( ( ph /\ k e. NN0 ) -> ( S ` k ) G k )
30		fvex 5882	. . . . . . . . . 10 |- ( S ` k ) e. _V
31		vex 3112	. . . . . . . . . 10 |- k e. _V
32	9, 15, 16, 30, 31	heiborlem2 30470	. . . . . . . . 9 |- ( ( S ` k ) G k <-> ( k e. NN0 /\ ( S ` k ) e. ( F ` k ) /\ ( ( S ` k ) B k ) e. K ) )
33	32	simp3bi 1013	. . . . . . . 8 |- ( ( S ` k ) G k -> ( ( S ` k ) B k ) e. K )
34	29, 33	syl 16	. . . . . . 7 |- ( ( ph /\ k e. NN0 ) -> ( ( S ` k ) B k ) e. K )
35	28, 34	sylan2 474	. . . . . 6 |- ( ( ph /\ k e. NN ) -> ( ( S ` k ) B k ) e. K )
36	35	ad2ant2r 746	. . . . 5 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( S ` k ) B k ) e. K )
37	4	ad2antrr 725	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> D e. ( *Met ` X ) )
38	9, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23	heiborlem5 30473	. . . . . . . . . . . . 13 |- ( ph -> M : NN --> ( X X. RR+ ) )
39	38	ffvelrnda 6032	. . . . . . . . . . . 12 |- ( ( ph /\ k e. NN ) -> ( M ` k ) e. ( X X. RR+ ) )
40	39	ad2ant2r 746	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( M ` k ) e. ( X X. RR+ ) )
41		xp1st 6829	. . . . . . . . . . 11 |- ( ( M ` k ) e. ( X X. RR+ ) -> ( 1st ` ( M ` k ) ) e. X )
42	40, 41	syl 16	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 1st ` ( M ` k ) ) e. X )
43		2nn 10714	. . . . . . . . . . . . . . 15 |- 2 e. NN
44		nnexpcl 12181	. . . . . . . . . . . . . . 15 |- ( ( 2 e. NN /\ k e. NN0 ) -> ( 2 ^ k ) e. NN )
45	43, 28, 44	sylancr 663	. . . . . . . . . . . . . 14 |- ( k e. NN -> ( 2 ^ k ) e. NN )
46	45	nnrpd 11280	. . . . . . . . . . . . 13 |- ( k e. NN -> ( 2 ^ k ) e. RR+ )
47	46	rpreccld 11291	. . . . . . . . . . . 12 |- ( k e. NN -> ( 1 / ( 2 ^ k ) ) e. RR+ )
48	47	ad2antrl 727	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 1 / ( 2 ^ k ) ) e. RR+ )
49	48	rpxrd 11282	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 1 / ( 2 ^ k ) ) e. RR* )
50		xp2nd 6830	. . . . . . . . . . . 12 |- ( ( M ` k ) e. ( X X. RR+ ) -> ( 2nd ` ( M ` k ) ) e. RR+ )
51	40, 50	syl 16	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 2nd ` ( M ` k ) ) e. RR+ )
52	51	rpxrd 11282	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 2nd ` ( M ` k ) ) e. RR* )
53		1le3 10773	. . . . . . . . . . . . . 14 |- 1 <_ 3
54		elrp 11247	. . . . . . . . . . . . . . 15 |- ( ( 2 ^ k ) e. RR+ <-> ( ( 2 ^ k ) e. RR /\ 0 < ( 2 ^ k ) ) )
55		1re 9612	. . . . . . . . . . . . . . . 16 |- 1 e. RR
56		3re 10630	. . . . . . . . . . . . . . . 16 |- 3 e. RR
57		lediv1 10428	. . . . . . . . . . . . . . . 16 |- ( ( 1 e. RR /\ 3 e. RR /\ ( ( 2 ^ k ) e. RR /\ 0 < ( 2 ^ k ) ) ) -> ( 1 <_ 3 <-> ( 1 / ( 2 ^ k ) ) <_ ( 3 / ( 2 ^ k ) ) ) )
58	55, 56, 57	mp3an12 1314	. . . . . . . . . . . . . . 15 |- ( ( ( 2 ^ k ) e. RR /\ 0 < ( 2 ^ k ) ) -> ( 1 <_ 3 <-> ( 1 / ( 2 ^ k ) ) <_ ( 3 / ( 2 ^ k ) ) ) )
59	54, 58	sylbi 195	. . . . . . . . . . . . . 14 |- ( ( 2 ^ k ) e. RR+ -> ( 1 <_ 3 <-> ( 1 / ( 2 ^ k ) ) <_ ( 3 / ( 2 ^ k ) ) ) )
60	53, 59	mpbii 211	. . . . . . . . . . . . 13 |- ( ( 2 ^ k ) e. RR+ -> ( 1 / ( 2 ^ k ) ) <_ ( 3 / ( 2 ^ k ) ) )
61	46, 60	syl 16	. . . . . . . . . . . 12 |- ( k e. NN -> ( 1 / ( 2 ^ k ) ) <_ ( 3 / ( 2 ^ k ) ) )
62	61	ad2antrl 727	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 1 / ( 2 ^ k ) ) <_ ( 3 / ( 2 ^ k ) ) )
63		fveq2 5872	. . . . . . . . . . . . . . . 16 |- ( n = k -> ( S ` n ) = ( S ` k ) )
64		oveq2 6304	. . . . . . . . . . . . . . . . 17 |- ( n = k -> ( 2 ^ n ) = ( 2 ^ k ) )
65	64	oveq2d 6312	. . . . . . . . . . . . . . . 16 |- ( n = k -> ( 3 / ( 2 ^ n ) ) = ( 3 / ( 2 ^ k ) ) )
66	63, 65	opeq12d 4227	. . . . . . . . . . . . . . 15 |- ( n = k -> <. ( S ` n ) , ( 3 / ( 2 ^ n ) ) >. = <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. )
67		opex 4720	. . . . . . . . . . . . . . 15 |- <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. e. _V
68	66, 23, 67	fvmpt 5956	. . . . . . . . . . . . . 14 |- ( k e. NN -> ( M ` k ) = <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. )
69	68	fveq2d 5876	. . . . . . . . . . . . 13 |- ( k e. NN -> ( 2nd ` ( M ` k ) ) = ( 2nd ` <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. ) )
70		ovex 6324	. . . . . . . . . . . . . 14 |- ( 3 / ( 2 ^ k ) ) e. _V
71	30, 70	op2nd 6808	. . . . . . . . . . . . 13 |- ( 2nd ` <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. ) = ( 3 / ( 2 ^ k ) )
72	69, 71	syl6eq 2514	. . . . . . . . . . . 12 |- ( k e. NN -> ( 2nd ` ( M ` k ) ) = ( 3 / ( 2 ^ k ) ) )
73	72	ad2antrl 727	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 2nd ` ( M ` k ) ) = ( 3 / ( 2 ^ k ) ) )
74	62, 73	breqtrrd 4482	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 1 / ( 2 ^ k ) ) <_ ( 2nd ` ( M ` k ) ) )
75		ssbl 21051	. . . . . . . . . 10 |- ( ( ( D e. ( *Met ` X ) /\ ( 1st ` ( M ` k ) ) e. X ) /\ ( ( 1 / ( 2 ^ k ) ) e. RR* /\ ( 2nd ` ( M ` k ) ) e. RR* ) /\ ( 1 / ( 2 ^ k ) ) <_ ( 2nd ` ( M ` k ) ) ) -> ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ k ) ) ) C_ ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 2nd ` ( M ` k ) ) ) )
76	37, 42, 49, 52, 74, 75	syl221anc 1239	. . . . . . . . 9 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ k ) ) ) C_ ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 2nd ` ( M ` k ) ) ) )
77	28	ad2antrl 727	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> k e. NN0 )
78		oveq1 6303	. . . . . . . . . . . 12 |- ( z = ( 1st ` ( M ` k ) ) -> ( z ( ball ` D ) ( 1 / ( 2 ^ m ) ) ) = ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ m ) ) ) )
79		oveq2 6304	. . . . . . . . . . . . . 14 |- ( m = k -> ( 2 ^ m ) = ( 2 ^ k ) )
80	79	oveq2d 6312	. . . . . . . . . . . . 13 |- ( m = k -> ( 1 / ( 2 ^ m ) ) = ( 1 / ( 2 ^ k ) ) )
81	80	oveq2d 6312	. . . . . . . . . . . 12 |- ( m = k -> ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ m ) ) ) = ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ k ) ) ) )
82		ovex 6324	. . . . . . . . . . . 12 |- ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ k ) ) ) e. _V
83	78, 81, 17, 82	ovmpt2 6437	. . . . . . . . . . 11 |- ( ( ( 1st ` ( M ` k ) ) e. X /\ k e. NN0 ) -> ( ( 1st ` ( M ` k ) ) B k ) = ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ k ) ) ) )
84	42, 77, 83	syl2anc 661	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( 1st ` ( M ` k ) ) B k ) = ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ k ) ) ) )
85	68	fveq2d 5876	. . . . . . . . . . . . 13 |- ( k e. NN -> ( 1st ` ( M ` k ) ) = ( 1st ` <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. ) )
86	30, 70	op1st 6807	. . . . . . . . . . . . 13 |- ( 1st ` <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. ) = ( S ` k )
87	85, 86	syl6eq 2514	. . . . . . . . . . . 12 |- ( k e. NN -> ( 1st ` ( M ` k ) ) = ( S ` k ) )
88	87	ad2antrl 727	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 1st ` ( M ` k ) ) = ( S ` k ) )
89	88	oveq1d 6311	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( 1st ` ( M ` k ) ) B k ) = ( ( S ` k ) B k ) )
90	84, 89	eqtr3d 2500	. . . . . . . . 9 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ k ) ) ) = ( ( S ` k ) B k ) )
91		1st2nd2 6836	. . . . . . . . . . . 12 |- ( ( M ` k ) e. ( X X. RR+ ) -> ( M ` k ) = <. ( 1st ` ( M ` k ) ) , ( 2nd ` ( M ` k ) ) >. )
92	40, 91	syl 16	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( M ` k ) = <. ( 1st ` ( M ` k ) ) , ( 2nd ` ( M ` k ) ) >. )
93	92	fveq2d 5876	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( ball ` D ) ` ( M ` k ) ) = ( ( ball ` D ) ` <. ( 1st ` ( M ` k ) ) , ( 2nd ` ( M ` k ) ) >. ) )
94		df-ov 6299	. . . . . . . . . 10 |- ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 2nd ` ( M ` k ) ) ) = ( ( ball ` D ) ` <. ( 1st ` ( M ` k ) ) , ( 2nd ` ( M ` k ) ) >. )
95	93, 94	syl6reqr 2517	. . . . . . . . 9 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 2nd ` ( M ` k ) ) ) = ( ( ball ` D ) ` ( M ` k ) ) )
96	76, 90, 95	3sstr3d 3541	. . . . . . . 8 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( S ` k ) B k ) C_ ( ( ball ` D ) ` ( M ` k ) ) )
97	9	mopntop 21068	. . . . . . . . . . 11 |- ( D e. ( *Met ` X ) -> J e. Top )
98	37, 97	syl 16	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> J e. Top )
99		blssm 21046	. . . . . . . . . . . 12 |- ( ( D e. ( *Met ` X ) /\ ( 1st ` ( M ` k ) ) e. X /\ ( 2nd ` ( M ` k ) ) e. RR* ) -> ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 2nd ` ( M ` k ) ) ) C_ X )
100	37, 42, 52, 99	syl3anc 1228	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 2nd ` ( M ` k ) ) ) C_ X )
101	9	mopnuni 21069	. . . . . . . . . . . 12 |- ( D e. ( *Met ` X ) -> X = U. J )
102	37, 101	syl 16	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> X = U. J )
103	100, 95, 102	3sstr3d 3541	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( ball ` D ) ` ( M ` k ) ) C_ U. J )
104		eqid 2457	. . . . . . . . . . 11 |- U. J = U. J
105	104	sscls 19683	. . . . . . . . . 10 |- ( ( J e. Top /\ ( ( ball ` D ) ` ( M ` k ) ) C_ U. J ) -> ( ( ball ` D ) ` ( M ` k ) ) C_ ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) )
106	98, 103, 105	syl2anc 661	. . . . . . . . 9 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( ball ` D ) ` ( M ` k ) ) C_ ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) )
107	95	fveq2d 5876	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( cls ` J ) ` ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 2nd ` ( M ` k ) ) ) ) = ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) )
108	12	ad2antlr 726	. . . . . . . . . . . . 13 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( x / 2 ) e. RR+ )
109	108	rpxrd 11282	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( x / 2 ) e. RR* )
110		simprr 757	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 2nd ` ( M ` k ) ) < ( x / 2 ) )
111	9	blsscls 21135	. . . . . . . . . . . 12 |- ( ( ( D e. ( *Met ` X ) /\ ( 1st ` ( M ` k ) ) e. X ) /\ ( ( 2nd ` ( M ` k ) ) e. RR* /\ ( x / 2 ) e. RR* /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( cls ` J ) ` ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 2nd ` ( M ` k ) ) ) ) C_ ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( x / 2 ) ) )
112	37, 42, 52, 109, 110, 111	syl23anc 1235	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( cls ` J ) ` ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 2nd ` ( M ` k ) ) ) ) C_ ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( x / 2 ) ) )
113	107, 112	eqsstr3d 3534	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) C_ ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( x / 2 ) ) )
114		rpre 11251	. . . . . . . . . . . 12 |- ( x e. RR+ -> x e. RR )
115	114	ad2antlr 726	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> x e. RR )
116		heibor.17	. . . . . . . . . . . . . . 15 |- ( ph -> ( 1st o. M ) ( ~~> t ` J ) Y )
117	9, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23	heiborlem6 30474	. . . . . . . . . . . . . . . . 17 |- ( ph -> A. t e. NN ( ( ball ` D ) ` ( M ` ( t + 1 ) ) ) C_ ( ( ball ` D ) ` ( M ` t ) ) )
118	4, 38, 117, 9	caublcls 21872	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( 1st o. M ) ( ~~> t ` J ) Y /\ k e. NN ) -> Y e. ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) )
119	118	3expia 1198	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( 1st o. M ) ( ~~> t ` J ) Y ) -> ( k e. NN -> Y e. ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) ) )
120	116, 119	mpdan 668	. . . . . . . . . . . . . 14 |- ( ph -> ( k e. NN -> Y e. ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) ) )
121	120	imp 429	. . . . . . . . . . . . 13 |- ( ( ph /\ k e. NN ) -> Y e. ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) )
122	121	ad2ant2r 746	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> Y e. ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) )
123	113, 122	sseldd 3500	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> Y e. ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( x / 2 ) ) )
124		blhalf 21033	. . . . . . . . . . 11 |- ( ( ( D e. ( *Met ` X ) /\ ( 1st ` ( M ` k ) ) e. X ) /\ ( x e. RR /\ Y e. ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( x / 2 ) ) ) ) -> ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( x / 2 ) ) C_ ( Y ( ball ` D ) x ) )
125	37, 42, 115, 123, 124	syl22anc 1229	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( x / 2 ) ) C_ ( Y ( ball ` D ) x ) )
126	113, 125	sstrd 3509	. . . . . . . . 9 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) C_ ( Y ( ball ` D ) x ) )
127	106, 126	sstrd 3509	. . . . . . . 8 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( ball ` D ) ` ( M ` k ) ) C_ ( Y ( ball ` D ) x ) )
128	96, 127	sstrd 3509	. . . . . . 7 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( S ` k ) B k ) C_ ( Y ( ball ` D ) x ) )
129		sstr2 3506	. . . . . . 7 |- ( ( ( S ` k ) B k ) C_ ( Y ( ball ` D ) x ) -> ( ( Y ( ball ` D ) x ) C_ Z -> ( ( S ` k ) B k ) C_ Z ) )
130	128, 129	syl 16	. . . . . 6 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( Y ( ball ` D ) x ) C_ Z -> ( ( S ` k ) B k ) C_ Z ) )
131		unisng 4267	. . . . . . . . . . . . 13 |- ( Z e. U -> U. { Z } = Z )
132	6, 131	syl 16	. . . . . . . . . . . 12 |- ( ph -> U. { Z } = Z )
133	132	sseq2d 3527	. . . . . . . . . . 11 |- ( ph -> ( ( ( S ` k ) B k ) C_ U. { Z } <-> ( ( S ` k ) B k ) C_ Z ) )
134	133	biimpar 485	. . . . . . . . . 10 |- ( ( ph /\ ( ( S ` k ) B k ) C_ Z ) -> ( ( S ` k ) B k ) C_ U. { Z } )
135	6	snssd 4177	. . . . . . . . . . . . 13 |- ( ph -> { Z } C_ U )
136		snex 4697	. . . . . . . . . . . . . 14 |- { Z } e. _V
137	136	elpw 4021	. . . . . . . . . . . . 13 |- ( { Z } e. ~P U <-> { Z } C_ U )
138	135, 137	sylibr 212	. . . . . . . . . . . 12 |- ( ph -> { Z } e. ~P U )
139		snfi 7615	. . . . . . . . . . . . 13 |- { Z } e. Fin
140	139	a1i 11	. . . . . . . . . . . 12 |- ( ph -> { Z } e. Fin )
141	138, 140	elind 3684	. . . . . . . . . . 11 |- ( ph -> { Z } e. ( ~P U i^i Fin ) )
142		unieq 4259	. . . . . . . . . . . . 13 |- ( v = { Z } -> U. v = U. { Z } )
143	142	sseq2d 3527	. . . . . . . . . . . 12 |- ( v = { Z } -> ( ( ( S ` k ) B k ) C_ U. v <-> ( ( S ` k ) B k ) C_ U. { Z } ) )
144	143	rspcev 3210	. . . . . . . . . . 11 |- ( ( { Z } e. ( ~P U i^i Fin ) /\ ( ( S ` k ) B k ) C_ U. { Z } ) -> E. v e. ( ~P U i^i Fin ) ( ( S ` k ) B k ) C_ U. v )
145	141, 144	sylan 471	. . . . . . . . . 10 |- ( ( ph /\ ( ( S ` k ) B k ) C_ U. { Z } ) -> E. v e. ( ~P U i^i Fin ) ( ( S ` k ) B k ) C_ U. v )
146	134, 145	syldan 470	. . . . . . . . 9 |- ( ( ph /\ ( ( S ` k ) B k ) C_ Z ) -> E. v e. ( ~P U i^i Fin ) ( ( S ` k ) B k ) C_ U. v )
147		ovex 6324	. . . . . . . . . . 11 |- ( ( S ` k ) B k ) e. _V
148		sseq1 3520	. . . . . . . . . . . . 13 |- ( u = ( ( S ` k ) B k ) -> ( u C_ U. v <-> ( ( S ` k ) B k ) C_ U. v ) )
149	148	rexbidv 2968	. . . . . . . . . . . 12 |- ( u = ( ( S ` k ) B k ) -> ( E. v e. ( ~P U i^i Fin ) u C_ U. v <-> E. v e. ( ~P U i^i Fin ) ( ( S ` k ) B k ) C_ U. v ) )
150	149	notbid 294	. . . . . . . . . . 11 |- ( u = ( ( S ` k ) B k ) -> ( -. E. v e. ( ~P U i^i Fin ) u C_ U. v <-> -. E. v e. ( ~P U i^i Fin ) ( ( S ` k ) B k ) C_ U. v ) )
151	147, 150, 15	elab2 3249	. . . . . . . . . 10 |- ( ( ( S ` k ) B k ) e. K <-> -. E. v e. ( ~P U i^i Fin ) ( ( S ` k ) B k ) C_ U. v )
152	151	con2bii 332	. . . . . . . . 9 |- ( E. v e. ( ~P U i^i Fin ) ( ( S ` k ) B k ) C_ U. v <-> -. ( ( S ` k ) B k ) e. K )
153	146, 152	sylib 196	. . . . . . . 8 |- ( ( ph /\ ( ( S ` k ) B k ) C_ Z ) -> -. ( ( S ` k ) B k ) e. K )
154	153	ex 434	. . . . . . 7 |- ( ph -> ( ( ( S ` k ) B k ) C_ Z -> -. ( ( S ` k ) B k ) e. K ) )
155	154	ad2antrr 725	. . . . . 6 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( ( S ` k ) B k ) C_ Z -> -. ( ( S ` k ) B k ) e. K ) )
156	130, 155	syld 44	. . . . 5 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( Y ( ball ` D ) x ) C_ Z -> -. ( ( S ` k ) B k ) e. K ) )
157	36, 156	mt2d 117	. . . 4 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> -. ( Y ( ball ` D ) x ) C_ Z )
158	27, 157	rexlimddv 2953	. . 3 |- ( ( ph /\ x e. RR+ ) -> -. ( Y ( ball ` D ) x ) C_ Z )
159	158	nrexdv 2913	. 2 |- ( ph -> -. E. x e. RR+ ( Y ( ball ` D ) x ) C_ Z )
160	11, 159	pm2.21dd 174	1 |- ( ph -> ps )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 184   /\ wa 369   /\ w3a 973   = wceq 1395   e. wcel 1819   {cab 2442   A.wral 2807   E.wrex 2808   _Vcvv 3109   i^i cin 3470   C_ wss 3471   ifcif 3944   ~Pcpw 4015   {csn 4032   <.cop 4038   U.cuni 4251   U_ciun 4332   class class class wbr 4456   {copab 4514   |-> cmpt 4515   X. cxp 5006   o. ccom 5012   -->wf 5590   ` cfv 5594  (class class class)co 6296   |-> cmpt2 6298   1stc1st 6797   2ndc2nd 6798   Fincfn 7535   RRcr 9508   0cc0 9509   1c1 9510   + caddc 9512   RR*cxr 9644   < clt 9645   <_ cle 9646   - cmin 9824   / cdiv 10227   NNcn 10556   2c2 10606   3c3 10607   NN0cn0 10816   RR+crp 11245   seqcseq 12109   ^cexp 12168   *Metcxmt 18529   Metcme 18530   ballcbl 18531   MetOpencmopn 18534   Topctop 19520   clsccl 19645   ~~> tclm 19853   CMetcms 21818

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1619  ax-4 1632  ax-5 1705  ax-6 1748  ax-7 1791  ax-8 1821  ax-9 1823  ax-10 1838  ax-11 1843  ax-12 1855  ax-13 2000  ax-ext 2435  ax-rep 4568  ax-sep 4578  ax-nul 4586  ax-pow 4634  ax-pr 4695  ax-un 6591  ax-cnex 9565  ax-resscn 9566  ax-1cn 9567  ax-icn 9568  ax-addcl 9569  ax-addrcl 9570  ax-mulcl 9571  ax-mulrcl 9572  ax-mulcom 9573  ax-addass 9574  ax-mulass 9575  ax-distr 9576  ax-i2m1 9577  ax-1ne0 9578  ax-1rid 9579  ax-rnegex 9580  ax-rrecex 9581  ax-cnre 9582  ax-pre-lttri 9583  ax-pre-lttrn 9584  ax-pre-ltadd 9585  ax-pre-mulgt0 9586  ax-pre-sup 9587

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 974  df-3an 975  df-tru 1398  df-ex 1614  df-nf 1618  df-sb 1741  df-eu 2287  df-mo 2288  df-clab 2443  df-cleq 2449  df-clel 2452  df-nfc 2607  df-ne 2654  df-nel 2655  df-ral 2812  df-rex 2813  df-reu 2814  df-rmo 2815  df-rab 2816  df-v 3111  df-sbc 3328  df-csb 3431  df-dif 3474  df-un 3476  df-in 3478  df-ss 3485  df-pss 3487  df-nul 3794  df-if 3945  df-pw 4017  df-sn 4033  df-pr 4035  df-tp 4037  df-op 4039  df-uni 4252  df-int 4289  df-iun 4334  df-iin 4335  df-br 4457  df-opab 4516  df-mpt 4517  df-tr 4551  df-eprel 4800  df-id 4804  df-po 4809  df-so 4810  df-fr 4847  df-we 4849  df-ord 4890  df-on 4891  df-lim 4892  df-suc 4893  df-xp 5014  df-rel 5015  df-cnv 5016  df-co 5017  df-dm 5018  df-rn 5019  df-res 5020  df-ima 5021  df-iota 5557  df-fun 5596  df-fn 5597  df-f 5598  df-f1 5599  df-fo 5600  df-f1o 5601  df-fv 5602  df-riota 6258  df-ov 6299  df-oprab 6300  df-mpt2 6301  df-om 6700  df-1st 6799  df-2nd 6800  df-recs 7060  df-rdg 7094  df-1o 7148  df-er 7329  df-map 7440  df-pm 7441  df-en 7536  df-dom 7537  df-sdom 7538  df-fin 7539  df-sup 7919  df-pnf 9647  df-mnf 9648  df-xr 9649  df-ltxr 9650  df-le 9651  df-sub 9826  df-neg 9827  df-div 10228  df-nn 10557  df-2 10615  df-3 10616  df-n0 10817  df-z 10886  df-uz 11107  df-q 11208  df-rp 11246  df-xneg 11343  df-xadd 11344  df-xmul 11345  df-fl 11931  df-seq 12110  df-exp 12169  df-topgen 14860  df-psmet 18537  df-xmet 18538  df-met 18539  df-bl 18540  df-mopn 18541  df-top 19525  df-bases 19527  df-topon 19528  df-cld 19646  df-ntr 19647  df-cls 19648  df-lm 19856  df-cmet 21821

This theorem is referenced by:  heiborlem9  30477