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

Theorem oddpwdc 27933
Description: Lemma for eulerpart 27961. 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 10689 . . . . . . . 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 12295 . . . . . 6  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  ( 2 ^ y
)  e.  NN )
6 oddpwdc.j . . . . . . . 8  |-  J  =  { z  e.  NN  |  -.  2  ||  z }
7 ssrab2 3585 . . . . . . . 8  |-  { z  e.  NN  |  -.  2  ||  z }  C_  NN
86, 7eqsstri 3534 . . . . . . 7  |-  J  C_  NN
9 simpr 461 . . . . . . 7  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  x  e.  J )
108, 9sseldi 3502 . . . . . 6  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  x  e.  NN )
115, 10nnmulcld 10579 . . . . 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 10795 . . . . . . . . . . 11  |-  NN0  C_  RR
17 ltso 9661 . . . . . . . . . . 11  |-  <  Or  RR
18 soss 4818 . . . . . . . . . . 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 10872 . . . . . . . . . 10  |-  ( a  e.  NN  ->  0  e.  ZZ )
22 ssrab2 3585 . . . . . . . . . . 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 10882 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  a  e.  ZZ )
25 oveq2 6290 . . . . . . . . . . . . . . 15  |-  ( k  =  n  ->  (
2 ^ k )  =  ( 2 ^ n ) )
2625breq1d 4457 . . . . . . . . . . . . . 14  |-  ( k  =  n  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ n )  ||  a ) )
2726elrab 3261 . . . . . . . . . . . . 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 10849 . . . . . . . . . . . . . 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 12295 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  e.  NN )
3231nnred 10547 . . . . . . . . . . . . . 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 10547 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  a  e.  RR )
35 2re 10601 . . . . . . . . . . . . . . . 16  |-  2  e.  RR
3635leidi 10083 . . . . . . . . . . . . . . . 16  |-  2  <_  2
37 nexple 27645 . . . . . . . . . . . . . . . 16  |-  ( ( n  e.  NN0  /\  2  e.  RR  /\  2  <_  2 )  ->  n  <_  ( 2 ^ n
) )
3835, 36, 37mp3an23 1316 . . . . . . . . . . . . . . 15  |-  ( n  e.  NN0  ->  n  <_ 
( 2 ^ n
) )
3938ad2antrl 727 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  n  <_  ( 2 ^ n ) )
4031nnzd 10961 . . . . . . . . . . . . . . 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 13886 . . . . . . . . . . . . . . . 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 1227 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  <_ 
a )
4529, 32, 34, 39, 44letrd 9734 . . . . . . . . . . . . 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 2878 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  A. n  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }
n  <_  a )
48 breq2 4451 . . . . . . . . . . . . 13  |-  ( m  =  a  ->  (
n  <_  m  <->  n  <_  a ) )
4948ralbidv 2903 . . . . . . . . . . . 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 3214 . . . . . . . . . . 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 11112 . . . . . . . . . . 11  |-  NN0  =  ( ZZ>= `  0 )
5352uzsupss 11170 . . . . . . . . . 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 1228 . . . . . . . . 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 7914 . . . . . . . 8  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  NN0 )
5615, 55nnexpcld 12295 . . . . . . 7  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  NN )
57 fzfi 12046 . . . . . . . . . . . 12  |-  ( 0 ... a )  e. 
Fin
58 0zd 10872 . . . . . . . . . . . . . . 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 10960 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  n  e.  ZZ )
6260nn0ge0d 10851 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  0  <_  n )
63 elfz4 11677 . . . . . . . . . . . . . . 15  |-  ( ( ( 0  e.  ZZ  /\  a  e.  ZZ  /\  n  e.  ZZ )  /\  ( 0  <_  n  /\  n  <_  a ) )  ->  n  e.  ( 0 ... a
) )
6458, 59, 61, 62, 46, 63syl32anc 1236 . . . . . . . . . . . . . 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 3510 . . . . . . . . . . . 12  |-  ( a  e.  NN  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  C_  ( 0 ... a
) )
67 ssfi 7737 . . . . . . . . . . . 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 10806 . . . . . . . . . . . . . 14  |-  0  e.  NN0
7069a1i 11 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  0  e.  NN0 )
71 2cn 10602 . . . . . . . . . . . . . . 15  |-  2  e.  CC
72 exp0 12134 . . . . . . . . . . . . . . 15  |-  ( 2  e.  CC  ->  (
2 ^ 0 )  =  1 )
7371, 72ax-mp 5 . . . . . . . . . . . . . 14  |-  ( 2 ^ 0 )  =  1
74 1dvds 13855 . . . . . . . . . . . . . . 15  |-  ( a  e.  ZZ  ->  1  ||  a )
7524, 74syl 16 . . . . . . . . . . . . . 14  |-  ( a  e.  NN  ->  1  ||  a )
7673, 75syl5eqbr 4480 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  (
2 ^ 0 ) 
||  a )
77 oveq2 6290 . . . . . . . . . . . . . . 15  |-  ( k  =  0  ->  (
2 ^ k )  =  ( 2 ^ 0 ) )
7877breq1d 4457 . . . . . . . . . . . . . 14  |-  ( k  =  0  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ 0 )  ||  a ) )
7978elrab 3261 . . . . . . . . . . . . 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 3791 . . . . . . . . . . . 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 7923 . . . . . . . . . . 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 1230 . . . . . . . . . 10  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }
)
85 oveq2 6290 . . . . . . . . . . . 12  |-  ( k  =  l  ->  (
2 ^ k )  =  ( 2 ^ l ) )
8685breq1d 4457 . . . . . . . . . . 11  |-  ( k  =  l  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ l )  ||  a ) )
8786cbvrabv 3112 . . . . . . . . . 10  |-  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  =  { l  e.  NN0  |  ( 2 ^ l
)  ||  a }
8884, 87syl6eleq 2565 . . . . . . . . 9  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  { l  e.  NN0  |  ( 2 ^ l
)  ||  a }
)
89 oveq2 6290 . . . . . . . . . . 11  |-  ( l  =  sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  ->  ( 2 ^ l
)  =  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )
9089breq1d 4457 . . . . . . . . . 10  |-  ( l  =  sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  ->  ( ( 2 ^ l )  ||  a  <->  ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ||  a )
)
9190elrab 3261 . . . . . . . . 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 13849 . . . . . . . 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 1227 . . . . . 6  |-  ( a  e.  NN  ->  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  NN )
97 1nn0 10807 . . . . . . . . . . 11  |-  1  e.  NN0
9897a1i 11 . . . . . . . . . 10  |-  ( a  e.  NN  ->  1  e.  NN0 )
9955, 98nn0addcld 10852 . . . . . . . . 9  |-  ( a  e.  NN  ->  ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  +  1 )  e.  NN0 )
10055nn0red 10849 . . . . . . . . . . . . . 14  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  RR )
101100ltp1d 10472 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  <  ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) )
10220, 54supub 7915 . . . . . . . . . . . . 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 2545 . . . . . . . . . . . 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 6290 . . . . . . . . . . . . 13  |-  ( l  =  ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 )  -> 
( 2 ^ l
)  =  ( 2 ^ ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) ) )
107106breq1d 4457 . . . . . . . . . . . 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 3261 . . . . . . . . . . 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 12137 . . . . . . . . . 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 4457 . . . . . . . 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 10540 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  a  e.  CC )
11856nncnd 10548 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  CC )
11956nnne0d 10576 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  =/=  0 )
120117, 118, 119divcan2d 10318 . . . . . . . . . 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 2475 . . . . . . . . 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 4459 . . . . . . . 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 10961 . . . . . . . . 9  |-  ( a  e.  NN  ->  2  e.  ZZ )
12496nnzd 10961 . . . . . . . . 9  |-  ( a  e.  NN  ->  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  ZZ )
12556nnzd 10961 . . . . . . . . 9  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  ZZ )
126 dvdscmulr 13869 . . . . . . . . 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 1232 . . . . . . . 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 4451 . . . . . . . 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 3263 . . . . . 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 12295 . . . . . . . 8  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  e.  NN )
1408sseli 3500 . . . . . . . . 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 10579 . . . . . . 7  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( (
2 ^ y )  x.  x )  e.  NN )
143136, 142eqeltrd 2555 . . . . . 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 4451 . . . . . . . . . . . . . 14  |-  ( z  =  x  ->  (
2  ||  z  <->  2  ||  x ) )
146145notbid 294 . . . . . . . . . . . . 13  |-  ( z  =  x  ->  ( -.  2  ||  z  <->  -.  2  ||  x ) )
147146, 6elrab2 3263 . . . . . . . . . . . 12  |-  ( x  e.  J  <->  ( x  e.  NN  /\  -.  2  ||  x ) )
148147simprbi 464 . . . . . . . . . . 11  |-  ( x  e.  J  ->  -.  2  ||  x )
149 2z 10892 . . . . . . . . . . . . . 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 10960 . . . . . . . . . . . . . . 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 7914 . . . . . . . . . . . . . . . 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 10960 . . . . . . . . . . . . . . 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 10905 . . . . . . . . . . . . . . . 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 1227 . . . . . . . . . . . . . 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 13864 . . . . . . . . . . . . . 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 10848 . . . . . . . . . . . . . . 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 12145 . . . . . . . . . . . . . . 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 13876 . . . . . . . . . . . . . 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 1228 . . . . . . . . . . . . 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 10548 . . . . . . . . . . . . . 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 10604 . . . . . . . . . . . . . . . 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 12274 . . . . . . . . . . . . . . 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 10548 . . . . . . . . . . . . . . . 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 10624 . . . . . . . . . . . . . . . . . 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 12280 . . . . . . . . . . . . . . . 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 10316 . . . . . . . . . . . . . . 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 9612 . . . . . . . . . . . . . 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 12274 . . . . . . . . . . . . . 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 12280 . . . . . . . . . . . . . 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 10850 . . . . . . . . . . . . . . . . . . . 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 10850 . . . . . . . . . . . . . . . . . . . 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 9929 . . . . . . . . . . . . . . . . . . 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 6298 . . . . . . . . . . . . . . . . . 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 12276 . . . . . . . . . . . . . . . . . 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 2510 . . . . . . . . . . . . . . . . 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 6297 . . . . . . . . . . . . . . . 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 2516 . . . . . . . . . . . . . . 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 9615 . . . . . . . . . . . . . . 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 2508 . . . . . . . . . . . . . 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 10180 . . . . . . . . . . . . 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 9613 . . . . . . . . . . . . 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 2511 . . . . . . . . . . . 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 4473 . . . . . . . . . . 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 10961 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  x  e.  ZZ )
205139nnzd 10961 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  e.  ZZ )
206143nnzd 10961 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  a  e.  ZZ )
207139nncnd 10548 . . . . . . . . . . . . . 14  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  e.  CC )
208141nncnd 10548 . . . . . . . . . . . . . 14  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  x  e.  CC )
209207, 208mulcomd 9613 . . . . . . . . . . . . 13  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( (
2 ^ y )  x.  x )  =  ( x  x.  (
2 ^ y ) ) )
210136, 209eqtr2d 2509 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( x  x.  ( 2 ^ y
) )  =  a )
211 dvds0lem 13851 . . . . . . . . . . . 12  |-  ( ( ( x  e.  ZZ  /\  ( 2 ^ y
)  e.  ZZ  /\  a  e.  ZZ )  /\  ( x  x.  (
2 ^ y ) )  =  a )  ->  ( 2 ^ y )  ||  a
)
212204, 205, 206, 210, 211syl31anc 1231 . . . . . . . . . . 11  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  ||  a )
213 oveq2 6290 . . . . . . . . . . . . 13  |-  ( k  =  y  ->  (
2 ^ k )  =  ( 2 ^ y ) )
214213breq1d 4457 . . . . . . . . . . . 12  |-  ( k  =  y  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ y )  ||  a ) )
215214elrab 3261 . . . . . . . . . . 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 7915 . . . . . . . . . 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 10849 . . . . . . . . . 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 9720 . . . . . . . . 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 920 . . . . . . . 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 10548 . . . . . . . . . . . 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 10548 . . . . . . . . . . . 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 12143 . . . . . . . . . . . . . . . 16  |-  ( ( 2  e.  NN  /\  y  e.  NN0 )  -> 
( 2 ^ y
)  e.  NN )
2302, 229mpan 670 . . . . . . . . . . . . . . 15  |-  ( y  e.  NN0  ->  ( 2 ^ y )  e.  NN )
231230nncnd 10548 . . . . . . . . . . . . . 14  |-  ( y  e.  NN0  ->  ( 2 ^ y )  e.  CC )
232230nnne0d 10576 . . . . . . . . . . . . . 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 10207 . . . . . . . . . . . 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 1228 . . . . . . . . . . 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 6298 . . . . . . . . . . 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 6298 . . . . . . . . . 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 2510 . . . . . . . . 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 2555 . . . . . 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 2555 . . . . . 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 6298 . . . . . . . 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 6300 . . . . . . 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 2511 . . . . . 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 27219 . 2  |-  ( T. 
->  F : ( J  X.  NN0 ) -1-1-onto-> NN )
260259trud 1388 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 1379   T. wtru 1380    e. wcel 1767    =/= wne 2662   A.wral 2814   E.wrex 2815   {crab 2818    C_ wss 3476   (/)c0 3785   class class class wbr 4447    Or wor 4799    X. cxp 4997   -1-1-onto->wf1o 5585  (class class class)co 6282    |-> cmpt2 6284   Fincfn 7513   supcsup 7896   CCcc 9486   RRcr 9487   0cc0 9488   1c1 9489    + caddc 9491    x. cmul 9493    < clt 9624    <_ cle 9625    - cmin 9801    / cdiv 10202   NNcn 10532   2c2 10581   NN0cn0 10791   ZZcz 10860   ...cfz 11668   ^cexp 12130    || cdivides 13843
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1601  ax-4 1612  ax-5 1680  ax-6 1719  ax-7 1739  ax-8 1769  ax-9 1771  ax-10 1786  ax-11 1791  ax-12 1803  ax-13 1968  ax-ext 2445  ax-sep 4568  ax-nul 4576  ax-pow 4625  ax-pr 4686  ax-un 6574  ax-cnex 9544  ax-resscn 9545  ax-1cn 9546  ax-icn 9547  ax-addcl 9548  ax-addrcl 9549  ax-mulcl 9550  ax-mulrcl 9551  ax-mulcom 9552  ax-addass 9553  ax-mulass 9554  ax-distr 9555  ax-i2m1 9556  ax-1ne0 9557  ax-1rid 9558  ax-rnegex 9559  ax-rrecex 9560  ax-cnre 9561  ax-pre-lttri 9562  ax-pre-lttrn 9563  ax-pre-ltadd 9564  ax-pre-mulgt0 9565
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 974  df-3an 975  df-tru 1382  df-ex 1597  df-nf 1600  df-sb 1712  df-eu 2279  df-mo 2280  df-clab 2453  df-cleq 2459  df-clel 2462  df-nfc 2617  df-ne 2664  df-nel 2665  df-ral 2819  df-rex 2820  df-reu 2821  df-rmo 2822  df-rab 2823  df-v 3115  df-sbc 3332  df-csb 3436  df-dif 3479  df-un 3481  df-in 3483  df-ss 3490  df-pss 3492  df-nul 3786  df-if 3940  df-pw 4012  df-sn 4028  df-pr 4030  df-tp 4032  df-op 4034  df-uni 4246  df-iun 4327  df-br 4448  df-opab 4506  df-mpt 4507  df-tr 4541  df-eprel 4791  df-id 4795  df-po 4800  df-so 4801  df-fr 4838  df-we 4840  df-ord 4881  df-on 4882  df-lim 4883  df-suc 4884  df-xp 5005  df-rel 5006  df-cnv 5007  df-co 5008  df-dm 5009  df-rn 5010  df-res 5011  df-ima 5012  df-iota 5549  df-fun 5588  df-fn 5589  df-f 5590  df-f1 5591  df-fo 5592  df-f1o 5593  df-fv 5594  df-riota 6243  df-ov 6285  df-oprab 6286  df-mpt2 6287  df-om 6679  df-1st 6781  df-2nd 6782  df-recs 7039  df-rdg 7073  df-1o 7127  df-er 7308  df-en 7514  df-dom 7515  df-sdom 7516  df-fin 7517  df-sup 7897  df-pnf 9626  df-mnf 9627  df-xr 9628  df-ltxr 9629  df-le 9630  df-sub 9803  df-neg 9804  df-div 10203  df-nn 10533  df-2 10590  df-n0 10792  df-z 10861  df-uz 11079  df-fz 11669  df-seq 12072  df-exp 12131  df-dvds 13844
This theorem is referenced by:  eulerpartgbij  27951  eulerpartlemgvv  27955  eulerpartlemgh  27957  eulerpartlemgf  27958
  Copyright terms: Public domain W3C validator