Intuitionistic Logic Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  ILE Home  >  Th. List  >  fisumcom2 GIF version

Theorem fisumcom2 11328
 Description: Interchange order of summation. Note that 𝐵(𝑗) and 𝐷(𝑘) 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.)
Hypotheses
Ref Expression
fsumcom2.1 (𝜑𝐴 ∈ Fin)
fsumcom2.2 (𝜑𝐶 ∈ Fin)
fsumcom2.3 ((𝜑𝑗𝐴) → 𝐵 ∈ Fin)
fisumcom2.fi ((𝜑𝑘𝐶) → 𝐷 ∈ Fin)
fsumcom2.4 (𝜑 → ((𝑗𝐴𝑘𝐵) ↔ (𝑘𝐶𝑗𝐷)))
fsumcom2.5 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐸 ∈ ℂ)
Assertion
Ref Expression
fisumcom2 (𝜑 → Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑘𝐶 Σ𝑗𝐷 𝐸)
Distinct variable groups:   𝑗,𝑘,𝐴   𝐶,𝑗,𝑘   𝜑,𝑗,𝑘   𝐵,𝑘   𝐷,𝑗
Allowed substitution hints:   𝐵(𝑗)   𝐷(𝑘)   𝐸(𝑗,𝑘)

Proof of Theorem fisumcom2
Dummy variables 𝑚 𝑛 𝑥 𝑦 𝑧 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 relxp 4694 . . . . . . . . 9 Rel ({𝑗} × 𝐵)
21rgenw 2512 . . . . . . . 8 𝑗𝐴 Rel ({𝑗} × 𝐵)
3 reliun 4706 . . . . . . . 8 (Rel 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∀𝑗𝐴 Rel ({𝑗} × 𝐵))
42, 3mpbir 145 . . . . . . 7 Rel 𝑗𝐴 ({𝑗} × 𝐵)
5 relcnv 4963 . . . . . . 7 Rel 𝑘𝐶 ({𝑘} × 𝐷)
6 ancom 264 . . . . . . . . . . . 12 ((𝑥 = 𝑗𝑦 = 𝑘) ↔ (𝑦 = 𝑘𝑥 = 𝑗))
7 vex 2715 . . . . . . . . . . . . 13 𝑥 ∈ V
8 vex 2715 . . . . . . . . . . . . 13 𝑦 ∈ V
97, 8opth 4197 . . . . . . . . . . . 12 (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ (𝑥 = 𝑗𝑦 = 𝑘))
108, 7opth 4197 . . . . . . . . . . . 12 (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ↔ (𝑦 = 𝑘𝑥 = 𝑗))
116, 9, 103bitr4i 211 . . . . . . . . . . 11 (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩)
1211a1i 9 . . . . . . . . . 10 (𝜑 → (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩))
13 fsumcom2.4 . . . . . . . . . 10 (𝜑 → ((𝑗𝐴𝑘𝐵) ↔ (𝑘𝐶𝑗𝐷)))
1412, 13anbi12d 465 . . . . . . . . 9 (𝜑 → ((⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷))))
15142exbidv 1848 . . . . . . . 8 (𝜑 → (∃𝑗𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷))))
16 eliunxp 4724 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)))
177, 8opelcnv 4767 . . . . . . . . 9 (⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑦, 𝑥⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
18 eliunxp 4724 . . . . . . . . 9 (⟨𝑦, 𝑥⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ∃𝑘𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
19 excom 1644 . . . . . . . . 9 (∃𝑘𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
2017, 18, 193bitri 205 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
2115, 16, 203bitr4g 222 . . . . . . 7 (𝜑 → (⟨𝑥, 𝑦⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷)))
224, 5, 21eqrelrdv 4681 . . . . . 6 (𝜑 𝑗𝐴 ({𝑗} × 𝐵) = 𝑘𝐶 ({𝑘} × 𝐷))
23 nfcv 2299 . . . . . . 7 𝑚({𝑗} × 𝐵)
24 nfcv 2299 . . . . . . . 8 𝑗{𝑚}
25 nfcsb1v 3064 . . . . . . . 8 𝑗𝑚 / 𝑗𝐵
2624, 25nfxp 4612 . . . . . . 7 𝑗({𝑚} × 𝑚 / 𝑗𝐵)
27 sneq 3571 . . . . . . . 8 (𝑗 = 𝑚 → {𝑗} = {𝑚})
28 csbeq1a 3040 . . . . . . . 8 (𝑗 = 𝑚𝐵 = 𝑚 / 𝑗𝐵)
2927, 28xpeq12d 4610 . . . . . . 7 (𝑗 = 𝑚 → ({𝑗} × 𝐵) = ({𝑚} × 𝑚 / 𝑗𝐵))
3023, 26, 29cbviun 3886 . . . . . 6 𝑗𝐴 ({𝑗} × 𝐵) = 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)
31 nfcv 2299 . . . . . . . 8 𝑛({𝑘} × 𝐷)
32 nfcv 2299 . . . . . . . . 9 𝑘{𝑛}
33 nfcsb1v 3064 . . . . . . . . 9 𝑘𝑛 / 𝑘𝐷
3432, 33nfxp 4612 . . . . . . . 8 𝑘({𝑛} × 𝑛 / 𝑘𝐷)
35 sneq 3571 . . . . . . . . 9 (𝑘 = 𝑛 → {𝑘} = {𝑛})
36 csbeq1a 3040 . . . . . . . . 9 (𝑘 = 𝑛𝐷 = 𝑛 / 𝑘𝐷)
3735, 36xpeq12d 4610 . . . . . . . 8 (𝑘 = 𝑛 → ({𝑘} × 𝐷) = ({𝑛} × 𝑛 / 𝑘𝐷))
3831, 34, 37cbviun 3886 . . . . . . 7 𝑘𝐶 ({𝑘} × 𝐷) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
3938cnveqi 4760 . . . . . 6 𝑘𝐶 ({𝑘} × 𝐷) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
4022, 30, 393eqtr3g 2213 . . . . 5 (𝜑 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
4140sumeq1d 11256 . . . 4 (𝜑 → Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = Σ𝑧 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
42 vex 2715 . . . . . . . 8 𝑛 ∈ V
43 vex 2715 . . . . . . . 8 𝑚 ∈ V
4442, 43op1std 6093 . . . . . . 7 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) = 𝑛)
4544csbeq1d 3038 . . . . . 6 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘(2nd𝑤) / 𝑗𝐸)
4642, 43op2ndd 6094 . . . . . . . 8 (𝑤 = ⟨𝑛, 𝑚⟩ → (2nd𝑤) = 𝑚)
4746csbeq1d 3038 . . . . . . 7 (𝑤 = ⟨𝑛, 𝑚⟩ → (2nd𝑤) / 𝑗𝐸 = 𝑚 / 𝑗𝐸)
4847csbeq2dv 3057 . . . . . 6 (𝑤 = ⟨𝑛, 𝑚⟩ → 𝑛 / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
4945, 48eqtrd 2190 . . . . 5 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
5043, 42op2ndd 6094 . . . . . . 7 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) = 𝑛)
5150csbeq1d 3038 . . . . . 6 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘(1st𝑧) / 𝑗𝐸)
5243, 42op1std 6093 . . . . . . . 8 (𝑧 = ⟨𝑚, 𝑛⟩ → (1st𝑧) = 𝑚)
5352csbeq1d 3038 . . . . . . 7 (𝑧 = ⟨𝑚, 𝑛⟩ → (1st𝑧) / 𝑗𝐸 = 𝑚 / 𝑗𝐸)
5453csbeq2dv 3057 . . . . . 6 (𝑧 = ⟨𝑚, 𝑛⟩ → 𝑛 / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
5551, 54eqtrd 2190 . . . . 5 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
56 fsumcom2.2 . . . . . 6 (𝜑𝐶 ∈ Fin)
57 snfig 6756 . . . . . . . . 9 (𝑛 ∈ V → {𝑛} ∈ Fin)
5857elv 2716 . . . . . . . 8 {𝑛} ∈ Fin
59 fisumcom2.fi . . . . . . . . . 10 ((𝜑𝑘𝐶) → 𝐷 ∈ Fin)
6059ralrimiva 2530 . . . . . . . . 9 (𝜑 → ∀𝑘𝐶 𝐷 ∈ Fin)
6133nfel1 2310 . . . . . . . . . 10 𝑘𝑛 / 𝑘𝐷 ∈ Fin
6236eleq1d 2226 . . . . . . . . . 10 (𝑘 = 𝑛 → (𝐷 ∈ Fin ↔ 𝑛 / 𝑘𝐷 ∈ Fin))
6361, 62rspc 2810 . . . . . . . . 9 (𝑛𝐶 → (∀𝑘𝐶 𝐷 ∈ Fin → 𝑛 / 𝑘𝐷 ∈ Fin))
6460, 63mpan9 279 . . . . . . . 8 ((𝜑𝑛𝐶) → 𝑛 / 𝑘𝐷 ∈ Fin)
65 xpfi 6871 . . . . . . . 8 (({𝑛} ∈ Fin ∧ 𝑛 / 𝑘𝐷 ∈ Fin) → ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
6658, 64, 65sylancr 411 . . . . . . 7 ((𝜑𝑛𝐶) → ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
6766ralrimiva 2530 . . . . . 6 (𝜑 → ∀𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
68 disjsnxp 6181 . . . . . . 7 Disj 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
6968a1i 9 . . . . . 6 (𝜑Disj 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
70 iunfidisj 6887 . . . . . 6 ((𝐶 ∈ Fin ∧ ∀𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin ∧ Disj 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
7156, 67, 69, 70syl3anc 1220 . . . . 5 (𝜑 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
72 reliun 4706 . . . . . . 7 (Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ↔ ∀𝑛𝐶 Rel ({𝑛} × 𝑛 / 𝑘𝐷))
73 relxp 4694 . . . . . . . 8 Rel ({𝑛} × 𝑛 / 𝑘𝐷)
7473a1i 9 . . . . . . 7 (𝑛𝐶 → Rel ({𝑛} × 𝑛 / 𝑘𝐷))
7572, 74mprgbir 2515 . . . . . 6 Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
7675a1i 9 . . . . 5 (𝜑 → Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
77 csbeq1 3034 . . . . . . . 8 (𝑚 = (2nd𝑤) → 𝑚 / 𝑗𝐸 = (2nd𝑤) / 𝑗𝐸)
7877csbeq2dv 3057 . . . . . . 7 (𝑚 = (2nd𝑤) → (1st𝑤) / 𝑘𝑚 / 𝑗𝐸 = (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
7978eleq1d 2226 . . . . . 6 (𝑚 = (2nd𝑤) → ((1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 ∈ ℂ))
80 csbeq1 3034 . . . . . . . 8 (𝑛 = (1st𝑤) → 𝑛 / 𝑘𝐷 = (1st𝑤) / 𝑘𝐷)
81 csbeq1 3034 . . . . . . . . 9 (𝑛 = (1st𝑤) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 = (1st𝑤) / 𝑘𝑚 / 𝑗𝐸)
8281eleq1d 2226 . . . . . . . 8 (𝑛 = (1st𝑤) → (𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ (1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
8380, 82raleqbidv 2664 . . . . . . 7 (𝑛 = (1st𝑤) → (∀𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ ∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
84 simpl 108 . . . . . . . . . 10 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝜑)
8543, 42opelcnv 4767 . . . . . . . . . . . . . . 15 (⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑛, 𝑚⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
8633, 36opeliunxp2f 6182 . . . . . . . . . . . . . . 15 (⟨𝑛, 𝑚⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ (𝑛𝐶𝑚𝑛 / 𝑘𝐷))
8785, 86sylbbr 135 . . . . . . . . . . . . . 14 ((𝑛𝐶𝑚𝑛 / 𝑘𝐷) → ⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
8887adantl 275 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
8922adantr 274 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑗𝐴 ({𝑗} × 𝐵) = 𝑘𝐶 ({𝑘} × 𝐷))
9088, 89eleqtrrd 2237 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ⟨𝑚, 𝑛⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵))
91 eliun 3853 . . . . . . . . . . . 12 (⟨𝑚, 𝑛⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
9290, 91sylib 121 . . . . . . . . . . 11 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
93 simpr 109 . . . . . . . . . . . . . . . 16 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
94 opelxp 4615 . . . . . . . . . . . . . . . 16 (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) ↔ (𝑚 ∈ {𝑗} ∧ 𝑛𝐵))
9593, 94sylib 121 . . . . . . . . . . . . . . 15 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → (𝑚 ∈ {𝑗} ∧ 𝑛𝐵))
9695simpld 111 . . . . . . . . . . . . . 14 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 ∈ {𝑗})
97 elsni 3578 . . . . . . . . . . . . . 14 (𝑚 ∈ {𝑗} → 𝑚 = 𝑗)
9896, 97syl 14 . . . . . . . . . . . . 13 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 = 𝑗)
99 simpl 108 . . . . . . . . . . . . 13 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑗𝐴)
10098, 99eqeltrd 2234 . . . . . . . . . . . 12 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚𝐴)
101100rexlimiva 2569 . . . . . . . . . . 11 (∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑚𝐴)
10292, 101syl 14 . . . . . . . . . 10 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑚𝐴)
10325nfcri 2293 . . . . . . . . . . . 12 𝑗 𝑛𝑚 / 𝑗𝐵
10497equcomd 1687 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ {𝑗} → 𝑗 = 𝑚)
105104, 28syl 14 . . . . . . . . . . . . . . . 16 (𝑚 ∈ {𝑗} → 𝐵 = 𝑚 / 𝑗𝐵)
106105eleq2d 2227 . . . . . . . . . . . . . . 15 (𝑚 ∈ {𝑗} → (𝑛𝐵𝑛𝑚 / 𝑗𝐵))
107106biimpa 294 . . . . . . . . . . . . . 14 ((𝑚 ∈ {𝑗} ∧ 𝑛𝐵) → 𝑛𝑚 / 𝑗𝐵)
10894, 107sylbi 120 . . . . . . . . . . . . 13 (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵)
109108a1i 9 . . . . . . . . . . . 12 (𝑗𝐴 → (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵))
110103, 109rexlimi 2567 . . . . . . . . . . 11 (∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵)
11192, 110syl 14 . . . . . . . . . 10 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑛𝑚 / 𝑗𝐵)
112 fsumcom2.5 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐸 ∈ ℂ)
113112ralrimivva 2539 . . . . . . . . . . . . 13 (𝜑 → ∀𝑗𝐴𝑘𝐵 𝐸 ∈ ℂ)
114 nfcsb1v 3064 . . . . . . . . . . . . . . . 16 𝑗𝑚 / 𝑗𝐸
115114nfel1 2310 . . . . . . . . . . . . . . 15 𝑗𝑚 / 𝑗𝐸 ∈ ℂ
11625, 115nfralxy 2495 . . . . . . . . . . . . . 14 𝑗𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ
117 csbeq1a 3040 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑚𝐸 = 𝑚 / 𝑗𝐸)
118117eleq1d 2226 . . . . . . . . . . . . . . 15 (𝑗 = 𝑚 → (𝐸 ∈ ℂ ↔ 𝑚 / 𝑗𝐸 ∈ ℂ))
11928, 118raleqbidv 2664 . . . . . . . . . . . . . 14 (𝑗 = 𝑚 → (∀𝑘𝐵 𝐸 ∈ ℂ ↔ ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ))
120116, 119rspc 2810 . . . . . . . . . . . . 13 (𝑚𝐴 → (∀𝑗𝐴𝑘𝐵 𝐸 ∈ ℂ → ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ))
121113, 120mpan9 279 . . . . . . . . . . . 12 ((𝜑𝑚𝐴) → ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ)
122 nfcsb1v 3064 . . . . . . . . . . . . . 14 𝑘𝑛 / 𝑘𝑚 / 𝑗𝐸
123122nfel1 2310 . . . . . . . . . . . . 13 𝑘𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ
124 csbeq1a 3040 . . . . . . . . . . . . . 14 (𝑘 = 𝑛𝑚 / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
125124eleq1d 2226 . . . . . . . . . . . . 13 (𝑘 = 𝑛 → (𝑚 / 𝑗𝐸 ∈ ℂ ↔ 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
126123, 125rspc 2810 . . . . . . . . . . . 12 (𝑛𝑚 / 𝑗𝐵 → (∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
127121, 126syl5com 29 . . . . . . . . . . 11 ((𝜑𝑚𝐴) → (𝑛𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
128127impr 377 . . . . . . . . . 10 ((𝜑 ∧ (𝑚𝐴𝑛𝑚 / 𝑗𝐵)) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
12984, 102, 111, 128syl12anc 1218 . . . . . . . . 9 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
130129ralrimivva 2539 . . . . . . . 8 (𝜑 → ∀𝑛𝐶𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
131130adantr 274 . . . . . . 7 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∀𝑛𝐶𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
132 simpr 109 . . . . . . . . 9 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → 𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
133 eliun 3853 . . . . . . . . 9 (𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ↔ ∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷))
134132, 133sylib 121 . . . . . . . 8 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷))
135 xp1st 6110 . . . . . . . . . . . 12 (𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (1st𝑤) ∈ {𝑛})
136135adantl 275 . . . . . . . . . . 11 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ {𝑛})
137 elsni 3578 . . . . . . . . . . 11 ((1st𝑤) ∈ {𝑛} → (1st𝑤) = 𝑛)
138136, 137syl 14 . . . . . . . . . 10 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) = 𝑛)
139 simpl 108 . . . . . . . . . 10 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → 𝑛𝐶)
140138, 139eqeltrd 2234 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ 𝐶)
141140rexlimiva 2569 . . . . . . . 8 (∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (1st𝑤) ∈ 𝐶)
142134, 141syl 14 . . . . . . 7 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ 𝐶)
14383, 131, 142rspcdva 2821 . . . . . 6 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
144 xp2nd 6111 . . . . . . . . . 10 (𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (2nd𝑤) ∈ 𝑛 / 𝑘𝐷)
145144adantl 275 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ 𝑛 / 𝑘𝐷)
146138csbeq1d 3038 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) / 𝑘𝐷 = 𝑛 / 𝑘𝐷)
147145, 146eleqtrrd 2237 . . . . . . . 8 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
148147rexlimiva 2569 . . . . . . 7 (∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
149134, 148syl 14 . . . . . 6 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
15079, 143, 149rspcdva 2821 . . . . 5 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 ∈ ℂ)
15149, 55, 71, 76, 150fsumcnv 11327 . . . 4 (𝜑 → Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = Σ𝑧 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
15241, 151eqtr4d 2193 . . 3 (𝜑 → Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
153 fsumcom2.1 . . . 4 (𝜑𝐴 ∈ Fin)
154 fsumcom2.3 . . . . . 6 ((𝜑𝑗𝐴) → 𝐵 ∈ Fin)
155154ralrimiva 2530 . . . . 5 (𝜑 → ∀𝑗𝐴 𝐵 ∈ Fin)
15625nfel1 2310 . . . . . 6 𝑗𝑚 / 𝑗𝐵 ∈ Fin
15728eleq1d 2226 . . . . . 6 (𝑗 = 𝑚 → (𝐵 ∈ Fin ↔ 𝑚 / 𝑗𝐵 ∈ Fin))
158156, 157rspc 2810 . . . . 5 (𝑚𝐴 → (∀𝑗𝐴 𝐵 ∈ Fin → 𝑚 / 𝑗𝐵 ∈ Fin))
159155, 158mpan9 279 . . . 4 ((𝜑𝑚𝐴) → 𝑚 / 𝑗𝐵 ∈ Fin)
16055, 153, 159, 128fsum2d 11325 . . 3 (𝜑 → Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
16149, 56, 64, 129fsum2d 11325 . . 3 (𝜑 → Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
162152, 160, 1613eqtr4d 2200 . 2 (𝜑 → Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
163 nfcv 2299 . . 3 𝑚Σ𝑘𝐵 𝐸
164 nfcv 2299 . . . . 5 𝑗𝑛
165164, 114nfcsb 3068 . . . 4 𝑗𝑛 / 𝑘𝑚 / 𝑗𝐸
16625, 165nfsum 11247 . . 3 𝑗Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸
167 nfcv 2299 . . . . 5 𝑛𝐸
168 nfcsb1v 3064 . . . . 5 𝑘𝑛 / 𝑘𝐸
169 csbeq1a 3040 . . . . 5 (𝑘 = 𝑛𝐸 = 𝑛 / 𝑘𝐸)
170167, 168, 169cbvsumi 11252 . . . 4 Σ𝑘𝐵 𝐸 = Σ𝑛𝐵 𝑛 / 𝑘𝐸
171117csbeq2dv 3057 . . . . . 6 (𝑗 = 𝑚𝑛 / 𝑘𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
172171adantr 274 . . . . 5 ((𝑗 = 𝑚𝑛𝐵) → 𝑛 / 𝑘𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
17328, 172sumeq12dv 11262 . . . 4 (𝑗 = 𝑚 → Σ𝑛𝐵 𝑛 / 𝑘𝐸 = Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸)
174170, 173syl5eq 2202 . . 3 (𝑗 = 𝑚 → Σ𝑘𝐵 𝐸 = Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸)
175163, 166, 174cbvsumi 11252 . 2 Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸
176 nfcv 2299 . . 3 𝑛Σ𝑗𝐷 𝐸
17733, 122nfsum 11247 . . 3 𝑘Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸
178 nfcv 2299 . . . . 5 𝑚𝐸
179178, 114, 117cbvsumi 11252 . . . 4 Σ𝑗𝐷 𝐸 = Σ𝑚𝐷 𝑚 / 𝑗𝐸
180124adantr 274 . . . . 5 ((𝑘 = 𝑛𝑚𝐷) → 𝑚 / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
18136, 180sumeq12dv 11262 . . . 4 (𝑘 = 𝑛 → Σ𝑚𝐷 𝑚 / 𝑗𝐸 = Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
182179, 181syl5eq 2202 . . 3 (𝑘 = 𝑛 → Σ𝑗𝐷 𝐸 = Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
183176, 177, 182cbvsumi 11252 . 2 Σ𝑘𝐶 Σ𝑗𝐷 𝐸 = Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸
184162, 175, 1833eqtr4g 2215 1 (𝜑 → Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑘𝐶 Σ𝑗𝐷 𝐸)
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   = wceq 1335  ∃wex 1472   ∈ wcel 2128  ∀wral 2435  ∃wrex 2436  Vcvv 2712  ⦋csb 3031  {csn 3560  ⟨cop 3563  ∪ ciun 3849  Disj wdisj 3942   × cxp 4583  ◡ccnv 4584  Rel wrel 4590  ‘cfv 5169  1st c1st 6083  2nd c2nd 6084  Fincfn 6682  ℂcc 7724  Σcsu 11243 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1427  ax-7 1428  ax-gen 1429  ax-ie1 1473  ax-ie2 1474  ax-8 1484  ax-10 1485  ax-11 1486  ax-i12 1487  ax-bndl 1489  ax-4 1490  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-13 2130  ax-14 2131  ax-ext 2139  ax-coll 4079  ax-sep 4082  ax-nul 4090  ax-pow 4135  ax-pr 4169  ax-un 4393  ax-setind 4495  ax-iinf 4546  ax-cnex 7817  ax-resscn 7818  ax-1cn 7819  ax-1re 7820  ax-icn 7821  ax-addcl 7822  ax-addrcl 7823  ax-mulcl 7824  ax-mulrcl 7825  ax-addcom 7826  ax-mulcom 7827  ax-addass 7828  ax-mulass 7829  ax-distr 7830  ax-i2m1 7831  ax-0lt1 7832  ax-1rid 7833  ax-0id 7834  ax-rnegex 7835  ax-precex 7836  ax-cnre 7837  ax-pre-ltirr 7838  ax-pre-ltwlin 7839  ax-pre-lttrn 7840  ax-pre-apti 7841  ax-pre-ltadd 7842  ax-pre-mulgt0 7843  ax-pre-mulext 7844  ax-arch 7845  ax-caucvg 7846 This theorem depends on definitions:  df-bi 116  df-dc 821  df-3or 964  df-3an 965  df-tru 1338  df-fal 1341  df-nf 1441  df-sb 1743  df-eu 2009  df-mo 2010  df-clab 2144  df-cleq 2150  df-clel 2153  df-nfc 2288  df-ne 2328  df-nel 2423  df-ral 2440  df-rex 2441  df-reu 2442  df-rmo 2443  df-rab 2444  df-v 2714  df-sbc 2938  df-csb 3032  df-dif 3104  df-un 3106  df-in 3108  df-ss 3115  df-nul 3395  df-if 3506  df-pw 3545  df-sn 3566  df-pr 3567  df-op 3569  df-uni 3773  df-int 3808  df-iun 3851  df-disj 3943  df-br 3966  df-opab 4026  df-mpt 4027  df-tr 4063  df-id 4253  df-po 4256  df-iso 4257  df-iord 4326  df-on 4328  df-ilim 4329  df-suc 4331  df-iom 4549  df-xp 4591  df-rel 4592  df-cnv 4593  df-co 4594  df-dm 4595  df-rn 4596  df-res 4597  df-ima 4598  df-iota 5134  df-fun 5171  df-fn 5172  df-f 5173  df-f1 5174  df-fo 5175  df-f1o 5176  df-fv 5177  df-isom 5178  df-riota 5777  df-ov 5824  df-oprab 5825  df-mpo 5826  df-1st 6085  df-2nd 6086  df-recs 6249  df-irdg 6314  df-frec 6335  df-1o 6360  df-oadd 6364  df-er 6477  df-en 6683  df-dom 6684  df-fin 6685  df-pnf 7908  df-mnf 7909  df-xr 7910  df-ltxr 7911  df-le 7912  df-sub 8042  df-neg 8043  df-reap 8444  df-ap 8451  df-div 8540  df-inn 8828  df-2 8886  df-3 8887  df-4 8888  df-n0 9085  df-z 9162  df-uz 9434  df-q 9522  df-rp 9554  df-fz 9906  df-fzo 10035  df-seqfrec 10338  df-exp 10412  df-ihash 10643  df-cj 10735  df-re 10736  df-im 10737  df-rsqrt 10891  df-abs 10892  df-clim 11169  df-sumdc 11244 This theorem is referenced by:  fsumcom  11329  fisum0diag  11331
 Copyright terms: Public domain W3C validator