ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  chtublem Unicode version

Theorem chtublem 16214
Description: Lemma for chtqub 16215. (Contributed by Mario Carneiro, 13-Mar-2014.)
Assertion
Ref Expression
chtublem  |-  ( N  e.  NN  ->  ( theta `  ( ( 2  x.  N )  - 
1 ) )  <_ 
( ( theta `  N
)  +  ( ( log `  4 )  x.  ( N  - 
1 ) ) ) )

Proof of Theorem chtublem
Dummy variables  k  n  p are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 2nn 9470 . . . . . 6  |-  2  e.  NN
2 nnmulcl 9327 . . . . . 6  |-  ( ( 2  e.  NN  /\  N  e.  NN )  ->  ( 2  x.  N
)  e.  NN )
31, 2mpan 428 . . . . 5  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  NN )
4 nnq 10042 . . . . 5  |-  ( ( 2  x.  N )  e.  NN  ->  (
2  x.  N )  e.  QQ )
53, 4syl 14 . . . 4  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  QQ )
6 1z 9674 . . . . 5  |-  1  e.  ZZ
7 zq 10035 . . . . 5  |-  ( 1  e.  ZZ  ->  1  e.  QQ )
86, 7ax-mp 5 . . . 4  |-  1  e.  QQ
9 qsubcl 10047 . . . 4  |-  ( ( ( 2  x.  N
)  e.  QQ  /\  1  e.  QQ )  ->  ( ( 2  x.  N )  -  1 )  e.  QQ )
105, 8, 9sylancl 417 . . 3  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  QQ )
11 chtqcl 16163 . . 3  |-  ( ( ( 2  x.  N
)  -  1 )  e.  QQ  ->  ( theta `  ( ( 2  x.  N )  - 
1 ) )  e.  RR )
1210, 11syl 14 . 2  |-  ( N  e.  NN  ->  ( theta `  ( ( 2  x.  N )  - 
1 ) )  e.  RR )
13 nnq 10042 . . . 4  |-  ( N  e.  NN  ->  N  e.  QQ )
14 chtqcl 16163 . . . 4  |-  ( N  e.  QQ  ->  ( theta `  N )  e.  RR )
1513, 14syl 14 . . 3  |-  ( N  e.  NN  ->  ( theta `  N )  e.  RR )
16 nnnn0 9574 . . . . . . 7  |-  ( N  e.  NN  ->  N  e.  NN0 )
17 2m1e1 9424 . . . . . . . . . . 11  |-  ( 2  -  1 )  =  1
1817oveq2i 6096 . . . . . . . . . 10  |-  ( ( 2  x.  N )  -  ( 2  -  1 ) )  =  ( ( 2  x.  N )  -  1 )
193nncnd 9320 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  CC )
20 2cn 9377 . . . . . . . . . . . . 13  |-  2  e.  CC
21 ax-1cn 8272 . . . . . . . . . . . . 13  |-  1  e.  CC
22 subsub 8557 . . . . . . . . . . . . 13  |-  ( ( ( 2  x.  N
)  e.  CC  /\  2  e.  CC  /\  1  e.  CC )  ->  (
( 2  x.  N
)  -  ( 2  -  1 ) )  =  ( ( ( 2  x.  N )  -  2 )  +  1 ) )
2320, 21, 22mp3an23 1370 . . . . . . . . . . . 12  |-  ( ( 2  x.  N )  e.  CC  ->  (
( 2  x.  N
)  -  ( 2  -  1 ) )  =  ( ( ( 2  x.  N )  -  2 )  +  1 ) )
2419, 23syl 14 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  ( 2  -  1 ) )  =  ( ( ( 2  x.  N )  -  2 )  +  1 ) )
25 nncn 9314 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  N  e.  CC )
26 subdi 8713 . . . . . . . . . . . . . . 15  |-  ( ( 2  e.  CC  /\  N  e.  CC  /\  1  e.  CC )  ->  (
2  x.  ( N  -  1 ) )  =  ( ( 2  x.  N )  -  ( 2  x.  1 ) ) )
2720, 21, 26mp3an13 1369 . . . . . . . . . . . . . 14  |-  ( N  e.  CC  ->  (
2  x.  ( N  -  1 ) )  =  ( ( 2  x.  N )  -  ( 2  x.  1 ) ) )
2825, 27syl 14 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
2  x.  ( N  -  1 ) )  =  ( ( 2  x.  N )  -  ( 2  x.  1 ) ) )
29 2t1e2 9460 . . . . . . . . . . . . . 14  |-  ( 2  x.  1 )  =  2
3029oveq2i 6096 . . . . . . . . . . . . 13  |-  ( ( 2  x.  N )  -  ( 2  x.  1 ) )  =  ( ( 2  x.  N )  -  2 )
3128, 30eqtrdi 2287 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
2  x.  ( N  -  1 ) )  =  ( ( 2  x.  N )  - 
2 ) )
3231oveq1d 6100 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( 2  x.  ( N  -  1 ) )  +  1 )  =  ( ( ( 2  x.  N )  -  2 )  +  1 ) )
3324, 32eqtr4d 2274 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  ( 2  -  1 ) )  =  ( ( 2  x.  ( N  - 
1 ) )  +  1 ) )
3418, 33eqtr3id 2285 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  =  ( ( 2  x.  ( N  - 
1 ) )  +  1 ) )
35 2nn0 9584 . . . . . . . . . . 11  |-  2  e.  NN0
36 nnm1nn0 9608 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  NN0 )
37 nn0mulcl 9603 . . . . . . . . . . 11  |-  ( ( 2  e.  NN0  /\  ( N  -  1
)  e.  NN0 )  ->  ( 2  x.  ( N  -  1 ) )  e.  NN0 )
3835, 36, 37sylancr 418 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
2  x.  ( N  -  1 ) )  e.  NN0 )
39 nn0p1nn 9606 . . . . . . . . . 10  |-  ( ( 2  x.  ( N  -  1 ) )  e.  NN0  ->  ( ( 2  x.  ( N  -  1 ) )  +  1 )  e.  NN )
4038, 39syl 14 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
( 2  x.  ( N  -  1 ) )  +  1 )  e.  NN )
4134, 40eqeltrd 2315 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  NN )
42 nnnn0 9574 . . . . . . . 8  |-  ( ( ( 2  x.  N
)  -  1 )  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  NN0 )
4341, 42syl 14 . . . . . . 7  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  NN0 )
44 1re 8325 . . . . . . . . . . 11  |-  1  e.  RR
4544a1i 9 . . . . . . . . . 10  |-  ( N  e.  NN  ->  1  e.  RR )
46 nnre 9313 . . . . . . . . . 10  |-  ( N  e.  NN  ->  N  e.  RR )
47 nnge1 9329 . . . . . . . . . 10  |-  ( N  e.  NN  ->  1  <_  N )
4845, 46, 46, 47leadd2dd 8889 . . . . . . . . 9  |-  ( N  e.  NN  ->  ( N  +  1 )  <_  ( N  +  N ) )
49252timesd 9552 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2  x.  N )  =  ( N  +  N ) )
5048, 49breqtrrd 4158 . . . . . . . 8  |-  ( N  e.  NN  ->  ( N  +  1 )  <_  ( 2  x.  N ) )
513nnred 9319 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  RR )
52 leaddsub 8767 . . . . . . . . 9  |-  ( ( N  e.  RR  /\  1  e.  RR  /\  (
2  x.  N )  e.  RR )  -> 
( ( N  + 
1 )  <_  (
2  x.  N )  <-> 
N  <_  ( (
2  x.  N )  -  1 ) ) )
5346, 45, 51, 52syl3anc 1278 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( N  +  1 )  <_  ( 2  x.  N )  <->  N  <_  ( ( 2  x.  N
)  -  1 ) ) )
5450, 53mpbid 147 . . . . . . 7  |-  ( N  e.  NN  ->  N  <_  ( ( 2  x.  N )  -  1 ) )
55 elfz2nn0 10529 . . . . . . 7  |-  ( N  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) )  <->  ( N  e.  NN0  /\  ( ( 2  x.  N )  -  1 )  e. 
NN0  /\  N  <_  ( ( 2  x.  N
)  -  1 ) ) )
5616, 43, 54, 55syl3anbrc 1212 . . . . . 6  |-  ( N  e.  NN  ->  N  e.  ( 0 ... (
( 2  x.  N
)  -  1 ) ) )
57 bccl2 11220 . . . . . 6  |-  ( N  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) )  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  NN )
5856, 57syl 14 . . . . 5  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  NN )
5958nnrpd 10105 . . . 4  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  RR+ )
6059relogcld 16034 . . 3  |-  ( N  e.  NN  ->  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  RR )
6115, 60readdcld 8355 . 2  |-  ( N  e.  NN  ->  (
( theta `  N )  +  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  e.  RR )
62 4re 9383 . . . . . 6  |-  4  e.  RR
63 4pos 9403 . . . . . 6  |-  0  <  4
6462, 63elrpii 10067 . . . . 5  |-  4  e.  RR+
65 relogcl 16013 . . . . 5  |-  ( 4  e.  RR+  ->  ( log `  4 )  e.  RR )
6664, 65ax-mp 5 . . . 4  |-  ( log `  4 )  e.  RR
6736nn0red 9625 . . . 4  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  RR )
68 remulcl 8307 . . . 4  |-  ( ( ( log `  4
)  e.  RR  /\  ( N  -  1
)  e.  RR )  ->  ( ( log `  4 )  x.  ( N  -  1 ) )  e.  RR )
6966, 67, 68sylancr 418 . . 3  |-  ( N  e.  NN  ->  (
( log `  4
)  x.  ( N  -  1 ) )  e.  RR )
7015, 69readdcld 8355 . 2  |-  ( N  e.  NN  ->  (
( theta `  N )  +  ( ( log `  4 )  x.  ( N  -  1 ) ) )  e.  RR )
71 iftrue 3645 . . . . . . . . . . . 12  |-  ( p  <_  ( ( 2  x.  N )  - 
1 )  ->  if ( p  <_  ( ( 2  x.  N )  -  1 ) ,  1 ,  0 )  =  1 )
7271adantl 277 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  p  <_  ( ( 2  x.  N )  -  1 ) )  ->  if ( p  <_  ( ( 2  x.  N )  - 
1 ) ,  1 ,  0 )  =  1 )
73 simpr 110 . . . . . . . . . . . . . . . 16  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  p  e.  Prime )
7458adantr 276 . . . . . . . . . . . . . . . 16  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ( 2  x.  N )  - 
1 )  _C  N
)  e.  NN )
7573, 74pccld 13099 . . . . . . . . . . . . . . 15  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  e.  NN0 )
76 nn0addge1 9613 . . . . . . . . . . . . . . 15  |-  ( ( 1  e.  RR  /\  ( p  pCnt  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  e.  NN0 )  -> 
1  <_  ( 1  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
7744, 75, 76sylancr 418 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
1  <_  ( 1  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
78 iftrue 3645 . . . . . . . . . . . . . . . 16  |-  ( p  <_  N  ->  if ( p  <_  N , 
1 ,  0 )  =  1 )
7978oveq1d 6100 . . . . . . . . . . . . . . 15  |-  ( p  <_  N  ->  ( if ( p  <_  N ,  1 ,  0 )  +  ( p 
pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )  =  ( 1  +  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
8079breq2d 4142 . . . . . . . . . . . . . 14  |-  ( p  <_  N  ->  (
1  <_  ( if ( p  <_  N , 
1 ,  0 )  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )  <->  1  <_  ( 1  +  ( p 
pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) )
8177, 80syl5ibrcom 157 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  <_  N  ->  1  <_  ( if ( p  <_  N , 
1 ,  0 )  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) )
8281adantr 276 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  p  <_  ( ( 2  x.  N )  -  1 ) )  ->  ( p  <_  N  ->  1  <_  ( if ( p  <_  N ,  1 ,  0 )  +  ( p 
pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) )
83 prmnn 12904 . . . . . . . . . . . . . . . . . 18  |-  ( p  e.  Prime  ->  p  e.  NN )
8483ad2antlr 493 . . . . . . . . . . . . . . . . 17  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  p  e.  NN )
85 simprl 535 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  p  <_  ( ( 2  x.  N )  - 
1 ) )
86 prmz 12905 . . . . . . . . . . . . . . . . . . . 20  |-  ( p  e.  Prime  ->  p  e.  ZZ )
8741nnzd 9771 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  ZZ )
88 eluz 9944 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( p  e.  ZZ  /\  ( ( 2  x.  N )  -  1 )  e.  ZZ )  ->  ( ( ( 2  x.  N )  -  1 )  e.  ( ZZ>= `  p )  <->  p  <_  ( ( 2  x.  N )  - 
1 ) ) )
8986, 87, 88syl2anr 290 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ( 2  x.  N )  - 
1 )  e.  (
ZZ>= `  p )  <->  p  <_  ( ( 2  x.  N
)  -  1 ) ) )
9089adantr 276 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( ( 2  x.  N )  - 
1 )  e.  (
ZZ>= `  p )  <->  p  <_  ( ( 2  x.  N
)  -  1 ) ) )
9185, 90mpbird 167 . . . . . . . . . . . . . . . . 17  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( 2  x.  N )  -  1 )  e.  ( ZZ>= `  p ) )
92 dvdsfac 12643 . . . . . . . . . . . . . . . . 17  |-  ( ( p  e.  NN  /\  ( ( 2  x.  N )  -  1 )  e.  ( ZZ>= `  p ) )  ->  p  ||  ( ! `  ( ( 2  x.  N )  -  1 ) ) )
9384, 91, 92syl2anc 415 . . . . . . . . . . . . . . . 16  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  p  ||  ( ! `  ( ( 2  x.  N )  -  1 ) ) )
94 id 19 . . . . . . . . . . . . . . . . . 18  |-  ( p  e.  Prime  ->  p  e. 
Prime )
9543faccld 11188 . . . . . . . . . . . . . . . . . 18  |-  ( N  e.  NN  ->  ( ! `  ( (
2  x.  N )  -  1 ) )  e.  NN )
96 pcelnn 13120 . . . . . . . . . . . . . . . . . 18  |-  ( ( p  e.  Prime  /\  ( ! `  ( (
2  x.  N )  -  1 ) )  e.  NN )  -> 
( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  e.  NN  <->  p  ||  ( ! `  ( (
2  x.  N )  -  1 ) ) ) )
9794, 95, 96syl2anr 290 . . . . . . . . . . . . . . . . 17  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  e.  NN  <->  p  ||  ( ! `  ( (
2  x.  N )  -  1 ) ) ) )
9897adantr 276 . . . . . . . . . . . . . . . 16  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  e.  NN  <->  p  ||  ( ! `  ( (
2  x.  N )  -  1 ) ) ) )
9993, 98mpbird 167 . . . . . . . . . . . . . . 15  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  pCnt  ( ! `  ( (
2  x.  N )  -  1 ) ) )  e.  NN )
10099nnge1d 9349 . . . . . . . . . . . . . 14  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
1  <_  ( p  pCnt  ( ! `  (
( 2  x.  N
)  -  1 ) ) ) )
101 iffalse 3648 . . . . . . . . . . . . . . . . 17  |-  ( -.  p  <_  N  ->  if ( p  <_  N ,  1 ,  0 )  =  0 )
102101oveq1d 6100 . . . . . . . . . . . . . . . 16  |-  ( -.  p  <_  N  ->  ( if ( p  <_  N ,  1 , 
0 )  +  ( p  pCnt  ( (
( 2  x.  N
)  -  1 )  _C  N ) ) )  =  ( 0  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
103102ad2antll 495 . . . . . . . . . . . . . . 15  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( if ( p  <_  N ,  1 ,  0 )  +  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  =  ( 0  +  ( p 
pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
10475nn0cnd 9626 . . . . . . . . . . . . . . . . 17  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  e.  CC )
105104addlidd 8477 . . . . . . . . . . . . . . . 16  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( 0  +  ( p  pCnt  ( (
( 2  x.  N
)  -  1 )  _C  N ) ) )  =  ( p 
pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )
106105adantr 276 . . . . . . . . . . . . . . 15  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( 0  +  ( p  pCnt  ( (
( 2  x.  N
)  -  1 )  _C  N ) ) )  =  ( p 
pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )
107 bcval2 11202 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( N  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) )  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =  ( ( ! `
 ( ( 2  x.  N )  - 
1 ) )  / 
( ( ! `  ( ( ( 2  x.  N )  - 
1 )  -  N
) )  x.  ( ! `  N )
) ) )
10856, 107syl 14 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =  ( ( ! `
 ( ( 2  x.  N )  - 
1 ) )  / 
( ( ! `  ( ( ( 2  x.  N )  - 
1 )  -  N
) )  x.  ( ! `  N )
) ) )
10936nn0cnd 9626 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  CC )
11021a1i 9 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( N  e.  NN  ->  1  e.  CC )
11149oveq1d 6100 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  =  ( ( N  +  N )  - 
1 ) )
11225, 25, 110, 111assraddsubd 8695 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  =  ( N  +  ( N  -  1
) ) )
11325, 109, 112mvrladdd 8694 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  -  N )  =  ( N  - 
1 ) )
114113fveq2d 5699 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( N  e.  NN  ->  ( ! `  ( (
( 2  x.  N
)  -  1 )  -  N ) )  =  ( ! `  ( N  -  1
) ) )
115114oveq1d 6100 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( N  e.  NN  ->  (
( ! `  (
( ( 2  x.  N )  -  1 )  -  N ) )  x.  ( ! `
 N ) )  =  ( ( ! `
 ( N  - 
1 ) )  x.  ( ! `  N
) ) )
116115oveq2d 6101 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  (
( ! `  (
( 2  x.  N
)  -  1 ) )  /  ( ( ! `  ( ( ( 2  x.  N
)  -  1 )  -  N ) )  x.  ( ! `  N ) ) )  =  ( ( ! `
 ( ( 2  x.  N )  - 
1 ) )  / 
( ( ! `  ( N  -  1
) )  x.  ( ! `  N )
) ) )
117108, 116eqtrd 2271 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =  ( ( ! `
 ( ( 2  x.  N )  - 
1 ) )  / 
( ( ! `  ( N  -  1
) )  x.  ( ! `  N )
) ) )
118117adantr 276 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ( 2  x.  N )  - 
1 )  _C  N
)  =  ( ( ! `  ( ( 2  x.  N )  -  1 ) )  /  ( ( ! `
 ( N  - 
1 ) )  x.  ( ! `  N
) ) ) )
119118oveq2d 6101 . . . . . . . . . . . . . . . . . 18  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  =  ( p 
pCnt  ( ( ! `
 ( ( 2  x.  N )  - 
1 ) )  / 
( ( ! `  ( N  -  1
) )  x.  ( ! `  N )
) ) ) )
120 nnz 9667 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ! `  ( ( 2  x.  N )  -  1 ) )  e.  NN  ->  ( ! `  ( (
2  x.  N )  -  1 ) )  e.  ZZ )
121 nnne0 9334 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ! `  ( ( 2  x.  N )  -  1 ) )  e.  NN  ->  ( ! `  ( (
2  x.  N )  -  1 ) )  =/=  0 )
122120, 121jca 306 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ! `  ( ( 2  x.  N )  -  1 ) )  e.  NN  ->  (
( ! `  (
( 2  x.  N
)  -  1 ) )  e.  ZZ  /\  ( ! `  ( ( 2  x.  N )  -  1 ) )  =/=  0 ) )
12395, 122syl 14 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  (
( ! `  (
( 2  x.  N
)  -  1 ) )  e.  ZZ  /\  ( ! `  ( ( 2  x.  N )  -  1 ) )  =/=  0 ) )
124123adantr 276 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ! `  ( ( 2  x.  N )  -  1 ) )  e.  ZZ  /\  ( ! `  (
( 2  x.  N
)  -  1 ) )  =/=  0 ) )
12536faccld 11188 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  ( ! `  ( N  -  1 ) )  e.  NN )
12616faccld 11188 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  ( ! `  N )  e.  NN )
127125, 126nnmulcld 9355 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  (
( ! `  ( N  -  1 ) )  x.  ( ! `
 N ) )  e.  NN )
128127adantr 276 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ! `  ( N  -  1
) )  x.  ( ! `  N )
)  e.  NN )
129 pcdiv 13101 . . . . . . . . . . . . . . . . . . 19  |-  ( ( p  e.  Prime  /\  (
( ! `  (
( 2  x.  N
)  -  1 ) )  e.  ZZ  /\  ( ! `  ( ( 2  x.  N )  -  1 ) )  =/=  0 )  /\  ( ( ! `  ( N  -  1
) )  x.  ( ! `  N )
)  e.  NN )  ->  ( p  pCnt  ( ( ! `  (
( 2  x.  N
)  -  1 ) )  /  ( ( ! `  ( N  -  1 ) )  x.  ( ! `  N ) ) ) )  =  ( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  ( p  pCnt  ( ( ! `  ( N  -  1 ) )  x.  ( ! `  N ) ) ) ) )
13073, 124, 128, 129syl3anc 1278 . . . . . . . . . . . . . . . . . 18  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ! `  (
( 2  x.  N
)  -  1 ) )  /  ( ( ! `  ( N  -  1 ) )  x.  ( ! `  N ) ) ) )  =  ( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  ( p  pCnt  ( ( ! `  ( N  -  1 ) )  x.  ( ! `  N ) ) ) ) )
131 nnz 9667 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ! `  ( N  -  1 ) )  e.  NN  ->  ( ! `  ( N  -  1 ) )  e.  ZZ )
132 nnne0 9334 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ! `  ( N  -  1 ) )  e.  NN  ->  ( ! `  ( N  -  1 ) )  =/=  0 )
133131, 132jca 306 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ! `  ( N  -  1 ) )  e.  NN  ->  (
( ! `  ( N  -  1 ) )  e.  ZZ  /\  ( ! `  ( N  -  1 ) )  =/=  0 ) )
134125, 133syl 14 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  (
( ! `  ( N  -  1 ) )  e.  ZZ  /\  ( ! `  ( N  -  1 ) )  =/=  0 ) )
135134adantr 276 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ! `  ( N  -  1
) )  e.  ZZ  /\  ( ! `  ( N  -  1 ) )  =/=  0 ) )
136 nnz 9667 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ! `  N )  e.  NN  ->  ( ! `  N )  e.  ZZ )
137 nnne0 9334 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ! `  N )  e.  NN  ->  ( ! `  N )  =/=  0 )
138136, 137jca 306 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ! `  N )  e.  NN  ->  (
( ! `  N
)  e.  ZZ  /\  ( ! `  N )  =/=  0 ) )
139126, 138syl 14 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  (
( ! `  N
)  e.  ZZ  /\  ( ! `  N )  =/=  0 ) )
140139adantr 276 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ! `  N )  e.  ZZ  /\  ( ! `  N
)  =/=  0 ) )
141 pcmul 13100 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( p  e.  Prime  /\  (
( ! `  ( N  -  1 ) )  e.  ZZ  /\  ( ! `  ( N  -  1 ) )  =/=  0 )  /\  ( ( ! `  N )  e.  ZZ  /\  ( ! `  N
)  =/=  0 ) )  ->  ( p  pCnt  ( ( ! `  ( N  -  1
) )  x.  ( ! `  N )
) )  =  ( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  +  ( p 
pCnt  ( ! `  N ) ) ) )
14273, 135, 140, 141syl3anc 1278 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ! `  ( N  -  1 ) )  x.  ( ! `
 N ) ) )  =  ( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  +  ( p  pCnt  ( ! `  N )
) ) )
143142oveq2d 6101 . . . . . . . . . . . . . . . . . 18  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  ( p 
pCnt  ( ( ! `
 ( N  - 
1 ) )  x.  ( ! `  N
) ) ) )  =  ( ( p 
pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  ( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  +  ( p 
pCnt  ( ! `  N ) ) ) ) )
144119, 130, 1433eqtrd 2275 . . . . . . . . . . . . . . . . 17  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  =  ( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  ( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  +  ( p 
pCnt  ( ! `  N ) ) ) ) )
145144adantr 276 . . . . . . . . . . . . . . . 16  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  =  ( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  ( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  +  ( p 
pCnt  ( ! `  N ) ) ) ) )
146 simprr 537 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  -.  p  <_  N )
147 prmfac1 12947 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( N  e.  NN0  /\  p  e.  Prime  /\  p  ||  ( ! `  N
) )  ->  p  <_  N )
1481473expia 1236 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN0  /\  p  e.  Prime )  -> 
( p  ||  ( ! `  N )  ->  p  <_  N )
)
14916, 148sylan 283 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  ||  ( ! `  N )  ->  p  <_  N )
)
150149adantr 276 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  ||  ( ! `  N )  ->  p  <_  N )
)
151146, 150mtod 673 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  -.  p  ||  ( ! `
 N ) )
15286adantl 277 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  p  e.  ZZ )
153135simpld 112 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ! `  ( N  -  1 ) )  e.  ZZ )
154 nnz 9667 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  N  e.  ZZ )
155154adantr 276 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  N  e.  ZZ )
156 dvdsmultr1 12614 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( p  e.  ZZ  /\  ( ! `  ( N  -  1 ) )  e.  ZZ  /\  N  e.  ZZ )  ->  (
p  ||  ( ! `  ( N  -  1 ) )  ->  p  ||  ( ( ! `  ( N  -  1
) )  x.  N
) ) )
157152, 153, 155, 156syl3anc 1278 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  ||  ( ! `  ( N  -  1 ) )  ->  p  ||  (
( ! `  ( N  -  1 ) )  x.  N ) ) )
158 facnn2 11186 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  ( ! `  N )  =  ( ( ! `
 ( N  - 
1 ) )  x.  N ) )
159158adantr 276 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ! `  N
)  =  ( ( ! `  ( N  -  1 ) )  x.  N ) )
160159breq2d 4142 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  ||  ( ! `  N )  <->  p 
||  ( ( ! `
 ( N  - 
1 ) )  x.  N ) ) )
161157, 160sylibrd 169 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  ||  ( ! `  ( N  -  1 ) )  ->  p  ||  ( ! `  N )
) )
162161adantr 276 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  ||  ( ! `  ( N  -  1 ) )  ->  p  ||  ( ! `  N )
) )
163151, 162mtod 673 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  -.  p  ||  ( ! `
 ( N  - 
1 ) ) )
164 pceq0 13121 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( p  e.  Prime  /\  ( ! `  ( N  -  1 ) )  e.  NN )  -> 
( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  =  0  <->  -.  p  ||  ( ! `  ( N  -  1
) ) ) )
16594, 125, 164syl2anr 290 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  =  0  <->  -.  p  ||  ( ! `  ( N  -  1
) ) ) )
166165adantr 276 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  =  0  <->  -.  p  ||  ( ! `  ( N  -  1
) ) ) )
167163, 166mpbird 167 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  pCnt  ( ! `  ( N  -  1 ) ) )  =  0 )
168 pceq0 13121 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( p  e.  Prime  /\  ( ! `  N )  e.  NN )  ->  (
( p  pCnt  ( ! `  N )
)  =  0  <->  -.  p  ||  ( ! `  N ) ) )
16994, 126, 168syl2anr 290 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( p  pCnt  ( ! `  N ) )  =  0  <->  -.  p  ||  ( ! `  N ) ) )
170169adantr 276 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( p  pCnt  ( ! `  N ) )  =  0  <->  -.  p  ||  ( ! `  N ) ) )
171151, 170mpbird 167 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  pCnt  ( ! `  N )
)  =  0 )
172167, 171oveq12d 6103 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  +  ( p 
pCnt  ( ! `  N ) ) )  =  ( 0  +  0 ) )
173 00id 8468 . . . . . . . . . . . . . . . . . 18  |-  ( 0  +  0 )  =  0
174172, 173eqtrdi 2287 . . . . . . . . . . . . . . . . 17  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  +  ( p 
pCnt  ( ! `  N ) ) )  =  0 )
175174oveq2d 6101 . . . . . . . . . . . . . . . 16  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  ( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  +  ( p  pCnt  ( ! `  N )
) ) )  =  ( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  0 ) )
176 pccl 13098 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( p  e.  Prime  /\  ( ! `  ( (
2  x.  N )  -  1 ) )  e.  NN )  -> 
( p  pCnt  ( ! `  ( (
2  x.  N )  -  1 ) ) )  e.  NN0 )
17794, 95, 176syl2anr 290 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( ! `  ( (
2  x.  N )  -  1 ) ) )  e.  NN0 )
178177nn0cnd 9626 . . . . . . . . . . . . . . . . . 18  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( ! `  ( (
2  x.  N )  -  1 ) ) )  e.  CC )
179178subid1d 8627 . . . . . . . . . . . . . . . . 17  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  0 )  =  ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) ) )
180179adantr 276 . . . . . . . . . . . . . . . 16  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  0 )  =  ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) ) )
181145, 175, 1803eqtrd 2275 . . . . . . . . . . . . . . 15  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  =  ( p 
pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) ) )
182103, 106, 1813eqtrd 2275 . . . . . . . . . . . . . 14  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( if ( p  <_  N ,  1 ,  0 )  +  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  =  ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) ) )
183100, 182breqtrrd 4158 . . . . . . . . . . . . 13  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
1  <_  ( if ( p  <_  N , 
1 ,  0 )  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
184183expr 375 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  p  <_  ( ( 2  x.  N )  -  1 ) )  ->  ( -.  p  <_  N  ->  1  <_  ( if ( p  <_  N ,  1 , 
0 )  +  ( p  pCnt  ( (
( 2  x.  N
)  -  1 )  _C  N ) ) ) ) )
185 zdcle 9725 . . . . . . . . . . . . . . 15  |-  ( ( p  e.  ZZ  /\  N  e.  ZZ )  -> DECID  p  <_  N )
18686, 154, 185syl2anr 290 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> DECID  p  <_  N )
187 exmiddc 848 . . . . . . . . . . . . . 14  |-  (DECID  p  <_  N  ->  ( p  <_  N  \/  -.  p  <_  N ) )
188186, 187syl 14 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  <_  N  \/  -.  p  <_  N
) )
189188adantr 276 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  p  <_  ( ( 2  x.  N )  -  1 ) )  ->  ( p  <_  N  \/  -.  p  <_  N ) )
19082, 184, 189mpjaod 730 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  p  <_  ( ( 2  x.  N )  -  1 ) )  ->  1  <_  ( if ( p  <_  N ,  1 ,  0 )  +  ( p 
pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
19172, 190eqbrtrd 4152 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  p  <_  ( ( 2  x.  N )  -  1 ) )  ->  if ( p  <_  ( ( 2  x.  N )  - 
1 ) ,  1 ,  0 )  <_ 
( if ( p  <_  N ,  1 ,  0 )  +  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
192191ex 115 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  <_  (
( 2  x.  N
)  -  1 )  ->  if ( p  <_  ( ( 2  x.  N )  - 
1 ) ,  1 ,  0 )  <_ 
( if ( p  <_  N ,  1 ,  0 )  +  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) )
193 1nn0 9583 . . . . . . . . . . . . . 14  |-  1  e.  NN0
194193a1i 9 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
1  e.  NN0 )
195 0nn0 9582 . . . . . . . . . . . . . 14  |-  0  e.  NN0
196195a1i 9 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
0  e.  NN0 )
197194, 196, 186ifcldcd 3678 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  if ( p  <_  N ,  1 ,  0 )  e.  NN0 )
198197, 75nn0addcld 9628 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( if ( p  <_  N ,  1 ,  0 )  +  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  e.  NN0 )
199198nn0ge0d 9627 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
0  <_  ( if ( p  <_  N , 
1 ,  0 )  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
200 iffalse 3648 . . . . . . . . . . 11  |-  ( -.  p  <_  ( (
2  x.  N )  -  1 )  ->  if ( p  <_  (
( 2  x.  N
)  -  1 ) ,  1 ,  0 )  =  0 )
201200breq1d 4140 . . . . . . . . . 10  |-  ( -.  p  <_  ( (
2  x.  N )  -  1 )  -> 
( if ( p  <_  ( ( 2  x.  N )  - 
1 ) ,  1 ,  0 )  <_ 
( if ( p  <_  N ,  1 ,  0 )  +  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  <->  0  <_  ( if ( p  <_  N ,  1 , 
0 )  +  ( p  pCnt  ( (
( 2  x.  N
)  -  1 )  _C  N ) ) ) ) )
202199, 201syl5ibrcom 157 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( -.  p  <_ 
( ( 2  x.  N )  -  1 )  ->  if (
p  <_  ( (
2  x.  N )  -  1 ) ,  1 ,  0 )  <_  ( if ( p  <_  N , 
1 ,  0 )  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) )
203 zdcle 9725 . . . . . . . . . . 11  |-  ( ( p  e.  ZZ  /\  ( ( 2  x.  N )  -  1 )  e.  ZZ )  -> DECID 
p  <_  ( (
2  x.  N )  -  1 ) )
20486, 87, 203syl2anr 290 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> DECID  p  <_  ( ( 2  x.  N )  -  1 ) )
205 exmiddc 848 . . . . . . . . . 10  |-  (DECID  p  <_ 
( ( 2  x.  N )  -  1 )  ->  ( p  <_  ( ( 2  x.  N )  -  1 )  \/  -.  p  <_  ( ( 2  x.  N )  -  1 ) ) )
206204, 205syl 14 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  <_  (
( 2  x.  N
)  -  1 )  \/  -.  p  <_ 
( ( 2  x.  N )  -  1 ) ) )
207192, 202, 206mpjaod 730 . . . . . . . 8  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  if ( p  <_  (
( 2  x.  N
)  -  1 ) ,  1 ,  0 )  <_  ( if ( p  <_  N , 
1 ,  0 )  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
208 eqid 2238 . . . . . . . . . . . . 13  |-  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) )  =  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) )
209208prmorcht 16201 . . . . . . . . . . . 12  |-  ( ( ( 2  x.  N
)  -  1 )  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  =  (  seq 1 (  x.  ,  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `
 ( ( 2  x.  N )  - 
1 ) ) )
21041, 209syl 14 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  =  (  seq 1 (  x.  ,  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `
 ( ( 2  x.  N )  - 
1 ) ) )
211210oveq2d 6101 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
p  pCnt  ( exp `  ( theta `  ( (
2  x.  N )  -  1 ) ) ) )  =  ( p  pCnt  (  seq 1 (  x.  , 
( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `  (
( 2  x.  N
)  -  1 ) ) ) )
212211adantr 276 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) ) )  =  ( p  pCnt  (  seq 1 (  x.  , 
( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `  (
( 2  x.  N
)  -  1 ) ) ) )
213 nncn 9314 . . . . . . . . . . . . . 14  |-  ( n  e.  NN  ->  n  e.  CC )
214213exp1d 11119 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  (
n ^ 1 )  =  n )
215214ifeq1d 3658 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  if ( n  e.  Prime ,  ( n ^ 1 ) ,  1 )  =  if ( n  e.  Prime ,  n ,  1 ) )
216215mpteq2ia 4217 . . . . . . . . . . 11  |-  ( n  e.  NN  |->  if ( n  e.  Prime ,  ( n ^ 1 ) ,  1 ) )  =  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) )
217216eqcomi 2242 . . . . . . . . . 10  |-  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) )  =  ( n  e.  NN  |->  if ( n  e.  Prime ,  ( n ^ 1 ) ,  1 ) )
218193a1i 9 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  n  e.  Prime )  ->  1  e.  NN0 )
219218ralrimiva 2623 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  A. n  e.  Prime  1  e.  NN0 )
22041adantr 276 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( 2  x.  N )  -  1 )  e.  NN )
221 eqidd 2239 . . . . . . . . . 10  |-  ( n  =  p  ->  1  =  1 )
222217, 219, 220, 73, 221pcmpt 13142 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (  seq 1 (  x.  , 
( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `  (
( 2  x.  N
)  -  1 ) ) )  =  if ( p  <_  (
( 2  x.  N
)  -  1 ) ,  1 ,  0 ) )
223212, 222eqtrd 2271 . . . . . . . 8  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) ) )  =  if ( p  <_ 
( ( 2  x.  N )  -  1 ) ,  1 ,  0 ) )
224 efchtqcl 16165 . . . . . . . . . . . . 13  |-  ( N  e.  QQ  ->  ( exp `  ( theta `  N
) )  e.  NN )
22513, 224syl 14 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  ( exp `  ( theta `  N
) )  e.  NN )
226225adantr 276 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( exp `  ( theta `  N ) )  e.  NN )
227 nnz 9667 . . . . . . . . . . . 12  |-  ( ( exp `  ( theta `  N ) )  e.  NN  ->  ( exp `  ( theta `  N )
)  e.  ZZ )
228 nnne0 9334 . . . . . . . . . . . 12  |-  ( ( exp `  ( theta `  N ) )  e.  NN  ->  ( exp `  ( theta `  N )
)  =/=  0 )
229227, 228jca 306 . . . . . . . . . . 11  |-  ( ( exp `  ( theta `  N ) )  e.  NN  ->  ( ( exp `  ( theta `  N
) )  e.  ZZ  /\  ( exp `  ( theta `  N ) )  =/=  0 ) )
230226, 229syl 14 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( exp `  ( theta `  N ) )  e.  ZZ  /\  ( exp `  ( theta `  N
) )  =/=  0
) )
231 nnz 9667 . . . . . . . . . . . 12  |-  ( ( ( ( 2  x.  N )  -  1 )  _C  N )  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  ZZ )
232 nnne0 9334 . . . . . . . . . . . 12  |-  ( ( ( ( 2  x.  N )  -  1 )  _C  N )  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =/=  0 )
233231, 232jca 306 . . . . . . . . . . 11  |-  ( ( ( ( 2  x.  N )  -  1 )  _C  N )  e.  NN  ->  (
( ( ( 2  x.  N )  - 
1 )  _C  N
)  e.  ZZ  /\  ( ( ( 2  x.  N )  - 
1 )  _C  N
)  =/=  0 ) )
23474, 233syl 14 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ( ( 2  x.  N )  -  1 )  _C  N )  e.  ZZ  /\  ( ( ( 2  x.  N )  - 
1 )  _C  N
)  =/=  0 ) )
235 pcmul 13100 . . . . . . . . . 10  |-  ( ( p  e.  Prime  /\  (
( exp `  ( theta `  N ) )  e.  ZZ  /\  ( exp `  ( theta `  N
) )  =/=  0
)  /\  ( (
( ( 2  x.  N )  -  1 )  _C  N )  e.  ZZ  /\  (
( ( 2  x.  N )  -  1 )  _C  N )  =/=  0 ) )  ->  ( p  pCnt  ( ( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )  =  ( ( p 
pCnt  ( exp `  ( theta `  N ) ) )  +  ( p 
pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
23673, 230, 234, 235syl3anc 1278 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )  =  ( ( p 
pCnt  ( exp `  ( theta `  N ) ) )  +  ( p 
pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
237208prmorcht 16201 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  ( exp `  ( theta `  N
) )  =  (  seq 1 (  x.  ,  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `
 N ) )
238237oveq2d 6101 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
p  pCnt  ( exp `  ( theta `  N )
) )  =  ( p  pCnt  (  seq 1 (  x.  , 
( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `  N
) ) )
239238adantr 276 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( exp `  ( theta `  N
) ) )  =  ( p  pCnt  (  seq 1 (  x.  , 
( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `  N
) ) )
240 simpl 109 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  N  e.  NN )
241217, 219, 240, 73, 221pcmpt 13142 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (  seq 1 (  x.  , 
( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `  N
) )  =  if ( p  <_  N ,  1 ,  0 ) )
242239, 241eqtrd 2271 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( exp `  ( theta `  N
) ) )  =  if ( p  <_  N ,  1 , 
0 ) )
243242oveq1d 6100 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( p  pCnt  ( exp `  ( theta `  N ) ) )  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )  =  ( if ( p  <_  N ,  1 , 
0 )  +  ( p  pCnt  ( (
( 2  x.  N
)  -  1 )  _C  N ) ) ) )
244236, 243eqtrd 2271 . . . . . . . 8  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )  =  ( if ( p  <_  N , 
1 ,  0 )  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
245207, 223, 2443brtr4d 4162 . . . . . . 7  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) ) )  <_ 
( p  pCnt  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
246245ralrimiva 2623 . . . . . 6  |-  ( N  e.  NN  ->  A. p  e.  Prime  ( p  pCnt  ( exp `  ( theta `  ( ( 2  x.  N )  -  1 ) ) ) )  <_  ( p  pCnt  ( ( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
247 efchtqcl 16165 . . . . . . . . 9  |-  ( ( ( 2  x.  N
)  -  1 )  e.  QQ  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  e.  NN )
24810, 247syl 14 . . . . . . . 8  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  e.  NN )
249248nnzd 9771 . . . . . . 7  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  e.  ZZ )
250225, 58nnmulcld 9355 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  NN )
251250nnzd 9771 . . . . . . 7  |-  ( N  e.  NN  ->  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  ZZ )
252 pc2dvds 13129 . . . . . . 7  |-  ( ( ( exp `  ( theta `  ( ( 2  x.  N )  - 
1 ) ) )  e.  ZZ  /\  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  ZZ )  ->  (
( exp `  ( theta `  ( ( 2  x.  N )  - 
1 ) ) ) 
||  ( ( exp `  ( theta `  N )
)  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  <->  A. p  e.  Prime  ( p  pCnt  ( exp `  ( theta `  ( (
2  x.  N )  -  1 ) ) ) )  <_  (
p  pCnt  ( ( exp `  ( theta `  N
) )  x.  (
( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) )
253249, 251, 252syl2anc 415 . . . . . 6  |-  ( N  e.  NN  ->  (
( exp `  ( theta `  ( ( 2  x.  N )  - 
1 ) ) ) 
||  ( ( exp `  ( theta `  N )
)  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  <->  A. p  e.  Prime  ( p  pCnt  ( exp `  ( theta `  ( (
2  x.  N )  -  1 ) ) ) )  <_  (
p  pCnt  ( ( exp `  ( theta `  N
) )  x.  (
( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) )
254246, 253mpbird 167 . . . . 5  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  ||  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )
255 dvdsle 12627 . . . . . 6  |-  ( ( ( exp `  ( theta `  ( ( 2  x.  N )  - 
1 ) ) )  e.  ZZ  /\  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  NN )  ->  (
( exp `  ( theta `  ( ( 2  x.  N )  - 
1 ) ) ) 
||  ( ( exp `  ( theta `  N )
)  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  ->  ( exp `  ( theta `  ( ( 2  x.  N )  - 
1 ) ) )  <_  ( ( exp `  ( theta `  N )
)  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) ) ) )
256249, 250, 255syl2anc 415 . . . . 5  |-  ( N  e.  NN  ->  (
( exp `  ( theta `  ( ( 2  x.  N )  - 
1 ) ) ) 
||  ( ( exp `  ( theta `  N )
)  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  ->  ( exp `  ( theta `  ( ( 2  x.  N )  - 
1 ) ) )  <_  ( ( exp `  ( theta `  N )
)  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) ) ) )
257254, 256mpd 13 . . . 4  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  <_  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )
25815recnd 8354 . . . . . 6  |-  ( N  e.  NN  ->  ( theta `  N )  e.  CC )
25960recnd 8354 . . . . . 6  |-  ( N  e.  NN  ->  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  CC )
260 efadd 12458 . . . . . 6  |-  ( ( ( theta `  N )  e.  CC  /\  ( log `  ( ( ( 2  x.  N )  - 
1 )  _C  N
) )  e.  CC )  ->  ( exp `  (
( theta `  N )  +  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) ) )  =  ( ( exp `  ( theta `  N ) )  x.  ( exp `  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) )
261258, 259, 260syl2anc 415 . . . . 5  |-  ( N  e.  NN  ->  ( exp `  ( ( theta `  N )  +  ( log `  ( ( ( 2  x.  N
)  -  1 )  _C  N ) ) ) )  =  ( ( exp `  ( theta `  N ) )  x.  ( exp `  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) )
26259reeflogd 16035 . . . . . 6  |-  ( N  e.  NN  ->  ( exp `  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  =  ( ( ( 2  x.  N )  -  1 )  _C  N ) )
263262oveq2d 6101 . . . . 5  |-  ( N  e.  NN  ->  (
( exp `  ( theta `  N ) )  x.  ( exp `  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )  =  ( ( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  - 
1 )  _C  N
) ) )
264261, 263eqtrd 2271 . . . 4  |-  ( N  e.  NN  ->  ( exp `  ( ( theta `  N )  +  ( log `  ( ( ( 2  x.  N
)  -  1 )  _C  N ) ) ) )  =  ( ( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )
265257, 264breqtrrd 4158 . . 3  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  <_  ( exp `  ( ( theta `  N )  +  ( log `  ( ( ( 2  x.  N
)  -  1 )  _C  N ) ) ) ) )
266 efle 15926 . . . 4  |-  ( ( ( theta `  ( (
2  x.  N )  -  1 ) )  e.  RR  /\  (
( theta `  N )  +  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  e.  RR )  ->  ( ( theta `  ( ( 2  x.  N )  -  1 ) )  <_  (
( theta `  N )  +  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  <->  ( exp `  ( theta `  ( (
2  x.  N )  -  1 ) ) )  <_  ( exp `  ( ( theta `  N
)  +  ( log `  ( ( ( 2  x.  N )  - 
1 )  _C  N
) ) ) ) ) )
26712, 61, 266syl2anc 415 . . 3  |-  ( N  e.  NN  ->  (
( theta `  ( (
2  x.  N )  -  1 ) )  <_  ( ( theta `  N )  +  ( log `  ( ( ( 2  x.  N
)  -  1 )  _C  N ) ) )  <->  ( exp `  ( theta `  ( ( 2  x.  N )  - 
1 ) ) )  <_  ( exp `  (
( theta `  N )  +  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) ) )
268265, 267mpbird 167 . 2  |-  ( N  e.  NN  ->  ( theta `  ( ( 2  x.  N )  - 
1 ) )  <_ 
( ( theta `  N
)  +  ( log `  ( ( ( 2  x.  N )  - 
1 )  _C  N
) ) ) )
269 0zd 9660 . . . . . . . . . 10  |-  ( N  e.  NN  ->  0  e.  ZZ )
270269, 87fzfigd 10881 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
0 ... ( ( 2  x.  N )  - 
1 ) )  e. 
Fin )
271 elfzelz 10438 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) )  ->  k  e.  ZZ )
272 bccl 11219 . . . . . . . . . . 11  |-  ( ( ( ( 2  x.  N )  -  1 )  e.  NN0  /\  k  e.  ZZ )  ->  ( ( ( 2  x.  N )  - 
1 )  _C  k
)  e.  NN0 )
27343, 271, 272syl2an 289 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  k  e.  ( 0 ... ( ( 2  x.  N )  - 
1 ) ) )  ->  ( ( ( 2  x.  N )  -  1 )  _C  k )  e.  NN0 )
274273nn0red 9625 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  k  e.  ( 0 ... ( ( 2  x.  N )  - 
1 ) ) )  ->  ( ( ( 2  x.  N )  -  1 )  _C  k )  e.  RR )
275273nn0ge0d 9627 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  k  e.  ( 0 ... ( ( 2  x.  N )  - 
1 ) ) )  ->  0  <_  (
( ( 2  x.  N )  -  1 )  _C  k ) )
276 nn0uz 9966 . . . . . . . . . . . 12  |-  NN0  =  ( ZZ>= `  0 )
27736, 276eleqtrdi 2331 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  ( ZZ>= `  0
) )
278 fzss1 10479 . . . . . . . . . . 11  |-  ( ( N  -  1 )  e.  ( ZZ>= `  0
)  ->  ( ( N  -  1 ) ... N )  C_  ( 0 ... N
) )
279277, 278syl 14 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
( N  -  1 ) ... N ) 
C_  ( 0 ... N ) )
280 eluz 9944 . . . . . . . . . . . . 13  |-  ( ( N  e.  ZZ  /\  ( ( 2  x.  N )  -  1 )  e.  ZZ )  ->  ( ( ( 2  x.  N )  -  1 )  e.  ( ZZ>= `  N )  <->  N  <_  ( ( 2  x.  N )  - 
1 ) ) )
281154, 87, 280syl2anc 415 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  e.  ( ZZ>= `  N )  <->  N  <_  ( ( 2  x.  N
)  -  1 ) ) )
28254, 281mpbird 167 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  ( ZZ>= `  N
) )
283 fzss2 10480 . . . . . . . . . . 11  |-  ( ( ( 2  x.  N
)  -  1 )  e.  ( ZZ>= `  N
)  ->  ( 0 ... N )  C_  ( 0 ... (
( 2  x.  N
)  -  1 ) ) )
284282, 283syl 14 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
0 ... N )  C_  ( 0 ... (
( 2  x.  N
)  -  1 ) ) )
285279, 284sstrd 3258 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
( N  -  1 ) ... N ) 
C_  ( 0 ... ( ( 2  x.  N )  -  1 ) ) )
28636nn0zd 9770 . . . . . . . . . 10  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  ZZ )
287286, 154fzfigd 10881 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
( N  -  1 ) ... N )  e.  Fin )
288270, 274, 275, 285, 287fsumlessfi 12243 . . . . . . . 8  |-  ( N  e.  NN  ->  sum_ k  e.  ( ( N  - 
1 ) ... N
) ( ( ( 2  x.  N )  -  1 )  _C  k )  <_  sum_ k  e.  ( 0 ... (
( 2  x.  N
)  -  1 ) ) ( ( ( 2  x.  N )  -  1 )  _C  k ) )
289 bccmpl 11206 . . . . . . . . . . . . . . 15  |-  ( ( ( ( 2  x.  N )  -  1 )  e.  NN0  /\  N  e.  ZZ )  ->  ( ( ( 2  x.  N )  - 
1 )  _C  N
)  =  ( ( ( 2  x.  N
)  -  1 )  _C  ( ( ( 2  x.  N )  -  1 )  -  N ) ) )
29043, 154, 289syl2anc 415 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( ( ( 2  x.  N )  - 
1 )  -  N
) ) )
291113oveq2d 6101 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  ( ( ( 2  x.  N
)  -  1 )  -  N ) )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) ) )
292290, 291eqtrd 2271 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) ) )
29358nncnd 9320 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  CC )
294292, 293eqeltrrd 2316 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) )  e.  CC )
295 oveq2 6093 . . . . . . . . . . . . 13  |-  ( k  =  ( N  - 
1 )  ->  (
( ( 2  x.  N )  -  1 )  _C  k )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) ) )
296295fsum1 12195 . . . . . . . . . . . 12  |-  ( ( ( N  -  1 )  e.  ZZ  /\  ( ( ( 2  x.  N )  - 
1 )  _C  ( N  -  1 ) )  e.  CC )  ->  sum_ k  e.  ( ( N  -  1 ) ... ( N  -  1 ) ) ( ( ( 2  x.  N )  - 
1 )  _C  k
)  =  ( ( ( 2  x.  N
)  -  1 )  _C  ( N  - 
1 ) ) )
297286, 294, 296syl2anc 415 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  sum_ k  e.  ( ( N  - 
1 ) ... ( N  -  1 ) ) ( ( ( 2  x.  N )  -  1 )  _C  k )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) ) )
298297, 292eqtr4d 2274 . . . . . . . . . 10  |-  ( N  e.  NN  ->  sum_ k  e.  ( ( N  - 
1 ) ... ( N  -  1 ) ) ( ( ( 2  x.  N )  -  1 )  _C  k )  =  ( ( ( 2  x.  N )  -  1 )  _C  N ) )
299298oveq1d 6100 . . . . . . . . 9  |-  ( N  e.  NN  ->  ( sum_ k  e.  ( ( N  -  1 ) ... ( N  - 
1 ) ) ( ( ( 2  x.  N )  -  1 )  _C  k )  +  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  =  ( ( ( ( 2  x.  N )  -  1 )  _C  N )  +  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )
30025, 110npcand 8642 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( N  -  1 )  +  1 )  =  N )
301286uzidd 9946 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
302 peano2uz 9992 . . . . . . . . . . . 12  |-  ( ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1 ) )  ->  ( ( N  -  1 )  +  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
303301, 302syl 14 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( N  -  1 )  +  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
304300, 303eqeltrrd 2316 . . . . . . . . . 10  |-  ( N  e.  NN  ->  N  e.  ( ZZ>= `  ( N  -  1 ) ) )
305285sselda 3248 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  k  e.  ( ( N  -  1 ) ... N ) )  ->  k  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) ) )
306273nn0cnd 9626 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  k  e.  ( 0 ... ( ( 2  x.  N )  - 
1 ) ) )  ->  ( ( ( 2  x.  N )  -  1 )  _C  k )  e.  CC )
307305, 306syldan 282 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  k  e.  ( ( N  -  1 ) ... N ) )  ->  ( ( ( 2  x.  N )  -  1 )  _C  k )  e.  CC )
308 oveq2 6093 . . . . . . . . . 10  |-  ( k  =  N  ->  (
( ( 2  x.  N )  -  1 )  _C  k )  =  ( ( ( 2  x.  N )  -  1 )  _C  N ) )
309304, 307, 308fsumm1 12199 . . . . . . . . 9  |-  ( N  e.  NN  ->  sum_ k  e.  ( ( N  - 
1 ) ... N
) ( ( ( 2  x.  N )  -  1 )  _C  k )  =  (
sum_ k  e.  ( ( N  -  1 ) ... ( N  -  1 ) ) ( ( ( 2  x.  N )  - 
1 )  _C  k
)  +  ( ( ( 2  x.  N
)  -  1 )  _C  N ) ) )
3102932timesd 9552 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  =  ( ( ( ( 2  x.  N
)  -  1 )  _C  N )  +  ( ( ( 2  x.  N )  - 
1 )  _C  N
) ) )
311299, 309, 3103eqtr4rd 2282 . . . . . . . 8  |-  ( N  e.  NN  ->  (
2  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  =  sum_ k  e.  ( ( N  -  1 ) ... N ) ( ( ( 2  x.  N )  - 
1 )  _C  k
) )
312 binom11 12269 . . . . . . . . 9  |-  ( ( ( 2  x.  N
)  -  1 )  e.  NN0  ->  ( 2 ^ ( ( 2  x.  N )  - 
1 ) )  = 
sum_ k  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) ) ( ( ( 2  x.  N )  - 
1 )  _C  k
) )
31343, 312syl 14 . . . . . . . 8  |-  ( N  e.  NN  ->  (
2 ^ ( ( 2  x.  N )  -  1 ) )  =  sum_ k  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) ) ( ( ( 2  x.  N )  - 
1 )  _C  k
) )
314288, 311, 3133brtr4d 4162 . . . . . . 7  |-  ( N  e.  NN  ->  (
2  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  <_  ( 2 ^ ( ( 2  x.  N )  -  1 ) ) )
315 mulcom 8308 . . . . . . . 8  |-  ( ( 2  e.  CC  /\  ( ( ( 2  x.  N )  - 
1 )  _C  N
)  e.  CC )  ->  ( 2  x.  ( ( ( 2  x.  N )  - 
1 )  _C  N
) )  =  ( ( ( ( 2  x.  N )  - 
1 )  _C  N
)  x.  2 ) )
31620, 293, 315sylancr 418 . . . . . . 7  |-  ( N  e.  NN  ->  (
2  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  =  ( ( ( ( 2  x.  N
)  -  1 )  _C  N )  x.  2 ) )
31734oveq2d 6101 . . . . . . . 8  |-  ( N  e.  NN  ->  (
2 ^ ( ( 2  x.  N )  -  1 ) )  =  ( 2 ^ ( ( 2  x.  ( N  -  1 ) )  +  1 ) ) )
318 expp1 10996 . . . . . . . . 9  |-  ( ( 2  e.  CC  /\  ( 2  x.  ( N  -  1 ) )  e.  NN0 )  ->  ( 2 ^ (
( 2  x.  ( N  -  1 ) )  +  1 ) )  =  ( ( 2 ^ ( 2  x.  ( N  - 
1 ) ) )  x.  2 ) )
31920, 38, 318sylancr 418 . . . . . . . 8  |-  ( N  e.  NN  ->  (
2 ^ ( ( 2  x.  ( N  -  1 ) )  +  1 ) )  =  ( ( 2 ^ ( 2  x.  ( N  -  1 ) ) )  x.  2 ) )
32020a1i 9 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  2  e.  CC )
32135a1i 9 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  2  e.  NN0 )
322320, 36, 321expmuld 11127 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
2 ^ ( 2  x.  ( N  - 
1 ) ) )  =  ( ( 2 ^ 2 ) ^
( N  -  1 ) ) )
323 sq2 11085 . . . . . . . . . . 11  |-  ( 2 ^ 2 )  =  4
324323oveq1i 6095 . . . . . . . . . 10  |-  ( ( 2 ^ 2 ) ^ ( N  - 
1 ) )  =  ( 4 ^ ( N  -  1 ) )
325322, 324eqtrdi 2287 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2 ^ ( 2  x.  ( N  - 
1 ) ) )  =  ( 4 ^ ( N  -  1 ) ) )
326325oveq1d 6100 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( 2 ^ (
2  x.  ( N  -  1 ) ) )  x.  2 )  =  ( ( 4 ^ ( N  - 
1 ) )  x.  2 ) )
327317, 319, 3263eqtrd 2275 . . . . . . 7  |-  ( N  e.  NN  ->  (
2 ^ ( ( 2  x.  N )  -  1 ) )  =  ( ( 4 ^ ( N  - 
1 ) )  x.  2 ) )
328314, 316, 3273brtr3d 4161 . . . . . 6  |-  ( N  e.  NN  ->  (
( ( ( 2  x.  N )  - 
1 )  _C  N
)  x.  2 )  <_  ( ( 4 ^ ( N  - 
1 ) )  x.  2 ) )
32958nnred 9319 . . . . . . 7  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  RR )
330 reexpcl 11006 . . . . . . . 8  |-  ( ( 4  e.  RR  /\  ( N  -  1
)  e.  NN0 )  ->  ( 4 ^ ( N  -  1 ) )  e.  RR )
33162, 36, 330sylancr 418 . . . . . . 7  |-  ( N  e.  NN  ->  (
4 ^ ( N  -  1 ) )  e.  RR )
332 2re 9376 . . . . . . . . 9  |-  2  e.  RR
333 2pos 9397 . . . . . . . . 9  |-  0  <  2
334332, 333pm3.2i 272 . . . . . . . 8  |-  ( 2  e.  RR  /\  0  <  2 )
335334a1i 9 . . . . . . 7  |-  ( N  e.  NN  ->  (
2  e.  RR  /\  0  <  2 ) )
336 lemul1 8923 . . . . . . 7  |-  ( ( ( ( ( 2  x.  N )  - 
1 )  _C  N
)  e.  RR  /\  ( 4 ^ ( N  -  1 ) )  e.  RR  /\  ( 2  e.  RR  /\  0  <  2 ) )  ->  ( (
( ( 2  x.  N )  -  1 )  _C  N )  <_  ( 4 ^ ( N  -  1 ) )  <->  ( (
( ( 2  x.  N )  -  1 )  _C  N )  x.  2 )  <_ 
( ( 4 ^ ( N  -  1 ) )  x.  2 ) ) )
337329, 331, 335, 336syl3anc 1278 . . . . . 6  |-  ( N  e.  NN  ->  (
( ( ( 2  x.  N )  - 
1 )  _C  N
)  <_  ( 4 ^ ( N  - 
1 ) )  <->  ( (
( ( 2  x.  N )  -  1 )  _C  N )  x.  2 )  <_ 
( ( 4 ^ ( N  -  1 ) )  x.  2 ) ) )
338328, 337mpbird 167 . . . . 5  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  <_  ( 4 ^ ( N  -  1 ) ) )
33966recni 8338 . . . . . . . 8  |-  ( log `  4 )  e.  CC
340 mulcom 8308 . . . . . . . 8  |-  ( ( ( log `  4
)  e.  CC  /\  ( N  -  1
)  e.  CC )  ->  ( ( log `  4 )  x.  ( N  -  1 ) )  =  ( ( N  -  1 )  x.  ( log `  4 ) ) )
341339, 109, 340sylancr 418 . . . . . . 7  |-  ( N  e.  NN  ->  (
( log `  4
)  x.  ( N  -  1 ) )  =  ( ( N  -  1 )  x.  ( log `  4
) ) )
342341fveq2d 5699 . . . . . 6  |-  ( N  e.  NN  ->  ( exp `  ( ( log `  4 )  x.  ( N  -  1 ) ) )  =  ( exp `  (
( N  -  1 )  x.  ( log `  4 ) ) ) )
343 reexplog 16023 . . . . . . 7  |-  ( ( 4  e.  RR+  /\  ( N  -  1 )  e.  ZZ )  -> 
( 4 ^ ( N  -  1 ) )  =  ( exp `  ( ( N  - 
1 )  x.  ( log `  4 ) ) ) )
34464, 286, 343sylancr 418 . . . . . 6  |-  ( N  e.  NN  ->  (
4 ^ ( N  -  1 ) )  =  ( exp `  (
( N  -  1 )  x.  ( log `  4 ) ) ) )
345342, 344eqtr4d 2274 . . . . 5  |-  ( N  e.  NN  ->  ( exp `  ( ( log `  4 )  x.  ( N  -  1 ) ) )  =  ( 4 ^ ( N  -  1 ) ) )
346338, 262, 3453brtr4d 4162 . . . 4  |-  ( N  e.  NN  ->  ( exp `  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  <_  ( exp `  ( ( log `  4 )  x.  ( N  -  1 ) ) ) )
347 efle 15926 . . . . 5  |-  ( ( ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) )  e.  RR  /\  ( ( log `  4
)  x.  ( N  -  1 ) )  e.  RR )  -> 
( ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) )  <_  ( ( log `  4 )  x.  ( N  -  1 ) )  <->  ( exp `  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  <_  ( exp `  ( ( log `  4 )  x.  ( N  -  1 ) ) ) ) )
34860, 69, 347syl2anc 415 . . . 4  |-  ( N  e.  NN  ->  (
( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) )  <_  ( ( log `  4 )  x.  ( N  -  1 ) )  <->  ( exp `  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  <_  ( exp `  ( ( log `  4 )  x.  ( N  -  1 ) ) ) ) )
349346, 348mpbird 167 . . 3  |-  ( N  e.  NN  ->  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  <_ 
( ( log `  4
)  x.  ( N  -  1 ) ) )
35060, 69, 15, 349leadd2dd 8889 . 2  |-  ( N  e.  NN  ->  (
( theta `  N )  +  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  <_  (
( theta `  N )  +  ( ( log `  4 )  x.  ( N  -  1 ) ) ) )
35112, 61, 70, 268, 350letrd 8451 1  |-  ( N  e.  NN  ->  ( theta `  ( ( 2  x.  N )  - 
1 ) )  <_ 
( ( theta `  N
)  +  ( ( log `  4 )  x.  ( N  - 
1 ) ) ) )
Colors of variables:    wff set class
This proof depends on syntax axioms:   -. wn 3    -> wi 4    /\ wa 104    <-> wb 105    \/ wo 720  DECID wdc 846    = wceq 1402    e. wcel 2209    =/= wne 2420   A.wral 2528    C_ wss 3220   ifcif 3638   class class class wbr 4130    |-> cmpt 4192   ` cfv 5377  (class class class)co 6085   CCcc 8177   RRcr 8178   0cc0 8179   1c1 8180    + caddc 8182    x. cmul 8184    < clt 8360    <_ cle 8361    - cmin 8498    / cdiv 9004   NNcn 9306   2c2 9357   4c4 9359   NN0cn0 9567   ZZcz 9648   ZZ>=cuz 9930   QQcq 10028   RR+crp 10064   ...cfz 10421    seqcseq 10897   ^cexp 10988   !cfa 11177    _C cbc 11199   sum_csu 12135   expce 12425    || cdvds 12570   Primecprime 12901    pCnt cpc 13083   logclog 16007   thetaccht 16152
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-coll 4246  ax-sep 4249  ax-nul 4259  ax-pow 4311  ax-pr 4346  ax-un 4578  ax-setind 4684  ax-iinf 4735  ax-cnex 8270  ax-resscn 8271  ax-1cn 8272  ax-1re 8273  ax-icn 8274  ax-addcl 8275  ax-addrcl 8276  ax-mulcl 8277  ax-mulrcl 8278  ax-addcom 8279  ax-mulcom 8280  ax-addass 8281  ax-mulass 8282  ax-distr 8283  ax-i2m1 8284  ax-0lt1 8285  ax-1rid 8286  ax-0id 8287  ax-rnegex 8288  ax-precex 8289  ax-cnre 8290  ax-pre-ltirr 8291  ax-pre-ltwlin 8292  ax-pre-lttrn 8293  ax-pre-apti 8294  ax-pre-ltadd 8295  ax-pre-mulgt0 8296  ax-pre-mulext 8297  ax-arch 8298  ax-caucvg 8299  ax-pre-suploc 8300  ax-addf 8301  ax-mulf 8302
This proof depends on definitions:  df-bi 117  df-stab 843  df-dc 847  df-3or 1010  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-nel 2516  df-ral 2533  df-rex 2534  df-reu 2535  df-rmo 2536  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-if 3639  df-pw 3690  df-sn 3715  df-pr 3716  df-op 3718  df-uni 3936  df-int 3971  df-iun 4014  df-disj 4107  df-br 4131  df-opab 4193  df-mpt 4194  df-tr 4230  df-id 4438  df-po 4441  df-iso 4442  df-iord 4511  df-on 4513  df-ilim 4514  df-suc 4516  df-iom 4738  df-xp 4780  df-rel 4781  df-cnv 4782  df-co 4783  df-dm 4784  df-rn 4785  df-res 4786  df-ima 4787  df-iota 5337  df-fun 5379  df-fn 5380  df-f 5381  df-f1 5382  df-fo 5383  df-f1o 5384  df-fv 5385  df-isom 5386  df-riota 6038  df-ov 6088  df-oprab 6089  df-mpo 6090  df-of 6302  df-1st 6374  df-2nd 6375  df-recs 6576  df-irdg 6641  df-frec 6662  df-1o 6687  df-2o 6688  df-oadd 6691  df-er 6807  df-map 6924  df-pm 6925  df-en 7023  df-dom 7024  df-fin 7025  df-sup 7324  df-inf 7325  df-pnf 8362  df-mnf 8363  df-xr 8364  df-ltxr 8365  df-le 8366  df-sub 8500  df-neg 8501  df-reap 8905  df-ap 8912  df-div 9005  df-inn 9307  df-2 9365  df-3 9366  df-4 9367  df-n0 9568  df-xnn0 9635  df-z 9649  df-uz 9931  df-q 10029  df-rp 10065  df-xneg 10184  df-xadd 10185  df-ioo 10304  df-ico 10306  df-icc 10307  df-fz 10422  df-fzo 10560  df-fl 10715  df-mod 10773  df-seqfrec 10898  df-exp 10989  df-fac 11178  df-bc 11200  df-ihash 11229  df-shft 11594  df-cj 11621  df-re 11622  df-im 11623  df-rsqrt 11778  df-abs 11779  df-clim 12061  df-sumdc 12136  df-ef 12431  df-e 12432  df-dvds 12571  df-gcd 12747  df-prm 12902  df-pc 13084  df-rest 13644  df-topgen 13663  df-psmet 14929  df-xmet 14930  df-met 14931  df-bl 14932  df-mopn 14933  df-top 15148  df-topon 15161  df-bases 15193  df-ntr 15246  df-cn 15338  df-cnp 15339  df-tx 15403  df-cncf 15721  df-limced 15806  df-dvap 15807  df-relog 16009  df-cht 16155
This theorem is used by:  chtqub  16215
  Copyright terms: Public domain W3C validator