Metamath Proof Explorer


Theorem dchrvmasum2lem

Description: Give an expression for log x remarkably similar to sum_ n <_ x ( X ( n ) Lam ( n ) / n ) given in dchrvmasumlem1 . Part of Lemma 9.4.3 of Shapiro, p. 380. (Contributed by Mario Carneiro, 4-May-2016)

Ref Expression
Hypotheses rpvmasum.z Z=/N
rpvmasum.l L=ℤRHomZ
rpvmasum.a φN
rpvmasum.g G=DChrN
rpvmasum.d D=BaseG
rpvmasum.1 1˙=0G
dchrisum.b φXD
dchrisum.n1 φX1˙
dchrvmasum.a φA+
dchrvmasum2.2 φ1A
Assertion dchrvmasum2lem φlogA=d=1AXLdμddm=1AdXLmlogAdmm

Proof

Step Hyp Ref Expression
1 rpvmasum.z Z=/N
2 rpvmasum.l L=ℤRHomZ
3 rpvmasum.a φN
4 rpvmasum.g G=DChrN
5 rpvmasum.d D=BaseG
6 rpvmasum.1 1˙=0G
7 dchrisum.b φXD
8 dchrisum.n1 φX1˙
9 dchrvmasum.a φA+
10 dchrvmasum2.2 φ1A
11 2fveq3 n=dmXLn=XLdm
12 id n=dmn=dm
13 11 12 oveq12d n=dmXLnn=XLdmdm
14 oveq2 n=dmAn=Adm
15 14 fveq2d n=dmlogAn=logAdm
16 13 15 oveq12d n=dmXLnnlogAn=XLdmdmlogAdm
17 16 oveq2d n=dmμdXLnnlogAn=μdXLdmdmlogAdm
18 9 rpred φA
19 elrabi dx|xnd
20 19 ad2antll φn1Adx|xnd
21 mucl dμd
22 20 21 syl φn1Adx|xnμd
23 22 zcnd φn1Adx|xnμd
24 7 adantr φn1AXD
25 elfzelz n1An
26 25 adantl φn1An
27 4 1 5 2 24 26 dchrzrhcl φn1AXLn
28 elfznn n1An
29 28 adantl φn1An
30 29 nncnd φn1An
31 29 nnne0d φn1An0
32 27 30 31 divcld φn1AXLnn
33 28 nnrpd n1An+
34 rpdivcl A+n+An+
35 9 33 34 syl2an φn1AAn+
36 35 relogcld φn1AlogAn
37 36 recnd φn1AlogAn
38 32 37 mulcld φn1AXLnnlogAn
39 38 adantrr φn1Adx|xnXLnnlogAn
40 23 39 mulcld φn1Adx|xnμdXLnnlogAn
41 17 18 40 dvdsflsumcom φn=1Adx|xnμdXLnnlogAn=d=1Am=1AdμdXLdmdmlogAdm
42 2fveq3 n=1XLn=XL1
43 id n=1n=1
44 42 43 oveq12d n=1XLnn=XL11
45 oveq2 n=1An=A1
46 45 fveq2d n=1logAn=logA1
47 44 46 oveq12d n=1XLnnlogAn=XL11logA1
48 fzfid φ1AFin
49 fz1ssnn 1A
50 49 a1i φ1A
51 flge1nn A1AA
52 18 10 51 syl2anc φA
53 nnuz =1
54 52 53 eleqtrdi φA1
55 eluzfz1 A111A
56 54 55 syl φ11A
57 47 48 50 56 38 musumsum φn=1Adx|xnμdXLnnlogAn=XL11logA1
58 4 1 5 2 7 dchrzrh1 φXL1=1
59 58 oveq1d φXL11=11
60 1div1e1 11=1
61 59 60 eqtrdi φXL11=1
62 9 rpcnd φA
63 62 div1d φA1=A
64 63 fveq2d φlogA1=logA
65 61 64 oveq12d φXL11logA1=1logA
66 9 relogcld φlogA
67 66 recnd φlogA
68 67 mulid2d φ1logA=logA
69 57 65 68 3eqtrrd φlogA=n=1Adx|xnμdXLnnlogAn
70 fzfid φd1A1AdFin
71 7 adantr φd1AXD
72 elfzelz d1Ad
73 72 adantl φd1Ad
74 4 1 5 2 71 73 dchrzrhcl φd1AXLd
75 fznnfl Ad1AddA
76 18 75 syl φd1AddA
77 76 simprbda φd1Ad
78 77 21 syl φd1Aμd
79 78 zred φd1Aμd
80 79 77 nndivred φd1Aμdd
81 80 recnd φd1Aμdd
82 74 81 mulcld φd1AXLdμdd
83 7 ad2antrr φd1Am1AdXD
84 elfzelz m1Adm
85 84 adantl φd1Am1Adm
86 4 1 5 2 83 85 dchrzrhcl φd1Am1AdXLm
87 elfznn d1Ad
88 87 nnrpd d1Ad+
89 rpdivcl A+d+Ad+
90 9 88 89 syl2an φd1AAd+
91 elfznn m1Adm
92 91 nnrpd m1Adm+
93 rpdivcl Ad+m+Adm+
94 90 92 93 syl2an φd1Am1AdAdm+
95 94 relogcld φd1Am1AdlogAdm
96 91 adantl φd1Am1Adm
97 95 96 nndivred φd1Am1AdlogAdmm
98 97 recnd φd1Am1AdlogAdmm
99 86 98 mulcld φd1Am1AdXLmlogAdmm
100 70 82 99 fsummulc2 φd1AXLdμddm=1AdXLmlogAdmm=m=1AdXLdμddXLmlogAdmm
101 74 adantr φd1Am1AdXLd
102 79 adantr φd1Am1Adμd
103 102 recnd φd1Am1Adμd
104 77 nnrpd φd1Ad+
105 104 adantr φd1Am1Add+
106 105 rpcnne0d φd1Am1Addd0
107 div12 XLdμddd0XLdμdd=μdXLdd
108 101 103 106 107 syl3anc φd1Am1AdXLdμdd=μdXLdd
109 95 recnd φd1Am1AdlogAdm
110 96 nnrpd φd1Am1Adm+
111 110 rpcnne0d φd1Am1Admm0
112 div12 XLmlogAdmmm0XLmlogAdmm=logAdmXLmm
113 86 109 111 112 syl3anc φd1Am1AdXLmlogAdmm=logAdmXLmm
114 108 113 oveq12d φd1Am1AdXLdμddXLmlogAdmm=μdXLddlogAdmXLmm
115 105 rpcnd φd1Am1Add
116 105 rpne0d φd1Am1Add0
117 101 115 116 divcld φd1Am1AdXLdd
118 96 nncnd φd1Am1Adm
119 96 nnne0d φd1Am1Adm0
120 86 118 119 divcld φd1Am1AdXLmm
121 117 120 mulcld φd1Am1AdXLddXLmm
122 103 109 121 mulassd φd1Am1AdμdlogAdmXLddXLmm=μdlogAdmXLddXLmm
123 103 117 109 120 mul4d φd1Am1AdμdXLddlogAdmXLmm=μdlogAdmXLddXLmm
124 72 ad2antlr φd1Am1Add
125 4 1 5 2 83 124 85 dchrzrhmul φd1Am1AdXLdm=XLdXLm
126 125 oveq1d φd1Am1AdXLdmdm=XLdXLmdm
127 divmuldiv XLdXLmdd0mm0XLddXLmm=XLdXLmdm
128 101 86 106 111 127 syl22anc φd1Am1AdXLddXLmm=XLdXLmdm
129 126 128 eqtr4d φd1Am1AdXLdmdm=XLddXLmm
130 62 ad2antrr φd1Am1AdA
131 divdiv1 Add0mm0Adm=Adm
132 130 106 111 131 syl3anc φd1Am1AdAdm=Adm
133 132 eqcomd φd1Am1AdAdm=Adm
134 133 fveq2d φd1Am1AdlogAdm=logAdm
135 129 134 oveq12d φd1Am1AdXLdmdmlogAdm=XLddXLmmlogAdm
136 121 109 mulcomd φd1Am1AdXLddXLmmlogAdm=logAdmXLddXLmm
137 135 136 eqtrd φd1Am1AdXLdmdmlogAdm=logAdmXLddXLmm
138 137 oveq2d φd1Am1AdμdXLdmdmlogAdm=μdlogAdmXLddXLmm
139 122 123 138 3eqtr4d φd1Am1AdμdXLddlogAdmXLmm=μdXLdmdmlogAdm
140 114 139 eqtrd φd1Am1AdXLdμddXLmlogAdmm=μdXLdmdmlogAdm
141 140 sumeq2dv φd1Am=1AdXLdμddXLmlogAdmm=m=1AdμdXLdmdmlogAdm
142 100 141 eqtrd φd1AXLdμddm=1AdXLmlogAdmm=m=1AdμdXLdmdmlogAdm
143 142 sumeq2dv φd=1AXLdμddm=1AdXLmlogAdmm=d=1Am=1AdμdXLdmdmlogAdm
144 41 69 143 3eqtr4d φlogA=d=1AXLdμddm=1AdXLmlogAdmm