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

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.
StepHypRef 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
) )
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 3357 . . 3  |-  ( ph  ->  Z  e.  J )
8 heibor.15 . . 3  |-  ( ph  ->  Y  e.  Z )
9 heibor.1 . . . 4  |-  J  =  ( MetOpen `  D )
109mopni2 20068 . . 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 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 ) ) )
1413rexbidv 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 ) ) >.
)
249, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23heiborlem7 28716 . . . . . . 7  |-  A. r  e.  RR+  E. k  e.  NN  ( 2nd `  ( M `  k )
)  <  r
2514, 24vtoclri 3047 . . . . . 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 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 )
299, 15, 16, 17, 1, 18, 19, 20, 21, 22heiborlem4 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
329, 15, 16, 30, 31heiborlem2 28711 . . . . . . . . 9  |-  ( ( S `  k ) G k  <->  ( k  e.  NN0  /\  ( S `
 k )  e.  ( F `  k
)  /\  ( ( S `  k ) B k )  e.  K ) )
3332simp3bi 1005 . . . . . . . 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 474 . . . . . 6  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( S `  k ) B k )  e.  K )
3635ad2ant2r 746 . . . . 5  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( S `
 k ) B k )  e.  K
)
374ad2antrr 725 . . . . . . . . . 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 28714 . . . . . . . . . . . . 13  |-  ( ph  ->  M : NN --> ( X  X.  RR+ ) )
3938ffvelrnda 5843 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  NN )  ->  ( M `
 k )  e.  ( X  X.  RR+ ) )
4039ad2ant2r 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
)
4240, 41syl 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 )
4543, 28, 44sylancr 663 . . . . . . . . . . . . . 14  |-  ( k  e.  NN  ->  (
2 ^ k )  e.  NN )
4645nnrpd 11026 . . . . . . . . . . . . 13  |-  ( k  e.  NN  ->  (
2 ^ k )  e.  RR+ )
4746rpreccld 11037 . . . . . . . . . . . 12  |-  ( k  e.  NN  ->  (
1  /  ( 2 ^ k ) )  e.  RR+ )
4847ad2antrl 727 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 1  / 
( 2 ^ k
) )  e.  RR+ )
4948rpxrd 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+ )
5140, 50syl 16 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 2nd `  ( M `  k )
)  e.  RR+ )
5251rpxrd 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 ) ) ) )
5855, 56, 57mp3an12 1304 . . . . . . . . . . . . . . 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 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 ) )
6564oveq2d 6107 . . . . . . . . . . . . . . . 16  |-  ( n  =  k  ->  (
3  /  ( 2 ^ n ) )  =  ( 3  / 
( 2 ^ k
) ) )
6663, 65opeq12d 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
6866, 23, 67fvmpt 5774 . . . . . . . . . . . . . 14  |-  ( k  e.  NN  ->  ( M `  k )  =  <. ( S `  k ) ,  ( 3  /  ( 2 ^ k ) )
>. )
6968fveq2d 5695 . . . . . . . . . . . . 13  |-  ( k  e.  NN  ->  ( 2nd `  ( M `  k ) )  =  ( 2nd `  <. ( S `  k ) ,  ( 3  / 
( 2 ^ k
) ) >. )
)
70 ovex 6116 . . . . . . . . . . . . . 14  |-  ( 3  /  ( 2 ^ k ) )  e. 
_V
7130, 70op2nd 6586 . . . . . . . . . . . . 13  |-  ( 2nd `  <. ( S `  k ) ,  ( 3  /  ( 2 ^ k ) )
>. )  =  (
3  /  ( 2 ^ k ) )
7269, 71syl6eq 2491 . . . . . . . . . . . 12  |-  ( k  e.  NN  ->  ( 2nd `  ( M `  k ) )  =  ( 3  /  (
2 ^ k ) ) )
7372ad2antrl 727 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 2nd `  ( M `  k )
)  =  ( 3  /  ( 2 ^ k ) ) )
7462, 73breqtrrd 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 )
) ) )
7637, 42, 49, 52, 74, 75syl221anc 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
) ) ) )
7728ad2antrl 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 ) )
8079oveq2d 6107 . . . . . . . . . . . . 13  |-  ( m  =  k  ->  (
1  /  ( 2 ^ m ) )  =  ( 1  / 
( 2 ^ k
) ) )
8180oveq2d 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
8378, 81, 17, 82ovmpt2 6226 . . . . . . . . . . 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 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
) ) ) )
8568fveq2d 5695 . . . . . . . . . . . . 13  |-  ( k  e.  NN  ->  ( 1st `  ( M `  k ) )  =  ( 1st `  <. ( S `  k ) ,  ( 3  / 
( 2 ^ k
) ) >. )
)
8630, 70op1st 6585 . . . . . . . . . . . . 13  |-  ( 1st `  <. ( S `  k ) ,  ( 3  /  ( 2 ^ k ) )
>. )  =  ( S `  k )
8785, 86syl6eq 2491 . . . . . . . . . . . 12  |-  ( k  e.  NN  ->  ( 1st `  ( M `  k ) )  =  ( S `  k
) )
8887ad2antrl 727 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( 1st `  ( M `  k )
)  =  ( S `
 k ) )
8988oveq1d 6106 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( 1st `  ( M `  k
) ) B k )  =  ( ( S `  k ) B k ) )
9084, 89eqtr3d 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 )
) >. )
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 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 ) )
>. )
9593, 94syl6reqr 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 ) ) )
9676, 90, 953sstr3d 3398 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( S `
 k ) B k )  C_  (
( ball `  D ) `  ( M `  k
) ) )
979mopntop 20015 . . . . . . . . . . 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 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
)
10037, 42, 52, 99syl3anc 1218 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( 1st `  ( M `  k
) ) ( ball `  D ) ( 2nd `  ( M `  k
) ) )  C_  X )
1019mopnuni 20016 . . . . . . . . . . . 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 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
105104sscls 18660 . . . . . . . . . 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 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 ) ) ) )
10795fveq2d 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 ) ) ) )
10812ad2antlr 726 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( x  / 
2 )  e.  RR+ )
109108rpxrd 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 ) )
1119blsscls 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 ) ) )
11237, 42, 52, 109, 110, 111syl23anc 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 ) ) )
113107, 112eqsstr3d 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 )
115114ad2antlr 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 )
1179, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23heiborlem6 28715 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  A. t  e.  NN  ( ( ball `  D
) `  ( M `  ( t  +  1 ) ) )  C_  ( ( ball `  D
) `  ( M `  t ) ) )
1184, 38, 117, 9caublcls 20819 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( 1st  o.  M ) ( ~~> t `  J ) Y  /\  k  e.  NN )  ->  Y  e.  ( ( cls `  J ) `
 ( ( ball `  D ) `  ( M `  k )
) ) )
1191183expia 1189 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( 1st  o.  M ) ( ~~> t `  J ) Y )  ->  ( k  e.  NN  ->  Y  e.  ( ( cls `  J
) `  ( ( ball `  D ) `  ( M `  k ) ) ) ) )
120116, 119mpdan 668 . . . . . . . . . . . . . 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 746 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  Y  e.  ( ( cls `  J
) `  ( ( ball `  D ) `  ( M `  k ) ) ) )
123113, 122sseldd 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 ) )
12537, 42, 115, 123, 124syl22anc 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 ) )
126113, 125sstrd 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 ) )
127106, 126sstrd 3366 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  (
k  e.  NN  /\  ( 2nd `  ( M `
 k ) )  <  ( x  / 
2 ) ) )  ->  ( ( ball `  D ) `  ( M `  k )
)  C_  ( Y
( ball `  D )
x ) )
12896, 127sstrd 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 ) )
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 4107 . . . . . . . . . . . . 13  |-  ( Z  e.  U  ->  U. { Z }  =  Z
)
1326, 131syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  U. { Z }  =  Z )
133132sseq2d 3384 . . . . . . . . . . 11  |-  ( ph  ->  ( ( ( S `
 k ) B k )  C_  U. { Z }  <->  ( ( S `
 k ) B k )  C_  Z
) )
134133biimpar 485 . . . . . . . . . 10  |-  ( (
ph  /\  ( ( S `  k ) B k )  C_  Z )  ->  (
( S `  k
) B k ) 
C_  U. { Z }
)
1356snssd 4018 . . . . . . . . . . . . 13  |-  ( ph  ->  { Z }  C_  U )
136 snex 4533 . . . . . . . . . . . . . 14  |-  { Z }  e.  _V
137136elpw 3866 . . . . . . . . . . . . 13  |-  ( { Z }  e.  ~P U 
<->  { Z }  C_  U )
138135, 137sylibr 212 . . . . . . . . . . . 12  |-  ( ph  ->  { Z }  e.  ~P U )
139 snfi 7390 . . . . . . . . . . . . 13  |-  { Z }  e.  Fin
140139a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  { Z }  e.  Fin )
141138, 140elind 3540 . . . . . . . . . . 11  |-  ( ph  ->  { Z }  e.  ( ~P U  i^i  Fin ) )
142 unieq 4099 . . . . . . . . . . . . 13  |-  ( v  =  { Z }  ->  U. v  =  U. { Z } )
143142sseq2d 3384 . . . . . . . . . . . 12  |-  ( v  =  { Z }  ->  ( ( ( S `
 k ) B k )  C_  U. v  <->  ( ( S `  k
) B k ) 
C_  U. { Z }
) )
144143rspcev 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
)
145141, 144sylan 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
)
146134, 145syldan 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 ) )
149148rexbidv 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
) )
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 3109 . . . . . . . . . 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 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 ) )
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 2845 . . 3  |-  ( (
ph  /\  x  e.  RR+ )  ->  -.  ( Y ( ball `  D
) x )  C_  Z )
159158nrexdv 2819 . 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 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
  Copyright terms: Public domain W3C validator