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