Metamath Proof Explorer


Theorem dchrvmasum2if

Description: Combine the results of dchrvmasumlem1 and dchrvmasum2lem inside a conditional. (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 dchrvmasum2if φn=1AXLnΛnn+ifψlogA0=d=1AXLdμddm=1AdXLmlogifψAdmm

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 fzfid φ1AFin
12 7 adantr φd1AXD
13 elfzelz d1Ad
14 13 adantl φd1Ad
15 4 1 5 2 12 14 dchrzrhcl φd1AXLd
16 elfznn d1Ad
17 16 adantl φd1Ad
18 mucl dμd
19 18 zred dμd
20 nndivre μddμdd
21 19 20 mpancom dμdd
22 17 21 syl φd1Aμdd
23 22 recnd φd1Aμdd
24 15 23 mulcld φd1AXLdμdd
25 fzfid φd1A1AdFin
26 12 adantr φd1Am1AdXD
27 elfzelz m1Adm
28 27 adantl φd1Am1Adm
29 4 1 5 2 26 28 dchrzrhcl φd1Am1AdXLm
30 elfznn m1Adm
31 30 adantl φd1Am1Adm
32 31 nnrpd φd1Am1Adm+
33 32 relogcld φd1Am1Adlogm
34 33 31 nndivred φd1Am1Adlogmm
35 34 recnd φd1Am1Adlogmm
36 29 35 mulcld φd1Am1AdXLmlogmm
37 25 36 fsumcl φd1Am=1AdXLmlogmm
38 24 37 mulcld φd1AXLdμddm=1AdXLmlogmm
39 16 nnrpd d1Ad+
40 rpdivcl A+d+Ad+
41 9 39 40 syl2an φd1AAd+
42 41 adantr φd1Am1AdAd+
43 42 32 rpdivcld φd1Am1AdAdm+
44 43 relogcld φd1Am1AdlogAdm
45 44 31 nndivred φd1Am1AdlogAdmm
46 45 recnd φd1Am1AdlogAdmm
47 29 46 mulcld φd1Am1AdXLmlogAdmm
48 25 47 fsumcl φd1Am=1AdXLmlogAdmm
49 24 48 mulcld φd1AXLdμddm=1AdXLmlogAdmm
50 11 38 49 fsumadd φd=1AXLdμddm=1AdXLmlogmm+XLdμddm=1AdXLmlogAdmm=d=1AXLdμddm=1AdXLmlogmm+d=1AXLdμddm=1AdXLmlogAdmm
51 42 32 relogdivd φd1Am1AdlogAdm=logAdlogm
52 51 oveq2d φd1Am1Adlogm+logAdm=logm+logAd-logm
53 33 recnd φd1Am1Adlogm
54 41 relogcld φd1AlogAd
55 54 recnd φd1AlogAd
56 55 adantr φd1Am1AdlogAd
57 53 56 pncan3d φd1Am1Adlogm+logAd-logm=logAd
58 52 57 eqtr2d φd1Am1AdlogAd=logm+logAdm
59 58 oveq1d φd1Am1AdlogAdm=logm+logAdmm
60 44 recnd φd1Am1AdlogAdm
61 31 nncnd φd1Am1Adm
62 31 nnne0d φd1Am1Adm0
63 53 60 61 62 divdird φd1Am1Adlogm+logAdmm=logmm+logAdmm
64 59 63 eqtrd φd1Am1AdlogAdm=logmm+logAdmm
65 64 oveq2d φd1Am1AdXLmlogAdm=XLmlogmm+logAdmm
66 29 35 46 adddid φd1Am1AdXLmlogmm+logAdmm=XLmlogmm+XLmlogAdmm
67 65 66 eqtrd φd1Am1AdXLmlogAdm=XLmlogmm+XLmlogAdmm
68 67 sumeq2dv φd1Am=1AdXLmlogAdm=m=1AdXLmlogmm+XLmlogAdmm
69 25 36 47 fsumadd φd1Am=1AdXLmlogmm+XLmlogAdmm=m=1AdXLmlogmm+m=1AdXLmlogAdmm
70 68 69 eqtrd φd1Am=1AdXLmlogAdm=m=1AdXLmlogmm+m=1AdXLmlogAdmm
71 70 oveq2d φd1AXLdμddm=1AdXLmlogAdm=XLdμddm=1AdXLmlogmm+m=1AdXLmlogAdmm
72 24 37 48 adddid φd1AXLdμddm=1AdXLmlogmm+m=1AdXLmlogAdmm=XLdμddm=1AdXLmlogmm+XLdμddm=1AdXLmlogAdmm
73 71 72 eqtrd φd1AXLdμddm=1AdXLmlogAdm=XLdμddm=1AdXLmlogmm+XLdμddm=1AdXLmlogAdmm
74 73 sumeq2dv φd=1AXLdμddm=1AdXLmlogAdm=d=1AXLdμddm=1AdXLmlogmm+XLdμddm=1AdXLmlogAdmm
75 1 2 3 4 5 6 7 8 9 dchrvmasumlem1 φn=1AXLnΛnn=d=1AXLdμddm=1AdXLmlogmm
76 1 2 3 4 5 6 7 8 9 10 dchrvmasum2lem φlogA=d=1AXLdμddm=1AdXLmlogAdmm
77 75 76 oveq12d φn=1AXLnΛnn+logA=d=1AXLdμddm=1AdXLmlogmm+d=1AXLdμddm=1AdXLmlogAdmm
78 50 74 77 3eqtr4rd φn=1AXLnΛnn+logA=d=1AXLdμddm=1AdXLmlogAdm
79 78 adantr φψn=1AXLnΛnn+logA=d=1AXLdμddm=1AdXLmlogAdm
80 iftrue ψifψlogA0=logA
81 80 oveq2d ψn=1AXLnΛnn+ifψlogA0=n=1AXLnΛnn+logA
82 81 adantl φψn=1AXLnΛnn+ifψlogA0=n=1AXLnΛnn+logA
83 iftrue ψifψAdm=Ad
84 83 fveq2d ψlogifψAdm=logAd
85 84 oveq1d ψlogifψAdmm=logAdm
86 85 oveq2d ψXLmlogifψAdmm=XLmlogAdm
87 86 sumeq2sdv ψm=1AdXLmlogifψAdmm=m=1AdXLmlogAdm
88 87 oveq2d ψXLdμddm=1AdXLmlogifψAdmm=XLdμddm=1AdXLmlogAdm
89 88 sumeq2sdv ψd=1AXLdμddm=1AdXLmlogifψAdmm=d=1AXLdμddm=1AdXLmlogAdm
90 89 adantl φψd=1AXLdμddm=1AdXLmlogifψAdmm=d=1AXLdμddm=1AdXLmlogAdm
91 79 82 90 3eqtr4d φψn=1AXLnΛnn+ifψlogA0=d=1AXLdμddm=1AdXLmlogifψAdmm
92 7 adantr φn1AXD
93 elfzelz n1An
94 93 adantl φn1An
95 4 1 5 2 92 94 dchrzrhcl φn1AXLn
96 elfznn n1An
97 96 adantl φn1An
98 vmacl nΛn
99 nndivre ΛnnΛnn
100 98 99 mpancom nΛnn
101 100 recnd nΛnn
102 97 101 syl φn1AΛnn
103 95 102 mulcld φn1AXLnΛnn
104 11 103 fsumcl φn=1AXLnΛnn
105 104 adantr φ¬ψn=1AXLnΛnn
106 105 addridd φ¬ψn=1AXLnΛnn+0=n=1AXLnΛnn
107 iffalse ¬ψifψlogA0=0
108 107 adantl φ¬ψifψlogA0=0
109 108 oveq2d φ¬ψn=1AXLnΛnn+ifψlogA0=n=1AXLnΛnn+0
110 iffalse ¬ψifψAdm=m
111 110 fveq2d ¬ψlogifψAdm=logm
112 111 oveq1d ¬ψlogifψAdmm=logmm
113 112 oveq2d ¬ψXLmlogifψAdmm=XLmlogmm
114 113 sumeq2sdv ¬ψm=1AdXLmlogifψAdmm=m=1AdXLmlogmm
115 114 oveq2d ¬ψXLdμddm=1AdXLmlogifψAdmm=XLdμddm=1AdXLmlogmm
116 115 sumeq2sdv ¬ψd=1AXLdμddm=1AdXLmlogifψAdmm=d=1AXLdμddm=1AdXLmlogmm
117 75 eqcomd φd=1AXLdμddm=1AdXLmlogmm=n=1AXLnΛnn
118 116 117 sylan9eqr φ¬ψd=1AXLdμddm=1AdXLmlogifψAdmm=n=1AXLnΛnn
119 106 109 118 3eqtr4d φ¬ψn=1AXLnΛnn+ifψlogA0=d=1AXLdμddm=1AdXLmlogifψAdmm
120 91 119 pm2.61dan φn=1AXLnΛnn+ifψlogA0=d=1AXLdμddm=1AdXLmlogifψAdmm