Metamath Proof Explorer


Theorem fsumcom2

Description: Interchange order of summation. Note that B ( j ) and D ( k ) are not necessarily constant expressions. (Contributed by Mario Carneiro, 28-Apr-2014) (Revised by Mario Carneiro, 8-Apr-2016) (Proof shortened by JJ, 2-Aug-2021)

Ref Expression
Hypotheses fsumcom2.1 φ A Fin
fsumcom2.2 φ C Fin
fsumcom2.3 φ j A B Fin
fsumcom2.4 φ j A k B k C j D
fsumcom2.5 φ j A k B E
Assertion fsumcom2 φ j A k B E = k C j D E

Proof

Step Hyp Ref Expression
1 fsumcom2.1 φ A Fin
2 fsumcom2.2 φ C Fin
3 fsumcom2.3 φ j A B Fin
4 fsumcom2.4 φ j A k B k C j D
5 fsumcom2.5 φ j A k B E
6 relxp Rel j × B
7 6 rgenw j A Rel j × B
8 reliun Rel j A j × B j A Rel j × B
9 7 8 mpbir Rel j A j × B
10 relcnv Rel k C k × D -1
11 ancom x = j y = k y = k x = j
12 vex x V
13 vex y V
14 12 13 opth x y = j k x = j y = k
15 13 12 opth y x = k j y = k x = j
16 11 14 15 3bitr4i x y = j k y x = k j
17 16 a1i φ x y = j k y x = k j
18 17 4 anbi12d φ x y = j k j A k B y x = k j k C j D
19 18 2exbidv φ j k x y = j k j A k B j k y x = k j k C j D
20 eliunxp x y j A j × B j k x y = j k j A k B
21 12 13 opelcnv x y k C k × D -1 y x k C k × D
22 eliunxp y x k C k × D k j y x = k j k C j D
23 excom k j y x = k j k C j D j k y x = k j k C j D
24 21 22 23 3bitri x y k C k × D -1 j k y x = k j k C j D
25 19 20 24 3bitr4g φ x y j A j × B x y k C k × D -1
26 9 10 25 eqrelrdv φ j A j × B = k C k × D -1
27 nfcv _ m j × B
28 nfcv _ j m
29 nfcsb1v _ j m / j B
30 28 29 nfxp _ j m × m / j B
31 sneq j = m j = m
32 csbeq1a j = m B = m / j B
33 31 32 xpeq12d j = m j × B = m × m / j B
34 27 30 33 cbviun j A j × B = m A m × m / j B
35 nfcv _ n k × D
36 nfcv _ k n
37 nfcsb1v _ k n / k D
38 36 37 nfxp _ k n × n / k D
39 sneq k = n k = n
40 csbeq1a k = n D = n / k D
41 39 40 xpeq12d k = n k × D = n × n / k D
42 35 38 41 cbviun k C k × D = n C n × n / k D
43 42 cnveqi k C k × D -1 = n C n × n / k D -1
44 26 34 43 3eqtr3g φ m A m × m / j B = n C n × n / k D -1
45 44 sumeq1d φ z m A m × m / j B 2 nd z / k 1 st z / j E = z n C n × n / k D -1 2 nd z / k 1 st z / j E
46 vex n V
47 vex m V
48 46 47 op1std w = n m 1 st w = n
49 48 csbeq1d w = n m 1 st w / k 2 nd w / j E = n / k 2 nd w / j E
50 46 47 op2ndd w = n m 2 nd w = m
51 50 csbeq1d w = n m 2 nd w / j E = m / j E
52 51 csbeq2dv w = n m n / k 2 nd w / j E = n / k m / j E
53 49 52 eqtrd w = n m 1 st w / k 2 nd w / j E = n / k m / j E
54 47 46 op2ndd z = m n 2 nd z = n
55 54 csbeq1d z = m n 2 nd z / k 1 st z / j E = n / k 1 st z / j E
56 47 46 op1std z = m n 1 st z = m
57 56 csbeq1d z = m n 1 st z / j E = m / j E
58 57 csbeq2dv z = m n n / k 1 st z / j E = n / k m / j E
59 55 58 eqtrd z = m n 2 nd z / k 1 st z / j E = n / k m / j E
60 snfi n Fin
61 1 adantr φ n C A Fin
62 47 46 opelcnv m n k C k × D -1 n m k C k × D
63 37 40 opeliunxp2f n m k C k × D n C m n / k D
64 62 63 sylbbr n C m n / k D m n k C k × D -1
65 64 adantl φ n C m n / k D m n k C k × D -1
66 26 adantr φ n C m n / k D j A j × B = k C k × D -1
67 65 66 eleqtrrd φ n C m n / k D m n j A j × B
68 eliun m n j A j × B j A m n j × B
69 67 68 sylib φ n C m n / k D j A m n j × B
70 opelxp m n j × B m j n B
71 70 bilani j A m n j × B m j n B
72 71 simpld j A m n j × B m j
73 elsni m j m = j
74 72 73 syl j A m n j × B m = j
75 simpl j A m n j × B j A
76 74 75 eqeltrd j A m n j × B m A
77 76 rexlimiva j A m n j × B m A
78 69 77 syl φ n C m n / k D m A
79 78 expr φ n C m n / k D m A
80 79 ssrdv φ n C n / k D A
81 61 80 ssfid φ n C n / k D Fin
82 xpfi n Fin n / k D Fin n × n / k D Fin
83 60 81 82 sylancr φ n C n × n / k D Fin
84 83 ralrimiva φ n C n × n / k D Fin
85 iunfi C Fin n C n × n / k D Fin n C n × n / k D Fin
86 2 84 85 syl2anc φ n C n × n / k D Fin
87 reliun Rel n C n × n / k D n C Rel n × n / k D
88 relxp Rel n × n / k D
89 88 a1i n C Rel n × n / k D
90 87 89 mprgbir Rel n C n × n / k D
91 90 a1i φ Rel n C n × n / k D
92 csbeq1 m = 2 nd w m / j E = 2 nd w / j E
93 92 csbeq2dv m = 2 nd w 1 st w / k m / j E = 1 st w / k 2 nd w / j E
94 93 eleq1d m = 2 nd w 1 st w / k m / j E 1 st w / k 2 nd w / j E
95 csbeq1 n = 1 st w n / k D = 1 st w / k D
96 csbeq1 n = 1 st w n / k m / j E = 1 st w / k m / j E
97 96 eleq1d n = 1 st w n / k m / j E 1 st w / k m / j E
98 95 97 raleqbidv n = 1 st w m n / k D n / k m / j E m 1 st w / k D 1 st w / k m / j E
99 simpl φ n C m n / k D φ
100 29 nfcri j n m / j B
101 73 equcomd m j j = m
102 101 32 syl m j B = m / j B
103 102 eleq2d m j n B n m / j B
104 103 biimpa m j n B n m / j B
105 70 104 sylbi m n j × B n m / j B
106 105 a1i j A m n j × B n m / j B
107 100 106 rexlimi j A m n j × B n m / j B
108 69 107 syl φ n C m n / k D n m / j B
109 5 ralrimivva φ j A k B E
110 nfcsb1v _ j m / j E
111 110 nfel1 j m / j E
112 29 111 nfralw j k m / j B m / j E
113 csbeq1a j = m E = m / j E
114 113 eleq1d j = m E m / j E
115 32 114 raleqbidv j = m k B E k m / j B m / j E
116 112 115 rspc m A j A k B E k m / j B m / j E
117 109 116 mpan9 φ m A k m / j B m / j E
118 nfcsb1v _ k n / k m / j E
119 118 nfel1 k n / k m / j E
120 csbeq1a k = n m / j E = n / k m / j E
121 120 eleq1d k = n m / j E n / k m / j E
122 119 121 rspc n m / j B k m / j B m / j E n / k m / j E
123 117 122 syl5com φ m A n m / j B n / k m / j E
124 123 impr φ m A n m / j B n / k m / j E
125 99 78 108 124 syl12anc φ n C m n / k D n / k m / j E
126 125 ralrimivva φ n C m n / k D n / k m / j E
127 126 adantr φ w n C n × n / k D n C m n / k D n / k m / j E
128 eliun w n C n × n / k D n C w n × n / k D
129 128 bilani φ w n C n × n / k D n C w n × n / k D
130 xp1st w n × n / k D 1 st w n
131 130 adantl n C w n × n / k D 1 st w n
132 elsni 1 st w n 1 st w = n
133 131 132 syl n C w n × n / k D 1 st w = n
134 simpl n C w n × n / k D n C
135 133 134 eqeltrd n C w n × n / k D 1 st w C
136 135 rexlimiva n C w n × n / k D 1 st w C
137 129 136 syl φ w n C n × n / k D 1 st w C
138 98 127 137 rspcdva φ w n C n × n / k D m 1 st w / k D 1 st w / k m / j E
139 xp2nd w n × n / k D 2 nd w n / k D
140 139 adantl n C w n × n / k D 2 nd w n / k D
141 133 csbeq1d n C w n × n / k D 1 st w / k D = n / k D
142 140 141 eleqtrrd n C w n × n / k D 2 nd w 1 st w / k D
143 142 rexlimiva n C w n × n / k D 2 nd w 1 st w / k D
144 129 143 syl φ w n C n × n / k D 2 nd w 1 st w / k D
145 94 138 144 rspcdva φ w n C n × n / k D 1 st w / k 2 nd w / j E
146 53 59 86 91 145 fsumcnv φ w n C n × n / k D 1 st w / k 2 nd w / j E = z n C n × n / k D -1 2 nd z / k 1 st z / j E
147 45 146 eqtr4d φ z m A m × m / j B 2 nd z / k 1 st z / j E = w n C n × n / k D 1 st w / k 2 nd w / j E
148 3 ralrimiva φ j A B Fin
149 29 nfel1 j m / j B Fin
150 32 eleq1d j = m B Fin m / j B Fin
151 149 150 rspc m A j A B Fin m / j B Fin
152 148 151 mpan9 φ m A m / j B Fin
153 59 1 152 124 fsum2d φ m A n m / j B n / k m / j E = z m A m × m / j B 2 nd z / k 1 st z / j E
154 53 2 81 125 fsum2d φ n C m n / k D n / k m / j E = w n C n × n / k D 1 st w / k 2 nd w / j E
155 147 153 154 3eqtr4d φ m A n m / j B n / k m / j E = n C m n / k D n / k m / j E
156 csbeq1a k = n E = n / k E
157 nfcv _ n E
158 nfcsb1v _ k n / k E
159 156 157 158 cbvsum k B E = n B n / k E
160 113 csbeq2dv j = m n / k E = n / k m / j E
161 160 adantr j = m n B n / k E = n / k m / j E
162 32 161 sumeq12dv j = m n B n / k E = n m / j B n / k m / j E
163 159 162 eqtrid j = m k B E = n m / j B n / k m / j E
164 nfcv _ m k B E
165 nfcv _ j n
166 165 110 nfcsbw _ j n / k m / j E
167 29 166 nfsum _ j n m / j B n / k m / j E
168 163 164 167 cbvsum j A k B E = m A n m / j B n / k m / j E
169 nfcv _ m E
170 113 169 110 cbvsum j D E = m D m / j E
171 120 adantr k = n m D m / j E = n / k m / j E
172 40 171 sumeq12dv k = n m D m / j E = m n / k D n / k m / j E
173 170 172 eqtrid k = n j D E = m n / k D n / k m / j E
174 nfcv _ n j D E
175 37 118 nfsum _ k m n / k D n / k m / j E
176 173 174 175 cbvsum k C j D E = n C m n / k D n / k m / j E
177 155 168 176 3eqtr4g φ j A k B E = k C j D E