Users' Mathboxes Mathbox for Jeff Madsen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  heiborlem8 Structured version   Unicode version

Theorem heiborlem8 28626
Description: Lemma for heibor 28629. 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.
StepHypRef Expression
1 heibor.6 . . . 4  |-  ( ph  ->  D  e.  ( CMet `  X ) )
2 cmetmet 20697 . . . 4  |-  ( D  e.  ( CMet `  X
)  ->  D  e.  ( Met `  X ) )
3 metxmet 19809 . . . 4  |-  ( D  e.  ( Met `  X
)  ->  D  e.  ( *Met `  X
) )
41, 2, 33syl 20 . . 3  |-  ( ph  ->  D  e.  ( *Met `  X ) )
5 heibor.13 . . . 4  |-  ( ph  ->  U  C_  J )
6 heibor.16 . . . 4  |-  ( ph  ->  Z  e.  U )
75, 6sseldd 3354 . . 3  |-  ( ph  ->  Z  e.  J )
8 heibor.15 . . 3  |-  ( ph  ->  Y  e.  Z )
9 heibor.1 . . . 4  |-  J  =  ( MetOpen `  D )
109mopni2 19968 . . 3  |-  ( ( D  e.  ( *Met `  X )  /\  Z  e.  J  /\  Y  e.  Z
)  ->  E. x  e.  RR+  ( Y (
ball `  D )
x )  C_  Z
)
114, 7, 8, 10syl3anc 1213 . 2  |-  ( ph  ->  E. x  e.  RR+  ( Y ( ball `  D
) x )  C_  Z )
12 rphalfcl 11011 . . . . . 6  |-  ( x  e.  RR+  ->  ( x  /  2 )  e.  RR+ )
13 breq2 4293 . . . . . . . 8  |-  ( r  =  ( x  / 
2 )  ->  (
( 2nd `  ( M `  k )
)  <  r  <->  ( 2nd `  ( M `  k
) )  <  (
x  /  2 ) ) )
1413rexbidv 2734 . . . . . . 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 ) ) >.
)
249, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23heiborlem7 28625 . . . . . . 7  |-  A. r  e.  RR+  E. k  e.  NN  ( 2nd `  ( M `  k )
)  <  r
2514, 24vtoclri 3044 . . . . . 6  |-  ( ( x  /  2 )  e.  RR+  ->  E. k  e.  NN  ( 2nd `  ( M `  k )
)  <  ( x  /  2 ) )
2612, 25syl 16 . . . . 5  |-  ( x  e.  RR+  ->  E. k  e.  NN  ( 2nd `  ( M `  k )
)  <  ( x  /  2 ) )
2726adantl 463 . . . 4  |-  ( (
ph  /\  x  e.  RR+ )  ->  E. k  e.  NN  ( 2nd `  ( M `  k )
)  <  ( x  /  2 ) )
28 nnnn0 10582 . . . . . . 7  |-  ( k  e.  NN  ->  k  e.  NN0 )
299, 15, 16, 17, 1, 18, 19, 20, 21, 22heiborlem4 28622 . . . . . . . 8  |-  ( (
ph  /\  k  e.  NN0 )  ->  ( S `  k ) G k )
30 fvex 5698 . . . . . . . . . 10  |-  ( S `
 k )  e. 
_V
31 vex 2973 . . . . . . . . . 10  |-  k  e. 
_V
329, 15, 16, 30, 31heiborlem2 28620 . . . . . . . . 9  |-  ( ( S `  k ) G k  <->  ( k  e.  NN0  /\  ( S `
 k )  e.  ( F `  k
)  /\  ( ( S `  k ) B k )  e.  K ) )
3332simp3bi 1000 . . . . . . . 8  |-  ( ( S `  k ) G k  ->  (
( S `  k
) B k )  e.  K )
3429, 33syl 16 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN0 )  ->  ( ( S `  k ) B k )  e.  K )
3528, 34sylan2 471 . . . . . 6  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( S `  k ) B k )  e.  K )
3635ad2ant2r 741 . . . . 5  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( S `
 k ) B k )  e.  K
)
374ad2antrr 720 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  D  e.  ( *Met `  X
) )
389, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23heiborlem5 28623 . . . . . . . . . . . . 13  |-  ( ph  ->  M : NN --> ( X  X.  RR+ ) )
3938ffvelrnda 5840 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  NN )  ->  ( M `
 k )  e.  ( X  X.  RR+ ) )
4039ad2ant2r 741 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( M `  k )  e.  ( X  X.  RR+ )
)
41 xp1st 6605 . . . . . . . . . . 11  |-  ( ( M `  k )  e.  ( X  X.  RR+ )  ->  ( 1st `  ( M `  k
) )  e.  X
)
4240, 41syl 16 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 1st `  ( M `  k )
)  e.  X )
43 2nn 10475 . . . . . . . . . . . . . . 15  |-  2  e.  NN
44 nnexpcl 11874 . . . . . . . . . . . . . . 15  |-  ( ( 2  e.  NN  /\  k  e.  NN0 )  -> 
( 2 ^ k
)  e.  NN )
4543, 28, 44sylancr 658 . . . . . . . . . . . . . 14  |-  ( k  e.  NN  ->  (
2 ^ k )  e.  NN )
4645nnrpd 11022 . . . . . . . . . . . . 13  |-  ( k  e.  NN  ->  (
2 ^ k )  e.  RR+ )
4746rpreccld 11033 . . . . . . . . . . . 12  |-  ( k  e.  NN  ->  (
1  /  ( 2 ^ k ) )  e.  RR+ )
4847ad2antrl 722 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 1  / 
( 2 ^ k
) )  e.  RR+ )
4948rpxrd 11024 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 1  / 
( 2 ^ k
) )  e.  RR* )
50 xp2nd 6606 . . . . . . . . . . . 12  |-  ( ( M `  k )  e.  ( X  X.  RR+ )  ->  ( 2nd `  ( M `  k
) )  e.  RR+ )
5140, 50syl 16 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 2nd `  ( M `  k )
)  e.  RR+ )
5251rpxrd 11024 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 2nd `  ( M `  k )
)  e.  RR* )
53 1le3 10534 . . . . . . . . . . . . . 14  |-  1  <_  3
54 elrp 10989 . . . . . . . . . . . . . . 15  |-  ( ( 2 ^ k )  e.  RR+  <->  ( ( 2 ^ k )  e.  RR  /\  0  < 
( 2 ^ k
) ) )
55 1re 9381 . . . . . . . . . . . . . . . 16  |-  1  e.  RR
56 3re 10391 . . . . . . . . . . . . . . . 16  |-  3  e.  RR
57 lediv1 10190 . . . . . . . . . . . . . . . 16  |-  ( ( 1  e.  RR  /\  3  e.  RR  /\  (
( 2 ^ k
)  e.  RR  /\  0  <  ( 2 ^ k ) ) )  ->  ( 1  <_ 
3  <->  ( 1  / 
( 2 ^ k
) )  <_  (
3  /  ( 2 ^ k ) ) ) )
5855, 56, 57mp3an12 1299 . . . . . . . . . . . . . . 15  |-  ( ( ( 2 ^ k
)  e.  RR  /\  0  <  ( 2 ^ k ) )  -> 
( 1  <_  3  <->  ( 1  /  ( 2 ^ k ) )  <_  ( 3  / 
( 2 ^ k
) ) ) )
5954, 58sylbi 195 . . . . . . . . . . . . . 14  |-  ( ( 2 ^ k )  e.  RR+  ->  ( 1  <_  3  <->  ( 1  /  ( 2 ^ k ) )  <_ 
( 3  /  (
2 ^ k ) ) ) )
6053, 59mpbii 211 . . . . . . . . . . . . 13  |-  ( ( 2 ^ k )  e.  RR+  ->  ( 1  /  ( 2 ^ k ) )  <_ 
( 3  /  (
2 ^ k ) ) )
6146, 60syl 16 . . . . . . . . . . . 12  |-  ( k  e.  NN  ->  (
1  /  ( 2 ^ k ) )  <_  ( 3  / 
( 2 ^ k
) ) )
6261ad2antrl 722 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 1  / 
( 2 ^ k
) )  <_  (
3  /  ( 2 ^ k ) ) )
63 fveq2 5688 . . . . . . . . . . . . . . . 16  |-  ( n  =  k  ->  ( S `  n )  =  ( S `  k ) )
64 oveq2 6098 . . . . . . . . . . . . . . . . 17  |-  ( n  =  k  ->  (
2 ^ n )  =  ( 2 ^ k ) )
6564oveq2d 6106 . . . . . . . . . . . . . . . 16  |-  ( n  =  k  ->  (
3  /  ( 2 ^ n ) )  =  ( 3  / 
( 2 ^ k
) ) )
6663, 65opeq12d 4064 . . . . . . . . . . . . . . 15  |-  ( n  =  k  ->  <. ( S `  n ) ,  ( 3  / 
( 2 ^ n
) ) >.  =  <. ( S `  k ) ,  ( 3  / 
( 2 ^ k
) ) >. )
67 opex 4553 . . . . . . . . . . . . . . 15  |-  <. ( S `  k ) ,  ( 3  / 
( 2 ^ k
) ) >.  e.  _V
6866, 23, 67fvmpt 5771 . . . . . . . . . . . . . 14  |-  ( k  e.  NN  ->  ( M `  k )  =  <. ( S `  k ) ,  ( 3  /  ( 2 ^ k ) )
>. )
6968fveq2d 5692 . . . . . . . . . . . . 13  |-  ( k  e.  NN  ->  ( 2nd `  ( M `  k ) )  =  ( 2nd `  <. ( S `  k ) ,  ( 3  / 
( 2 ^ k
) ) >. )
)
70 ovex 6115 . . . . . . . . . . . . . 14  |-  ( 3  /  ( 2 ^ k ) )  e. 
_V
7130, 70op2nd 6585 . . . . . . . . . . . . 13  |-  ( 2nd `  <. ( S `  k ) ,  ( 3  /  ( 2 ^ k ) )
>. )  =  (
3  /  ( 2 ^ k ) )
7269, 71syl6eq 2489 . . . . . . . . . . . 12  |-  ( k  e.  NN  ->  ( 2nd `  ( M `  k ) )  =  ( 3  /  (
2 ^ k ) ) )
7372ad2antrl 722 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 2nd `  ( M `  k )
)  =  ( 3  /  ( 2 ^ k ) ) )
7462, 73breqtrrd 4315 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 1  / 
( 2 ^ k
) )  <_  ( 2nd `  ( M `  k ) ) )
75 ssbl 19898 . . . . . . . . . 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 )
) ) )
7637, 42, 49, 52, 74, 75syl221anc 1224 . . . . . . . . 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
) ) ) )
7728ad2antrl 722 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  k  e.  NN0 )
78 oveq1 6097 . . . . . . . . . . . 12  |-  ( z  =  ( 1st `  ( M `  k )
)  ->  ( z
( ball `  D )
( 1  /  (
2 ^ m ) ) )  =  ( ( 1st `  ( M `  k )
) ( ball `  D
) ( 1  / 
( 2 ^ m
) ) ) )
79 oveq2 6098 . . . . . . . . . . . . . 14  |-  ( m  =  k  ->  (
2 ^ m )  =  ( 2 ^ k ) )
8079oveq2d 6106 . . . . . . . . . . . . 13  |-  ( m  =  k  ->  (
1  /  ( 2 ^ m ) )  =  ( 1  / 
( 2 ^ k
) ) )
8180oveq2d 6106 . . . . . . . . . . . 12  |-  ( m  =  k  ->  (
( 1st `  ( M `  k )
) ( ball `  D
) ( 1  / 
( 2 ^ m
) ) )  =  ( ( 1st `  ( M `  k )
) ( ball `  D
) ( 1  / 
( 2 ^ k
) ) ) )
82 ovex 6115 . . . . . . . . . . . 12  |-  ( ( 1st `  ( M `
 k ) ) ( ball `  D
) ( 1  / 
( 2 ^ k
) ) )  e. 
_V
8378, 81, 17, 82ovmpt2 6225 . . . . . . . . . . 11  |-  ( ( ( 1st `  ( M `  k )
)  e.  X  /\  k  e.  NN0 )  -> 
( ( 1st `  ( M `  k )
) B k )  =  ( ( 1st `  ( M `  k
) ) ( ball `  D ) ( 1  /  ( 2 ^ k ) ) ) )
8442, 77, 83syl2anc 656 . . . . . . . . . 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
) ) ) )
8568fveq2d 5692 . . . . . . . . . . . . 13  |-  ( k  e.  NN  ->  ( 1st `  ( M `  k ) )  =  ( 1st `  <. ( S `  k ) ,  ( 3  / 
( 2 ^ k
) ) >. )
)
8630, 70op1st 6584 . . . . . . . . . . . . 13  |-  ( 1st `  <. ( S `  k ) ,  ( 3  /  ( 2 ^ k ) )
>. )  =  ( S `  k )
8785, 86syl6eq 2489 . . . . . . . . . . . 12  |-  ( k  e.  NN  ->  ( 1st `  ( M `  k ) )  =  ( S `  k
) )
8887ad2antrl 722 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 1st `  ( M `  k )
)  =  ( S `
 k ) )
8988oveq1d 6105 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( 1st `  ( M `  k
) ) B k )  =  ( ( S `  k ) B k ) )
9084, 89eqtr3d 2475 . . . . . . . . 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 6612 . . . . . . . . . . . 12  |-  ( ( M `  k )  e.  ( X  X.  RR+ )  ->  ( M `  k )  =  <. ( 1st `  ( M `
 k ) ) ,  ( 2nd `  ( M `  k )
) >. )
9240, 91syl 16 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( M `  k )  =  <. ( 1st `  ( M `
 k ) ) ,  ( 2nd `  ( M `  k )
) >. )
9392fveq2d 5692 . . . . . . . . . 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 6093 . . . . . . . . . 10  |-  ( ( 1st `  ( M `
 k ) ) ( ball `  D
) ( 2nd `  ( M `  k )
) )  =  ( ( ball `  D
) `  <. ( 1st `  ( M `  k
) ) ,  ( 2nd `  ( M `
 k ) )
>. )
9593, 94syl6reqr 2492 . . . . . . . . 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 ) ) )
9676, 90, 953sstr3d 3395 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( S `
 k ) B k )  C_  (
( ball `  D ) `  ( M `  k
) ) )
979mopntop 19915 . . . . . . . . . . 11  |-  ( D  e.  ( *Met `  X )  ->  J  e.  Top )
9837, 97syl 16 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  J  e.  Top )
99 blssm 19893 . . . . . . . . . . . 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
)
10037, 42, 52, 99syl3anc 1213 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( 1st `  ( M `  k
) ) ( ball `  D ) ( 2nd `  ( M `  k
) ) )  C_  X )
1019mopnuni 19916 . . . . . . . . . . . 12  |-  ( D  e.  ( *Met `  X )  ->  X  =  U. J )
10237, 101syl 16 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  X  =  U. J )
103100, 95, 1023sstr3d 3395 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( ball `  D ) `  ( M `  k )
)  C_  U. J )
104 eqid 2441 . . . . . . . . . . 11  |-  U. J  =  U. J
105104sscls 18560 . . . . . . . . . 10  |-  ( ( J  e.  Top  /\  ( ( ball `  D
) `  ( M `  k ) )  C_  U. J )  ->  (
( ball `  D ) `  ( M `  k
) )  C_  (
( cls `  J
) `  ( ( ball `  D ) `  ( M `  k ) ) ) )
10698, 103, 105syl2anc 656 . . . . . . . . 9  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( ball `  D ) `  ( M `  k )
)  C_  ( ( cls `  J ) `  ( ( ball `  D
) `  ( M `  k ) ) ) )
10795fveq2d 5692 . . . . . . . . . . 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 ) ) ) )
10812ad2antlr 721 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( x  / 
2 )  e.  RR+ )
109108rpxrd 11024 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( x  / 
2 )  e.  RR* )
110 simprr 751 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 2nd `  ( M `  k )
)  <  ( x  /  2 ) )
1119blsscls 19982 . . . . . . . . . . . 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 ) ) )
11237, 42, 52, 109, 110, 111syl23anc 1220 . . . . . . . . . . 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 ) ) )
113107, 112eqsstr3d 3388 . . . . . . . . . 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 10993 . . . . . . . . . . . 12  |-  ( x  e.  RR+  ->  x  e.  RR )
115114ad2antlr 721 . . . . . . . . . . 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 )
1179, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23heiborlem6 28624 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  A. t  e.  NN  ( ( ball `  D
) `  ( M `  ( t  +  1 ) ) )  C_  ( ( ball `  D
) `  ( M `  t ) ) )
1184, 38, 117, 9caublcls 20719 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( 1st  o.  M ) ( ~~> t `  J ) Y  /\  k  e.  NN )  ->  Y  e.  ( ( cls `  J ) `
 ( ( ball `  D ) `  ( M `  k )
) ) )
1191183expia 1184 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( 1st  o.  M ) ( ~~> t `  J ) Y )  ->  ( k  e.  NN  ->  Y  e.  ( ( cls `  J
) `  ( ( ball `  D ) `  ( M `  k ) ) ) ) )
120116, 119mpdan 663 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( k  e.  NN  ->  Y  e.  ( ( cls `  J ) `
 ( ( ball `  D ) `  ( M `  k )
) ) ) )
121120imp 429 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  NN )  ->  Y  e.  ( ( cls `  J
) `  ( ( ball `  D ) `  ( M `  k ) ) ) )
122121ad2ant2r 741 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  Y  e.  ( ( cls `  J
) `  ( ( ball `  D ) `  ( M `  k ) ) ) )
123113, 122sseldd 3354 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  Y  e.  ( ( 1st `  ( M `  k )
) ( ball `  D
) ( x  / 
2 ) ) )
124 blhalf 19880 . . . . . . . . . . 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 ) )
12537, 42, 115, 123, 124syl22anc 1214 . . . . . . . . . 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 ) )
126113, 125sstrd 3363 . . . . . . . . 9  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( cls `  J ) `  (
( ball `  D ) `  ( M `  k
) ) )  C_  ( Y ( ball `  D
) x ) )
127106, 126sstrd 3363 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( ball `  D ) `  ( M `  k )
)  C_  ( Y
( ball `  D )
x ) )
12896, 127sstrd 3363 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( S `
 k ) B k )  C_  ( Y ( ball `  D
) x ) )
129 sstr2 3360 . . . . . . 7  |-  ( ( ( S `  k
) B k ) 
C_  ( Y (
ball `  D )
x )  ->  (
( Y ( ball `  D ) x ) 
C_  Z  ->  (
( S `  k
) B k ) 
C_  Z ) )
130128, 129syl 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 4104 . . . . . . . . . . . . 13  |-  ( Z  e.  U  ->  U. { Z }  =  Z
)
1326, 131syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  U. { Z }  =  Z )
133132sseq2d 3381 . . . . . . . . . . 11  |-  ( ph  ->  ( ( ( S `
 k ) B k )  C_  U. { Z }  <->  ( ( S `
 k ) B k )  C_  Z
) )
134133biimpar 482 . . . . . . . . . 10  |-  ( (
ph  /\  ( ( S `  k ) B k )  C_  Z )  ->  (
( S `  k
) B k ) 
C_  U. { Z }
)
1356snssd 4015 . . . . . . . . . . . . 13  |-  ( ph  ->  { Z }  C_  U )
136 snex 4530 . . . . . . . . . . . . . 14  |-  { Z }  e.  _V
137136elpw 3863 . . . . . . . . . . . . 13  |-  ( { Z }  e.  ~P U 
<->  { Z }  C_  U )
138135, 137sylibr 212 . . . . . . . . . . . 12  |-  ( ph  ->  { Z }  e.  ~P U )
139 snfi 7386 . . . . . . . . . . . . 13  |-  { Z }  e.  Fin
140139a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  { Z }  e.  Fin )
141138, 140elind 3537 . . . . . . . . . . 11  |-  ( ph  ->  { Z }  e.  ( ~P U  i^i  Fin ) )
142 unieq 4096 . . . . . . . . . . . . 13  |-  ( v  =  { Z }  ->  U. v  =  U. { Z } )
143142sseq2d 3381 . . . . . . . . . . . 12  |-  ( v  =  { Z }  ->  ( ( ( S `
 k ) B k )  C_  U. v  <->  ( ( S `  k
) B k ) 
C_  U. { Z }
) )
144143rspcev 3070 . . . . . . . . . . 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
)
145141, 144sylan 468 . . . . . . . . . 10  |-  ( (
ph  /\  ( ( S `  k ) B k )  C_  U. { Z } )  ->  E. v  e.  ( ~P U  i^i  Fin ) ( ( S `
 k ) B k )  C_  U. v
)
146134, 145syldan 467 . . . . . . . . 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 6115 . . . . . . . . . . 11  |-  ( ( S `  k ) B k )  e. 
_V
148 sseq1 3374 . . . . . . . . . . . . 13  |-  ( u  =  ( ( S `
 k ) B k )  ->  (
u  C_  U. v  <->  ( ( S `  k
) B k ) 
C_  U. v ) )
149148rexbidv 2734 . . . . . . . . . . . 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
) )
150149notbid 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
) )
151147, 150, 15elab2 3106 . . . . . . . . . 10  |-  ( ( ( S `  k
) B k )  e.  K  <->  -.  E. v  e.  ( ~P U  i^i  Fin ) ( ( S `
 k ) B k )  C_  U. v
)
152151con2bii 332 . . . . . . . . 9  |-  ( E. v  e.  ( ~P U  i^i  Fin )
( ( S `  k ) B k )  C_  U. v  <->  -.  ( ( S `  k ) B k )  e.  K )
153146, 152sylib 196 . . . . . . . 8  |-  ( (
ph  /\  ( ( S `  k ) B k )  C_  Z )  ->  -.  ( ( S `  k ) B k )  e.  K )
154153ex 434 . . . . . . 7  |-  ( ph  ->  ( ( ( S `
 k ) B k )  C_  Z  ->  -.  ( ( S `
 k ) B k )  e.  K
) )
155154ad2antrr 720 . . . . . 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 ) )
156130, 155syld 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 ) )
15736, 156mt2d 117 . . . 4  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  -.  ( Y
( ball `  D )
x )  C_  Z
)
15827, 157rexlimddv 2843 . . 3  |-  ( (
ph  /\  x  e.  RR+ )  ->  -.  ( Y ( ball `  D
) x )  C_  Z )
159158nrexdv 2817 . 2  |-  ( ph  ->  -.  E. x  e.  RR+  ( Y ( ball `  D ) x ) 
C_  Z )
16011, 159pm2.21dd 174 1  |-  ( ph  ->  ps )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 960    = wceq 1364    e. wcel 1761   {cab 2427   A.wral 2713   E.wrex 2714   _Vcvv 2970    i^i cin 3324    C_ wss 3325   ifcif 3788   ~Pcpw 3857   {csn 3874   <.cop 3880   U.cuni 4088   U_ciun 4168   class class class wbr 4289   {copab 4346    e. cmpt 4347    X. cxp 4834    o. ccom 4840   -->wf 5411   ` cfv 5415  (class class class)co 6090    e. cmpt2 6092   1stc1st 6574   2ndc2nd 6575   Fincfn 7306   RRcr 9277   0cc0 9278   1c1 9279    + caddc 9281   RR*cxr 9413    < clt 9414    <_ cle 9415    - cmin 9591    / cdiv 9989   NNcn 10318   2c2 10367   3c3 10368   NN0cn0 10575   RR+crp 10987    seqcseq 11802   ^cexp 11861   *Metcxmt 17701   Metcme 17702   ballcbl 17703   MetOpencmopn 17706   Topctop 18398   clsccl 18522   ~~> tclm 18730   CMetcms 20665
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1596  ax-4 1607  ax-5 1675  ax-6 1713  ax-7 1733  ax-8 1763  ax-9 1765  ax-10 1780  ax-11 1785  ax-12 1797  ax-13 1948  ax-ext 2422  ax-rep 4400  ax-sep 4410  ax-nul 4418  ax-pow 4467  ax-pr 4528  ax-un 6371  ax-cnex 9334  ax-resscn 9335  ax-1cn 9336  ax-icn 9337  ax-addcl 9338  ax-addrcl 9339  ax-mulcl 9340  ax-mulrcl 9341  ax-mulcom 9342  ax-addass 9343  ax-mulass 9344  ax-distr 9345  ax-i2m1 9346  ax-1ne0 9347  ax-1rid 9348  ax-rnegex 9349  ax-rrecex 9350  ax-cnre 9351  ax-pre-lttri 9352  ax-pre-lttrn 9353  ax-pre-ltadd 9354  ax-pre-mulgt0 9355  ax-pre-sup 9356
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 961  df-3an 962  df-tru 1367  df-ex 1592  df-nf 1595  df-sb 1706  df-eu 2263  df-mo 2264  df-clab 2428  df-cleq 2434  df-clel 2437  df-nfc 2566  df-ne 2606  df-nel 2607  df-ral 2718  df-rex 2719  df-reu 2720  df-rmo 2721  df-rab 2722  df-v 2972  df-sbc 3184  df-csb 3286  df-dif 3328  df-un 3330  df-in 3332  df-ss 3339  df-pss 3341  df-nul 3635  df-if 3789  df-pw 3859  df-sn 3875  df-pr 3877  df-tp 3879  df-op 3881  df-uni 4089  df-int 4126  df-iun 4170  df-iin 4171  df-br 4290  df-opab 4348  df-mpt 4349  df-tr 4383  df-eprel 4628  df-id 4632  df-po 4637  df-so 4638  df-fr 4675  df-we 4677  df-ord 4718  df-on 4719  df-lim 4720  df-suc 4721  df-xp 4842  df-rel 4843  df-cnv 4844  df-co 4845  df-dm 4846  df-rn 4847  df-res 4848  df-ima 4849  df-iota 5378  df-fun 5417  df-fn 5418  df-f 5419  df-f1 5420  df-fo 5421  df-f1o 5422  df-fv 5423  df-riota 6049  df-ov 6093  df-oprab 6094  df-mpt2 6095  df-om 6476  df-1st 6576  df-2nd 6577  df-recs 6828  df-rdg 6862  df-1o 6916  df-er 7097  df-map 7212  df-pm 7213  df-en 7307  df-dom 7308  df-sdom 7309  df-fin 7310  df-sup 7687  df-pnf 9416  df-mnf 9417  df-xr 9418  df-ltxr 9419  df-le 9420  df-sub 9593  df-neg 9594  df-div 9990  df-nn 10319  df-2 10376  df-3 10377  df-n0 10576  df-z 10643  df-uz 10858  df-q 10950  df-rp 10988  df-xneg 11085  df-xadd 11086  df-xmul 11087  df-fl 11638  df-seq 11803  df-exp 11862  df-topgen 14378  df-psmet 17709  df-xmet 17710  df-met 17711  df-bl 17712  df-mopn 17713  df-top 18403  df-bases 18405  df-topon 18406  df-cld 18523  df-ntr 18524  df-cls 18525  df-lm 18733  df-cmet 20668
This theorem is referenced by:  heiborlem9  28627
  Copyright terms: Public domain W3C validator