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

Theorem chtublem 16307
Description: Lemma for chtqub 16308. (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 9478 . . . . . 6  |-  2  e.  NN
2 nnmulcl 9335 . . . . . 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 10050 . . . . 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 9682 . . . . 5  |-  1  e.  ZZ
7 zq 10043 . . . . 5  |-  ( 1  e.  ZZ  ->  1  e.  QQ )
86, 7ax-mp 5 . . . 4  |-  1  e.  QQ
9 qsubcl 10055 . . . 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 16256 . . 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 10050 . . . 4  |-  ( N  e.  NN  ->  N  e.  QQ )
14 chtqcl 16256 . . . 4  |-  ( N  e.  QQ  ->  ( theta `  N )  e.  RR )
1513, 14syl 14 . . 3  |-  ( N  e.  NN  ->  ( theta `  N )  e.  RR )
16 nnnn0 9582 . . . . . . 7  |-  ( N  e.  NN  ->  N  e.  NN0 )
17 2m1e1 9432 . . . . . . . . . . 11  |-  ( 2  -  1 )  =  1
1817oveq2i 6099 . . . . . . . . . 10  |-  ( ( 2  x.  N )  -  ( 2  -  1 ) )  =  ( ( 2  x.  N )  -  1 )
193nncnd 9328 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  CC )
20 2cn 9385 . . . . . . . . . . . . 13  |-  2  e.  CC
21 ax-1cn 8279 . . . . . . . . . . . . 13  |-  1  e.  CC
22 subsub 8564 . . . . . . . . . . . . 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 9322 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  N  e.  CC )
26 subdi 8720 . . . . . . . . . . . . . . 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 9468 . . . . . . . . . . . . . 14  |-  ( 2  x.  1 )  =  2
3029oveq2i 6099 . . . . . . . . . . . . 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 6103 . . . . . . . . . . 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 9592 . . . . . . . . . . 11  |-  2  e.  NN0
36 nnm1nn0 9616 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  NN0 )
37 nn0mulcl 9611 . . . . . . . . . . 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 9614 . . . . . . . . . 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 9582 . . . . . . . 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 8332 . . . . . . . . . . 11  |-  1  e.  RR
4544a1i 9 . . . . . . . . . 10  |-  ( N  e.  NN  ->  1  e.  RR )
46 nnre 9321 . . . . . . . . . 10  |-  ( N  e.  NN  ->  N  e.  RR )
47 nnge1 9337 . . . . . . . . . 10  |-  ( N  e.  NN  ->  1  <_  N )
4845, 46, 46, 47leadd2dd 8896 . . . . . . . . 9  |-  ( N  e.  NN  ->  ( N  +  1 )  <_  ( N  +  N ) )
49252timesd 9560 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2  x.  N )  =  ( N  +  N ) )
5048, 49breqtrrd 4159 . . . . . . . 8  |-  ( N  e.  NN  ->  ( N  +  1 )  <_  ( 2  x.  N ) )
513nnred 9327 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  RR )
52 leaddsub 8774 . . . . . . . . 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 10537 . . . . . . 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 11229 . . . . . 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 10113 . . . 4  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  RR+ )
6059relogcld 16124 . . 3  |-  ( N  e.  NN  ->  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  RR )
6115, 60readdcld 8362 . 2  |-  ( N  e.  NN  ->  (
( theta `  N )  +  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  e.  RR )
62 4re 9391 . . . . . 6  |-  4  e.  RR
63 4pos 9411 . . . . . 6  |-  0  <  4
6462, 63elrpii 10075 . . . . 5  |-  4  e.  RR+
65 relogcl 16103 . . . . 5  |-  ( 4  e.  RR+  ->  ( log `  4 )  e.  RR )
6664, 65ax-mp 5 . . . 4  |-  ( log `  4 )  e.  RR
6736nn0red 9633 . . . 4  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  RR )
68 remulcl 8314 . . . 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 8362 . 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 13109 . . . . . . . . . . . . . . 15  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  e.  NN0 )
76 nn0addge1 9621 . . . . . . . . . . . . . . 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 6103 . . . . . . . . . . . . . . 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 4143 . . . . . . . . . . . . . 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 12914 . . . . . . . . . . . . . . . . . 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 12915 . . . . . . . . . . . . . . . . . . . 20  |-  ( p  e.  Prime  ->  p  e.  ZZ )
8741nnzd 9779 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  ZZ )
88 eluz 9952 . . . . . . . . . . . . . . . . . . . 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 12653 . . . . . . . . . . . . . . . . 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 11197 . . . . . . . . . . . . . . . . . 18  |-  ( N  e.  NN  ->  ( ! `  ( (
2  x.  N )  -  1 ) )  e.  NN )
96 pcelnn 13130 . . . . . . . . . . . . . . . . . 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 9357 . . . . . . . . . . . . . 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 6103 . . . . . . . . . . . . . . . 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 9634 . . . . . . . . . . . . . . . . 17  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  e.  CC )
105104addlidd 8484 . . . . . . . . . . . . . . . 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 11211 . . . . . . . . . . . . . . . . . . . . . 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 9634 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  CC )
11021a1i 9 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( N  e.  NN  ->  1  e.  CC )
11149oveq1d 6103 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  =  ( ( N  +  N )  - 
1 ) )
11225, 25, 110, 111assraddsubd 8702 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  =  ( N  +  ( N  -  1
) ) )
11325, 109, 112mvrladdd 8701 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  -  N )  =  ( N  - 
1 ) )
114113fveq2d 5702 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( N  e.  NN  ->  ( ! `  ( (
( 2  x.  N
)  -  1 )  -  N ) )  =  ( ! `  ( N  -  1
) ) )
115114oveq1d 6103 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( N  e.  NN  ->  (
( ! `  (
( ( 2  x.  N )  -  1 )  -  N ) )  x.  ( ! `
 N ) )  =  ( ( ! `
 ( N  - 
1 ) )  x.  ( ! `  N
) ) )
116115oveq2d 6104 . . . . . . . . . . . . . . . . . . . . 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 6104 . . . . . . . . . . . . . . . . . 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 9675 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ! `  ( ( 2  x.  N )  -  1 ) )  e.  NN  ->  ( ! `  ( (
2  x.  N )  -  1 ) )  e.  ZZ )
121 nnne0 9342 . . . . . . . . . . . . . . . . . . . . . 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 11197 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  ( ! `  ( N  -  1 ) )  e.  NN )
12616faccld 11197 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  ( ! `  N )  e.  NN )
127125, 126nnmulcld 9363 . . . . . . . . . . . . . . . . . . . 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 13111 . . . . . . . . . . . . . . . . . . 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 9675 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ! `  ( N  -  1 ) )  e.  NN  ->  ( ! `  ( N  -  1 ) )  e.  ZZ )
132 nnne0 9342 . . . . . . . . . . . . . . . . . . . . . . 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 9675 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ! `  N )  e.  NN  ->  ( ! `  N )  e.  ZZ )
137 nnne0 9342 . . . . . . . . . . . . . . . . . . . . . . 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 13110 . . . . . . . . . . . . . . . . . . . 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 6104 . . . . . . . . . . . . . . . . . 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 12957 . . . . . . . . . . . . . . . . . . . . . . . . 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 9675 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  N  e.  ZZ )
155154adantr 276 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  N  e.  ZZ )
156 dvdsmultr1 12624 . . . . . . . . . . . . . . . . . . . . . . . 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 11195 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  ( ! `  N )  =  ( ( ! `
 ( N  - 
1 ) )  x.  N ) )
159158adantr 276 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ! `  N
)  =  ( ( ! `  ( N  -  1 ) )  x.  N ) )
160159breq2d 4143 . . . . . . . . . . . . . . . . . . . . . . 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 13131 . . . . . . . . . . . . . . . . . . . . . 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 13131 . . . . . . . . . . . . . . . . . . . . . 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 6106 . . . . . . . . . . . . . . . . . 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 8475 . . . . . . . . . . . . . . . . . 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 6104 . . . . . . . . . . . . . . . 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 13108 . . . . . . . . . . . . . . . . . . . 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 9634 . . . . . . . . . . . . . . . . . 18  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( ! `  ( (
2  x.  N )  -  1 ) ) )  e.  CC )
179178subid1d 8634 . . . . . . . . . . . . . . . . 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 4159 . . . . . . . . . . . . 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 9733 . . . . . . . . . . . . . . 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 4153 . . . . . . . . . 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 9591 . . . . . . . . . . . . . 14  |-  1  e.  NN0
194193a1i 9 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
1  e.  NN0 )
195 0nn0 9590 . . . . . . . . . . . . . 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 9636 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( if ( p  <_  N ,  1 ,  0 )  +  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  e.  NN0 )
199198nn0ge0d 9635 . . . . . . . . . 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 4141 . . . . . . . . . 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 9733 . . . . . . . . . . 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 16294 . . . . . . . . . . . 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 6104 . . . . . . . . . 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 9322 . . . . . . . . . . . . . 14  |-  ( n  e.  NN  ->  n  e.  CC )
214213exp1d 11128 . . . . . . . . . . . . 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 4219 . . . . . . . . . . 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 13152 . . . . . . . . 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 16258 . . . . . . . . . . . . 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 9675 . . . . . . . . . . . 12  |-  ( ( exp `  ( theta `  N ) )  e.  NN  ->  ( exp `  ( theta `  N )
)  e.  ZZ )
228 nnne0 9342 . . . . . . . . . . . 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 9675 . . . . . . . . . . . 12  |-  ( ( ( ( 2  x.  N )  -  1 )  _C  N )  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  ZZ )
232 nnne0 9342 . . . . . . . . . . . 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 13110 . . . . . . . . . 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 16294 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  ( exp `  ( theta `  N
) )  =  (  seq 1 (  x.  ,  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `
 N ) )
238237oveq2d 6104 . . . . . . . . . . . 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 13152 . . . . . . . . . . 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 6103 . . . . . . . . 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 4163 . . . . . . 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 16258 . . . . . . . . 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 9779 . . . . . . 7  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  e.  ZZ )
250225, 58nnmulcld 9363 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  NN )
251250nnzd 9779 . . . . . . 7  |-  ( N  e.  NN  ->  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  ZZ )
252 pc2dvds 13139 . . . . . . 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 12637 . . . . . 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 8361 . . . . . 6  |-  ( N  e.  NN  ->  ( theta `  N )  e.  CC )
25960recnd 8361 . . . . . 6  |-  ( N  e.  NN  ->  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  CC )
260 efadd 12468 . . . . . 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 16125 . . . . . 6  |-  ( N  e.  NN  ->  ( exp `  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  =  ( ( ( 2  x.  N )  -  1 )  _C  N ) )
263262oveq2d 6104 . . . . 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 4159 . . 3  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  <_  ( exp `  ( ( theta `  N )  +  ( log `  ( ( ( 2  x.  N
)  -  1 )  _C  N ) ) ) ) )
266 efle 16014 . . . 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 9668 . . . . . . . . . 10  |-  ( N  e.  NN  ->  0  e.  ZZ )
270269, 87fzfigd 10890 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
0 ... ( ( 2  x.  N )  - 
1 ) )  e. 
Fin )
271 elfzelz 10446 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) )  ->  k  e.  ZZ )
272 bccl 11228 . . . . . . . . . . 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 9633 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  k  e.  ( 0 ... ( ( 2  x.  N )  - 
1 ) ) )  ->  ( ( ( 2  x.  N )  -  1 )  _C  k )  e.  RR )
275273nn0ge0d 9635 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  k  e.  ( 0 ... ( ( 2  x.  N )  - 
1 ) ) )  ->  0  <_  (
( ( 2  x.  N )  -  1 )  _C  k ) )
276 nn0uz 9974 . . . . . . . . . . . 12  |-  NN0  =  ( ZZ>= `  0 )
27736, 276eleqtrdi 2331 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  ( ZZ>= `  0
) )
278 fzss1 10487 . . . . . . . . . . 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 9952 . . . . . . . . . . . . 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 10488 . . . . . . . . . . 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 9778 . . . . . . . . . 10  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  ZZ )
287286, 154fzfigd 10890 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
( N  -  1 ) ... N )  e.  Fin )
288270, 274, 275, 285, 287fsumlessfi 12253 . . . . . . . 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 11215 . . . . . . . . . . . . . . 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 6104 . . . . . . . . . . . . . 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 9328 . . . . . . . . . . . . 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 6096 . . . . . . . . . . . . 13  |-  ( k  =  ( N  - 
1 )  ->  (
( ( 2  x.  N )  -  1 )  _C  k )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) ) )
296295fsum1 12205 . . . . . . . . . . . 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 6103 . . . . . . . . 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 8649 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( N  -  1 )  +  1 )  =  N )
301286uzidd 9954 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
302 peano2uz 10000 . . . . . . . . . . . 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 9634 . . . . . . . . . . 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 6096 . . . . . . . . . 10  |-  ( k  =  N  ->  (
( ( 2  x.  N )  -  1 )  _C  k )  =  ( ( ( 2  x.  N )  -  1 )  _C  N ) )
309304, 307, 308fsumm1 12209 . . . . . . . . 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 9560 . . . . . . . . 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 12279 . . . . . . . . 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 4163 . . . . . . 7  |-  ( N  e.  NN  ->  (
2  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  <_  ( 2 ^ ( ( 2  x.  N )  -  1 ) ) )
315 mulcom 8315 . . . . . . . 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 6104 . . . . . . . 8  |-  ( N  e.  NN  ->  (
2 ^ ( ( 2  x.  N )  -  1 ) )  =  ( 2 ^ ( ( 2  x.  ( N  -  1 ) )  +  1 ) ) )
318 expp1 11005 . . . . . . . . 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 11136 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
2 ^ ( 2  x.  ( N  - 
1 ) ) )  =  ( ( 2 ^ 2 ) ^
( N  -  1 ) ) )
323 sq2 11094 . . . . . . . . . . 11  |-  ( 2 ^ 2 )  =  4
324323oveq1i 6098 . . . . . . . . . 10  |-  ( ( 2 ^ 2 ) ^ ( N  - 
1 ) )  =  ( 4 ^ ( N  -  1 ) )
325322, 324eqtrdi 2287 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2 ^ ( 2  x.  ( N  - 
1 ) ) )  =  ( 4 ^ ( N  -  1 ) ) )
326325oveq1d 6103 . . . . . . . 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 4162 . . . . . 6  |-  ( N  e.  NN  ->  (
( ( ( 2  x.  N )  - 
1 )  _C  N
)  x.  2 )  <_  ( ( 4 ^ ( N  - 
1 ) )  x.  2 ) )
32958nnred 9327 . . . . . . 7  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  RR )
330 reexpcl 11015 . . . . . . . 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 9384 . . . . . . . . 9  |-  2  e.  RR
333 2pos 9405 . . . . . . . . 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 8930 . . . . . . 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 8345 . . . . . . . 8  |-  ( log `  4 )  e.  CC
340 mulcom 8315 . . . . . . . 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 5702 . . . . . 6  |-  ( N  e.  NN  ->  ( exp `  ( ( log `  4 )  x.  ( N  -  1 ) ) )  =  ( exp `  (
( N  -  1 )  x.  ( log `  4 ) ) ) )
343 reexplog 16113 . . . . . . 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 4163 . . . 4  |-  ( N  e.  NN  ->  ( exp `  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  <_  ( exp `  ( ( log `  4 )  x.  ( N  -  1 ) ) ) )
347 efle 16014 . . . . 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 8896 . 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 8458 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 4131    |-> cmpt 4193   ` cfv 5380  (class class class)co 6088   CCcc 8184   RRcr 8185   0cc0 8186   1c1 8187    + caddc 8189    x. cmul 8191    < clt 8367    <_ cle 8368    - cmin 8505    / cdiv 9011   NNcn 9314   2c2 9365   4c4 9367   NN0cn0 9575   ZZcz 9656   ZZ>=cuz 9938   QQcq 10036   RR+crp 10072   ...cfz 10429    seqcseq 10906   ^cexp 10997   !cfa 11186    _C cbc 11208   sum_csu 12145   expce 12435    || cdvds 12580   Primecprime 12911    pCnt cpc 13093   logclog 16097   thetaccht 16245
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 4248  ax-sep 4251  ax-nul 4261  ax-pow 4313  ax-pr 4348  ax-un 4580  ax-setind 4686  ax-iinf 4737  ax-cnex 8277  ax-resscn 8278  ax-1cn 8279  ax-1re 8280  ax-icn 8281  ax-addcl 8282  ax-addrcl 8283  ax-mulcl 8284  ax-mulrcl 8285  ax-addcom 8286  ax-mulcom 8287  ax-addass 8288  ax-mulass 8289  ax-distr 8290  ax-i2m1 8291  ax-0lt1 8292  ax-1rid 8293  ax-0id 8294  ax-rnegex 8295  ax-precex 8296  ax-cnre 8297  ax-pre-ltirr 8298  ax-pre-ltwlin 8299  ax-pre-lttrn 8300  ax-pre-apti 8301  ax-pre-ltadd 8302  ax-pre-mulgt0 8303  ax-pre-mulext 8304  ax-arch 8305  ax-caucvg 8306  ax-pre-suploc 8307  ax-addf 8308  ax-mulf 8309
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 4132  df-opab 4194  df-mpt 4195  df-tr 4232  df-id 4440  df-po 4443  df-iso 4444  df-iord 4513  df-on 4515  df-ilim 4516  df-suc 4518  df-iom 4740  df-xp 4782  df-rel 4783  df-cnv 4784  df-co 4785  df-dm 4786  df-rn 4787  df-res 4788  df-ima 4789  df-iota 5340  df-fun 5382  df-fn 5383  df-f 5384  df-f1 5385  df-fo 5386  df-f1o 5387  df-fv 5388  df-isom 5389  df-riota 6041  df-ov 6091  df-oprab 6092  df-mpo 6093  df-of 6305  df-1st 6378  df-2nd 6379  df-recs 6580  df-irdg 6645  df-frec 6666  df-1o 6691  df-2o 6692  df-oadd 6695  df-er 6811  df-map 6928  df-pm 6929  df-en 7028  df-dom 7029  df-fin 7030  df-sup 7331  df-inf 7332  df-pnf 8369  df-mnf 8370  df-xr 8371  df-ltxr 8372  df-le 8373  df-sub 8507  df-neg 8508  df-reap 8912  df-ap 8919  df-div 9012  df-inn 9315  df-2 9373  df-3 9374  df-4 9375  df-n0 9576  df-xnn0 9643  df-z 9657  df-uz 9939  df-q 10037  df-rp 10073  df-xneg 10192  df-xadd 10193  df-ioo 10312  df-ico 10314  df-icc 10315  df-fz 10430  df-fzo 10568  df-fl 10723  df-mod 10782  df-seqfrec 10907  df-exp 10998  df-fac 11187  df-bc 11209  df-ihash 11238  df-shft 11603  df-cj 11630  df-re 11631  df-im 11632  df-rsqrt 11787  df-abs 11788  df-clim 12071  df-sumdc 12146  df-ef 12441  df-e 12442  df-dvds 12581  df-gcd 12757  df-prm 12912  df-pc 13094  df-rest 13655  df-topgen 13674  df-psmet 14990  df-xmet 14991  df-met 14992  df-bl 14993  df-mopn 14994  df-top 15236  df-topon 15249  df-bases 15281  df-ntr 15334  df-cn 15426  df-cnp 15427  df-tx 15491  df-cncf 15809  df-limced 15894  df-dvap 15895  df-relog 16099  df-cht 16248
This theorem is used by:  chtqub  16308
  Copyright terms: Public domain W3C validator