Theorem heiborlem8 28717

Description: Lemma for heibor 28720. 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 20797	. . . 4 |- ( D e. ( CMet ` X ) -> D e. ( Met ` X ) )
3		metxmet 19909	. . . 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 3357	. . 3 |- ( ph -> Z e. J )
8		heibor.15	. . 3 |- ( ph -> Y e. Z )
9		heibor.1	. . . 4 |- J = ( MetOpen ` D )
10	9	mopni2 20068	. . 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 1218	. 2 |- ( ph -> E. x e. RR+ ( Y ( ball ` D ) x ) C_ Z )
12		rphalfcl 11015	. . . . . 6 |- ( x e. RR+ -> ( x / 2 ) e. RR+ )
13		breq2 4296	. . . . . . . 8 |- ( r = ( x / 2 ) -> ( ( 2nd ` ( M ` k ) ) < r <-> ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) )
14	13	rexbidv 2736	. . . . . . 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 28716	. . . . . . 7 |- A. r e. RR+ E. k e. NN ( 2nd ` ( M ` k ) ) < r
25	14, 24	vtoclri 3047	. . . . . 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 10586	. . . . . . 7 |- ( k e. NN -> k e. NN0 )
29	9, 15, 16, 17, 1, 18, 19, 20, 21, 22	heiborlem4 28713	. . . . . . . 8 |- ( ( ph /\ k e. NN0 ) -> ( S ` k ) G k )
30		fvex 5701	. . . . . . . . . 10 |- ( S ` k ) e. _V
31		vex 2975	. . . . . . . . . 10 |- k e. _V
32	9, 15, 16, 30, 31	heiborlem2 28711	. . . . . . . . 9 |- ( ( S ` k ) G k <-> ( k e. NN0 /\ ( S ` k ) e. ( F ` k ) /\ ( ( S ` k ) B k ) e. K ) )
33	32	simp3bi 1005	. . . . . . . 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 28714	. . . . . . . . . . . . 13 |- ( ph -> M : NN --> ( X X. RR+ ) )
39	38	ffvelrnda 5843	. . . . . . . . . . . 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 6606	. . . . . . . . . . 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 10479	. . . . . . . . . . . . . . 15 |- 2 e. NN
44		nnexpcl 11878	. . . . . . . . . . . . . . 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 11026	. . . . . . . . . . . . 13 |- ( k e. NN -> ( 2 ^ k ) e. RR+ )
47	46	rpreccld 11037	. . . . . . . . . . . 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 11028	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 1 / ( 2 ^ k ) ) e. RR* )
50		xp2nd 6607	. . . . . . . . . . . 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 11028	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 2nd ` ( M ` k ) ) e. RR* )
53		1le3 10538	. . . . . . . . . . . . . 14 |- 1 <_ 3
54		elrp 10993	. . . . . . . . . . . . . . 15 |- ( ( 2 ^ k ) e. RR+ <-> ( ( 2 ^ k ) e. RR /\ 0 < ( 2 ^ k ) ) )
55		1re 9385	. . . . . . . . . . . . . . . 16 |- 1 e. RR
56		3re 10395	. . . . . . . . . . . . . . . 16 |- 3 e. RR
57		lediv1 10194	. . . . . . . . . . . . . . . 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 1304	. . . . . . . . . . . . . . 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 5691	. . . . . . . . . . . . . . . 16 |- ( n = k -> ( S ` n ) = ( S ` k ) )
64		oveq2 6099	. . . . . . . . . . . . . . . . 17 |- ( n = k -> ( 2 ^ n ) = ( 2 ^ k ) )
65	64	oveq2d 6107	. . . . . . . . . . . . . . . 16 |- ( n = k -> ( 3 / ( 2 ^ n ) ) = ( 3 / ( 2 ^ k ) ) )
66	63, 65	opeq12d 4067	. . . . . . . . . . . . . . 15 |- ( n = k -> <. ( S ` n ) , ( 3 / ( 2 ^ n ) ) >. = <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. )
67		opex 4556	. . . . . . . . . . . . . . 15 |- <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. e. _V
68	66, 23, 67	fvmpt 5774	. . . . . . . . . . . . . 14 |- ( k e. NN -> ( M ` k ) = <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. )
69	68	fveq2d 5695	. . . . . . . . . . . . 13 |- ( k e. NN -> ( 2nd ` ( M ` k ) ) = ( 2nd ` <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. ) )
70		ovex 6116	. . . . . . . . . . . . . 14 |- ( 3 / ( 2 ^ k ) ) e. _V
71	30, 70	op2nd 6586	. . . . . . . . . . . . 13 |- ( 2nd ` <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. ) = ( 3 / ( 2 ^ k ) )
72	69, 71	syl6eq 2491	. . . . . . . . . . . 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 4318	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 1 / ( 2 ^ k ) ) <_ ( 2nd ` ( M ` k ) ) )
75		ssbl 19998	. . . . . . . . . 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 1229	. . . . . . . . 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 6098	. . . . . . . . . . . 12 |- ( z = ( 1st ` ( M ` k ) ) -> ( z ( ball ` D ) ( 1 / ( 2 ^ m ) ) ) = ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ m ) ) ) )
79		oveq2 6099	. . . . . . . . . . . . . 14 |- ( m = k -> ( 2 ^ m ) = ( 2 ^ k ) )
80	79	oveq2d 6107	. . . . . . . . . . . . 13 |- ( m = k -> ( 1 / ( 2 ^ m ) ) = ( 1 / ( 2 ^ k ) ) )
81	80	oveq2d 6107	. . . . . . . . . . . 12 |- ( m = k -> ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ m ) ) ) = ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ k ) ) ) )
82		ovex 6116	. . . . . . . . . . . 12 |- ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 1 / ( 2 ^ k ) ) ) e. _V
83	78, 81, 17, 82	ovmpt2 6226	. . . . . . . . . . 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 5695	. . . . . . . . . . . . 13 |- ( k e. NN -> ( 1st ` ( M ` k ) ) = ( 1st ` <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. ) )
86	30, 70	op1st 6585	. . . . . . . . . . . . 13 |- ( 1st ` <. ( S ` k ) , ( 3 / ( 2 ^ k ) ) >. ) = ( S ` k )
87	85, 86	syl6eq 2491	. . . . . . . . . . . 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 6106	. . . . . . . . . 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 2477	. . . . . . . . 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 6613	. . . . . . . . . . . 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 5695	. . . . . . . . . 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 6094	. . . . . . . . . 10 |- ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( 2nd ` ( M ` k ) ) ) = ( ( ball ` D ) ` <. ( 1st ` ( M ` k ) ) , ( 2nd ` ( M ` k ) ) >. )
95	93, 94	syl6reqr 2494	. . . . . . . . 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 3398	. . . . . . . 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 20015	. . . . . . . . . . 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 19993	. . . . . . . . . . . 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 1218	. . . . . . . . . . 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 20016	. . . . . . . . . . . 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 3398	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( ball ` D ) ` ( M ` k ) ) C_ U. J )
104		eqid 2443	. . . . . . . . . . 11 |- U. J = U. J
105	104	sscls 18660	. . . . . . . . . 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 5695	. . . . . . . . . . 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 11028	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( x / 2 ) e. RR* )
110		simprr 756	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( 2nd ` ( M ` k ) ) < ( x / 2 ) )
111	9	blsscls 20082	. . . . . . . . . . . 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 1225	. . . . . . . . . . 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 3391	. . . . . . . . . 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 10997	. . . . . . . . . . . 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 28715	. . . . . . . . . . . . . . . . 17 |- ( ph -> A. t e. NN ( ( ball ` D ) ` ( M ` ( t + 1 ) ) ) C_ ( ( ball ` D ) ` ( M ` t ) ) )
118	4, 38, 117, 9	caublcls 20819	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( 1st o. M ) ( ~~> t ` J ) Y /\ k e. NN ) -> Y e. ( ( cls ` J ) ` ( ( ball ` D ) ` ( M ` k ) ) ) )
119	118	3expia 1189	. . . . . . . . . . . . . . 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 3357	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> Y e. ( ( 1st ` ( M ` k ) ) ( ball ` D ) ( x / 2 ) ) )
124		blhalf 19980	. . . . . . . . . . 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 1219	. . . . . . . . . 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 3366	. . . . . . . . 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 3366	. . . . . . . 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 3366	. . . . . . 7 |- ( ( ( ph /\ x e. RR+ ) /\ ( k e. NN /\ ( 2nd ` ( M ` k ) ) < ( x / 2 ) ) ) -> ( ( S ` k ) B k ) C_ ( Y ( ball ` D ) x ) )
129		sstr2 3363	. . . . . . 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 4107	. . . . . . . . . . . . 13 |- ( Z e. U -> U. { Z } = Z )
132	6, 131	syl 16	. . . . . . . . . . . 12 |- ( ph -> U. { Z } = Z )
133	132	sseq2d 3384	. . . . . . . . . . 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 4018	. . . . . . . . . . . . 13 |- ( ph -> { Z } C_ U )
136		snex 4533	. . . . . . . . . . . . . 14 |- { Z } e. _V
137	136	elpw 3866	. . . . . . . . . . . . 13 |- ( { Z } e. ~P U <-> { Z } C_ U )
138	135, 137	sylibr 212	. . . . . . . . . . . 12 |- ( ph -> { Z } e. ~P U )
139		snfi 7390	. . . . . . . . . . . . 13 |- { Z } e. Fin
140	139	a1i 11	. . . . . . . . . . . 12 |- ( ph -> { Z } e. Fin )
141	138, 140	elind 3540	. . . . . . . . . . 11 |- ( ph -> { Z } e. ( ~P U i^i Fin ) )
142		unieq 4099	. . . . . . . . . . . . 13 |- ( v = { Z } -> U. v = U. { Z } )
143	142	sseq2d 3384	. . . . . . . . . . . 12 |- ( v = { Z } -> ( ( ( S ` k ) B k ) C_ U. v <-> ( ( S ` k ) B k ) C_ U. { Z } ) )
144	143	rspcev 3073	. . . . . . . . . . 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 6116	. . . . . . . . . . 11 |- ( ( S ` k ) B k ) e. _V
148		sseq1 3377	. . . . . . . . . . . . 13 |- ( u = ( ( S ` k ) B k ) -> ( u C_ U. v <-> ( ( S ` k ) B k ) C_ U. v ) )
149	148	rexbidv 2736	. . . . . . . . . . . 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 3109	. . . . . . . . . 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 2845	. . 3 |- ( ( ph /\ x e. RR+ ) -> -. ( Y ( ball ` D ) x ) C_ Z )
159	158	nrexdv 2819	. 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 965   = wceq 1369   e. wcel 1756   {cab 2429   A.wral 2715   E.wrex 2716   _Vcvv 2972   i^i cin 3327   C_ wss 3328   ifcif 3791   ~Pcpw 3860   {csn 3877   <.cop 3883   U.cuni 4091   U_ciun 4171   class class class wbr 4292   {copab 4349   e. cmpt 4350   X. cxp 4838   o. ccom 4844   -->wf 5414   ` cfv 5418  (class class class)co 6091   e. cmpt2 6093   1stc1st 6575   2ndc2nd 6576   Fincfn 7310   RRcr 9281   0cc0 9282   1c1 9283   + caddc 9285   RR*cxr 9417   < clt 9418   <_ cle 9419   - cmin 9595   / cdiv 9993   NNcn 10322   2c2 10371   3c3 10372   NN0cn0 10579   RR+crp 10991   seqcseq 11806   ^cexp 11865   *Metcxmt 17801   Metcme 17802   ballcbl 17803   MetOpencmopn 17806   Topctop 18498   clsccl 18622   ~~> tclm 18830   CMetcms 20765

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2423  ax-rep 4403  ax-sep 4413  ax-nul 4421  ax-pow 4470  ax-pr 4531  ax-un 6372  ax-cnex 9338  ax-resscn 9339  ax-1cn 9340  ax-icn 9341  ax-addcl 9342  ax-addrcl 9343  ax-mulcl 9344  ax-mulrcl 9345  ax-mulcom 9346  ax-addass 9347  ax-mulass 9348  ax-distr 9349  ax-i2m1 9350  ax-1ne0 9351  ax-1rid 9352  ax-rnegex 9353  ax-rrecex 9354  ax-cnre 9355  ax-pre-lttri 9356  ax-pre-lttrn 9357  ax-pre-ltadd 9358  ax-pre-mulgt0 9359  ax-pre-sup 9360

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2257  df-mo 2258  df-clab 2430  df-cleq 2436  df-clel 2439  df-nfc 2568  df-ne 2608  df-nel 2609  df-ral 2720  df-rex 2721  df-reu 2722  df-rmo 2723  df-rab 2724  df-v 2974  df-sbc 3187  df-csb 3289  df-dif 3331  df-un 3333  df-in 3335  df-ss 3342  df-pss 3344  df-nul 3638  df-if 3792  df-pw 3862  df-sn 3878  df-pr 3880  df-tp 3882  df-op 3884  df-uni 4092  df-int 4129  df-iun 4173  df-iin 4174  df-br 4293  df-opab 4351  df-mpt 4352  df-tr 4386  df-eprel 4632  df-id 4636  df-po 4641  df-so 4642  df-fr 4679  df-we 4681  df-ord 4722  df-on 4723  df-lim 4724  df-suc 4725  df-xp 4846  df-rel 4847  df-cnv 4848  df-co 4849  df-dm 4850  df-rn 4851  df-res 4852  df-ima 4853  df-iota 5381  df-fun 5420  df-fn 5421  df-f 5422  df-f1 5423  df-fo 5424  df-f1o 5425  df-fv 5426  df-riota 6052  df-ov 6094  df-oprab 6095  df-mpt2 6096  df-om 6477  df-1st 6577  df-2nd 6578  df-recs 6832  df-rdg 6866  df-1o 6920  df-er 7101  df-map 7216  df-pm 7217  df-en 7311  df-dom 7312  df-sdom 7313  df-fin 7314  df-sup 7691  df-pnf 9420  df-mnf 9421  df-xr 9422  df-ltxr 9423  df-le 9424  df-sub 9597  df-neg 9598  df-div 9994  df-nn 10323  df-2 10380  df-3 10381  df-n0 10580  df-z 10647  df-uz 10862  df-q 10954  df-rp 10992  df-xneg 11089  df-xadd 11090  df-xmul 11091  df-fl 11642  df-seq 11807  df-exp 11866  df-topgen 14382  df-psmet 17809  df-xmet 17810  df-met 17811  df-bl 17812  df-mopn 17813  df-top 18503  df-bases 18505  df-topon 18506  df-cld 18623  df-ntr 18624  df-cls 18625  df-lm 18833  df-cmet 20768

This theorem is referenced by:  heiborlem9  28718