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

Theorem chtublem 23759
Description: Lemma for chtub 23760. (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 10654 . . . . . 6  |-  2  e.  NN
2 nnmulcl 10519 . . . . . 6  |-  ( ( 2  e.  NN  /\  N  e.  NN )  ->  ( 2  x.  N
)  e.  NN )
31, 2mpan 668 . . . . 5  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  NN )
43nnred 10511 . . . 4  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  RR )
5 peano2rem 9842 . . . 4  |-  ( ( 2  x.  N )  e.  RR  ->  (
( 2  x.  N
)  -  1 )  e.  RR )
64, 5syl 17 . . 3  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  RR )
7 chtcl 23656 . . 3  |-  ( ( ( 2  x.  N
)  -  1 )  e.  RR  ->  ( theta `  ( ( 2  x.  N )  - 
1 ) )  e.  RR )
86, 7syl 17 . 2  |-  ( N  e.  NN  ->  ( theta `  ( ( 2  x.  N )  - 
1 ) )  e.  RR )
9 nnre 10503 . . . 4  |-  ( N  e.  NN  ->  N  e.  RR )
10 chtcl 23656 . . . 4  |-  ( N  e.  RR  ->  ( theta `  N )  e.  RR )
119, 10syl 17 . . 3  |-  ( N  e.  NN  ->  ( theta `  N )  e.  RR )
12 nnnn0 10763 . . . . . . 7  |-  ( N  e.  NN  ->  N  e.  NN0 )
13 2m1e1 10611 . . . . . . . . . . 11  |-  ( 2  -  1 )  =  1
1413oveq2i 6245 . . . . . . . . . 10  |-  ( ( 2  x.  N )  -  ( 2  -  1 ) )  =  ( ( 2  x.  N )  -  1 )
153nncnd 10512 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  CC )
16 2cn 10567 . . . . . . . . . . . . 13  |-  2  e.  CC
17 ax-1cn 9500 . . . . . . . . . . . . 13  |-  1  e.  CC
18 subsub 9805 . . . . . . . . . . . . 13  |-  ( ( ( 2  x.  N
)  e.  CC  /\  2  e.  CC  /\  1  e.  CC )  ->  (
( 2  x.  N
)  -  ( 2  -  1 ) )  =  ( ( ( 2  x.  N )  -  2 )  +  1 ) )
1916, 17, 18mp3an23 1318 . . . . . . . . . . . 12  |-  ( ( 2  x.  N )  e.  CC  ->  (
( 2  x.  N
)  -  ( 2  -  1 ) )  =  ( ( ( 2  x.  N )  -  2 )  +  1 ) )
2015, 19syl 17 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  ( 2  -  1 ) )  =  ( ( ( 2  x.  N )  -  2 )  +  1 ) )
21 nncn 10504 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  N  e.  CC )
22 subdi 9951 . . . . . . . . . . . . . . 15  |-  ( ( 2  e.  CC  /\  N  e.  CC  /\  1  e.  CC )  ->  (
2  x.  ( N  -  1 ) )  =  ( ( 2  x.  N )  -  ( 2  x.  1 ) ) )
2316, 17, 22mp3an13 1317 . . . . . . . . . . . . . 14  |-  ( N  e.  CC  ->  (
2  x.  ( N  -  1 ) )  =  ( ( 2  x.  N )  -  ( 2  x.  1 ) ) )
2421, 23syl 17 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
2  x.  ( N  -  1 ) )  =  ( ( 2  x.  N )  -  ( 2  x.  1 ) ) )
25 2t1e2 10645 . . . . . . . . . . . . . 14  |-  ( 2  x.  1 )  =  2
2625oveq2i 6245 . . . . . . . . . . . . 13  |-  ( ( 2  x.  N )  -  ( 2  x.  1 ) )  =  ( ( 2  x.  N )  -  2 )
2724, 26syl6eq 2459 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
2  x.  ( N  -  1 ) )  =  ( ( 2  x.  N )  - 
2 ) )
2827oveq1d 6249 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( 2  x.  ( N  -  1 ) )  +  1 )  =  ( ( ( 2  x.  N )  -  2 )  +  1 ) )
2920, 28eqtr4d 2446 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  ( 2  -  1 ) )  =  ( ( 2  x.  ( N  - 
1 ) )  +  1 ) )
3014, 29syl5eqr 2457 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  =  ( ( 2  x.  ( N  - 
1 ) )  +  1 ) )
31 2nn0 10773 . . . . . . . . . . 11  |-  2  e.  NN0
32 nnm1nn0 10798 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  NN0 )
33 nn0mulcl 10793 . . . . . . . . . . 11  |-  ( ( 2  e.  NN0  /\  ( N  -  1
)  e.  NN0 )  ->  ( 2  x.  ( N  -  1 ) )  e.  NN0 )
3431, 32, 33sylancr 661 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
2  x.  ( N  -  1 ) )  e.  NN0 )
35 nn0p1nn 10796 . . . . . . . . . 10  |-  ( ( 2  x.  ( N  -  1 ) )  e.  NN0  ->  ( ( 2  x.  ( N  -  1 ) )  +  1 )  e.  NN )
3634, 35syl 17 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
( 2  x.  ( N  -  1 ) )  +  1 )  e.  NN )
3730, 36eqeltrd 2490 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  NN )
38 nnnn0 10763 . . . . . . . 8  |-  ( ( ( 2  x.  N
)  -  1 )  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  NN0 )
3937, 38syl 17 . . . . . . 7  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  NN0 )
40 1re 9545 . . . . . . . . . . 11  |-  1  e.  RR
4140a1i 11 . . . . . . . . . 10  |-  ( N  e.  NN  ->  1  e.  RR )
42 nnge1 10522 . . . . . . . . . 10  |-  ( N  e.  NN  ->  1  <_  N )
4341, 9, 9, 42leadd2dd 10127 . . . . . . . . 9  |-  ( N  e.  NN  ->  ( N  +  1 )  <_  ( N  +  N ) )
44212timesd 10742 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2  x.  N )  =  ( N  +  N ) )
4543, 44breqtrrd 4420 . . . . . . . 8  |-  ( N  e.  NN  ->  ( N  +  1 )  <_  ( 2  x.  N ) )
46 leaddsub 9989 . . . . . . . . 9  |-  ( ( N  e.  RR  /\  1  e.  RR  /\  (
2  x.  N )  e.  RR )  -> 
( ( N  + 
1 )  <_  (
2  x.  N )  <-> 
N  <_  ( (
2  x.  N )  -  1 ) ) )
479, 41, 4, 46syl3anc 1230 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( N  +  1 )  <_  ( 2  x.  N )  <->  N  <_  ( ( 2  x.  N
)  -  1 ) ) )
4845, 47mpbid 210 . . . . . . 7  |-  ( N  e.  NN  ->  N  <_  ( ( 2  x.  N )  -  1 ) )
49 elfz2nn0 11741 . . . . . . 7  |-  ( N  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) )  <->  ( N  e.  NN0  /\  ( ( 2  x.  N )  -  1 )  e. 
NN0  /\  N  <_  ( ( 2  x.  N
)  -  1 ) ) )
5012, 39, 48, 49syl3anbrc 1181 . . . . . 6  |-  ( N  e.  NN  ->  N  e.  ( 0 ... (
( 2  x.  N
)  -  1 ) ) )
51 bccl2 12355 . . . . . 6  |-  ( N  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) )  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  NN )
5250, 51syl 17 . . . . 5  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  NN )
5352nnrpd 11220 . . . 4  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  RR+ )
5453relogcld 23194 . . 3  |-  ( N  e.  NN  ->  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  RR )
5511, 54readdcld 9573 . 2  |-  ( N  e.  NN  ->  (
( theta `  N )  +  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  e.  RR )
56 4re 10573 . . . . . 6  |-  4  e.  RR
57 4pos 10592 . . . . . 6  |-  0  <  4
5856, 57elrpii 11186 . . . . 5  |-  4  e.  RR+
59 relogcl 23147 . . . . 5  |-  ( 4  e.  RR+  ->  ( log `  4 )  e.  RR )
6058, 59ax-mp 5 . . . 4  |-  ( log `  4 )  e.  RR
6132nn0red 10814 . . . 4  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  RR )
62 remulcl 9527 . . . 4  |-  ( ( ( log `  4
)  e.  RR  /\  ( N  -  1
)  e.  RR )  ->  ( ( log `  4 )  x.  ( N  -  1 ) )  e.  RR )
6360, 61, 62sylancr 661 . . 3  |-  ( N  e.  NN  ->  (
( log `  4
)  x.  ( N  -  1 ) )  e.  RR )
6411, 63readdcld 9573 . 2  |-  ( N  e.  NN  ->  (
( theta `  N )  +  ( ( log `  4 )  x.  ( N  -  1 ) ) )  e.  RR )
65 iftrue 3890 . . . . . . . . . . . 12  |-  ( p  <_  ( ( 2  x.  N )  - 
1 )  ->  if ( p  <_  ( ( 2  x.  N )  -  1 ) ,  1 ,  0 )  =  1 )
6665adantl 464 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  p  <_  ( ( 2  x.  N )  -  1 ) )  ->  if ( p  <_  ( ( 2  x.  N )  - 
1 ) ,  1 ,  0 )  =  1 )
67 simpr 459 . . . . . . . . . . . . . . . 16  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  p  e.  Prime )
6852adantr 463 . . . . . . . . . . . . . . . 16  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ( 2  x.  N )  - 
1 )  _C  N
)  e.  NN )
6967, 68pccld 14475 . . . . . . . . . . . . . . 15  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  e.  NN0 )
70 nn0addge1 10803 . . . . . . . . . . . . . . 15  |-  ( ( 1  e.  RR  /\  ( p  pCnt  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  e.  NN0 )  -> 
1  <_  ( 1  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
7140, 69, 70sylancr 661 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
1  <_  ( 1  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
72 iftrue 3890 . . . . . . . . . . . . . . . 16  |-  ( p  <_  N  ->  if ( p  <_  N , 
1 ,  0 )  =  1 )
7372oveq1d 6249 . . . . . . . . . . . . . . 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 ) ) ) )
7473breq2d 4406 . . . . . . . . . . . . . 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 ) ) ) ) )
7571, 74syl5ibrcom 222 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  <_  N  ->  1  <_  ( if ( p  <_  N , 
1 ,  0 )  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) ) )
7675adantr 463 . . . . . . . . . . . 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 ) ) ) ) )
77 prmnn 14321 . . . . . . . . . . . . . . . . . 18  |-  ( p  e.  Prime  ->  p  e.  NN )
7877ad2antlr 725 . . . . . . . . . . . . . . . . 17  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  p  e.  NN )
79 simprl 756 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  p  <_  ( ( 2  x.  N )  - 
1 ) )
80 prmz 14322 . . . . . . . . . . . . . . . . . . . 20  |-  ( p  e.  Prime  ->  p  e.  ZZ )
8137nnzd 10927 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  ZZ )
82 eluz 11058 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( p  e.  ZZ  /\  ( ( 2  x.  N )  -  1 )  e.  ZZ )  ->  ( ( ( 2  x.  N )  -  1 )  e.  ( ZZ>= `  p )  <->  p  <_  ( ( 2  x.  N )  - 
1 ) ) )
8380, 81, 82syl2anr 476 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ( 2  x.  N )  - 
1 )  e.  (
ZZ>= `  p )  <->  p  <_  ( ( 2  x.  N
)  -  1 ) ) )
8483adantr 463 . . . . . . . . . . . . . . . . . 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 ) ) )
8579, 84mpbird 232 . . . . . . . . . . . . . . . . 17  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( 2  x.  N )  -  1 )  e.  ( ZZ>= `  p ) )
86 dvdsfac 14142 . . . . . . . . . . . . . . . . 17  |-  ( ( p  e.  NN  /\  ( ( 2  x.  N )  -  1 )  e.  ( ZZ>= `  p ) )  ->  p  ||  ( ! `  ( ( 2  x.  N )  -  1 ) ) )
8778, 85, 86syl2anc 659 . . . . . . . . . . . . . . . 16  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  p  ||  ( ! `  ( ( 2  x.  N )  -  1 ) ) )
88 id 22 . . . . . . . . . . . . . . . . . 18  |-  ( p  e.  Prime  ->  p  e. 
Prime )
89 faccl 12317 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( 2  x.  N
)  -  1 )  e.  NN0  ->  ( ! `
 ( ( 2  x.  N )  - 
1 ) )  e.  NN )
9039, 89syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( N  e.  NN  ->  ( ! `  ( (
2  x.  N )  -  1 ) )  e.  NN )
91 pcelnn 14494 . . . . . . . . . . . . . . . . . 18  |-  ( ( p  e.  Prime  /\  ( ! `  ( (
2  x.  N )  -  1 ) )  e.  NN )  -> 
( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  e.  NN  <->  p  ||  ( ! `  ( (
2  x.  N )  -  1 ) ) ) )
9288, 90, 91syl2anr 476 . . . . . . . . . . . . . . . . 17  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  e.  NN  <->  p  ||  ( ! `  ( (
2  x.  N )  -  1 ) ) ) )
9392adantr 463 . . . . . . . . . . . . . . . 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 ) ) ) )
9487, 93mpbird 232 . . . . . . . . . . . . . . 15  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  pCnt  ( ! `  ( (
2  x.  N )  -  1 ) ) )  e.  NN )
9594nnge1d 10539 . . . . . . . . . . . . . 14  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
1  <_  ( p  pCnt  ( ! `  (
( 2  x.  N
)  -  1 ) ) ) )
96 iffalse 3893 . . . . . . . . . . . . . . . . 17  |-  ( -.  p  <_  N  ->  if ( p  <_  N ,  1 ,  0 )  =  0 )
9796oveq1d 6249 . . . . . . . . . . . . . . . 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 ) ) ) )
9897ad2antll 727 . . . . . . . . . . . . . . 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 ) ) ) )
9969nn0cnd 10815 . . . . . . . . . . . . . . . . 17  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  e.  CC )
10099addid2d 9735 . . . . . . . . . . . . . . . 16  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( 0  +  ( p  pCnt  ( (
( 2  x.  N
)  -  1 )  _C  N ) ) )  =  ( p 
pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )
101100adantr 463 . . . . . . . . . . . . . . 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 ) ) )
102 bcval2 12337 . . . . . . . . . . . . . . . . . . . . . 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 )
) ) )
10350, 102syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =  ( ( ! `
 ( ( 2  x.  N )  - 
1 ) )  / 
( ( ! `  ( ( ( 2  x.  N )  - 
1 )  -  N
) )  x.  ( ! `  N )
) ) )
10444oveq1d 6249 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  =  ( ( N  +  N )  - 
1 ) )
10517a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( N  e.  NN  ->  1  e.  CC )
10621, 21, 105addsubassd 9907 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( N  e.  NN  ->  (
( N  +  N
)  -  1 )  =  ( N  +  ( N  -  1
) ) )
107104, 106eqtrd 2443 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  =  ( N  +  ( N  -  1
) ) )
108107oveq1d 6249 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  -  N )  =  ( ( N  +  ( N  - 
1 ) )  -  N ) )
10932nn0cnd 10815 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  CC )
11021, 109pncan2d 9889 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  (
( N  +  ( N  -  1 ) )  -  N )  =  ( N  - 
1 ) )
111108, 110eqtrd 2443 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  -  N )  =  ( N  - 
1 ) )
112111fveq2d 5809 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( N  e.  NN  ->  ( ! `  ( (
( 2  x.  N
)  -  1 )  -  N ) )  =  ( ! `  ( N  -  1
) ) )
113112oveq1d 6249 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( N  e.  NN  ->  (
( ! `  (
( ( 2  x.  N )  -  1 )  -  N ) )  x.  ( ! `
 N ) )  =  ( ( ! `
 ( N  - 
1 ) )  x.  ( ! `  N
) ) )
114113oveq2d 6250 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  (
( ! `  (
( 2  x.  N
)  -  1 ) )  /  ( ( ! `  ( ( ( 2  x.  N
)  -  1 )  -  N ) )  x.  ( ! `  N ) ) )  =  ( ( ! `
 ( ( 2  x.  N )  - 
1 ) )  / 
( ( ! `  ( N  -  1
) )  x.  ( ! `  N )
) ) )
115103, 114eqtrd 2443 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =  ( ( ! `
 ( ( 2  x.  N )  - 
1 ) )  / 
( ( ! `  ( N  -  1
) )  x.  ( ! `  N )
) ) )
116115adantr 463 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ( 2  x.  N )  - 
1 )  _C  N
)  =  ( ( ! `  ( ( 2  x.  N )  -  1 ) )  /  ( ( ! `
 ( N  - 
1 ) )  x.  ( ! `  N
) ) ) )
117116oveq2d 6250 . . . . . . . . . . . . . . . . . 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 )
) ) ) )
118 nnz 10847 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ! `  ( ( 2  x.  N )  -  1 ) )  e.  NN  ->  ( ! `  ( (
2  x.  N )  -  1 ) )  e.  ZZ )
119 nnne0 10529 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ! `  ( ( 2  x.  N )  -  1 ) )  e.  NN  ->  ( ! `  ( (
2  x.  N )  -  1 ) )  =/=  0 )
120118, 119jca 530 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ! `  ( ( 2  x.  N )  -  1 ) )  e.  NN  ->  (
( ! `  (
( 2  x.  N
)  -  1 ) )  e.  ZZ  /\  ( ! `  ( ( 2  x.  N )  -  1 ) )  =/=  0 ) )
12190, 120syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  (
( ! `  (
( 2  x.  N
)  -  1 ) )  e.  ZZ  /\  ( ! `  ( ( 2  x.  N )  -  1 ) )  =/=  0 ) )
122121adantr 463 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ! `  ( ( 2  x.  N )  -  1 ) )  e.  ZZ  /\  ( ! `  (
( 2  x.  N
)  -  1 ) )  =/=  0 ) )
123 faccl 12317 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( N  -  1 )  e.  NN0  ->  ( ! `
 ( N  - 
1 ) )  e.  NN )
12432, 123syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  ( ! `  ( N  -  1 ) )  e.  NN )
125 faccl 12317 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( N  e.  NN0  ->  ( ! `
 N )  e.  NN )
12612, 125syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  ( ! `  N )  e.  NN )
127124, 126nnmulcld 10544 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  (
( ! `  ( N  -  1 ) )  x.  ( ! `
 N ) )  e.  NN )
128127adantr 463 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ! `  ( N  -  1
) )  x.  ( ! `  N )
)  e.  NN )
129 pcdiv 14477 . . . . . . . . . . . . . . . . . . 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 ) ) ) ) )
13067, 122, 128, 129syl3anc 1230 . . . . . . . . . . . . . . . . . 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 10847 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ! `  ( N  -  1 ) )  e.  NN  ->  ( ! `  ( N  -  1 ) )  e.  ZZ )
132 nnne0 10529 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ! `  ( N  -  1 ) )  e.  NN  ->  ( ! `  ( N  -  1 ) )  =/=  0 )
133131, 132jca 530 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ! `  ( N  -  1 ) )  e.  NN  ->  (
( ! `  ( N  -  1 ) )  e.  ZZ  /\  ( ! `  ( N  -  1 ) )  =/=  0 ) )
134124, 133syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  (
( ! `  ( N  -  1 ) )  e.  ZZ  /\  ( ! `  ( N  -  1 ) )  =/=  0 ) )
135134adantr 463 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ! `  ( N  -  1
) )  e.  ZZ  /\  ( ! `  ( N  -  1 ) )  =/=  0 ) )
136 nnz 10847 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ! `  N )  e.  NN  ->  ( ! `  N )  e.  ZZ )
137 nnne0 10529 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ! `  N )  e.  NN  ->  ( ! `  N )  =/=  0 )
138136, 137jca 530 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ! `  N )  e.  NN  ->  (
( ! `  N
)  e.  ZZ  /\  ( ! `  N )  =/=  0 ) )
139126, 138syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN  ->  (
( ! `  N
)  e.  ZZ  /\  ( ! `  N )  =/=  0 ) )
140139adantr 463 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ! `  N )  e.  ZZ  /\  ( ! `  N
)  =/=  0 ) )
141 pcmul 14476 . . . . . . . . . . . . . . . . . . . 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 ) ) ) )
14267, 135, 140, 141syl3anc 1230 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  (
( ! `  ( N  -  1 ) )  x.  ( ! `
 N ) ) )  =  ( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  +  ( p  pCnt  ( ! `  N )
) ) )
143142oveq2d 6250 . . . . . . . . . . . . . . . . . 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 ) ) ) ) )
144117, 130, 1433eqtrd 2447 . . . . . . . . . . . . . . . . 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 463 . . . . . . . . . . . . . . . 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 758 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  -.  p  <_  N )
147 prmfac1 14360 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( N  e.  NN0  /\  p  e.  Prime  /\  p  ||  ( ! `  N
) )  ->  p  <_  N )
1481473expia 1199 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN0  /\  p  e.  Prime )  -> 
( p  ||  ( ! `  N )  ->  p  <_  N )
)
14912, 148sylan 469 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  ||  ( ! `  N )  ->  p  <_  N )
)
150149adantr 463 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  ||  ( ! `  N )  ->  p  <_  N )
)
151146, 150mtod 177 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  -.  p  ||  ( ! `
 N ) )
15280adantl 464 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  p  e.  ZZ )
153135simpld 457 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ! `  ( N  -  1 ) )  e.  ZZ )
154 nnz 10847 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  N  e.  ZZ )
155154adantr 463 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  N  e.  ZZ )
156 dvdsmultr1 14120 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( p  e.  ZZ  /\  ( ! `  ( N  -  1 ) )  e.  ZZ  /\  N  e.  ZZ )  ->  (
p  ||  ( ! `  ( N  -  1 ) )  ->  p  ||  ( ( ! `  ( N  -  1
) )  x.  N
) ) )
157152, 153, 155, 156syl3anc 1230 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  ||  ( ! `  ( N  -  1 ) )  ->  p  ||  (
( ! `  ( N  -  1 ) )  x.  N ) ) )
158 facnn2 12316 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN  ->  ( ! `  N )  =  ( ( ! `
 ( N  - 
1 ) )  x.  N ) )
159158adantr 463 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ! `  N
)  =  ( ( ! `  ( N  -  1 ) )  x.  N ) )
160159breq2d 4406 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  ||  ( ! `  N )  <->  p 
||  ( ( ! `
 ( N  - 
1 ) )  x.  N ) ) )
161157, 160sylibrd 234 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  ||  ( ! `  ( N  -  1 ) )  ->  p  ||  ( ! `  N )
) )
162161adantr 463 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  ||  ( ! `  ( N  -  1 ) )  ->  p  ||  ( ! `  N )
) )
163151, 162mtod 177 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  ->  -.  p  ||  ( ! `
 ( N  - 
1 ) ) )
164 pceq0 14495 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( p  e.  Prime  /\  ( ! `  ( N  -  1 ) )  e.  NN )  -> 
( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  =  0  <->  -.  p  ||  ( ! `  ( N  -  1
) ) ) )
16588, 124, 164syl2anr 476 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  =  0  <->  -.  p  ||  ( ! `  ( N  -  1
) ) ) )
166165adantr 463 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  =  0  <->  -.  p  ||  ( ! `  ( N  -  1
) ) ) )
167163, 166mpbird 232 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  pCnt  ( ! `  ( N  -  1 ) ) )  =  0 )
168 pceq0 14495 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( p  e.  Prime  /\  ( ! `  N )  e.  NN )  ->  (
( p  pCnt  ( ! `  N )
)  =  0  <->  -.  p  ||  ( ! `  N ) ) )
16988, 126, 168syl2anr 476 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( p  pCnt  ( ! `  N ) )  =  0  <->  -.  p  ||  ( ! `  N ) ) )
170169adantr 463 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( p  pCnt  ( ! `  N ) )  =  0  <->  -.  p  ||  ( ! `  N ) ) )
171151, 170mpbird 232 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( p  pCnt  ( ! `  N )
)  =  0 )
172167, 171oveq12d 6252 . . . . . . . . . . . . . . . . . 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 9709 . . . . . . . . . . . . . . . . . 18  |-  ( 0  +  0 )  =  0
174172, 173syl6eq 2459 . . . . . . . . . . . . . . . . 17  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  ( p  <_  (
( 2  x.  N
)  -  1 )  /\  -.  p  <_  N ) )  -> 
( ( p  pCnt  ( ! `  ( N  -  1 ) ) )  +  ( p 
pCnt  ( ! `  N ) ) )  =  0 )
175174oveq2d 6250 . . . . . . . . . . . . . . . 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 14474 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( p  e.  Prime  /\  ( ! `  ( (
2  x.  N )  -  1 ) )  e.  NN )  -> 
( p  pCnt  ( ! `  ( (
2  x.  N )  -  1 ) ) )  e.  NN0 )
17788, 90, 176syl2anr 476 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( ! `  ( (
2  x.  N )  -  1 ) ) )  e.  NN0 )
178177nn0cnd 10815 . . . . . . . . . . . . . . . . . 18  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( ! `  ( (
2  x.  N )  -  1 ) ) )  e.  CC )
179178subid1d 9876 . . . . . . . . . . . . . . . . 17  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) )  -  0 )  =  ( p  pCnt  ( ! `  ( ( 2  x.  N )  -  1 ) ) ) )
180179adantr 463 . . . . . . . . . . . . . . . 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 2447 . . . . . . . . . . . . . . 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 ) ) ) )
18298, 101, 1813eqtrd 2447 . . . . . . . . . . . . . 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 ) ) ) )
18395, 182breqtrrd 4420 . . . . . . . . . . . . 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 613 . . . . . . . . . . . 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 ) ) ) ) )
18576, 184pm2.61d 158 . . . . . . . . . . 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 ) ) ) )
18666, 185eqbrtrd 4414 . . . . . . . . . 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 ) ) ) )
187186ex 432 . . . . . . . . 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 ) ) ) ) )
188 1nn0 10772 . . . . . . . . . . . . 13  |-  1  e.  NN0
189 0nn0 10771 . . . . . . . . . . . . 13  |-  0  e.  NN0
190188, 189keepel 3951 . . . . . . . . . . . 12  |-  if ( p  <_  N , 
1 ,  0 )  e.  NN0
191 nn0addcl 10792 . . . . . . . . . . . 12  |-  ( ( if ( p  <_  N ,  1 , 
0 )  e.  NN0  /\  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) )  e.  NN0 )  ->  ( if ( p  <_  N ,  1 ,  0 )  +  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  e.  NN0 )
192190, 69, 191sylancr 661 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( if ( p  <_  N ,  1 ,  0 )  +  ( p  pCnt  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  e.  NN0 )
193192nn0ge0d 10816 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
0  <_  ( if ( p  <_  N , 
1 ,  0 )  +  ( p  pCnt  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) ) )
194 iffalse 3893 . . . . . . . . . . 11  |-  ( -.  p  <_  ( (
2  x.  N )  -  1 )  ->  if ( p  <_  (
( 2  x.  N
)  -  1 ) ,  1 ,  0 )  =  0 )
195194breq1d 4404 . . . . . . . . . 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 ) ) ) ) )
196193, 195syl5ibrcom 222 . . . . . . . . 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 ) ) ) ) )
197187, 196pm2.61d 158 . . . . . . . 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 ) ) ) )
198 eqid 2402 . . . . . . . . . . . . 13  |-  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) )  =  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) )
199198prmorcht 23725 . . . . . . . . . . . 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 ) ) )
20037, 199syl 17 . . . . . . . . . . 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 ) ) )
201200oveq2d 6250 . . . . . . . . . 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 ) ) ) )
202201adantr 463 . . . . . . . . 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 ) ) ) )
203 nncn 10504 . . . . . . . . . . . . . 14  |-  ( n  e.  NN  ->  n  e.  CC )
204203exp1d 12259 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  (
n ^ 1 )  =  n )
205204ifeq1d 3902 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  if ( n  e.  Prime ,  ( n ^ 1 ) ,  1 )  =  if ( n  e.  Prime ,  n ,  1 ) )
206205mpteq2ia 4476 . . . . . . . . . . 11  |-  ( n  e.  NN  |->  if ( n  e.  Prime ,  ( n ^ 1 ) ,  1 ) )  =  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) )
207206eqcomi 2415 . . . . . . . . . 10  |-  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) )  =  ( n  e.  NN  |->  if ( n  e.  Prime ,  ( n ^ 1 ) ,  1 ) )
208188a1i 11 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  p  e.  Prime )  /\  n  e.  Prime )  ->  1  e.  NN0 )
209208ralrimiva 2817 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  A. n  e.  Prime  1  e.  NN0 )
21037adantr 463 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( 2  x.  N )  -  1 )  e.  NN )
211 eqidd 2403 . . . . . . . . . 10  |-  ( n  =  p  ->  1  =  1 )
212207, 209, 210, 67, 211pcmpt 14512 . . . . . . . . 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 ) )
213202, 212eqtrd 2443 . . . . . . . 8  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) ) )  =  if ( p  <_ 
( ( 2  x.  N )  -  1 ) ,  1 ,  0 ) )
214 efchtcl 23658 . . . . . . . . . . . . 13  |-  ( N  e.  RR  ->  ( exp `  ( theta `  N
) )  e.  NN )
2159, 214syl 17 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  ( exp `  ( theta `  N
) )  e.  NN )
216215adantr 463 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( exp `  ( theta `  N ) )  e.  NN )
217 nnz 10847 . . . . . . . . . . . 12  |-  ( ( exp `  ( theta `  N ) )  e.  NN  ->  ( exp `  ( theta `  N )
)  e.  ZZ )
218 nnne0 10529 . . . . . . . . . . . 12  |-  ( ( exp `  ( theta `  N ) )  e.  NN  ->  ( exp `  ( theta `  N )
)  =/=  0 )
219217, 218jca 530 . . . . . . . . . . 11  |-  ( ( exp `  ( theta `  N ) )  e.  NN  ->  ( ( exp `  ( theta `  N
) )  e.  ZZ  /\  ( exp `  ( theta `  N ) )  =/=  0 ) )
220216, 219syl 17 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( exp `  ( theta `  N ) )  e.  ZZ  /\  ( exp `  ( theta `  N
) )  =/=  0
) )
221 nnz 10847 . . . . . . . . . . . 12  |-  ( ( ( ( 2  x.  N )  -  1 )  _C  N )  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  ZZ )
222 nnne0 10529 . . . . . . . . . . . 12  |-  ( ( ( ( 2  x.  N )  -  1 )  _C  N )  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =/=  0 )
223221, 222jca 530 . . . . . . . . . . 11  |-  ( ( ( ( 2  x.  N )  -  1 )  _C  N )  e.  NN  ->  (
( ( ( 2  x.  N )  - 
1 )  _C  N
)  e.  ZZ  /\  ( ( ( 2  x.  N )  - 
1 )  _C  N
)  =/=  0 ) )
22468, 223syl 17 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( ( ( ( 2  x.  N )  -  1 )  _C  N )  e.  ZZ  /\  ( ( ( 2  x.  N )  - 
1 )  _C  N
)  =/=  0 ) )
225 pcmul 14476 . . . . . . . . . 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 ) ) ) )
22667, 220, 224, 225syl3anc 1230 . . . . . . . . 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 ) ) ) )
227198prmorcht 23725 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  ( exp `  ( theta `  N
) )  =  (  seq 1 (  x.  ,  ( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `
 N ) )
228227oveq2d 6250 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
p  pCnt  ( exp `  ( theta `  N )
) )  =  ( p  pCnt  (  seq 1 (  x.  , 
( n  e.  NN  |->  if ( n  e.  Prime ,  n ,  1 ) ) ) `  N
) ) )
229228adantr 463 . . . . . . . . . . 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
) ) )
230 simpl 455 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  p  e.  Prime )  ->  N  e.  NN )
231207, 209, 230, 67, 211pcmpt 14512 . . . . . . . . . . 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 ) )
232229, 231eqtrd 2443 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  p  e.  Prime )  -> 
( p  pCnt  ( exp `  ( theta `  N
) ) )  =  if ( p  <_  N ,  1 , 
0 ) )
233232oveq1d 6249 . . . . . . . . 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 ) ) ) )
234226, 233eqtrd 2443 . . . . . . . 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 ) ) ) )
235197, 213, 2343brtr4d 4424 . . . . . . 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 ) ) ) )
236235ralrimiva 2817 . . . . . 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 ) ) ) )
237 efchtcl 23658 . . . . . . . . 9  |-  ( ( ( 2  x.  N
)  -  1 )  e.  RR  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  e.  NN )
2386, 237syl 17 . . . . . . . 8  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  e.  NN )
239238nnzd 10927 . . . . . . 7  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  e.  ZZ )
240215, 52nnmulcld 10544 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  NN )
241240nnzd 10927 . . . . . . 7  |-  ( N  e.  NN  ->  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  ZZ )
242 pc2dvds 14503 . . . . . . 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 ) ) ) ) )
243239, 241, 242syl2anc 659 . . . . . 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 ) ) ) ) )
244236, 243mpbird 232 . . . . 5  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  ||  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )
245 dvdsle 14132 . . . . . 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 ) ) ) )
246239, 240, 245syl2anc 659 . . . . 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 ) ) ) )
247244, 246mpd 15 . . . 4  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  <_  (
( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )
24811recnd 9572 . . . . . 6  |-  ( N  e.  NN  ->  ( theta `  N )  e.  CC )
24954recnd 9572 . . . . . 6  |-  ( N  e.  NN  ->  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  e.  CC )
250 efadd 13930 . . . . . 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 ) ) ) ) )
251248, 249, 250syl2anc 659 . . . . 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 ) ) ) ) )
25253reeflogd 23195 . . . . . 6  |-  ( N  e.  NN  ->  ( exp `  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  =  ( ( ( 2  x.  N )  -  1 )  _C  N ) )
253252oveq2d 6250 . . . . 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
) ) )
254251, 253eqtrd 2443 . . . 4  |-  ( N  e.  NN  ->  ( exp `  ( ( theta `  N )  +  ( log `  ( ( ( 2  x.  N
)  -  1 )  _C  N ) ) ) )  =  ( ( exp `  ( theta `  N ) )  x.  ( ( ( 2  x.  N )  -  1 )  _C  N ) ) )
255247, 254breqtrrd 4420 . . 3  |-  ( N  e.  NN  ->  ( exp `  ( theta `  (
( 2  x.  N
)  -  1 ) ) )  <_  ( exp `  ( ( theta `  N )  +  ( log `  ( ( ( 2  x.  N
)  -  1 )  _C  N ) ) ) ) )
256 efle 13954 . . . 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
) ) ) ) ) )
2578, 55, 256syl2anc 659 . . 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 ) ) ) ) ) )
258255, 257mpbird 232 . 2  |-  ( N  e.  NN  ->  ( theta `  ( ( 2  x.  N )  - 
1 ) )  <_ 
( ( theta `  N
)  +  ( log `  ( ( ( 2  x.  N )  - 
1 )  _C  N
) ) ) )
259 fzfid 12037 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
0 ... ( ( 2  x.  N )  - 
1 ) )  e. 
Fin )
260 elfzelz 11659 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) )  ->  k  e.  ZZ )
261 bccl 12354 . . . . . . . . . . 11  |-  ( ( ( ( 2  x.  N )  -  1 )  e.  NN0  /\  k  e.  ZZ )  ->  ( ( ( 2  x.  N )  - 
1 )  _C  k
)  e.  NN0 )
26239, 260, 261syl2an 475 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  k  e.  ( 0 ... ( ( 2  x.  N )  - 
1 ) ) )  ->  ( ( ( 2  x.  N )  -  1 )  _C  k )  e.  NN0 )
263262nn0red 10814 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  k  e.  ( 0 ... ( ( 2  x.  N )  - 
1 ) ) )  ->  ( ( ( 2  x.  N )  -  1 )  _C  k )  e.  RR )
264262nn0ge0d 10816 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  k  e.  ( 0 ... ( ( 2  x.  N )  - 
1 ) ) )  ->  0  <_  (
( ( 2  x.  N )  -  1 )  _C  k ) )
265 nn0uz 11079 . . . . . . . . . . . 12  |-  NN0  =  ( ZZ>= `  0 )
26632, 265syl6eleq 2500 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  ( ZZ>= `  0
) )
267 fzss1 11694 . . . . . . . . . . 11  |-  ( ( N  -  1 )  e.  ( ZZ>= `  0
)  ->  ( ( N  -  1 ) ... N )  C_  ( 0 ... N
) )
268266, 267syl 17 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
( N  -  1 ) ... N ) 
C_  ( 0 ... N ) )
269 eluz 11058 . . . . . . . . . . . . 13  |-  ( ( N  e.  ZZ  /\  ( ( 2  x.  N )  -  1 )  e.  ZZ )  ->  ( ( ( 2  x.  N )  -  1 )  e.  ( ZZ>= `  N )  <->  N  <_  ( ( 2  x.  N )  - 
1 ) ) )
270154, 81, 269syl2anc 659 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  e.  ( ZZ>= `  N )  <->  N  <_  ( ( 2  x.  N
)  -  1 ) ) )
27148, 270mpbird 232 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  -  1 )  e.  ( ZZ>= `  N
) )
272 fzss2 11695 . . . . . . . . . . 11  |-  ( ( ( 2  x.  N
)  -  1 )  e.  ( ZZ>= `  N
)  ->  ( 0 ... N )  C_  ( 0 ... (
( 2  x.  N
)  -  1 ) ) )
273271, 272syl 17 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
0 ... N )  C_  ( 0 ... (
( 2  x.  N
)  -  1 ) ) )
274268, 273sstrd 3451 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
( N  -  1 ) ... N ) 
C_  ( 0 ... ( ( 2  x.  N )  -  1 ) ) )
275259, 263, 264, 274fsumless 13668 . . . . . . . 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 ) )
27632nn0zd 10926 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  ZZ )
277 bccmpl 12341 . . . . . . . . . . . . . . 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 ) ) )
27839, 154, 277syl2anc 659 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( ( ( 2  x.  N )  - 
1 )  -  N
) ) )
279111oveq2d 6250 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  ( ( ( 2  x.  N
)  -  1 )  -  N ) )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) ) )
280278, 279eqtrd 2443 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) ) )
28152nncnd 10512 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  CC )
282280, 281eqeltrrd 2491 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) )  e.  CC )
283 oveq2 6242 . . . . . . . . . . . . 13  |-  ( k  =  ( N  - 
1 )  ->  (
( ( 2  x.  N )  -  1 )  _C  k )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) ) )
284283fsum1 13620 . . . . . . . . . . . 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 ) ) )
285276, 282, 284syl2anc 659 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  sum_ k  e.  ( ( N  - 
1 ) ... ( N  -  1 ) ) ( ( ( 2  x.  N )  -  1 )  _C  k )  =  ( ( ( 2  x.  N )  -  1 )  _C  ( N  -  1 ) ) )
286285, 280eqtr4d 2446 . . . . . . . . . 10  |-  ( N  e.  NN  ->  sum_ k  e.  ( ( N  - 
1 ) ... ( N  -  1 ) ) ( ( ( 2  x.  N )  -  1 )  _C  k )  =  ( ( ( 2  x.  N )  -  1 )  _C  N ) )
287286oveq1d 6249 . . . . . . . . 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 ) ) )
28821, 105npcand 9891 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( N  -  1 )  +  1 )  =  N )
289 uzid 11059 . . . . . . . . . . . . 13  |-  ( ( N  -  1 )  e.  ZZ  ->  ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
290276, 289syl 17 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
291 peano2uz 11098 . . . . . . . . . . . 12  |-  ( ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1 ) )  ->  ( ( N  -  1 )  +  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
292290, 291syl 17 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( N  -  1 )  +  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
293288, 292eqeltrrd 2491 . . . . . . . . . 10  |-  ( N  e.  NN  ->  N  e.  ( ZZ>= `  ( N  -  1 ) ) )
294274sselda 3441 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  k  e.  ( ( N  -  1 ) ... N ) )  ->  k  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) ) )
295262nn0cnd 10815 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  k  e.  ( 0 ... ( ( 2  x.  N )  - 
1 ) ) )  ->  ( ( ( 2  x.  N )  -  1 )  _C  k )  e.  CC )
296294, 295syldan 468 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  k  e.  ( ( N  -  1 ) ... N ) )  ->  ( ( ( 2  x.  N )  -  1 )  _C  k )  e.  CC )
297 oveq2 6242 . . . . . . . . . 10  |-  ( k  =  N  ->  (
( ( 2  x.  N )  -  1 )  _C  k )  =  ( ( ( 2  x.  N )  -  1 )  _C  N ) )
298293, 296, 297fsumm1 13624 . . . . . . . . 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 ) ) )
2992812timesd 10742 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  =  ( ( ( ( 2  x.  N
)  -  1 )  _C  N )  +  ( ( ( 2  x.  N )  - 
1 )  _C  N
) ) )
300287, 298, 2993eqtr4rd 2454 . . . . . . . 8  |-  ( N  e.  NN  ->  (
2  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  =  sum_ k  e.  ( ( N  -  1 ) ... N ) ( ( ( 2  x.  N )  - 
1 )  _C  k
) )
301 binom11 13702 . . . . . . . . 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
) )
30239, 301syl 17 . . . . . . . 8  |-  ( N  e.  NN  ->  (
2 ^ ( ( 2  x.  N )  -  1 ) )  =  sum_ k  e.  ( 0 ... ( ( 2  x.  N )  -  1 ) ) ( ( ( 2  x.  N )  - 
1 )  _C  k
) )
303275, 300, 3023brtr4d 4424 . . . . . . 7  |-  ( N  e.  NN  ->  (
2  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  <_  ( 2 ^ ( ( 2  x.  N )  -  1 ) ) )
304 mulcom 9528 . . . . . . . 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 ) )
30516, 281, 304sylancr 661 . . . . . . 7  |-  ( N  e.  NN  ->  (
2  x.  ( ( ( 2  x.  N
)  -  1 )  _C  N ) )  =  ( ( ( ( 2  x.  N
)  -  1 )  _C  N )  x.  2 ) )
30630oveq2d 6250 . . . . . . . 8  |-  ( N  e.  NN  ->  (
2 ^ ( ( 2  x.  N )  -  1 ) )  =  ( 2 ^ ( ( 2  x.  ( N  -  1 ) )  +  1 ) ) )
307 expp1 12127 . . . . . . . . 9  |-  ( ( 2  e.  CC  /\  ( 2  x.  ( N  -  1 ) )  e.  NN0 )  ->  ( 2 ^ (
( 2  x.  ( N  -  1 ) )  +  1 ) )  =  ( ( 2 ^ ( 2  x.  ( N  - 
1 ) ) )  x.  2 ) )
30816, 34, 307sylancr 661 . . . . . . . 8  |-  ( N  e.  NN  ->  (
2 ^ ( ( 2  x.  ( N  -  1 ) )  +  1 ) )  =  ( ( 2 ^ ( 2  x.  ( N  -  1 ) ) )  x.  2 ) )
30916a1i 11 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  2  e.  CC )
31031a1i 11 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  2  e.  NN0 )
311309, 32, 310expmuld 12267 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
2 ^ ( 2  x.  ( N  - 
1 ) ) )  =  ( ( 2 ^ 2 ) ^
( N  -  1 ) ) )
312 sq2 12219 . . . . . . . . . . 11  |-  ( 2 ^ 2 )  =  4
313312oveq1i 6244 . . . . . . . . . 10  |-  ( ( 2 ^ 2 ) ^ ( N  - 
1 ) )  =  ( 4 ^ ( N  -  1 ) )
314311, 313syl6eq 2459 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2 ^ ( 2  x.  ( N  - 
1 ) ) )  =  ( 4 ^ ( N  -  1 ) ) )
315314oveq1d 6249 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( 2 ^ (
2  x.  ( N  -  1 ) ) )  x.  2 )  =  ( ( 4 ^ ( N  - 
1 ) )  x.  2 ) )
316306, 308, 3153eqtrd 2447 . . . . . . 7  |-  ( N  e.  NN  ->  (
2 ^ ( ( 2  x.  N )  -  1 ) )  =  ( ( 4 ^ ( N  - 
1 ) )  x.  2 ) )
317303, 305, 3163brtr3d 4423 . . . . . 6  |-  ( N  e.  NN  ->  (
( ( ( 2  x.  N )  - 
1 )  _C  N
)  x.  2 )  <_  ( ( 4 ^ ( N  - 
1 ) )  x.  2 ) )
31852nnred 10511 . . . . . . 7  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  e.  RR )
319 reexpcl 12137 . . . . . . . 8  |-  ( ( 4  e.  RR  /\  ( N  -  1
)  e.  NN0 )  ->  ( 4 ^ ( N  -  1 ) )  e.  RR )
32056, 32, 319sylancr 661 . . . . . . 7  |-  ( N  e.  NN  ->  (
4 ^ ( N  -  1 ) )  e.  RR )
321 2re 10566 . . . . . . . . 9  |-  2  e.  RR
322 2pos 10588 . . . . . . . . 9  |-  0  <  2
323321, 322pm3.2i 453 . . . . . . . 8  |-  ( 2  e.  RR  /\  0  <  2 )
324323a1i 11 . . . . . . 7  |-  ( N  e.  NN  ->  (
2  e.  RR  /\  0  <  2 ) )
325 lemul1 10355 . . . . . . 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 ) ) )
326318, 320, 324, 325syl3anc 1230 . . . . . 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 ) ) )
327317, 326mpbird 232 . . . . 5  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  -  1 )  _C  N )  <_  ( 4 ^ ( N  -  1 ) ) )
32860recni 9558 . . . . . . . 8  |-  ( log `  4 )  e.  CC
329 mulcom 9528 . . . . . . . 8  |-  ( ( ( log `  4
)  e.  CC  /\  ( N  -  1
)  e.  CC )  ->  ( ( log `  4 )  x.  ( N  -  1 ) )  =  ( ( N  -  1 )  x.  ( log `  4 ) ) )
330328, 109, 329sylancr 661 . . . . . . 7  |-  ( N  e.  NN  ->  (
( log `  4
)  x.  ( N  -  1 ) )  =  ( ( N  -  1 )  x.  ( log `  4
) ) )
331330fveq2d 5809 . . . . . 6  |-  ( N  e.  NN  ->  ( exp `  ( ( log `  4 )  x.  ( N  -  1 ) ) )  =  ( exp `  (
( N  -  1 )  x.  ( log `  4 ) ) ) )
332 reexplog 23166 . . . . . . 7  |-  ( ( 4  e.  RR+  /\  ( N  -  1 )  e.  ZZ )  -> 
( 4 ^ ( N  -  1 ) )  =  ( exp `  ( ( N  - 
1 )  x.  ( log `  4 ) ) ) )
33358, 276, 332sylancr 661 . . . . . 6  |-  ( N  e.  NN  ->  (
4 ^ ( N  -  1 ) )  =  ( exp `  (
( N  -  1 )  x.  ( log `  4 ) ) ) )
334331, 333eqtr4d 2446 . . . . 5  |-  ( N  e.  NN  ->  ( exp `  ( ( log `  4 )  x.  ( N  -  1 ) ) )  =  ( 4 ^ ( N  -  1 ) ) )
335327, 252, 3343brtr4d 4424 . . . 4  |-  ( N  e.  NN  ->  ( exp `  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  <_  ( exp `  ( ( log `  4 )  x.  ( N  -  1 ) ) ) )
336 efle 13954 . . . . 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 ) ) ) ) )
33754, 63, 336syl2anc 659 . . . 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 ) ) ) ) )
338335, 337mpbird 232 . . 3  |-  ( N  e.  NN  ->  ( log `  ( ( ( 2  x.  N )  -  1 )  _C  N ) )  <_ 
( ( log `  4
)  x.  ( N  -  1 ) ) )
33954, 63, 11, 338leadd2dd 10127 . 2  |-  ( N  e.  NN  ->  (
( theta `  N )  +  ( log `  (
( ( 2  x.  N )  -  1 )  _C  N ) ) )  <_  (
( theta `  N )  +  ( ( log `  4 )  x.  ( N  -  1 ) ) ) )
3408, 55, 64, 258, 339letrd 9693 1  |-  ( N  e.  NN  ->  ( theta `  ( ( 2  x.  N )  - 
1 ) )  <_ 
( ( theta `  N
)  +  ( ( log `  4 )  x.  ( N  - 
1 ) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 367    = wceq 1405    e. wcel 1842    =/= wne 2598   A.wral 2753    C_ wss 3413   ifcif 3884   class class class wbr 4394    |-> cmpt 4452   ` cfv 5525  (class class class)co 6234   CCcc 9440   RRcr 9441   0cc0 9442   1c1 9443    + caddc 9445    x. cmul 9447    < clt 9578    <_ cle 9579    - cmin 9761    / cdiv 10167   NNcn 10496   2c2 10546   4c4 10548   NN0cn0 10756   ZZcz 10825   ZZ>=cuz 11045   RR+crp 11183   ...cfz 11643    seqcseq 12061   ^cexp 12120   !cfa 12307    _C cbc 12334   sum_csu 13564   expce 13898    || cdvds 14087   Primecprime 14318    pCnt cpc 14461   logclog 23126   thetaccht 23637
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1639  ax-4 1652  ax-5 1725  ax-6 1771  ax-7 1814  ax-8 1844  ax-9 1846  ax-10 1861  ax-11 1866  ax-12 1878  ax-13 2026  ax-ext 2380  ax-rep 4506  ax-sep 4516  ax-nul 4524  ax-pow 4571  ax-pr 4629  ax-un 6530  ax-inf2 8011  ax-cnex 9498  ax-resscn 9499  ax-1cn 9500  ax-icn 9501  ax-addcl 9502  ax-addrcl 9503  ax-mulcl 9504  ax-mulrcl 9505  ax-mulcom 9506  ax-addass 9507  ax-mulass 9508  ax-distr 9509  ax-i2m1 9510  ax-1ne0 9511  ax-1rid 9512  ax-rnegex 9513  ax-rrecex 9514  ax-cnre 9515  ax-pre-lttri 9516  ax-pre-lttrn 9517  ax-pre-ltadd 9518  ax-pre-mulgt0 9519  ax-pre-sup 9520  ax-addf 9521  ax-mulf 9522
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 975  df-3an 976  df-tru 1408  df-fal 1411  df-ex 1634  df-nf 1638  df-sb 1764  df-eu 2242  df-mo 2243  df-clab 2388  df-cleq 2394  df-clel 2397  df-nfc 2552  df-ne 2600  df-nel 2601  df-ral 2758  df-rex 2759  df-reu 2760  df-rmo 2761  df-rab 2762  df-v 3060  df-sbc 3277  df-csb 3373  df-dif 3416  df-un 3418  df-in 3420  df-ss 3427  df-pss 3429  df-nul 3738  df-if 3885  df-pw 3956  df-sn 3972  df-pr 3974  df-tp 3976  df-op 3978  df-uni 4191  df-int 4227  df-iun 4272  df-iin 4273  df-br 4395  df-opab 4453  df-mpt 4454  df-tr 4489  df-eprel 4733  df-id 4737  df-po 4743  df-so 4744  df-fr 4781  df-se 4782  df-we 4783  df-ord 4824  df-on 4825  df-lim 4826  df-suc 4827  df-xp 4948  df-rel 4949  df-cnv 4950  df-co 4951  df-dm 4952  df-rn 4953  df-res 4954  df-ima 4955  df-iota 5489  df-fun 5527  df-fn 5528  df-f 5529  df-f1 5530  df-fo 5531  df-f1o 5532  df-fv 5533  df-isom 5534  df-riota 6196  df-ov 6237  df-oprab 6238  df-mpt2 6239  df-of 6477  df-om 6639  df-1st 6738  df-2nd 6739  df-supp 6857  df-recs 6999  df-rdg 7033  df-1o 7087  df-2o 7088  df-oadd 7091  df-er 7268  df-map 7379  df-pm 7380  df-ixp 7428  df-en 7475  df-dom 7476  df-sdom 7477  df-fin 7478  df-fsupp 7784  df-fi 7825  df-sup 7855  df-oi 7889  df-card 8272  df-cda 8500  df-pnf 9580  df-mnf 9581  df-xr 9582  df-ltxr 9583  df-le 9584  df-sub 9763  df-neg 9764  df-div 10168  df-nn 10497  df-2 10555  df-3 10556  df-4 10557  df-5 10558  df-6 10559  df-7 10560  df-8 10561  df-9 10562  df-10 10563  df-n0 10757  df-z 10826  df-dec 10940  df-uz 11046  df-q 11146  df-rp 11184  df-xneg 11289  df-xadd 11290  df-xmul 11291  df-ioo 11504  df-ioc 11505  df-ico 11506  df-icc 11507  df-fz 11644  df-fzo 11768  df-fl 11879  df-mod 11948  df-seq 12062  df-exp 12121  df-fac 12308  df-bc 12335  df-hash 12360  df-shft 12956  df-cj 12988  df-re 12989  df-im 12990  df-sqrt 13124  df-abs 13125  df-limsup 13350  df-clim 13367  df-rlim 13368  df-sum 13565  df-ef 13904  df-sin 13906  df-cos 13907  df-pi 13909  df-dvds 14088  df-gcd 14246  df-prm 14319  df-pc 14462  df-struct 14735  df-ndx 14736  df-slot 14737  df-base 14738  df-sets 14739  df-ress 14740  df-plusg 14814  df-mulr 14815  df-starv 14816  df-sca 14817  df-vsca 14818  df-ip 14819  df-tset 14820  df-ple 14821  df-ds 14823  df-unif 14824  df-hom 14825  df-cco 14826  df-rest 14929  df-topn 14930  df-0g 14948  df-gsum 14949  df-topgen 14950  df-pt 14951  df-prds 14954  df-xrs 15008  df-qtop 15013  df-imas 15014  df-xps 15016  df-mre 15092  df-mrc 15093  df-acs 15095  df-mgm 16088  df-sgrp 16127  df-mnd 16137  df-submnd 16183  df-mulg 16276  df-cntz 16571  df-cmn 17016  df-psmet 18623  df-xmet 18624  df-met 18625  df-bl 18626  df-mopn 18627  df-fbas 18628  df-fg 18629  df-cnfld 18633  df-top 19583  df-bases 19585  df-topon 19586  df-topsp 19587  df-cld 19704  df-ntr 19705  df-cls 19706  df-nei 19784  df-lp 19822  df-perf 19823  df-cn 19913  df-cnp 19914  df-haus 20001  df-tx 20247  df-hmeo 20440  df-fil 20531  df-fm 20623  df-flim 20624  df-flf 20625  df-xms 21007  df-ms 21008  df-tms 21009  df-cncf 21566  df-limc 22454  df-dv 22455  df-log 23128  df-cht 23643
This theorem is referenced by:  chtub  23760
  Copyright terms: Public domain W3C validator