MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  rpnnen2 Structured version   Unicode version

Theorem rpnnen2 12817
Description: The other half of rpnnen 12818, where we show an injection from sets of natural numbers to real numbers. The obvious choice for this is binary expansion, but it has the unfortunate property that it does not produce an injection on numbers which end with all 0's or all 1's (the more well-known decimal version of this is 0.999... 12650). Instead, we opt for a ternary expansion, which produces (a scaled version of) the Cantor set. Since the Cantor set is riddled with gaps, we can show that any two sequences that are not equal must differ somewhere, and when they do, they are placed a finite distance apart, thus ensuring that the map is injective.

Our map assigns to each subset  A of the natural numbers the number  sum_ k  e.  A ( 3 ^
-u k )  = 
sum_ k  e.  NN ( ( F `  A ) `  k
), where  ( ( F `  A ) `  k )  =  if ( k  e.  A ,  ( 3 ^
-u k ) ,  0 ) ) (rpnnen2lem1 12806). This is an infinite sum of real numbers (rpnnen2lem2 12807), and since  A 
C_  B implies  ( F `  A )  <_  ( F `  B ) (rpnnen2lem4 12809) and  ( F `  NN ) converges to  1  /  2 (rpnnen2lem3 12808) by geoisum1 12648, the sum is convergent to some real (rpnnen2lem5 12810 and rpnnen2lem6 12811) by the comparison test for convergence cvgcmp 12587. The comparison test also tells us that  A  C_  B implies  sum_ ( F `  A )  <_ 
sum_ ( F `  B ) (rpnnen2lem7 12812).

Putting it all together, if we have two sets  x  =/=  y, there must differ somewhere, and so there must be an  m such that  A. n  < 
m ( n  e.  x  <->  n  e.  y
) but  m  e.  ( x  \  y ) or vice versa. In this case, we split off the first  m  -  1 terms (rpnnen2lem8 12813) and cancel them (rpnnen2lem10 12815), since these are the same for both sets. For the remaining terms, we use the subset property to establish that  sum_ ( F `
 y )  <_  sum_ ( F `  ( NN  \  { m }
) ) and  sum_ ( F `
 { m }
)  <_  sum_ ( F `
 x ) (where these sums are only over  ( ZZ>= `  m
)), and since  sum_ ( F `
 ( NN  \  { m } ) )  =  ( 3 ^ -u m )  /  2 (rpnnen2lem9 12814) and  sum_ ( F `  { m } )  =  ( 3 ^
-u m ), we establish that  sum_ ( F `
 y )  <  sum_ ( F `  x
) (rpnnen2lem11 12816) so that they must be different. By contraposition, we find that this map is an injection. (Contributed by Mario Carneiro, 13-May-2013.) (Proof shortened by Mario Carneiro, 30-Apr-2014.)

Hypothesis
Ref Expression
rpnnen2.1  |-  F  =  ( x  e.  ~P NN  |->  ( n  e.  NN  |->  if ( n  e.  x ,  ( ( 1  /  3
) ^ n ) ,  0 ) ) )
Assertion
Ref Expression
rpnnen2  |-  ~P NN  ~<_  ( 0 [,] 1
)
Distinct variable group:    x, n
Allowed substitution hints:    F( x, n)

Proof of Theorem rpnnen2
Dummy variables  m  y  z  k are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ovex 6098 . 2  |-  ( 0 [,] 1 )  e. 
_V
2 elpwi 3799 . . . . 5  |-  ( y  e.  ~P NN  ->  y 
C_  NN )
3 nnuz 10513 . . . . . . 7  |-  NN  =  ( ZZ>= `  1 )
43sumeq1i 12484 . . . . . 6  |-  sum_ k  e.  NN  ( ( F `
 y ) `  k )  =  sum_ k  e.  ( ZZ>= ` 
1 ) ( ( F `  y ) `
 k )
5 1nn 10003 . . . . . . 7  |-  1  e.  NN
6 rpnnen2.1 . . . . . . . 8  |-  F  =  ( x  e.  ~P NN  |->  ( n  e.  NN  |->  if ( n  e.  x ,  ( ( 1  /  3
) ^ n ) ,  0 ) ) )
76rpnnen2lem6 12811 . . . . . . 7  |-  ( ( y  C_  NN  /\  1  e.  NN )  ->  sum_ k  e.  ( ZZ>= `  1 )
( ( F `  y ) `  k
)  e.  RR )
85, 7mpan2 653 . . . . . 6  |-  ( y 
C_  NN  ->  sum_ k  e.  ( ZZ>= `  1 )
( ( F `  y ) `  k
)  e.  RR )
94, 8syl5eqel 2519 . . . . 5  |-  ( y 
C_  NN  ->  sum_ k  e.  NN  ( ( F `
 y ) `  k )  e.  RR )
102, 9syl 16 . . . 4  |-  ( y  e.  ~P NN  ->  sum_ k  e.  NN  (
( F `  y
) `  k )  e.  RR )
11 1z 10303 . . . . . 6  |-  1  e.  ZZ
1211a1i 11 . . . . 5  |-  ( y  e.  ~P NN  ->  1  e.  ZZ )
13 eqidd 2436 . . . . 5  |-  ( ( y  e.  ~P NN  /\  k  e.  NN )  ->  ( ( F `
 y ) `  k )  =  ( ( F `  y
) `  k )
)
146rpnnen2lem2 12807 . . . . . . 7  |-  ( y 
C_  NN  ->  ( F `
 y ) : NN --> RR )
152, 14syl 16 . . . . . 6  |-  ( y  e.  ~P NN  ->  ( F `  y ) : NN --> RR )
1615ffvelrnda 5862 . . . . 5  |-  ( ( y  e.  ~P NN  /\  k  e.  NN )  ->  ( ( F `
 y ) `  k )  e.  RR )
176rpnnen2lem5 12810 . . . . . 6  |-  ( ( y  C_  NN  /\  1  e.  NN )  ->  seq  1 (  +  , 
( F `  y
) )  e.  dom  ~~>  )
182, 5, 17sylancl 644 . . . . 5  |-  ( y  e.  ~P NN  ->  seq  1 (  +  , 
( F `  y
) )  e.  dom  ~~>  )
19 ssid 3359 . . . . . . . 8  |-  NN  C_  NN
206rpnnen2lem4 12809 . . . . . . . 8  |-  ( ( y  C_  NN  /\  NN  C_  NN  /\  k  e.  NN )  ->  (
0  <_  ( ( F `  y ) `  k )  /\  (
( F `  y
) `  k )  <_  ( ( F `  NN ) `  k ) ) )
2119, 20mp3an2 1267 . . . . . . 7  |-  ( ( y  C_  NN  /\  k  e.  NN )  ->  (
0  <_  ( ( F `  y ) `  k )  /\  (
( F `  y
) `  k )  <_  ( ( F `  NN ) `  k ) ) )
2221simpld 446 . . . . . 6  |-  ( ( y  C_  NN  /\  k  e.  NN )  ->  0  <_  ( ( F `  y ) `  k
) )
232, 22sylan 458 . . . . 5  |-  ( ( y  e.  ~P NN  /\  k  e.  NN )  ->  0  <_  (
( F `  y
) `  k )
)
243, 12, 13, 16, 18, 23isumge0 12542 . . . 4  |-  ( y  e.  ~P NN  ->  0  <_  sum_ k  e.  NN  ( ( F `  y ) `  k
) )
25 1re 9082 . . . . . . 7  |-  1  e.  RR
2625rehalfcli 10208 . . . . . 6  |-  ( 1  /  2 )  e.  RR
2726a1i 11 . . . . 5  |-  ( y  e.  ~P NN  ->  ( 1  /  2 )  e.  RR )
2825a1i 11 . . . . 5  |-  ( y  e.  ~P NN  ->  1  e.  RR )
296rpnnen2lem7 12812 . . . . . . . . 9  |-  ( ( y  C_  NN  /\  NN  C_  NN  /\  1  e.  NN )  ->  sum_ k  e.  ( ZZ>= `  1 )
( ( F `  y ) `  k
)  <_  sum_ k  e.  ( ZZ>= `  1 )
( ( F `  NN ) `  k ) )
3019, 5, 29mp3an23 1271 . . . . . . . 8  |-  ( y 
C_  NN  ->  sum_ k  e.  ( ZZ>= `  1 )
( ( F `  y ) `  k
)  <_  sum_ k  e.  ( ZZ>= `  1 )
( ( F `  NN ) `  k ) )
312, 30syl 16 . . . . . . 7  |-  ( y  e.  ~P NN  ->  sum_ k  e.  ( ZZ>= ` 
1 ) ( ( F `  y ) `
 k )  <_  sum_ k  e.  ( ZZ>= ` 
1 ) ( ( F `  NN ) `
 k ) )
32 eqid 2435 . . . . . . . 8  |-  ( ZZ>= ` 
1 )  =  (
ZZ>= `  1 )
33 eqidd 2436 . . . . . . . 8  |-  ( ( y  e.  ~P NN  /\  k  e.  ( ZZ>= ` 
1 ) )  -> 
( ( F `  NN ) `  k )  =  ( ( F `
 NN ) `  k ) )
34 elnnuz 10514 . . . . . . . . . 10  |-  ( k  e.  NN  <->  k  e.  ( ZZ>= `  1 )
)
356rpnnen2lem2 12807 . . . . . . . . . . . . 13  |-  ( NN  C_  NN  ->  ( F `  NN ) : NN --> RR )
3619, 35ax-mp 8 . . . . . . . . . . . 12  |-  ( F `
 NN ) : NN --> RR
3736ffvelrni 5861 . . . . . . . . . . 11  |-  ( k  e.  NN  ->  (
( F `  NN ) `  k )  e.  RR )
3837recnd 9106 . . . . . . . . . 10  |-  ( k  e.  NN  ->  (
( F `  NN ) `  k )  e.  CC )
3934, 38sylbir 205 . . . . . . . . 9  |-  ( k  e.  ( ZZ>= `  1
)  ->  ( ( F `  NN ) `  k )  e.  CC )
4039adantl 453 . . . . . . . 8  |-  ( ( y  e.  ~P NN  /\  k  e.  ( ZZ>= ` 
1 ) )  -> 
( ( F `  NN ) `  k )  e.  CC )
416rpnnen2lem3 12808 . . . . . . . . 9  |-  seq  1
(  +  ,  ( F `  NN ) )  ~~>  ( 1  / 
2 )
4241a1i 11 . . . . . . . 8  |-  ( y  e.  ~P NN  ->  seq  1 (  +  , 
( F `  NN ) )  ~~>  ( 1  /  2 ) )
4332, 12, 33, 40, 42isumclim 12533 . . . . . . 7  |-  ( y  e.  ~P NN  ->  sum_ k  e.  ( ZZ>= ` 
1 ) ( ( F `  NN ) `
 k )  =  ( 1  /  2
) )
4431, 43breqtrd 4228 . . . . . 6  |-  ( y  e.  ~P NN  ->  sum_ k  e.  ( ZZ>= ` 
1 ) ( ( F `  y ) `
 k )  <_ 
( 1  /  2
) )
454, 44syl5eqbr 4237 . . . . 5  |-  ( y  e.  ~P NN  ->  sum_ k  e.  NN  (
( F `  y
) `  k )  <_  ( 1  /  2
) )
46 halflt1 10181 . . . . . . 7  |-  ( 1  /  2 )  <  1
4726, 25, 46ltleii 9188 . . . . . 6  |-  ( 1  /  2 )  <_ 
1
4847a1i 11 . . . . 5  |-  ( y  e.  ~P NN  ->  ( 1  /  2 )  <_  1 )
4910, 27, 28, 45, 48letrd 9219 . . . 4  |-  ( y  e.  ~P NN  ->  sum_ k  e.  NN  (
( F `  y
) `  k )  <_  1 )
50 0re 9083 . . . . 5  |-  0  e.  RR
5150, 25elicc2i 10968 . . . 4  |-  ( sum_ k  e.  NN  (
( F `  y
) `  k )  e.  ( 0 [,] 1
)  <->  ( sum_ k  e.  NN  ( ( F `
 y ) `  k )  e.  RR  /\  0  <_  sum_ k  e.  NN  ( ( F `
 y ) `  k )  /\  sum_ k  e.  NN  (
( F `  y
) `  k )  <_  1 ) )
5210, 24, 49, 51syl3anbrc 1138 . . 3  |-  ( y  e.  ~P NN  ->  sum_ k  e.  NN  (
( F `  y
) `  k )  e.  ( 0 [,] 1
) )
53 elpwi 3799 . . . . . . . . . . 11  |-  ( z  e.  ~P NN  ->  z 
C_  NN )
54 ssdifss 3470 . . . . . . . . . . . 12  |-  ( y 
C_  NN  ->  ( y 
\  z )  C_  NN )
55 ssdifss 3470 . . . . . . . . . . . 12  |-  ( z 
C_  NN  ->  ( z 
\  y )  C_  NN )
56 unss 3513 . . . . . . . . . . . . 13  |-  ( ( ( y  \  z
)  C_  NN  /\  (
z  \  y )  C_  NN )  <->  ( (
y  \  z )  u.  ( z  \  y
) )  C_  NN )
5756biimpi 187 . . . . . . . . . . . 12  |-  ( ( ( y  \  z
)  C_  NN  /\  (
z  \  y )  C_  NN )  ->  (
( y  \  z
)  u.  ( z 
\  y ) ) 
C_  NN )
5854, 55, 57syl2an 464 . . . . . . . . . . 11  |-  ( ( y  C_  NN  /\  z  C_  NN )  ->  (
( y  \  z
)  u.  ( z 
\  y ) ) 
C_  NN )
592, 53, 58syl2an 464 . . . . . . . . . 10  |-  ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  ->  ( ( y 
\  z )  u.  ( z  \  y
) )  C_  NN )
60 eqss 3355 . . . . . . . . . . . . 13  |-  ( y  =  z  <->  ( y  C_  z  /\  z  C_  y ) )
61 ssdif0 3678 . . . . . . . . . . . . . 14  |-  ( y 
C_  z  <->  ( y  \  z )  =  (/) )
62 ssdif0 3678 . . . . . . . . . . . . . 14  |-  ( z 
C_  y  <->  ( z  \  y )  =  (/) )
6361, 62anbi12i 679 . . . . . . . . . . . . 13  |-  ( ( y  C_  z  /\  z  C_  y )  <->  ( (
y  \  z )  =  (/)  /\  ( z 
\  y )  =  (/) ) )
64 un00 3655 . . . . . . . . . . . . 13  |-  ( ( ( y  \  z
)  =  (/)  /\  (
z  \  y )  =  (/) )  <->  ( (
y  \  z )  u.  ( z  \  y
) )  =  (/) )
6560, 63, 643bitri 263 . . . . . . . . . . . 12  |-  ( y  =  z  <->  ( (
y  \  z )  u.  ( z  \  y
) )  =  (/) )
6665necon3bii 2630 . . . . . . . . . . 11  |-  ( y  =/=  z  <->  ( (
y  \  z )  u.  ( z  \  y
) )  =/=  (/) )
6766biimpi 187 . . . . . . . . . 10  |-  ( y  =/=  z  ->  (
( y  \  z
)  u.  ( z 
\  y ) )  =/=  (/) )
68 nnwo 10534 . . . . . . . . . 10  |-  ( ( ( ( y  \ 
z )  u.  (
z  \  y )
)  C_  NN  /\  (
( y  \  z
)  u.  ( z 
\  y ) )  =/=  (/) )  ->  E. m  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) A. n  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) m  <_  n
)
6959, 67, 68syl2an 464 . . . . . . . . 9  |-  ( ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  /\  y  =/=  z )  ->  E. m  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) A. n  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) m  <_  n
)
7069ex 424 . . . . . . . 8  |-  ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  ->  ( y  =/=  z  ->  E. m  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) A. n  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) m  <_  n
) )
7159sselda 3340 . . . . . . . . . 10  |-  ( ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  /\  m  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) )  ->  m  e.  NN )
72 df-ral 2702 . . . . . . . . . . . 12  |-  ( A. n  e.  ( (
y  \  z )  u.  ( z  \  y
) ) m  <_  n 
<-> 
A. n ( n  e.  ( ( y 
\  z )  u.  ( z  \  y
) )  ->  m  <_  n ) )
73 con34b 284 . . . . . . . . . . . . . 14  |-  ( ( n  e.  ( ( y  \  z )  u.  ( z  \ 
y ) )  ->  m  <_  n )  <->  ( -.  m  <_  n  ->  -.  n  e.  ( (
y  \  z )  u.  ( z  \  y
) ) ) )
74 eldif 3322 . . . . . . . . . . . . . . . . . 18  |-  ( n  e.  ( y  \ 
z )  <->  ( n  e.  y  /\  -.  n  e.  z ) )
75 eldif 3322 . . . . . . . . . . . . . . . . . 18  |-  ( n  e.  ( z  \ 
y )  <->  ( n  e.  z  /\  -.  n  e.  y ) )
7674, 75orbi12i 508 . . . . . . . . . . . . . . . . 17  |-  ( ( n  e.  ( y 
\  z )  \/  n  e.  ( z 
\  y ) )  <-> 
( ( n  e.  y  /\  -.  n  e.  z )  \/  (
n  e.  z  /\  -.  n  e.  y
) ) )
77 elun 3480 . . . . . . . . . . . . . . . . 17  |-  ( n  e.  ( ( y 
\  z )  u.  ( z  \  y
) )  <->  ( n  e.  ( y  \  z
)  \/  n  e.  ( z  \  y
) ) )
78 xor 862 . . . . . . . . . . . . . . . . 17  |-  ( -.  ( n  e.  y  <-> 
n  e.  z )  <-> 
( ( n  e.  y  /\  -.  n  e.  z )  \/  (
n  e.  z  /\  -.  n  e.  y
) ) )
7976, 77, 783bitr4ri 270 . . . . . . . . . . . . . . . 16  |-  ( -.  ( n  e.  y  <-> 
n  e.  z )  <-> 
n  e.  ( ( y  \  z )  u.  ( z  \ 
y ) ) )
8079con1bii 322 . . . . . . . . . . . . . . 15  |-  ( -.  n  e.  ( ( y  \  z )  u.  ( z  \ 
y ) )  <->  ( n  e.  y  <->  n  e.  z
) )
8180imbi2i 304 . . . . . . . . . . . . . 14  |-  ( ( -.  m  <_  n  ->  -.  n  e.  ( ( y  \  z
)  u.  ( z 
\  y ) ) )  <->  ( -.  m  <_  n  ->  ( n  e.  y  <->  n  e.  z
) ) )
8273, 81bitri 241 . . . . . . . . . . . . 13  |-  ( ( n  e.  ( ( y  \  z )  u.  ( z  \ 
y ) )  ->  m  <_  n )  <->  ( -.  m  <_  n  ->  (
n  e.  y  <->  n  e.  z ) ) )
8382albii 1575 . . . . . . . . . . . 12  |-  ( A. n ( n  e.  ( ( y  \ 
z )  u.  (
z  \  y )
)  ->  m  <_  n )  <->  A. n ( -.  m  <_  n  ->  ( n  e.  y  <->  n  e.  z ) ) )
8472, 83bitri 241 . . . . . . . . . . 11  |-  ( A. n  e.  ( (
y  \  z )  u.  ( z  \  y
) ) m  <_  n 
<-> 
A. n ( -.  m  <_  n  ->  ( n  e.  y  <->  n  e.  z ) ) )
85 alral 2756 . . . . . . . . . . . 12  |-  ( A. n ( -.  m  <_  n  ->  ( n  e.  y  <->  n  e.  z
) )  ->  A. n  e.  NN  ( -.  m  <_  n  ->  ( n  e.  y  <->  n  e.  z
) ) )
86 nnre 9999 . . . . . . . . . . . . . . 15  |-  ( n  e.  NN  ->  n  e.  RR )
87 nnre 9999 . . . . . . . . . . . . . . 15  |-  ( m  e.  NN  ->  m  e.  RR )
88 ltnle 9147 . . . . . . . . . . . . . . 15  |-  ( ( n  e.  RR  /\  m  e.  RR )  ->  ( n  <  m  <->  -.  m  <_  n )
)
8986, 87, 88syl2anr 465 . . . . . . . . . . . . . 14  |-  ( ( m  e.  NN  /\  n  e.  NN )  ->  ( n  <  m  <->  -.  m  <_  n )
)
9089imbi1d 309 . . . . . . . . . . . . 13  |-  ( ( m  e.  NN  /\  n  e.  NN )  ->  ( ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) )  <->  ( -.  m  <_  n  ->  (
n  e.  y  <->  n  e.  z ) ) ) )
9190ralbidva 2713 . . . . . . . . . . . 12  |-  ( m  e.  NN  ->  ( A. n  e.  NN  ( n  <  m  -> 
( n  e.  y  <-> 
n  e.  z ) )  <->  A. n  e.  NN  ( -.  m  <_  n  ->  ( n  e.  y  <->  n  e.  z
) ) ) )
9285, 91syl5ibr 213 . . . . . . . . . . 11  |-  ( m  e.  NN  ->  ( A. n ( -.  m  <_  n  ->  ( n  e.  y  <->  n  e.  z
) )  ->  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )
9384, 92syl5bi 209 . . . . . . . . . 10  |-  ( m  e.  NN  ->  ( A. n  e.  (
( y  \  z
)  u.  ( z 
\  y ) ) m  <_  n  ->  A. n  e.  NN  (
n  <  m  ->  ( n  e.  y  <->  n  e.  z ) ) ) )
9471, 93syl 16 . . . . . . . . 9  |-  ( ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  /\  m  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) )  ->  ( A. n  e.  (
( y  \  z
)  u.  ( z 
\  y ) ) m  <_  n  ->  A. n  e.  NN  (
n  <  m  ->  ( n  e.  y  <->  n  e.  z ) ) ) )
9594reximdva 2810 . . . . . . . 8  |-  ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  ->  ( E. m  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) A. n  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) m  <_  n  ->  E. m  e.  ( ( y  \  z
)  u.  ( z 
\  y ) ) A. n  e.  NN  ( n  <  m  -> 
( n  e.  y  <-> 
n  e.  z ) ) ) )
9670, 95syld 42 . . . . . . 7  |-  ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  ->  ( y  =/=  z  ->  E. m  e.  ( ( y  \ 
z )  u.  (
z  \  y )
) A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )
97 rexun 3519 . . . . . . 7  |-  ( E. m  e.  ( ( y  \  z )  u.  ( z  \ 
y ) ) A. n  e.  NN  (
n  <  m  ->  ( n  e.  y  <->  n  e.  z ) )  <->  ( E. m  e.  ( y  \  z ) A. n  e.  NN  (
n  <  m  ->  ( n  e.  y  <->  n  e.  z ) )  \/ 
E. m  e.  ( z  \  y ) A. n  e.  NN  ( n  <  m  -> 
( n  e.  y  <-> 
n  e.  z ) ) ) )
9896, 97syl6ib 218 . . . . . 6  |-  ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  ->  ( y  =/=  z  ->  ( E. m  e.  ( y  \  z ) A. n  e.  NN  (
n  <  m  ->  ( n  e.  y  <->  n  e.  z ) )  \/ 
E. m  e.  ( z  \  y ) A. n  e.  NN  ( n  <  m  -> 
( n  e.  y  <-> 
n  e.  z ) ) ) ) )
99 simpll 731 . . . . . . . . . 10  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( y  \  z )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  y  C_  NN )
100 simplr 732 . . . . . . . . . 10  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( y  \  z )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  z  C_  NN )
101 simprl 733 . . . . . . . . . 10  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( y  \  z )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  m  e.  ( y  \  z ) )
102 simprr 734 . . . . . . . . . 10  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( y  \  z )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  A. n  e.  NN  ( n  <  m  -> 
( n  e.  y  <-> 
n  e.  z ) ) )
103 biid 228 . . . . . . . . . 10  |-  ( sum_ k  e.  NN  (
( F `  y
) `  k )  =  sum_ k  e.  NN  ( ( F `  z ) `  k
)  <->  sum_ k  e.  NN  ( ( F `  y ) `  k
)  =  sum_ k  e.  NN  ( ( F `
 z ) `  k ) )
1046, 99, 100, 101, 102, 103rpnnen2lem11 12816 . . . . . . . . 9  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( y  \  z )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  -.  sum_ k  e.  NN  ( ( F `
 y ) `  k )  =  sum_ k  e.  NN  (
( F `  z
) `  k )
)
105104rexlimdvaa 2823 . . . . . . . 8  |-  ( ( y  C_  NN  /\  z  C_  NN )  ->  ( E. m  e.  (
y  \  z ) A. n  e.  NN  ( n  <  m  -> 
( n  e.  y  <-> 
n  e.  z ) )  ->  -.  sum_ k  e.  NN  ( ( F `
 y ) `  k )  =  sum_ k  e.  NN  (
( F `  z
) `  k )
) )
106 simplr 732 . . . . . . . . . 10  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( z  \  y )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  z  C_  NN )
107 simpll 731 . . . . . . . . . 10  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( z  \  y )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  y  C_  NN )
108 simprl 733 . . . . . . . . . 10  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( z  \  y )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  m  e.  ( z  \  y ) )
109 simprr 734 . . . . . . . . . . 11  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( z  \  y )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  A. n  e.  NN  ( n  <  m  -> 
( n  e.  y  <-> 
n  e.  z ) ) )
110 bicom 192 . . . . . . . . . . . . 13  |-  ( ( n  e.  z  <->  n  e.  y )  <->  ( n  e.  y  <->  n  e.  z
) )
111110imbi2i 304 . . . . . . . . . . . 12  |-  ( ( n  <  m  -> 
( n  e.  z  <-> 
n  e.  y ) )  <->  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) )
112111ralbii 2721 . . . . . . . . . . 11  |-  ( A. n  e.  NN  (
n  <  m  ->  ( n  e.  z  <->  n  e.  y ) )  <->  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) )
113109, 112sylibr 204 . . . . . . . . . 10  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( z  \  y )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  A. n  e.  NN  ( n  <  m  -> 
( n  e.  z  <-> 
n  e.  y ) ) )
114 eqcom 2437 . . . . . . . . . 10  |-  ( sum_ k  e.  NN  (
( F `  y
) `  k )  =  sum_ k  e.  NN  ( ( F `  z ) `  k
)  <->  sum_ k  e.  NN  ( ( F `  z ) `  k
)  =  sum_ k  e.  NN  ( ( F `
 y ) `  k ) )
1156, 106, 107, 108, 113, 114rpnnen2lem11 12816 . . . . . . . . 9  |-  ( ( ( y  C_  NN  /\  z  C_  NN )  /\  ( m  e.  ( z  \  y )  /\  A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) ) ) )  ->  -.  sum_ k  e.  NN  ( ( F `
 y ) `  k )  =  sum_ k  e.  NN  (
( F `  z
) `  k )
)
116115rexlimdvaa 2823 . . . . . . . 8  |-  ( ( y  C_  NN  /\  z  C_  NN )  ->  ( E. m  e.  (
z  \  y ) A. n  e.  NN  ( n  <  m  -> 
( n  e.  y  <-> 
n  e.  z ) )  ->  -.  sum_ k  e.  NN  ( ( F `
 y ) `  k )  =  sum_ k  e.  NN  (
( F `  z
) `  k )
) )
117105, 116jaod 370 . . . . . . 7  |-  ( ( y  C_  NN  /\  z  C_  NN )  ->  (
( E. m  e.  ( y  \  z
) A. n  e.  NN  ( n  < 
m  ->  ( n  e.  y  <->  n  e.  z
) )  \/  E. m  e.  ( z  \  y ) A. n  e.  NN  (
n  <  m  ->  ( n  e.  y  <->  n  e.  z ) ) )  ->  -.  sum_ k  e.  NN  ( ( F `
 y ) `  k )  =  sum_ k  e.  NN  (
( F `  z
) `  k )
) )
1182, 53, 117syl2an 464 . . . . . 6  |-  ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  ->  ( ( E. m  e.  ( y 
\  z ) A. n  e.  NN  (
n  <  m  ->  ( n  e.  y  <->  n  e.  z ) )  \/ 
E. m  e.  ( z  \  y ) A. n  e.  NN  ( n  <  m  -> 
( n  e.  y  <-> 
n  e.  z ) ) )  ->  -.  sum_ k  e.  NN  (
( F `  y
) `  k )  =  sum_ k  e.  NN  ( ( F `  z ) `  k
) ) )
11998, 118syld 42 . . . . 5  |-  ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  ->  ( y  =/=  z  ->  -.  sum_ k  e.  NN  ( ( F `
 y ) `  k )  =  sum_ k  e.  NN  (
( F `  z
) `  k )
) )
120119necon4ad 2659 . . . 4  |-  ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  ->  ( sum_ k  e.  NN  ( ( F `
 y ) `  k )  =  sum_ k  e.  NN  (
( F `  z
) `  k )  ->  y  =  z ) )
121 fveq2 5720 . . . . . 6  |-  ( y  =  z  ->  ( F `  y )  =  ( F `  z ) )
122121fveq1d 5722 . . . . 5  |-  ( y  =  z  ->  (
( F `  y
) `  k )  =  ( ( F `
 z ) `  k ) )
123122sumeq2sdv 12490 . . . 4  |-  ( y  =  z  ->  sum_ k  e.  NN  ( ( F `
 y ) `  k )  =  sum_ k  e.  NN  (
( F `  z
) `  k )
)
124120, 123impbid1 195 . . 3  |-  ( ( y  e.  ~P NN  /\  z  e.  ~P NN )  ->  ( sum_ k  e.  NN  ( ( F `
 y ) `  k )  =  sum_ k  e.  NN  (
( F `  z
) `  k )  <->  y  =  z ) )
12552, 124dom2 7142 . 2  |-  ( ( 0 [,] 1 )  e.  _V  ->  ~P NN 
~<_  ( 0 [,] 1
) )
1261, 125ax-mp 8 1  |-  ~P NN  ~<_  ( 0 [,] 1
)
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 177    \/ wo 358    /\ wa 359   A.wal 1549    = wceq 1652    e. wcel 1725    =/= wne 2598   A.wral 2697   E.wrex 2698   _Vcvv 2948    \ cdif 3309    u. cun 3310    C_ wss 3312   (/)c0 3620   ifcif 3731   ~Pcpw 3791   class class class wbr 4204    e. cmpt 4258   dom cdm 4870   -->wf 5442   ` cfv 5446  (class class class)co 6073    ~<_ cdom 7099   CCcc 8980   RRcr 8981   0cc0 8982   1c1 8983    + caddc 8985    < clt 9112    <_ cle 9113    / cdiv 9669   NNcn 9992   2c2 10041   3c3 10042   ZZcz 10274   ZZ>=cuz 10480   [,]cicc 10911    seq cseq 11315   ^cexp 11374    ~~> cli 12270   sum_csu 12471
This theorem is referenced by:  rpnnen  12818  opnreen  18854
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1555  ax-5 1566  ax-17 1626  ax-9 1666  ax-8 1687  ax-13 1727  ax-14 1729  ax-6 1744  ax-7 1749  ax-11 1761  ax-12 1950  ax-ext 2416  ax-rep 4312  ax-sep 4322  ax-nul 4330  ax-pow 4369  ax-pr 4395  ax-un 4693  ax-inf2 7588  ax-cnex 9038  ax-resscn 9039  ax-1cn 9040  ax-icn 9041  ax-addcl 9042  ax-addrcl 9043  ax-mulcl 9044  ax-mulrcl 9045  ax-mulcom 9046  ax-addass 9047  ax-mulass 9048  ax-distr 9049  ax-i2m1 9050  ax-1ne0 9051  ax-1rid 9052  ax-rnegex 9053  ax-rrecex 9054  ax-cnre 9055  ax-pre-lttri 9056  ax-pre-lttrn 9057  ax-pre-ltadd 9058  ax-pre-mulgt0 9059  ax-pre-sup 9060
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1328  df-ex 1551  df-nf 1554  df-sb 1659  df-eu 2284  df-mo 2285  df-clab 2422  df-cleq 2428  df-clel 2431  df-nfc 2560  df-ne 2600  df-nel 2601  df-ral 2702  df-rex 2703  df-reu 2704  df-rmo 2705  df-rab 2706  df-v 2950  df-sbc 3154  df-csb 3244  df-dif 3315  df-un 3317  df-in 3319  df-ss 3326  df-pss 3328  df-nul 3621  df-if 3732  df-pw 3793  df-sn 3812  df-pr 3813  df-tp 3814  df-op 3815  df-uni 4008  df-int 4043  df-iun 4087  df-br 4205  df-opab 4259  df-mpt 4260  df-tr 4295  df-eprel 4486  df-id 4490  df-po 4495  df-so 4496  df-fr 4533  df-se 4534  df-we 4535  df-ord 4576  df-on 4577  df-lim 4578  df-suc 4579  df-om 4838  df-xp 4876  df-rel 4877  df-cnv 4878  df-co 4879  df-dm 4880  df-rn 4881  df-res 4882  df-ima 4883  df-iota 5410  df-fun 5448  df-fn 5449  df-f 5450  df-f1 5451  df-fo 5452  df-f1o 5453  df-fv 5454  df-isom 5455  df-ov 6076  df-oprab 6077  df-mpt2 6078  df-1st 6341  df-2nd 6342  df-riota 6541  df-recs 6625  df-rdg 6660  df-1o 6716  df-oadd 6720  df-er 6897  df-pm 7013  df-en 7102  df-dom 7103  df-sdom 7104  df-fin 7105  df-sup 7438  df-oi 7471  df-card 7818  df-pnf 9114  df-mnf 9115  df-xr 9116  df-ltxr 9117  df-le 9118  df-sub 9285  df-neg 9286  df-div 9670  df-nn 9993  df-2 10050  df-3 10051  df-n0 10214  df-z 10275  df-uz 10481  df-rp 10605  df-ico 10914  df-icc 10915  df-fz 11036  df-fzo 11128  df-fl 11194  df-seq 11316  df-exp 11375  df-hash 11611  df-cj 11896  df-re 11897  df-im 11898  df-sqr 12032  df-abs 12033  df-limsup 12257  df-clim 12274  df-rlim 12275  df-sum 12472
  Copyright terms: Public domain W3C validator