Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  oddpwdc Structured version   Unicode version

Theorem oddpwdc 26742
Description: Lemma for eulerpart 26770. The function  F that decomposes a number into its "odd" and "even" parts, which is to say the largest power of two and largest odd divisor of a number, is a bijection from pairs of a nonnegative integer and an odd number to positive integers. (Contributed by Thierry Arnoux, 15-Aug-2017.)
Hypotheses
Ref Expression
oddpwdc.j  |-  J  =  { z  e.  NN  |  -.  2  ||  z }
oddpwdc.f  |-  F  =  ( x  e.  J ,  y  e.  NN0  |->  ( ( 2 ^ y )  x.  x
) )
Assertion
Ref Expression
oddpwdc  |-  F :
( J  X.  NN0 )
-1-1-onto-> NN
Distinct variable groups:    x, y,
z    x, J, y
Allowed substitution hints:    F( x, y, z)    J( z)

Proof of Theorem oddpwdc
Dummy variables  k 
a  l  m  n  o are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oddpwdc.f . . 3  |-  F  =  ( x  e.  J ,  y  e.  NN0  |->  ( ( 2 ^ y )  x.  x
) )
2 2nn 10484 . . . . . . . 8  |-  2  e.  NN
32a1i 11 . . . . . . 7  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  2  e.  NN )
4 simpl 457 . . . . . . 7  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  y  e.  NN0 )
53, 4nnexpcld 12034 . . . . . 6  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  ( 2 ^ y
)  e.  NN )
6 oddpwdc.j . . . . . . . 8  |-  J  =  { z  e.  NN  |  -.  2  ||  z }
7 ssrab2 3442 . . . . . . . 8  |-  { z  e.  NN  |  -.  2  ||  z }  C_  NN
86, 7eqsstri 3391 . . . . . . 7  |-  J  C_  NN
9 simpr 461 . . . . . . 7  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  x  e.  J )
108, 9sseldi 3359 . . . . . 6  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  x  e.  NN )
115, 10nnmulcld 10374 . . . . 5  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  ( ( 2 ^ y )  x.  x
)  e.  NN )
1211ancoms 453 . . . 4  |-  ( ( x  e.  J  /\  y  e.  NN0 )  -> 
( ( 2 ^ y )  x.  x
)  e.  NN )
1312adantl 466 . . 3  |-  ( ( T.  /\  ( x  e.  J  /\  y  e.  NN0 ) )  -> 
( ( 2 ^ y )  x.  x
)  e.  NN )
14 id 22 . . . . . . 7  |-  ( a  e.  NN  ->  a  e.  NN )
152a1i 11 . . . . . . . 8  |-  ( a  e.  NN  ->  2  e.  NN )
16 nn0ssre 10588 . . . . . . . . . . 11  |-  NN0  C_  RR
17 ltso 9460 . . . . . . . . . . 11  |-  <  Or  RR
18 soss 4664 . . . . . . . . . . 11  |-  ( NN0  C_  RR  ->  (  <  Or  RR  ->  <  Or  NN0 ) )
1916, 17, 18mp2 9 . . . . . . . . . 10  |-  <  Or  NN0
2019a1i 11 . . . . . . . . 9  |-  ( a  e.  NN  ->  <  Or 
NN0 )
21 0zd 10663 . . . . . . . . . 10  |-  ( a  e.  NN  ->  0  e.  ZZ )
22 ssrab2 3442 . . . . . . . . . . 11  |-  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  C_  NN0
2322a1i 11 . . . . . . . . . 10  |-  ( a  e.  NN  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  C_  NN0 )
24 nnz 10673 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  a  e.  ZZ )
25 oveq2 6104 . . . . . . . . . . . . . . 15  |-  ( k  =  n  ->  (
2 ^ k )  =  ( 2 ^ n ) )
2625breq1d 4307 . . . . . . . . . . . . . 14  |-  ( k  =  n  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ n )  ||  a ) )
2726elrab 3122 . . . . . . . . . . . . 13  |-  ( n  e.  { k  e. 
NN0  |  ( 2 ^ k )  ||  a }  <->  ( n  e. 
NN0  /\  ( 2 ^ n )  ||  a ) )
28 simprl 755 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  n  e.  NN0 )
2928nn0red 10642 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  n  e.  RR )
302a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  2  e.  NN )
3130, 28nnexpcld 12034 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  e.  NN )
3231nnred 10342 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  e.  RR )
33 simpl 457 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  a  e.  NN )
3433nnred 10342 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  a  e.  RR )
35 2re 10396 . . . . . . . . . . . . . . . 16  |-  2  e.  RR
3635leidi 9879 . . . . . . . . . . . . . . . 16  |-  2  <_  2
37 nexple 26453 . . . . . . . . . . . . . . . 16  |-  ( ( n  e.  NN0  /\  2  e.  RR  /\  2  <_  2 )  ->  n  <_  ( 2 ^ n
) )
3835, 36, 37mp3an23 1306 . . . . . . . . . . . . . . 15  |-  ( n  e.  NN0  ->  n  <_ 
( 2 ^ n
) )
3938ad2antrl 727 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  n  <_  ( 2 ^ n ) )
4031nnzd 10751 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  e.  ZZ )
41 simprr 756 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  ||  a )
42 dvdsle 13583 . . . . . . . . . . . . . . . 16  |-  ( ( ( 2 ^ n
)  e.  ZZ  /\  a  e.  NN )  ->  ( ( 2 ^ n )  ||  a  ->  ( 2 ^ n
)  <_  a )
)
4342imp 429 . . . . . . . . . . . . . . 15  |-  ( ( ( ( 2 ^ n )  e.  ZZ  /\  a  e.  NN )  /\  ( 2 ^ n )  ||  a
)  ->  ( 2 ^ n )  <_ 
a )
4440, 33, 41, 43syl21anc 1217 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  <_ 
a )
4529, 32, 34, 39, 44letrd 9533 . . . . . . . . . . . . 13  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  n  <_  a )
4627, 45sylan2b 475 . . . . . . . . . . . 12  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  n  <_  a )
4746ralrimiva 2804 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  A. n  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }
n  <_  a )
48 breq2 4301 . . . . . . . . . . . . 13  |-  ( m  =  a  ->  (
n  <_  m  <->  n  <_  a ) )
4948ralbidv 2740 . . . . . . . . . . . 12  |-  ( m  =  a  ->  ( A. n  e.  { k  e.  NN0  |  (
2 ^ k ) 
||  a } n  <_  m  <->  A. n  e.  {
k  e.  NN0  | 
( 2 ^ k
)  ||  a }
n  <_  a )
)
5049rspcev 3078 . . . . . . . . . . 11  |-  ( ( a  e.  ZZ  /\  A. n  e.  { k  e.  NN0  |  (
2 ^ k ) 
||  a } n  <_  a )  ->  E. m  e.  ZZ  A. n  e. 
{ k  e.  NN0  |  ( 2 ^ k
)  ||  a }
n  <_  m )
5124, 47, 50syl2anc 661 . . . . . . . . . 10  |-  ( a  e.  NN  ->  E. m  e.  ZZ  A. n  e. 
{ k  e.  NN0  |  ( 2 ^ k
)  ||  a }
n  <_  m )
52 nn0uz 10900 . . . . . . . . . . 11  |-  NN0  =  ( ZZ>= `  0 )
5352uzsupss 10952 . . . . . . . . . 10  |-  ( ( 0  e.  ZZ  /\  { k  e.  NN0  | 
( 2 ^ k
)  ||  a }  C_ 
NN0  /\  E. m  e.  ZZ  A. n  e. 
{ k  e.  NN0  |  ( 2 ^ k
)  ||  a }
n  <_  m )  ->  E. m  e.  NN0  ( A. n  e.  {
k  e.  NN0  | 
( 2 ^ k
)  ||  a }  -.  m  <  n  /\  A. n  e.  NN0  (
n  <  m  ->  E. o  e.  { k  e.  NN0  |  (
2 ^ k ) 
||  a } n  <  o ) ) )
5421, 23, 51, 53syl3anc 1218 . . . . . . . . 9  |-  ( a  e.  NN  ->  E. m  e.  NN0  ( A. n  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }  -.  m  <  n  /\  A. n  e.  NN0  (
n  <  m  ->  E. o  e.  { k  e.  NN0  |  (
2 ^ k ) 
||  a } n  <  o ) ) )
5520, 54supcl 7713 . . . . . . . 8  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  NN0 )
5615, 55nnexpcld 12034 . . . . . . 7  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  NN )
57 fzfi 11799 . . . . . . . . . . . 12  |-  ( 0 ... a )  e. 
Fin
58 0zd 10663 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  0  e.  ZZ )
5924adantr 465 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  a  e.  ZZ )
6027, 28sylan2b 475 . . . . . . . . . . . . . . . 16  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  n  e.  NN0 )
6160nn0zd 10750 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  n  e.  ZZ )
6260nn0ge0d 10644 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  0  <_  n )
63 elfz4 11451 . . . . . . . . . . . . . . 15  |-  ( ( ( 0  e.  ZZ  /\  a  e.  ZZ  /\  n  e.  ZZ )  /\  ( 0  <_  n  /\  n  <_  a ) )  ->  n  e.  ( 0 ... a
) )
6458, 59, 61, 62, 46, 63syl32anc 1226 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  n  e.  ( 0 ... a
) )
6564ex 434 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  (
n  e.  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  ->  n  e.  ( 0 ... a ) ) )
6665ssrdv 3367 . . . . . . . . . . . 12  |-  ( a  e.  NN  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  C_  ( 0 ... a
) )
67 ssfi 7538 . . . . . . . . . . . 12  |-  ( ( ( 0 ... a
)  e.  Fin  /\  { k  e.  NN0  | 
( 2 ^ k
)  ||  a }  C_  ( 0 ... a
) )  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  e.  Fin )
6857, 66, 67sylancr 663 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  e.  Fin )
69 0nn0 10599 . . . . . . . . . . . . . 14  |-  0  e.  NN0
7069a1i 11 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  0  e.  NN0 )
71 2cn 10397 . . . . . . . . . . . . . . 15  |-  2  e.  CC
72 exp0 11874 . . . . . . . . . . . . . . 15  |-  ( 2  e.  CC  ->  (
2 ^ 0 )  =  1 )
7371, 72ax-mp 5 . . . . . . . . . . . . . 14  |-  ( 2 ^ 0 )  =  1
74 1dvds 13552 . . . . . . . . . . . . . . 15  |-  ( a  e.  ZZ  ->  1  ||  a )
7524, 74syl 16 . . . . . . . . . . . . . 14  |-  ( a  e.  NN  ->  1  ||  a )
7673, 75syl5eqbr 4330 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  (
2 ^ 0 ) 
||  a )
77 oveq2 6104 . . . . . . . . . . . . . . 15  |-  ( k  =  0  ->  (
2 ^ k )  =  ( 2 ^ 0 ) )
7877breq1d 4307 . . . . . . . . . . . . . 14  |-  ( k  =  0  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ 0 )  ||  a ) )
7978elrab 3122 . . . . . . . . . . . . 13  |-  ( 0  e.  { k  e. 
NN0  |  ( 2 ^ k )  ||  a }  <->  ( 0  e. 
NN0  /\  ( 2 ^ 0 )  ||  a ) )
8070, 76, 79sylanbrc 664 . . . . . . . . . . . 12  |-  ( a  e.  NN  ->  0  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }
)
81 ne0i 3648 . . . . . . . . . . . 12  |-  ( 0  e.  { k  e. 
NN0  |  ( 2 ^ k )  ||  a }  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  =/=  (/) )
8280, 81syl 16 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  =/=  (/) )
83 fisupcl 7722 . . . . . . . . . . 11  |-  ( (  <  Or  NN0  /\  ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a }  e.  Fin  /\  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  =/=  (/) 
/\  { k  e. 
NN0  |  ( 2 ^ k )  ||  a }  C_  NN0 )
)  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }
)
8420, 68, 82, 23, 83syl13anc 1220 . . . . . . . . . 10  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }
)
85 oveq2 6104 . . . . . . . . . . . 12  |-  ( k  =  l  ->  (
2 ^ k )  =  ( 2 ^ l ) )
8685breq1d 4307 . . . . . . . . . . 11  |-  ( k  =  l  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ l )  ||  a ) )
8786cbvrabv 2976 . . . . . . . . . 10  |-  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  =  { l  e.  NN0  |  ( 2 ^ l
)  ||  a }
8884, 87syl6eleq 2533 . . . . . . . . 9  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  { l  e.  NN0  |  ( 2 ^ l
)  ||  a }
)
89 oveq2 6104 . . . . . . . . . . 11  |-  ( l  =  sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  ->  ( 2 ^ l
)  =  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )
9089breq1d 4307 . . . . . . . . . 10  |-  ( l  =  sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  ->  ( ( 2 ^ l )  ||  a  <->  ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ||  a )
)
9190elrab 3122 . . . . . . . . 9  |-  ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  e.  { l  e.  NN0  |  (
2 ^ l ) 
||  a }  <->  ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  NN0  /\  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ||  a )
)
9288, 91sylib 196 . . . . . . . 8  |-  ( a  e.  NN  ->  ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  e.  NN0  /\  ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ||  a )
)
9392simprd 463 . . . . . . 7  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ||  a )
94 nndivdvds 13546 . . . . . . . 8  |-  ( ( a  e.  NN  /\  ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  NN )  ->  ( ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ||  a  <->  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  e.  NN ) )
9594biimpa 484 . . . . . . 7  |-  ( ( ( a  e.  NN  /\  ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  NN )  /\  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) 
||  a )  -> 
( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  NN )
9614, 56, 93, 95syl21anc 1217 . . . . . 6  |-  ( a  e.  NN  ->  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  NN )
97 1nn0 10600 . . . . . . . . . . 11  |-  1  e.  NN0
9897a1i 11 . . . . . . . . . 10  |-  ( a  e.  NN  ->  1  e.  NN0 )
9955, 98nn0addcld 10645 . . . . . . . . 9  |-  ( a  e.  NN  ->  ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  +  1 )  e.  NN0 )
10055nn0red 10642 . . . . . . . . . . . . . 14  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  RR )
101100ltp1d 10268 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  <  ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) )
10220, 54supub 7714 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  (
( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 )  e. 
{ k  e.  NN0  |  ( 2 ^ k
)  ||  a }  ->  -.  sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  <  ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) ) )
103101, 102mt2d 117 . . . . . . . . . . . 12  |-  ( a  e.  NN  ->  -.  ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  +  1 )  e.  {
k  e.  NN0  | 
( 2 ^ k
)  ||  a }
)
10487eleq2i 2507 . . . . . . . . . . . 12  |-  ( ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  +  1 )  e.  {
k  e.  NN0  | 
( 2 ^ k
)  ||  a }  <->  ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  +  1 )  e.  {
l  e.  NN0  | 
( 2 ^ l
)  ||  a }
)
105103, 104sylnib 304 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  -.  ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  +  1 )  e.  {
l  e.  NN0  | 
( 2 ^ l
)  ||  a }
)
106 oveq2 6104 . . . . . . . . . . . . 13  |-  ( l  =  ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 )  -> 
( 2 ^ l
)  =  ( 2 ^ ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) ) )
107106breq1d 4307 . . . . . . . . . . . 12  |-  ( l  =  ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 )  -> 
( ( 2 ^ l )  ||  a  <->  ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  +  1 ) )  ||  a ) )
108107elrab 3122 . . . . . . . . . . 11  |-  ( ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  +  1 )  e.  {
l  e.  NN0  | 
( 2 ^ l
)  ||  a }  <->  ( ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 )  e. 
NN0  /\  ( 2 ^ ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) ) 
||  a ) )
109105, 108sylnib 304 . . . . . . . . . 10  |-  ( a  e.  NN  ->  -.  ( ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 )  e. 
NN0  /\  ( 2 ^ ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) ) 
||  a ) )
110 imnan 422 . . . . . . . . . 10  |-  ( ( ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 )  e. 
NN0  ->  -.  ( 2 ^ ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) ) 
||  a )  <->  -.  (
( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 )  e. 
NN0  /\  ( 2 ^ ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) ) 
||  a ) )
111109, 110sylibr 212 . . . . . . . . 9  |-  ( a  e.  NN  ->  (
( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 )  e. 
NN0  ->  -.  ( 2 ^ ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) ) 
||  a ) )
11299, 111mpd 15 . . . . . . . 8  |-  ( a  e.  NN  ->  -.  ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  +  1 ) )  ||  a )
113 expp1 11877 . . . . . . . . . 10  |-  ( ( 2  e.  CC  /\  sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  e.  NN0 )  ->  ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  +  1 ) )  =  ( ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  x.  2 ) )
11471, 55, 113sylancr 663 . . . . . . . . 9  |-  ( a  e.  NN  ->  (
2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  +  1 ) )  =  ( ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  x.  2 ) )
115114breq1d 4307 . . . . . . . 8  |-  ( a  e.  NN  ->  (
( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  +  1 ) )  ||  a  <->  ( (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  x.  2 ) 
||  a ) )
116112, 115mtbid 300 . . . . . . 7  |-  ( a  e.  NN  ->  -.  ( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  x.  2 )  ||  a )
117 nncn 10335 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  a  e.  CC )
11856nncnd 10343 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  CC )
11956nnne0d 10371 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  =/=  0 )
120117, 118, 119divcan2d 10114 . . . . . . . . . 10  |-  ( a  e.  NN  ->  (
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  x.  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) )  =  a )
121120eqcomd 2448 . . . . . . . . 9  |-  ( a  e.  NN  ->  a  =  ( ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  x.  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) ) )
122121breq2d 4309 . . . . . . . 8  |-  ( a  e.  NN  ->  (
( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  x.  2 )  ||  a 
<->  ( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  x.  2 )  ||  ( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  x.  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) ) ) )
12315nnzd 10751 . . . . . . . . 9  |-  ( a  e.  NN  ->  2  e.  ZZ )
12496nnzd 10751 . . . . . . . . 9  |-  ( a  e.  NN  ->  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  ZZ )
12556nnzd 10751 . . . . . . . . 9  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  ZZ )
126 dvdscmulr 13566 . . . . . . . . 9  |-  ( ( 2  e.  ZZ  /\  ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  ZZ  /\  ( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  e.  ZZ  /\  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  =/=  0 ) )  ->  ( (
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  x.  2 ) 
||  ( ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  x.  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) )  <->  2  ||  ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) ) )
127123, 124, 125, 119, 126syl112anc 1222 . . . . . . . 8  |-  ( a  e.  NN  ->  (
( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  x.  2 )  ||  ( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  x.  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) )  <->  2  ||  ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) ) )
128122, 127bitrd 253 . . . . . . 7  |-  ( a  e.  NN  ->  (
( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  x.  2 )  ||  a 
<->  2  ||  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) ) )
129116, 128mtbid 300 . . . . . 6  |-  ( a  e.  NN  ->  -.  2  ||  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) )
130 breq2 4301 . . . . . . . 8  |-  ( z  =  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  ->  (
2  ||  z  <->  2  ||  ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) ) )
131130notbid 294 . . . . . . 7  |-  ( z  =  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  ->  ( -.  2  ||  z  <->  -.  2  ||  ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) ) )
132131, 6elrab2 3124 . . . . . 6  |-  ( ( a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  J  <->  ( ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  NN  /\ 
-.  2  ||  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) ) )
13396, 129, 132sylanbrc 664 . . . . 5  |-  ( a  e.  NN  ->  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  J
)
134133, 55jca 532 . . . 4  |-  ( a  e.  NN  ->  (
( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  J  /\  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  e. 
NN0 ) )
135134adantl 466 . . 3  |-  ( ( T.  /\  a  e.  NN )  ->  (
( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  J  /\  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  e. 
NN0 ) )
136 simpr 461 . . . . . . 7  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  a  =  ( ( 2 ^ y )  x.  x
) )
1372a1i 11 . . . . . . . . 9  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  2  e.  NN )
138 simplr 754 . . . . . . . . 9  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  y  e.  NN0 )
139137, 138nnexpcld 12034 . . . . . . . 8  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  e.  NN )
1408sseli 3357 . . . . . . . . 9  |-  ( x  e.  J  ->  x  e.  NN )
141140ad2antrr 725 . . . . . . . 8  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  x  e.  NN )
142139, 141nnmulcld 10374 . . . . . . 7  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( (
2 ^ y )  x.  x )  e.  NN )
143136, 142eqeltrd 2517 . . . . . 6  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  a  e.  NN )
144 simplll 757 . . . . . . . . . 10  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  x  e.  J
)
145 breq2 4301 . . . . . . . . . . . . . 14  |-  ( z  =  x  ->  (
2  ||  z  <->  2  ||  x ) )
146145notbid 294 . . . . . . . . . . . . 13  |-  ( z  =  x  ->  ( -.  2  ||  z  <->  -.  2  ||  x ) )
147146, 6elrab2 3124 . . . . . . . . . . . 12  |-  ( x  e.  J  <->  ( x  e.  NN  /\  -.  2  ||  x ) )
148147simprbi 464 . . . . . . . . . . 11  |-  ( x  e.  J  ->  -.  2  ||  x )
149 2z 10683 . . . . . . . . . . . . . 14  |-  2  e.  ZZ
150138adantr 465 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  y  e.  NN0 )
151150nn0zd 10750 . . . . . . . . . . . . . . 15  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  y  e.  ZZ )
15219a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  <  Or  NN0 )
153143, 54syl 16 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  E. m  e.  NN0  ( A. n  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }  -.  m  <  n  /\  A. n  e.  NN0  (
n  <  m  ->  E. o  e.  { k  e.  NN0  |  (
2 ^ k ) 
||  a } n  <  o ) ) )
154153adantr 465 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  E. m  e.  NN0  ( A. n  e.  {
k  e.  NN0  | 
( 2 ^ k
)  ||  a }  -.  m  <  n  /\  A. n  e.  NN0  (
n  <  m  ->  E. o  e.  { k  e.  NN0  |  (
2 ^ k ) 
||  a } n  <  o ) ) )
155152, 154supcl 7713 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  e. 
NN0 )
156155nn0zd 10750 . . . . . . . . . . . . . . 15  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  e.  ZZ )
157 simpr 461 . . . . . . . . . . . . . . 15  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  y  <  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)
158 znnsub 10696 . . . . . . . . . . . . . . . 16  |-  ( ( y  e.  ZZ  /\  sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  e.  ZZ )  ->  ( y  <  sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  <->  ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y )  e.  NN ) )
159158biimpa 484 . . . . . . . . . . . . . . 15  |-  ( ( ( y  e.  ZZ  /\ 
sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  e.  ZZ )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y )  e.  NN )
160151, 156, 157, 159syl21anc 1217 . . . . . . . . . . . . . 14  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y )  e.  NN )
161 iddvdsexp 13561 . . . . . . . . . . . . . 14  |-  ( ( 2  e.  ZZ  /\  ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  -  y )  e.  NN )  ->  2  ||  (
2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) ) )
162149, 160, 161sylancr 663 . . . . . . . . . . . . 13  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  2  ||  (
2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) ) )
163149a1i 11 . . . . . . . . . . . . . 14  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  2  e.  ZZ )
164143, 124syl 16 . . . . . . . . . . . . . . 15  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  e.  ZZ )
165164adantr 465 . . . . . . . . . . . . . 14  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  ZZ )
166160nnnn0d 10641 . . . . . . . . . . . . . . 15  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y )  e. 
NN0 )
167 zexpcl 11885 . . . . . . . . . . . . . . 15  |-  ( ( 2  e.  ZZ  /\  ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  -  y )  e.  NN0 )  ->  ( 2 ^ ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y ) )  e.  ZZ )
168149, 166, 167sylancr 663 . . . . . . . . . . . . . 14  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( 2 ^ ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y ) )  e.  ZZ )
169 dvdsmultr2 13573 . . . . . . . . . . . . . 14  |-  ( ( 2  e.  ZZ  /\  ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  ZZ  /\  ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) )  e.  ZZ )  ->  ( 2  ||  ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) )  ->  2  ||  ( ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  x.  (
2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) ) ) ) )
170163, 165, 168, 169syl3anc 1218 . . . . . . . . . . . . 13  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( 2  ||  ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) )  ->  2  ||  ( ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  x.  (
2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) ) ) ) )
171162, 170mpd 15 . . . . . . . . . . . 12  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  2  ||  (
( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  x.  (
2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) ) ) )
172141adantr 465 . . . . . . . . . . . . . . 15  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  x  e.  NN )
173172nncnd 10343 . . . . . . . . . . . . . 14  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  x  e.  CC )
174 2cnd 10399 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  2  e.  CC )
175174, 166expcld 12013 . . . . . . . . . . . . . . 15  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( 2 ^ ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y ) )  e.  CC )
176143adantr 465 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  a  e.  NN )
177176nncnd 10343 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  a  e.  CC )
178176, 118syl 16 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  e.  CC )
179 2ne0 10419 . . . . . . . . . . . . . . . . . 18  |-  2  =/=  0
180179a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  2  =/=  0
)
181174, 180, 156expne0d 12019 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  =/=  0 )
182177, 178, 181divcld 10112 . . . . . . . . . . . . . . 15  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  CC )
183175, 182mulcld 9411 . . . . . . . . . . . . . 14  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( ( 2 ^ ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y ) )  x.  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) )  e.  CC )
184174, 150expcld 12013 . . . . . . . . . . . . . 14  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( 2 ^ y )  e.  CC )
185174, 180, 151expne0d 12019 . . . . . . . . . . . . . 14  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( 2 ^ y )  =/=  0
)
186176, 121syl 16 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  a  =  ( ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  x.  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) ) )
187 simplr 754 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  a  =  ( ( 2 ^ y
)  x.  x ) )
188150nn0cnd 10643 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  y  e.  CC )
189155nn0cnd 10643 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  e.  CC )
190188, 189pncan3d 9727 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( y  +  ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y ) )  =  sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)
191190oveq2d 6112 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( 2 ^ ( y  +  ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  -  y ) ) )  =  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )
192174, 166, 150expaddd 12015 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( 2 ^ ( y  +  ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  -  y ) ) )  =  ( ( 2 ^ y )  x.  ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) ) ) )
193191, 192eqtr3d 2477 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  =  ( ( 2 ^ y )  x.  ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) ) ) )
194193oveq1d 6111 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  x.  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) )  =  ( ( ( 2 ^ y )  x.  (
2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) ) )  x.  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) ) )
195186, 187, 1943eqtr3d 2483 . . . . . . . . . . . . . . 15  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( ( 2 ^ y )  x.  x )  =  ( ( ( 2 ^ y )  x.  (
2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) ) )  x.  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) ) )
196184, 175, 182mulassd 9414 . . . . . . . . . . . . . . 15  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( ( ( 2 ^ y )  x.  ( 2 ^ ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y ) ) )  x.  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) )  =  ( ( 2 ^ y
)  x.  ( ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) )  x.  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) ) ) )
197195, 196eqtrd 2475 . . . . . . . . . . . . . 14  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( ( 2 ^ y )  x.  x )  =  ( ( 2 ^ y
)  x.  ( ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) )  x.  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) ) ) )
198173, 183, 184, 185, 197mulcanad 9976 . . . . . . . . . . . . 13  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  x  =  ( ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) )  x.  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) ) )
199182, 175mulcomd 9412 . . . . . . . . . . . . 13  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  ( ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  x.  ( 2 ^ ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  -  y ) ) )  =  ( ( 2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) )  x.  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) ) )
200198, 199eqtr4d 2478 . . . . . . . . . . . 12  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  x  =  ( ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  x.  (
2 ^ ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  -  y ) ) ) )
201171, 200breqtrrd 4323 . . . . . . . . . . 11  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  2  ||  x
)
202148, 201nsyl3 119 . . . . . . . . . 10  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  ->  -.  x  e.  J )
203144, 202pm2.65da 576 . . . . . . . . 9  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  -.  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )
204141nnzd 10751 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  x  e.  ZZ )
205139nnzd 10751 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  e.  ZZ )
206143nnzd 10751 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  a  e.  ZZ )
207139nncnd 10343 . . . . . . . . . . . . . 14  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  e.  CC )
208141nncnd 10343 . . . . . . . . . . . . . 14  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  x  e.  CC )
209207, 208mulcomd 9412 . . . . . . . . . . . . 13  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( (
2 ^ y )  x.  x )  =  ( x  x.  (
2 ^ y ) ) )
210136, 209eqtr2d 2476 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( x  x.  ( 2 ^ y
) )  =  a )
211 dvds0lem 13548 . . . . . . . . . . . 12  |-  ( ( ( x  e.  ZZ  /\  ( 2 ^ y
)  e.  ZZ  /\  a  e.  ZZ )  /\  ( x  x.  (
2 ^ y ) )  =  a )  ->  ( 2 ^ y )  ||  a
)
212204, 205, 206, 210, 211syl31anc 1221 . . . . . . . . . . 11  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  ||  a )
213 oveq2 6104 . . . . . . . . . . . . 13  |-  ( k  =  y  ->  (
2 ^ k )  =  ( 2 ^ y ) )
214213breq1d 4307 . . . . . . . . . . . 12  |-  ( k  =  y  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ y )  ||  a ) )
215214elrab 3122 . . . . . . . . . . 11  |-  ( y  e.  { k  e. 
NN0  |  ( 2 ^ k )  ||  a }  <->  ( y  e. 
NN0  /\  ( 2 ^ y )  ||  a ) )
216138, 212, 215sylanbrc 664 . . . . . . . . . 10  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  y  e.  { k  e.  NN0  | 
( 2 ^ k
)  ||  a }
)
21719a1i 11 . . . . . . . . . . 11  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  <  Or  NN0 )
218217, 153supub 7714 . . . . . . . . . 10  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( y  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }  ->  -.  sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  <  y ) )
219216, 218mpd 15 . . . . . . . . 9  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  -.  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  <  y )
220138nn0red 10642 . . . . . . . . . 10  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  y  e.  RR )
221143, 100syl 16 . . . . . . . . . 10  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  RR )
222220, 221lttri3d 9519 . . . . . . . . 9  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  <->  ( -.  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  /\  -.  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  < 
y ) ) )
223203, 219, 222mpbir2and 913 . . . . . . . 8  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  y  =  sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  ) )
224 simplr 754 . . . . . . . . . . 11  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  a  =  ( ( 2 ^ y )  x.  x
) )
225143adantr 465 . . . . . . . . . . . . 13  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  a  e.  NN )
226225nncnd 10343 . . . . . . . . . . . 12  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  a  e.  CC )
227141adantr 465 . . . . . . . . . . . . 13  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  x  e.  NN )
228227nncnd 10343 . . . . . . . . . . . 12  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  x  e.  CC )
229 nnexpcl 11883 . . . . . . . . . . . . . . . 16  |-  ( ( 2  e.  NN  /\  y  e.  NN0 )  -> 
( 2 ^ y
)  e.  NN )
2302, 229mpan 670 . . . . . . . . . . . . . . 15  |-  ( y  e.  NN0  ->  ( 2 ^ y )  e.  NN )
231230nncnd 10343 . . . . . . . . . . . . . 14  |-  ( y  e.  NN0  ->  ( 2 ^ y )  e.  CC )
232230nnne0d 10371 . . . . . . . . . . . . . 14  |-  ( y  e.  NN0  ->  ( 2 ^ y )  =/=  0 )
233231, 232jca 532 . . . . . . . . . . . . 13  |-  ( y  e.  NN0  ->  ( ( 2 ^ y )  e.  CC  /\  (
2 ^ y )  =/=  0 ) )
234233ad3antlr 730 . . . . . . . . . . . 12  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  ( (
2 ^ y )  e.  CC  /\  (
2 ^ y )  =/=  0 ) )
235 divmul2 10003 . . . . . . . . . . . 12  |-  ( ( a  e.  CC  /\  x  e.  CC  /\  (
( 2 ^ y
)  e.  CC  /\  ( 2 ^ y
)  =/=  0 ) )  ->  ( (
a  /  ( 2 ^ y ) )  =  x  <->  a  =  ( ( 2 ^ y )  x.  x
) ) )
236226, 228, 234, 235syl3anc 1218 . . . . . . . . . . 11  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  ( (
a  /  ( 2 ^ y ) )  =  x  <->  a  =  ( ( 2 ^ y )  x.  x
) ) )
237224, 236mpbird 232 . . . . . . . . . 10  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  ( a  /  ( 2 ^ y ) )  =  x )
238 simpr 461 . . . . . . . . . . . 12  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  y  =  sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  ) )
239238oveq2d 6112 . . . . . . . . . . 11  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  ( 2 ^ y )  =  ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )
240239oveq2d 6112 . . . . . . . . . 10  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  ( a  /  ( 2 ^ y ) )  =  ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) )
241237, 240eqtr3d 2477 . . . . . . . . 9  |-  ( ( ( ( x  e.  J  /\  y  e. 
NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  /\  y  =  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ->  x  =  ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) )
242241ex 434 . . . . . . . 8  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  ->  x  =  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) ) )
243223, 242jcai 536 . . . . . . 7  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  /\  x  =  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) ) )
244243ancomd 451 . . . . . 6  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( x  =  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )
245143, 244jca 532 . . . . 5  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( a  e.  NN  /\  ( x  =  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) )
246 simprl 755 . . . . . . 7  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  x  =  ( a  /  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) )
247133adantr 465 . . . . . . 7  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  ( a  /  ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  e.  J )
248246, 247eqeltrd 2517 . . . . . 6  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  x  e.  J )
249 simprr 756 . . . . . . 7  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  y  =  sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  ) )
25055adantr 465 . . . . . . 7  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  NN0 )
251249, 250eqeltrd 2517 . . . . . 6  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  y  e.  NN0 )
252121adantr 465 . . . . . . 7  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  a  =  ( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  x.  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) ) )
253249oveq2d 6112 . . . . . . . 8  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  ( 2 ^ y )  =  ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )
254253, 246oveq12d 6114 . . . . . . 7  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  ( (
2 ^ y )  x.  x )  =  ( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  x.  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) ) )
255252, 254eqtr4d 2478 . . . . . 6  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  a  =  ( ( 2 ^ y )  x.  x
) )
256248, 251, 255jca31 534 . . . . 5  |-  ( ( a  e.  NN  /\  ( x  =  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) )  ->  ( (
x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( (
2 ^ y )  x.  x ) ) )
257245, 256impbii 188 . . . 4  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  <->  ( a  e.  NN  /\  ( x  =  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) )
258257a1i 11 . . 3  |-  ( T. 
->  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y )  x.  x ) )  <->  ( a  e.  NN  /\  ( x  =  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  /\  y  =  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) ) ) ) )
2591, 13, 135, 258f1od2 26029 . 2  |-  ( T. 
->  F : ( J  X.  NN0 ) -1-1-onto-> NN )
260259trud 1378 1  |-  F :
( J  X.  NN0 )
-1-1-onto-> NN
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    = wceq 1369   T. wtru 1370    e. wcel 1756    =/= wne 2611   A.wral 2720   E.wrex 2721   {crab 2724    C_ wss 3333   (/)c0 3642   class class class wbr 4297    Or wor 4645    X. cxp 4843   -1-1-onto->wf1o 5422  (class class class)co 6096    e. cmpt2 6098   Fincfn 7315   supcsup 7695   CCcc 9285   RRcr 9286   0cc0 9287   1c1 9288    + caddc 9290    x. cmul 9292    < clt 9423    <_ cle 9424    - cmin 9600    / cdiv 9998   NNcn 10327   2c2 10376   NN0cn0 10584   ZZcz 10651   ...cfz 11442   ^cexp 11870    || cdivides 13540
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-sep 4418  ax-nul 4426  ax-pow 4475  ax-pr 4536  ax-un 6377  ax-cnex 9343  ax-resscn 9344  ax-1cn 9345  ax-icn 9346  ax-addcl 9347  ax-addrcl 9348  ax-mulcl 9349  ax-mulrcl 9350  ax-mulcom 9351  ax-addass 9352  ax-mulass 9353  ax-distr 9354  ax-i2m1 9355  ax-1ne0 9356  ax-1rid 9357  ax-rnegex 9358  ax-rrecex 9359  ax-cnre 9360  ax-pre-lttri 9361  ax-pre-lttrn 9362  ax-pre-ltadd 9363  ax-pre-mulgt0 9364
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 2573  df-ne 2613  df-nel 2614  df-ral 2725  df-rex 2726  df-reu 2727  df-rmo 2728  df-rab 2729  df-v 2979  df-sbc 3192  df-csb 3294  df-dif 3336  df-un 3338  df-in 3340  df-ss 3347  df-pss 3349  df-nul 3643  df-if 3797  df-pw 3867  df-sn 3883  df-pr 3885  df-tp 3887  df-op 3889  df-uni 4097  df-iun 4178  df-br 4298  df-opab 4356  df-mpt 4357  df-tr 4391  df-eprel 4637  df-id 4641  df-po 4646  df-so 4647  df-fr 4684  df-we 4686  df-ord 4727  df-on 4728  df-lim 4729  df-suc 4730  df-xp 4851  df-rel 4852  df-cnv 4853  df-co 4854  df-dm 4855  df-rn 4856  df-res 4857  df-ima 4858  df-iota 5386  df-fun 5425  df-fn 5426  df-f 5427  df-f1 5428  df-fo 5429  df-f1o 5430  df-fv 5431  df-riota 6057  df-ov 6099  df-oprab 6100  df-mpt2 6101  df-om 6482  df-1st 6582  df-2nd 6583  df-recs 6837  df-rdg 6871  df-1o 6925  df-er 7106  df-en 7316  df-dom 7317  df-sdom 7318  df-fin 7319  df-sup 7696  df-pnf 9425  df-mnf 9426  df-xr 9427  df-ltxr 9428  df-le 9429  df-sub 9602  df-neg 9603  df-div 9999  df-nn 10328  df-2 10385  df-n0 10585  df-z 10652  df-uz 10867  df-fz 11443  df-seq 11812  df-exp 11871  df-dvds 13541
This theorem is referenced by:  eulerpartgbij  26760  eulerpartlemgvv  26764  eulerpartlemgh  26766  eulerpartlemgf  26767
  Copyright terms: Public domain W3C validator