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

Theorem oddpwdc 29189
Description: Lemma for eulerpart 29217. 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 10769 . . . . . . . 8  |-  2  e.  NN
32a1i 11 . . . . . . 7  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  2  e.  NN )
4 simpl 459 . . . . . . 7  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  y  e.  NN0 )
53, 4nnexpcld 12438 . . . . . 6  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  ( 2 ^ y
)  e.  NN )
6 oddpwdc.j . . . . . . . 8  |-  J  =  { z  e.  NN  |  -.  2  ||  z }
7 ssrab2 3547 . . . . . . . 8  |-  { z  e.  NN  |  -.  2  ||  z }  C_  NN
86, 7eqsstri 3495 . . . . . . 7  |-  J  C_  NN
9 simpr 463 . . . . . . 7  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  x  e.  J )
108, 9sseldi 3463 . . . . . 6  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  x  e.  NN )
115, 10nnmulcld 10659 . . . . 5  |-  ( ( y  e.  NN0  /\  x  e.  J )  ->  ( ( 2 ^ y )  x.  x
)  e.  NN )
1211ancoms 455 . . . 4  |-  ( ( x  e.  J  /\  y  e.  NN0 )  -> 
( ( 2 ^ y )  x.  x
)  e.  NN )
1312adantl 468 . . 3  |-  ( ( T.  /\  ( x  e.  J  /\  y  e.  NN0 ) )  -> 
( ( 2 ^ y )  x.  x
)  e.  NN )
14 id 23 . . . . . . 7  |-  ( a  e.  NN  ->  a  e.  NN )
152a1i 11 . . . . . . . 8  |-  ( a  e.  NN  ->  2  e.  NN )
16 nn0ssre 10875 . . . . . . . . . . 11  |-  NN0  C_  RR
17 ltso 9716 . . . . . . . . . . 11  |-  <  Or  RR
18 soss 4790 . . . . . . . . . . 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 10951 . . . . . . . . . 10  |-  ( a  e.  NN  ->  0  e.  ZZ )
22 ssrab2 3547 . . . . . . . . . . 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 10961 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  a  e.  ZZ )
25 oveq2 6311 . . . . . . . . . . . . . . 15  |-  ( k  =  n  ->  (
2 ^ k )  =  ( 2 ^ n ) )
2625breq1d 4431 . . . . . . . . . . . . . 14  |-  ( k  =  n  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ n )  ||  a ) )
2726elrab 3230 . . . . . . . . . . . . 13  |-  ( n  e.  { k  e. 
NN0  |  ( 2 ^ k )  ||  a }  <->  ( n  e. 
NN0  /\  ( 2 ^ n )  ||  a ) )
28 simprl 763 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  n  e.  NN0 )
2928nn0red 10928 . . . . . . . . . . . . . 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 12438 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  e.  NN )
3231nnred 10626 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  e.  RR )
33 simpl 459 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  a  e.  NN )
3433nnred 10626 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  a  e.  RR )
35 2re 10681 . . . . . . . . . . . . . . . 16  |-  2  e.  RR
3635leidi 10150 . . . . . . . . . . . . . . . 16  |-  2  <_  2
37 nexple 28833 . . . . . . . . . . . . . . . 16  |-  ( ( n  e.  NN0  /\  2  e.  RR  /\  2  <_  2 )  ->  n  <_  ( 2 ^ n
) )
3835, 36, 37mp3an23 1353 . . . . . . . . . . . . . . 15  |-  ( n  e.  NN0  ->  n  <_ 
( 2 ^ n
) )
3938ad2antrl 733 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  n  <_  ( 2 ^ n ) )
4031nnzd 11041 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  e.  ZZ )
41 simprr 765 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  ||  a )
42 dvdsle 14343 . . . . . . . . . . . . . . . 16  |-  ( ( ( 2 ^ n
)  e.  ZZ  /\  a  e.  NN )  ->  ( ( 2 ^ n )  ||  a  ->  ( 2 ^ n
)  <_  a )
)
4342imp 431 . . . . . . . . . . . . . . 15  |-  ( ( ( ( 2 ^ n )  e.  ZZ  /\  a  e.  NN )  /\  ( 2 ^ n )  ||  a
)  ->  ( 2 ^ n )  <_ 
a )
4440, 33, 41, 43syl21anc 1264 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  ( 2 ^ n )  <_ 
a )
4529, 32, 34, 39, 44letrd 9794 . . . . . . . . . . . . 13  |-  ( ( a  e.  NN  /\  ( n  e.  NN0  /\  ( 2 ^ n
)  ||  a )
)  ->  n  <_  a )
4627, 45sylan2b 478 . . . . . . . . . . . 12  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  n  <_  a )
4746ralrimiva 2840 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  A. n  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }
n  <_  a )
48 breq2 4425 . . . . . . . . . . . . 13  |-  ( m  =  a  ->  (
n  <_  m  <->  n  <_  a ) )
4948ralbidv 2865 . . . . . . . . . . . 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 3183 . . . . . . . . . . 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 666 . . . . . . . . . 10  |-  ( a  e.  NN  ->  E. m  e.  ZZ  A. n  e. 
{ k  e.  NN0  |  ( 2 ^ k
)  ||  a }
n  <_  m )
52 nn0uz 11195 . . . . . . . . . . 11  |-  NN0  =  ( ZZ>= `  0 )
5352uzsupss 11258 . . . . . . . . . 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 1265 . . . . . . . . 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 7976 . . . . . . . 8  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  NN0 )
5615, 55nnexpcld 12438 . . . . . . 7  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  NN )
57 fzfi 12186 . . . . . . . . . . . 12  |-  ( 0 ... a )  e. 
Fin
58 0zd 10951 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  0  e.  ZZ )
5924adantr 467 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  a  e.  ZZ )
6027, 28sylan2b 478 . . . . . . . . . . . . . . . 16  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  n  e.  NN0 )
6160nn0zd 11040 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  n  e.  ZZ )
6260nn0ge0d 10930 . . . . . . . . . . . . . . 15  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  0  <_  n )
63 elfz4 11795 . . . . . . . . . . . . . . 15  |-  ( ( ( 0  e.  ZZ  /\  a  e.  ZZ  /\  n  e.  ZZ )  /\  ( 0  <_  n  /\  n  <_  a ) )  ->  n  e.  ( 0 ... a
) )
6458, 59, 61, 62, 46, 63syl32anc 1273 . . . . . . . . . . . . . 14  |-  ( ( a  e.  NN  /\  n  e.  { k  e.  NN0  |  ( 2 ^ k )  ||  a } )  ->  n  e.  ( 0 ... a
) )
6564ex 436 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  (
n  e.  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  ->  n  e.  ( 0 ... a ) ) )
6665ssrdv 3471 . . . . . . . . . . . 12  |-  ( a  e.  NN  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  C_  ( 0 ... a
) )
67 ssfi 7796 . . . . . . . . . . . 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 668 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  e.  Fin )
69 0nn0 10886 . . . . . . . . . . . . . 14  |-  0  e.  NN0
7069a1i 11 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  0  e.  NN0 )
71 2cn 10682 . . . . . . . . . . . . . . 15  |-  2  e.  CC
72 exp0 12277 . . . . . . . . . . . . . . 15  |-  ( 2  e.  CC  ->  (
2 ^ 0 )  =  1 )
7371, 72ax-mp 5 . . . . . . . . . . . . . 14  |-  ( 2 ^ 0 )  =  1
74 1dvds 14310 . . . . . . . . . . . . . . 15  |-  ( a  e.  ZZ  ->  1  ||  a )
7524, 74syl 17 . . . . . . . . . . . . . 14  |-  ( a  e.  NN  ->  1  ||  a )
7673, 75syl5eqbr 4455 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  (
2 ^ 0 ) 
||  a )
77 oveq2 6311 . . . . . . . . . . . . . . 15  |-  ( k  =  0  ->  (
2 ^ k )  =  ( 2 ^ 0 ) )
7877breq1d 4431 . . . . . . . . . . . . . 14  |-  ( k  =  0  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ 0 )  ||  a ) )
7978elrab 3230 . . . . . . . . . . . . 13  |-  ( 0  e.  { k  e. 
NN0  |  ( 2 ^ k )  ||  a }  <->  ( 0  e. 
NN0  /\  ( 2 ^ 0 )  ||  a ) )
8070, 76, 79sylanbrc 669 . . . . . . . . . . . 12  |-  ( a  e.  NN  ->  0  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }
)
81 ne0i 3768 . . . . . . . . . . . 12  |-  ( 0  e.  { k  e. 
NN0  |  ( 2 ^ k )  ||  a }  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  =/=  (/) )
8280, 81syl 17 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  =/=  (/) )
83 fisupcl 7989 . . . . . . . . . . 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 1267 . . . . . . . . . 10  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  { k  e.  NN0  |  ( 2 ^ k
)  ||  a }
)
85 oveq2 6311 . . . . . . . . . . . 12  |-  ( k  =  l  ->  (
2 ^ k )  =  ( 2 ^ l ) )
8685breq1d 4431 . . . . . . . . . . 11  |-  ( k  =  l  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ l )  ||  a ) )
8786cbvrabv 3081 . . . . . . . . . 10  |-  { k  e.  NN0  |  (
2 ^ k ) 
||  a }  =  { l  e.  NN0  |  ( 2 ^ l
)  ||  a }
8884, 87syl6eleq 2521 . . . . . . . . 9  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  { l  e.  NN0  |  ( 2 ^ l
)  ||  a }
)
89 oveq2 6311 . . . . . . . . . . 11  |-  ( l  =  sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  ->  ( 2 ^ l
)  =  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )
9089breq1d 4431 . . . . . . . . . 10  |-  ( l  =  sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  ->  ( ( 2 ^ l )  ||  a  <->  ( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ||  a )
)
9190elrab 3230 . . . . . . . . 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 200 . . . . . . . 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 465 . . . . . . 7  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  ||  a )
94 nndivdvds 14304 . . . . . . . 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 487 . . . . . . 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 1264 . . . . . 6  |-  ( a  e.  NN  ->  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  NN )
97 1nn0 10887 . . . . . . . . . . 11  |-  1  e.  NN0
9897a1i 11 . . . . . . . . . 10  |-  ( a  e.  NN  ->  1  e.  NN0 )
9955, 98nn0addcld 10931 . . . . . . . . 9  |-  ( a  e.  NN  ->  ( sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  )  +  1 )  e.  NN0 )
10055nn0red 10928 . . . . . . . . . . . . . 14  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  RR )
101100ltp1d 10539 . . . . . . . . . . . . 13  |-  ( a  e.  NN  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  <  ( sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) )
10220, 54supub 7977 . . . . . . . . . . . . 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 121 . . . . . . . . . . . 12  |-  ( a  e.  NN  ->  -.  ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  +  1 )  e.  {
k  e.  NN0  | 
( 2 ^ k
)  ||  a }
)
10487eleq2i 2501 . . . . . . . . . . . 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 306 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  -.  ( sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  )  +  1 )  e.  {
l  e.  NN0  | 
( 2 ^ l
)  ||  a }
)
106 oveq2 6311 . . . . . . . . . . . . 13  |-  ( l  =  ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 )  -> 
( 2 ^ l
)  =  ( 2 ^ ( sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  +  1 ) ) )
107106breq1d 4431 . . . . . . . . . . . 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 3230 . . . . . . . . . . 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 306 . . . . . . . . . 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 424 . . . . . . . . . 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 216 . . . . . . . . 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 12280 . . . . . . . . . 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 668 . . . . . . . . 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 4431 . . . . . . . 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 302 . . . . . . 7  |-  ( a  e.  NN  ->  -.  ( ( 2 ^ sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )  x.  2 )  ||  a )
117 nncn 10619 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  a  e.  CC )
11856nncnd 10627 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  CC )
11956nnne0d 10656 . . . . . . . . . . 11  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  =/=  0 )
120117, 118, 119divcan2d 10387 . . . . . . . . . 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 2431 . . . . . . . . 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 4433 . . . . . . . 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 11041 . . . . . . . . 9  |-  ( a  e.  NN  ->  2  e.  ZZ )
12496nnzd 11041 . . . . . . . . 9  |-  ( a  e.  NN  ->  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  ZZ )
12556nnzd 11041 . . . . . . . . 9  |-  ( a  e.  NN  ->  (
2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
)  e.  ZZ )
126 dvdscmulr 14324 . . . . . . . . 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 1269 . . . . . . . 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 257 . . . . . . 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 302 . . . . . 6  |-  ( a  e.  NN  ->  -.  2  ||  ( a  / 
( 2 ^ sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) ) )
130 breq2 4425 . . . . . . . 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 296 . . . . . . 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 3232 . . . . . 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 669 . . . . 5  |-  ( a  e.  NN  ->  (
a  /  ( 2 ^ sup ( { k  e.  NN0  | 
( 2 ^ k
)  ||  a } ,  NN0 ,  <  )
) )  e.  J
)
134133, 55jca 535 . . . 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 468 . . 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 463 . . . . . . 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 761 . . . . . . . . 9  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  y  e.  NN0 )
139137, 138nnexpcld 12438 . . . . . . . 8  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  e.  NN )
1408sseli 3461 . . . . . . . . 9  |-  ( x  e.  J  ->  x  e.  NN )
141140ad2antrr 731 . . . . . . . 8  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  x  e.  NN )
142139, 141nnmulcld 10659 . . . . . . 7  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( (
2 ^ y )  x.  x )  e.  NN )
143136, 142eqeltrd 2511 . . . . . 6  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  a  e.  NN )
144 simplll 767 . . . . . . . . . 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 4425 . . . . . . . . . . . . . 14  |-  ( z  =  x  ->  (
2  ||  z  <->  2  ||  x ) )
146145notbid 296 . . . . . . . . . . . . 13  |-  ( z  =  x  ->  ( -.  2  ||  z  <->  -.  2  ||  x ) )
147146, 6elrab2 3232 . . . . . . . . . . . 12  |-  ( x  e.  J  <->  ( x  e.  NN  /\  -.  2  ||  x ) )
148147simprbi 466 . . . . . . . . . . 11  |-  ( x  e.  J  ->  -.  2  ||  x )
149 2z 10971 . . . . . . . . . . . . . 14  |-  2  e.  ZZ
150138adantr 467 . . . . . . . . . . . . . . . 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 11040 . . . . . . . . . . . . . . 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 17 . . . . . . . . . . . . . . . . . 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 467 . . . . . . . . . . . . . . . . 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 7976 . . . . . . . . . . . . . . . 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 11040 . . . . . . . . . . . . . . 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 463 . . . . . . . . . . . . . . 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 10985 . . . . . . . . . . . . . . . 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 487 . . . . . . . . . . . . . . 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 1264 . . . . . . . . . . . . . 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 14319 . . . . . . . . . . . . . 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 668 . . . . . . . . . . . . 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 17 . . . . . . . . . . . . . . 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 467 . . . . . . . . . . . . . 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 10927 . . . . . . . . . . . . . . 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 12288 . . . . . . . . . . . . . . 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 668 . . . . . . . . . . . . . 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 14333 . . . . . . . . . . . . . 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 1265 . . . . . . . . . . . . 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 467 . . . . . . . . . . . . . . 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 10627 . . . . . . . . . . . . . 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 10684 . . . . . . . . . . . . . . . 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 12417 . . . . . . . . . . . . . . 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 467 . . . . . . . . . . . . . . . . 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 10627 . . . . . . . . . . . . . . . 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 17 . . . . . . . . . . . . . . . 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 10704 . . . . . . . . . . . . . . . . . 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 12423 . . . . . . . . . . . . . . . 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 10385 . . . . . . . . . . . . . . 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 9665 . . . . . . . . . . . . . 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 12417 . . . . . . . . . . . . . 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 12423 . . . . . . . . . . . . . 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 17 . . . . . . . . . . . . . . . 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 761 . . . . . . . . . . . . . . . 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 10929 . . . . . . . . . . . . . . . . . . . 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 10929 . . . . . . . . . . . . . . . . . . . 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 9991 . . . . . . . . . . . . . . . . . . 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 6319 . . . . . . . . . . . . . . . . . 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 12419 . . . . . . . . . . . . . . . . . 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 2466 . . . . . . . . . . . . . . . . 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 6318 . . . . . . . . . . . . . . . 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 2472 . . . . . . . . . . . . . . 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 9668 . . . . . . . . . . . . . . 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 2464 . . . . . . . . . . . . . 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 10249 . . . . . . . . . . . . 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 9666 . . . . . . . . . . . . 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 2467 . . . . . . . . . . . 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 4448 . . . . . . . . . . 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 123 . . . . . . . . . 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 579 . . . . . . . . 9  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  -.  y  <  sup ( { k  e.  NN0  |  (
2 ^ k ) 
||  a } ,  NN0 ,  <  ) )
204141nnzd 11041 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  x  e.  ZZ )
205139nnzd 11041 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  e.  ZZ )
206143nnzd 11041 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  a  e.  ZZ )
207139nncnd 10627 . . . . . . . . . . . . . 14  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  e.  CC )
208141nncnd 10627 . . . . . . . . . . . . . 14  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  x  e.  CC )
209207, 208mulcomd 9666 . . . . . . . . . . . . 13  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( (
2 ^ y )  x.  x )  =  ( x  x.  (
2 ^ y ) ) )
210136, 209eqtr2d 2465 . . . . . . . . . . . 12  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( x  x.  ( 2 ^ y
) )  =  a )
211 dvds0lem 14306 . . . . . . . . . . . 12  |-  ( ( ( x  e.  ZZ  /\  ( 2 ^ y
)  e.  ZZ  /\  a  e.  ZZ )  /\  ( x  x.  (
2 ^ y ) )  =  a )  ->  ( 2 ^ y )  ||  a
)
212204, 205, 206, 210, 211syl31anc 1268 . . . . . . . . . . 11  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  ( 2 ^ y )  ||  a )
213 oveq2 6311 . . . . . . . . . . . . 13  |-  ( k  =  y  ->  (
2 ^ k )  =  ( 2 ^ y ) )
214213breq1d 4431 . . . . . . . . . . . 12  |-  ( k  =  y  ->  (
( 2 ^ k
)  ||  a  <->  ( 2 ^ y )  ||  a ) )
215214elrab 3230 . . . . . . . . . . 11  |-  ( y  e.  { k  e. 
NN0  |  ( 2 ^ k )  ||  a }  <->  ( y  e. 
NN0  /\  ( 2 ^ y )  ||  a ) )
216138, 212, 215sylanbrc 669 . . . . . . . . . 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 7977 . . . . . . . . . 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 10928 . . . . . . . . . 10  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  y  e.  RR )
221143, 100syl 17 . . . . . . . . . 10  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  sup ( { k  e.  NN0  |  ( 2 ^ k
)  ||  a } ,  NN0 ,  <  )  e.  RR )
222220, 221lttri3d 9777 . . . . . . . . 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 931 . . . . . . . 8  |-  ( ( ( x  e.  J  /\  y  e.  NN0 )  /\  a  =  ( ( 2 ^ y
)  x.  x ) )  ->  y  =  sup ( { k  e. 
NN0  |  ( 2 ^ k )  ||  a } ,  NN0 ,  <  ) )
224 simplr 761 . . . . . . . . . . 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 467 . . . . . . . . . . . . 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 10627 . . . . . . . . . . . 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 467 . . . . . . . . . . . . 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 10627 . . . . . . . . . . . 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 12286 . . . . . . . . . . . . . . . 16  |-  ( ( 2  e.  NN  /\  y  e.  NN0 )  -> 
( 2 ^ y
)  e.  NN )
2302, 229mpan 675 . . . . . . . . . . . . . . 15  |-  ( y  e.  NN0  ->  ( 2 ^ y )  e.  NN )
231230nncnd 10627 . . . . . . . . . . . . . 14  |-  ( y  e.  NN0  ->  ( 2 ^ y )  e.  CC )
232230nnne0d 10656 . . . . . . . . . . . . . 14  |-  ( y  e.  NN0  ->  ( 2 ^ y )  =/=  0 )
233231, 232jca 535 . . . . . . . . . . . . 13  |-  ( y  e.  NN0  ->  ( ( 2 ^ y )  e.  CC  /\  (
2 ^ y )  =/=  0 ) )
234233ad3antlr 736 . . . . . . . . . . . 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 10276 . . . . . . . . . . . 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 1265 . . . . . . . . . . 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 236 . . . . . . . . . 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 463 . . . . . . . . . . . 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 6319 . . . . . . . . . . 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 6319 . . . . . . . . . 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 2466 . . . . . . . . 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 436 . . . . . . . 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 539 . . . . . . 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 453 . . . . . 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 535 . . . . 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 763 . . . . . . 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 467 . . . . . . 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 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 ,  <  ) ) )  ->  x  e.  J )
249 simprr 765 . . . . . . 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 467 . . . . . . 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 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 ,  <  ) ) )  ->  y  e.  NN0 )
252121adantr 467 . . . . . . 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 6319 . . . . . . . 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 6321 . . . . . . 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 2467 . . . . . 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 537 . . . . 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 191 . . . 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 28309 . 2  |-  ( T. 
->  F : ( J  X.  NN0 ) -1-1-onto-> NN )
260259trud 1447 1  |-  F :
( J  X.  NN0 )
-1-1-onto-> NN
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 188    /\ wa 371    = wceq 1438   T. wtru 1439    e. wcel 1869    =/= wne 2619   A.wral 2776   E.wrex 2777   {crab 2780    C_ wss 3437   (/)c0 3762   class class class wbr 4421    Or wor 4771    X. cxp 4849   -1-1-onto->wf1o 5598  (class class class)co 6303    |-> cmpt2 6305   Fincfn 7575   supcsup 7958   CCcc 9539   RRcr 9540   0cc0 9541   1c1 9542    + caddc 9544    x. cmul 9546    < clt 9677    <_ cle 9678    - cmin 9862    / cdiv 10271   NNcn 10611   2c2 10661   NN0cn0 10871   ZZcz 10939   ...cfz 11786   ^cexp 12273    || cdvds 14298
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1666  ax-4 1679  ax-5 1749  ax-6 1795  ax-7 1840  ax-8 1871  ax-9 1873  ax-10 1888  ax-11 1893  ax-12 1906  ax-13 2054  ax-ext 2401  ax-sep 4544  ax-nul 4553  ax-pow 4600  ax-pr 4658  ax-un 6595  ax-cnex 9597  ax-resscn 9598  ax-1cn 9599  ax-icn 9600  ax-addcl 9601  ax-addrcl 9602  ax-mulcl 9603  ax-mulrcl 9604  ax-mulcom 9605  ax-addass 9606  ax-mulass 9607  ax-distr 9608  ax-i2m1 9609  ax-1ne0 9610  ax-1rid 9611  ax-rnegex 9612  ax-rrecex 9613  ax-cnre 9614  ax-pre-lttri 9615  ax-pre-lttrn 9616  ax-pre-ltadd 9617  ax-pre-mulgt0 9618
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 984  df-3an 985  df-tru 1441  df-ex 1661  df-nf 1665  df-sb 1788  df-eu 2270  df-mo 2271  df-clab 2409  df-cleq 2415  df-clel 2418  df-nfc 2573  df-ne 2621  df-nel 2622  df-ral 2781  df-rex 2782  df-reu 2783  df-rmo 2784  df-rab 2785  df-v 3084  df-sbc 3301  df-csb 3397  df-dif 3440  df-un 3442  df-in 3444  df-ss 3451  df-pss 3453  df-nul 3763  df-if 3911  df-pw 3982  df-sn 3998  df-pr 4000  df-tp 4002  df-op 4004  df-uni 4218  df-iun 4299  df-br 4422  df-opab 4481  df-mpt 4482  df-tr 4517  df-eprel 4762  df-id 4766  df-po 4772  df-so 4773  df-fr 4810  df-we 4812  df-xp 4857  df-rel 4858  df-cnv 4859  df-co 4860  df-dm 4861  df-rn 4862  df-res 4863  df-ima 4864  df-pred 5397  df-ord 5443  df-on 5444  df-lim 5445  df-suc 5446  df-iota 5563  df-fun 5601  df-fn 5602  df-f 5603  df-f1 5604  df-fo 5605  df-f1o 5606  df-fv 5607  df-riota 6265  df-ov 6306  df-oprab 6307  df-mpt2 6308  df-om 6705  df-1st 6805  df-2nd 6806  df-wrecs 7034  df-recs 7096  df-rdg 7134  df-1o 7188  df-er 7369  df-en 7576  df-dom 7577  df-sdom 7578  df-fin 7579  df-sup 7960  df-inf 7961  df-pnf 9679  df-mnf 9680  df-xr 9681  df-ltxr 9682  df-le 9683  df-sub 9864  df-neg 9865  df-div 10272  df-nn 10612  df-2 10670  df-n0 10872  df-z 10940  df-uz 11162  df-fz 11787  df-seq 12215  df-exp 12274  df-dvds 14299
This theorem is referenced by:  eulerpartgbij  29207  eulerpartlemgvv  29211  eulerpartlemgh  29213  eulerpartlemgf  29214
  Copyright terms: Public domain W3C validator