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

Theorem fisumcom2 11158
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 4616 . . . . . . . . 9 Rel ({𝑗} × 𝐵)
21rgenw 2462 . . . . . . . 8 𝑗𝐴 Rel ({𝑗} × 𝐵)
3 reliun 4628 . . . . . . . 8 (Rel 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∀𝑗𝐴 Rel ({𝑗} × 𝐵))
42, 3mpbir 145 . . . . . . 7 Rel 𝑗𝐴 ({𝑗} × 𝐵)
5 relcnv 4885 . . . . . . 7 Rel 𝑘𝐶 ({𝑘} × 𝐷)
6 ancom 264 . . . . . . . . . . . 12 ((𝑥 = 𝑗𝑦 = 𝑘) ↔ (𝑦 = 𝑘𝑥 = 𝑗))
7 vex 2661 . . . . . . . . . . . . 13 𝑥 ∈ V
8 vex 2661 . . . . . . . . . . . . 13 𝑦 ∈ V
97, 8opth 4127 . . . . . . . . . . . 12 (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ (𝑥 = 𝑗𝑦 = 𝑘))
108, 7opth 4127 . . . . . . . . . . . 12 (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ↔ (𝑦 = 𝑘𝑥 = 𝑗))
116, 9, 103bitr4i 211 . . . . . . . . . . 11 (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩)
1211a1i 9 . . . . . . . . . 10 (𝜑 → (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩))
13 fsumcom2.4 . . . . . . . . . 10 (𝜑 → ((𝑗𝐴𝑘𝐵) ↔ (𝑘𝐶𝑗𝐷)))
1412, 13anbi12d 462 . . . . . . . . 9 (𝜑 → ((⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷))))
15142exbidv 1822 . . . . . . . 8 (𝜑 → (∃𝑗𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷))))
16 eliunxp 4646 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)))
177, 8opelcnv 4689 . . . . . . . . 9 (⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑦, 𝑥⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
18 eliunxp 4646 . . . . . . . . 9 (⟨𝑦, 𝑥⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ∃𝑘𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
19 excom 1625 . . . . . . . . 9 (∃𝑘𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
2017, 18, 193bitri 205 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
2115, 16, 203bitr4g 222 . . . . . . 7 (𝜑 → (⟨𝑥, 𝑦⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷)))
224, 5, 21eqrelrdv 4603 . . . . . 6 (𝜑 𝑗𝐴 ({𝑗} × 𝐵) = 𝑘𝐶 ({𝑘} × 𝐷))
23 nfcv 2256 . . . . . . 7 𝑚({𝑗} × 𝐵)
24 nfcv 2256 . . . . . . . 8 𝑗{𝑚}
25 nfcsb1v 3003 . . . . . . . 8 𝑗𝑚 / 𝑗𝐵
2624, 25nfxp 4534 . . . . . . 7 𝑗({𝑚} × 𝑚 / 𝑗𝐵)
27 sneq 3506 . . . . . . . 8 (𝑗 = 𝑚 → {𝑗} = {𝑚})
28 csbeq1a 2981 . . . . . . . 8 (𝑗 = 𝑚𝐵 = 𝑚 / 𝑗𝐵)
2927, 28xpeq12d 4532 . . . . . . 7 (𝑗 = 𝑚 → ({𝑗} × 𝐵) = ({𝑚} × 𝑚 / 𝑗𝐵))
3023, 26, 29cbviun 3818 . . . . . 6 𝑗𝐴 ({𝑗} × 𝐵) = 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)
31 nfcv 2256 . . . . . . . 8 𝑛({𝑘} × 𝐷)
32 nfcv 2256 . . . . . . . . 9 𝑘{𝑛}
33 nfcsb1v 3003 . . . . . . . . 9 𝑘𝑛 / 𝑘𝐷
3432, 33nfxp 4534 . . . . . . . 8 𝑘({𝑛} × 𝑛 / 𝑘𝐷)
35 sneq 3506 . . . . . . . . 9 (𝑘 = 𝑛 → {𝑘} = {𝑛})
36 csbeq1a 2981 . . . . . . . . 9 (𝑘 = 𝑛𝐷 = 𝑛 / 𝑘𝐷)
3735, 36xpeq12d 4532 . . . . . . . 8 (𝑘 = 𝑛 → ({𝑘} × 𝐷) = ({𝑛} × 𝑛 / 𝑘𝐷))
3831, 34, 37cbviun 3818 . . . . . . 7 𝑘𝐶 ({𝑘} × 𝐷) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
3938cnveqi 4682 . . . . . 6 𝑘𝐶 ({𝑘} × 𝐷) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
4022, 30, 393eqtr3g 2171 . . . . 5 (𝜑 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
4140sumeq1d 11086 . . . 4 (𝜑 → Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = Σ𝑧 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
42 vex 2661 . . . . . . . 8 𝑛 ∈ V
43 vex 2661 . . . . . . . 8 𝑚 ∈ V
4442, 43op1std 6012 . . . . . . 7 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) = 𝑛)
4544csbeq1d 2979 . . . . . 6 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘(2nd𝑤) / 𝑗𝐸)
4642, 43op2ndd 6013 . . . . . . . 8 (𝑤 = ⟨𝑛, 𝑚⟩ → (2nd𝑤) = 𝑚)
4746csbeq1d 2979 . . . . . . 7 (𝑤 = ⟨𝑛, 𝑚⟩ → (2nd𝑤) / 𝑗𝐸 = 𝑚 / 𝑗𝐸)
4847csbeq2dv 2996 . . . . . 6 (𝑤 = ⟨𝑛, 𝑚⟩ → 𝑛 / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
4945, 48eqtrd 2148 . . . . 5 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
5043, 42op2ndd 6013 . . . . . . 7 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) = 𝑛)
5150csbeq1d 2979 . . . . . 6 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘(1st𝑧) / 𝑗𝐸)
5243, 42op1std 6012 . . . . . . . 8 (𝑧 = ⟨𝑚, 𝑛⟩ → (1st𝑧) = 𝑚)
5352csbeq1d 2979 . . . . . . 7 (𝑧 = ⟨𝑚, 𝑛⟩ → (1st𝑧) / 𝑗𝐸 = 𝑚 / 𝑗𝐸)
5453csbeq2dv 2996 . . . . . 6 (𝑧 = ⟨𝑚, 𝑛⟩ → 𝑛 / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
5551, 54eqtrd 2148 . . . . 5 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
56 fsumcom2.2 . . . . . 6 (𝜑𝐶 ∈ Fin)
57 snfig 6674 . . . . . . . . 9 (𝑛 ∈ V → {𝑛} ∈ Fin)
5857elv 2662 . . . . . . . 8 {𝑛} ∈ Fin
59 fisumcom2.fi . . . . . . . . . 10 ((𝜑𝑘𝐶) → 𝐷 ∈ Fin)
6059ralrimiva 2480 . . . . . . . . 9 (𝜑 → ∀𝑘𝐶 𝐷 ∈ Fin)
6133nfel1 2267 . . . . . . . . . 10 𝑘𝑛 / 𝑘𝐷 ∈ Fin
6236eleq1d 2184 . . . . . . . . . 10 (𝑘 = 𝑛 → (𝐷 ∈ Fin ↔ 𝑛 / 𝑘𝐷 ∈ Fin))
6361, 62rspc 2755 . . . . . . . . 9 (𝑛𝐶 → (∀𝑘𝐶 𝐷 ∈ Fin → 𝑛 / 𝑘𝐷 ∈ Fin))
6460, 63mpan9 277 . . . . . . . 8 ((𝜑𝑛𝐶) → 𝑛 / 𝑘𝐷 ∈ Fin)
65 xpfi 6784 . . . . . . . 8 (({𝑛} ∈ Fin ∧ 𝑛 / 𝑘𝐷 ∈ Fin) → ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
6658, 64, 65sylancr 408 . . . . . . 7 ((𝜑𝑛𝐶) → ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
6766ralrimiva 2480 . . . . . 6 (𝜑 → ∀𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
68 disjsnxp 6100 . . . . . . 7 Disj 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
6968a1i 9 . . . . . 6 (𝜑Disj 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
70 iunfidisj 6800 . . . . . 6 ((𝐶 ∈ Fin ∧ ∀𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin ∧ Disj 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
7156, 67, 69, 70syl3anc 1199 . . . . 5 (𝜑 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
72 reliun 4628 . . . . . . 7 (Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ↔ ∀𝑛𝐶 Rel ({𝑛} × 𝑛 / 𝑘𝐷))
73 relxp 4616 . . . . . . . 8 Rel ({𝑛} × 𝑛 / 𝑘𝐷)
7473a1i 9 . . . . . . 7 (𝑛𝐶 → Rel ({𝑛} × 𝑛 / 𝑘𝐷))
7572, 74mprgbir 2465 . . . . . 6 Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
7675a1i 9 . . . . 5 (𝜑 → Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
77 csbeq1 2976 . . . . . . . 8 (𝑚 = (2nd𝑤) → 𝑚 / 𝑗𝐸 = (2nd𝑤) / 𝑗𝐸)
7877csbeq2dv 2996 . . . . . . 7 (𝑚 = (2nd𝑤) → (1st𝑤) / 𝑘𝑚 / 𝑗𝐸 = (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
7978eleq1d 2184 . . . . . 6 (𝑚 = (2nd𝑤) → ((1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 ∈ ℂ))
80 csbeq1 2976 . . . . . . . 8 (𝑛 = (1st𝑤) → 𝑛 / 𝑘𝐷 = (1st𝑤) / 𝑘𝐷)
81 csbeq1 2976 . . . . . . . . 9 (𝑛 = (1st𝑤) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 = (1st𝑤) / 𝑘𝑚 / 𝑗𝐸)
8281eleq1d 2184 . . . . . . . 8 (𝑛 = (1st𝑤) → (𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ (1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
8380, 82raleqbidv 2613 . . . . . . 7 (𝑛 = (1st𝑤) → (∀𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ ∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
84 simpl 108 . . . . . . . . . 10 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝜑)
8543, 42opelcnv 4689 . . . . . . . . . . . . . . 15 (⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑛, 𝑚⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
8633, 36opeliunxp2f 6101 . . . . . . . . . . . . . . 15 (⟨𝑛, 𝑚⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ (𝑛𝐶𝑚𝑛 / 𝑘𝐷))
8785, 86sylbbr 135 . . . . . . . . . . . . . 14 ((𝑛𝐶𝑚𝑛 / 𝑘𝐷) → ⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
8887adantl 273 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
8922adantr 272 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑗𝐴 ({𝑗} × 𝐵) = 𝑘𝐶 ({𝑘} × 𝐷))
9088, 89eleqtrrd 2195 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ⟨𝑚, 𝑛⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵))
91 eliun 3785 . . . . . . . . . . . 12 (⟨𝑚, 𝑛⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
9290, 91sylib 121 . . . . . . . . . . 11 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
93 simpr 109 . . . . . . . . . . . . . . . 16 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
94 opelxp 4537 . . . . . . . . . . . . . . . 16 (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) ↔ (𝑚 ∈ {𝑗} ∧ 𝑛𝐵))
9593, 94sylib 121 . . . . . . . . . . . . . . 15 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → (𝑚 ∈ {𝑗} ∧ 𝑛𝐵))
9695simpld 111 . . . . . . . . . . . . . 14 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 ∈ {𝑗})
97 elsni 3513 . . . . . . . . . . . . . 14 (𝑚 ∈ {𝑗} → 𝑚 = 𝑗)
9896, 97syl 14 . . . . . . . . . . . . 13 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 = 𝑗)
99 simpl 108 . . . . . . . . . . . . 13 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑗𝐴)
10098, 99eqeltrd 2192 . . . . . . . . . . . 12 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚𝐴)
101100rexlimiva 2519 . . . . . . . . . . 11 (∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑚𝐴)
10292, 101syl 14 . . . . . . . . . 10 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑚𝐴)
10325nfcri 2250 . . . . . . . . . . . 12 𝑗 𝑛𝑚 / 𝑗𝐵
10497equcomd 1666 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ {𝑗} → 𝑗 = 𝑚)
105104, 28syl 14 . . . . . . . . . . . . . . . 16 (𝑚 ∈ {𝑗} → 𝐵 = 𝑚 / 𝑗𝐵)
106105eleq2d 2185 . . . . . . . . . . . . . . 15 (𝑚 ∈ {𝑗} → (𝑛𝐵𝑛𝑚 / 𝑗𝐵))
107106biimpa 292 . . . . . . . . . . . . . 14 ((𝑚 ∈ {𝑗} ∧ 𝑛𝐵) → 𝑛𝑚 / 𝑗𝐵)
10894, 107sylbi 120 . . . . . . . . . . . . 13 (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵)
109108a1i 9 . . . . . . . . . . . 12 (𝑗𝐴 → (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵))
110103, 109rexlimi 2517 . . . . . . . . . . 11 (∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵)
11192, 110syl 14 . . . . . . . . . 10 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑛𝑚 / 𝑗𝐵)
112 fsumcom2.5 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐸 ∈ ℂ)
113112ralrimivva 2489 . . . . . . . . . . . . 13 (𝜑 → ∀𝑗𝐴𝑘𝐵 𝐸 ∈ ℂ)
114 nfcsb1v 3003 . . . . . . . . . . . . . . . 16 𝑗𝑚 / 𝑗𝐸
115114nfel1 2267 . . . . . . . . . . . . . . 15 𝑗𝑚 / 𝑗𝐸 ∈ ℂ
11625, 115nfralxy 2446 . . . . . . . . . . . . . 14 𝑗𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ
117 csbeq1a 2981 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑚𝐸 = 𝑚 / 𝑗𝐸)
118117eleq1d 2184 . . . . . . . . . . . . . . 15 (𝑗 = 𝑚 → (𝐸 ∈ ℂ ↔ 𝑚 / 𝑗𝐸 ∈ ℂ))
11928, 118raleqbidv 2613 . . . . . . . . . . . . . 14 (𝑗 = 𝑚 → (∀𝑘𝐵 𝐸 ∈ ℂ ↔ ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ))
120116, 119rspc 2755 . . . . . . . . . . . . 13 (𝑚𝐴 → (∀𝑗𝐴𝑘𝐵 𝐸 ∈ ℂ → ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ))
121113, 120mpan9 277 . . . . . . . . . . . 12 ((𝜑𝑚𝐴) → ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ)
122 nfcsb1v 3003 . . . . . . . . . . . . . 14 𝑘𝑛 / 𝑘𝑚 / 𝑗𝐸
123122nfel1 2267 . . . . . . . . . . . . 13 𝑘𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ
124 csbeq1a 2981 . . . . . . . . . . . . . 14 (𝑘 = 𝑛𝑚 / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
125124eleq1d 2184 . . . . . . . . . . . . 13 (𝑘 = 𝑛 → (𝑚 / 𝑗𝐸 ∈ ℂ ↔ 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
126123, 125rspc 2755 . . . . . . . . . . . 12 (𝑛𝑚 / 𝑗𝐵 → (∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
127121, 126syl5com 29 . . . . . . . . . . 11 ((𝜑𝑚𝐴) → (𝑛𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
128127impr 374 . . . . . . . . . 10 ((𝜑 ∧ (𝑚𝐴𝑛𝑚 / 𝑗𝐵)) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
12984, 102, 111, 128syl12anc 1197 . . . . . . . . 9 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
130129ralrimivva 2489 . . . . . . . 8 (𝜑 → ∀𝑛𝐶𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
131130adantr 272 . . . . . . 7 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∀𝑛𝐶𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
132 simpr 109 . . . . . . . . 9 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → 𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
133 eliun 3785 . . . . . . . . 9 (𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ↔ ∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷))
134132, 133sylib 121 . . . . . . . 8 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷))
135 xp1st 6029 . . . . . . . . . . . 12 (𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (1st𝑤) ∈ {𝑛})
136135adantl 273 . . . . . . . . . . 11 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ {𝑛})
137 elsni 3513 . . . . . . . . . . 11 ((1st𝑤) ∈ {𝑛} → (1st𝑤) = 𝑛)
138136, 137syl 14 . . . . . . . . . 10 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) = 𝑛)
139 simpl 108 . . . . . . . . . 10 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → 𝑛𝐶)
140138, 139eqeltrd 2192 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ 𝐶)
141140rexlimiva 2519 . . . . . . . 8 (∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (1st𝑤) ∈ 𝐶)
142134, 141syl 14 . . . . . . 7 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ 𝐶)
14383, 131, 142rspcdva 2766 . . . . . 6 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
144 xp2nd 6030 . . . . . . . . . 10 (𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (2nd𝑤) ∈ 𝑛 / 𝑘𝐷)
145144adantl 273 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ 𝑛 / 𝑘𝐷)
146138csbeq1d 2979 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) / 𝑘𝐷 = 𝑛 / 𝑘𝐷)
147145, 146eleqtrrd 2195 . . . . . . . 8 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
148147rexlimiva 2519 . . . . . . 7 (∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
149134, 148syl 14 . . . . . 6 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
15079, 143, 149rspcdva 2766 . . . . 5 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 ∈ ℂ)
15149, 55, 71, 76, 150fsumcnv 11157 . . . 4 (𝜑 → Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = Σ𝑧 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
15241, 151eqtr4d 2151 . . 3 (𝜑 → Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
153 fsumcom2.1 . . . 4 (𝜑𝐴 ∈ Fin)
154 fsumcom2.3 . . . . . 6 ((𝜑𝑗𝐴) → 𝐵 ∈ Fin)
155154ralrimiva 2480 . . . . 5 (𝜑 → ∀𝑗𝐴 𝐵 ∈ Fin)
15625nfel1 2267 . . . . . 6 𝑗𝑚 / 𝑗𝐵 ∈ Fin
15728eleq1d 2184 . . . . . 6 (𝑗 = 𝑚 → (𝐵 ∈ Fin ↔ 𝑚 / 𝑗𝐵 ∈ Fin))
158156, 157rspc 2755 . . . . 5 (𝑚𝐴 → (∀𝑗𝐴 𝐵 ∈ Fin → 𝑚 / 𝑗𝐵 ∈ Fin))
159155, 158mpan9 277 . . . 4 ((𝜑𝑚𝐴) → 𝑚 / 𝑗𝐵 ∈ Fin)
16055, 153, 159, 128fsum2d 11155 . . 3 (𝜑 → Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
16149, 56, 64, 129fsum2d 11155 . . 3 (𝜑 → Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
162152, 160, 1613eqtr4d 2158 . 2 (𝜑 → Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
163 nfcv 2256 . . 3 𝑚Σ𝑘𝐵 𝐸
164 nfcv 2256 . . . . 5 𝑗𝑛
165164, 114nfcsb 3005 . . . 4 𝑗𝑛 / 𝑘𝑚 / 𝑗𝐸
16625, 165nfsum 11077 . . 3 𝑗Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸
167 nfcv 2256 . . . . 5 𝑛𝐸
168 nfcsb1v 3003 . . . . 5 𝑘𝑛 / 𝑘𝐸
169 csbeq1a 2981 . . . . 5 (𝑘 = 𝑛𝐸 = 𝑛 / 𝑘𝐸)
170167, 168, 169cbvsumi 11082 . . . 4 Σ𝑘𝐵 𝐸 = Σ𝑛𝐵 𝑛 / 𝑘𝐸
171117csbeq2dv 2996 . . . . . 6 (𝑗 = 𝑚𝑛 / 𝑘𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
172171adantr 272 . . . . 5 ((𝑗 = 𝑚𝑛𝐵) → 𝑛 / 𝑘𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
17328, 172sumeq12dv 11092 . . . 4 (𝑗 = 𝑚 → Σ𝑛𝐵 𝑛 / 𝑘𝐸 = Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸)
174170, 173syl5eq 2160 . . 3 (𝑗 = 𝑚 → Σ𝑘𝐵 𝐸 = Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸)
175163, 166, 174cbvsumi 11082 . 2 Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸
176 nfcv 2256 . . 3 𝑛Σ𝑗𝐷 𝐸
17733, 122nfsum 11077 . . 3 𝑘Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸
178 nfcv 2256 . . . . 5 𝑚𝐸
179178, 114, 117cbvsumi 11082 . . . 4 Σ𝑗𝐷 𝐸 = Σ𝑚𝐷 𝑚 / 𝑗𝐸
180124adantr 272 . . . . 5 ((𝑘 = 𝑛𝑚𝐷) → 𝑚 / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
18136, 180sumeq12dv 11092 . . . 4 (𝑘 = 𝑛 → Σ𝑚𝐷 𝑚 / 𝑗𝐸 = Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
182179, 181syl5eq 2160 . . 3 (𝑘 = 𝑛 → Σ𝑗𝐷 𝐸 = Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
183176, 177, 182cbvsumi 11082 . 2 Σ𝑘𝐶 Σ𝑗𝐷 𝐸 = Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸
184162, 175, 1833eqtr4g 2173 1 (𝜑 → Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑘𝐶 Σ𝑗𝐷 𝐸)
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  wb 104   = wceq 1314  wex 1451  wcel 1463  wral 2391  wrex 2392  Vcvv 2658  csb 2973  {csn 3495  cop 3498   ciun 3781  Disj wdisj 3874   × cxp 4505  ccnv 4506  Rel wrel 4512  cfv 5091  1st c1st 6002  2nd c2nd 6003  Fincfn 6600  cc 7582  Σcsu 11073
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 586  ax-in2 587  ax-io 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-bndl 1469  ax-4 1470  ax-13 1474  ax-14 1475  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097  ax-coll 4011  ax-sep 4014  ax-nul 4022  ax-pow 4066  ax-pr 4099  ax-un 4323  ax-setind 4420  ax-iinf 4470  ax-cnex 7675  ax-resscn 7676  ax-1cn 7677  ax-1re 7678  ax-icn 7679  ax-addcl 7680  ax-addrcl 7681  ax-mulcl 7682  ax-mulrcl 7683  ax-addcom 7684  ax-mulcom 7685  ax-addass 7686  ax-mulass 7687  ax-distr 7688  ax-i2m1 7689  ax-0lt1 7690  ax-1rid 7691  ax-0id 7692  ax-rnegex 7693  ax-precex 7694  ax-cnre 7695  ax-pre-ltirr 7696  ax-pre-ltwlin 7697  ax-pre-lttrn 7698  ax-pre-apti 7699  ax-pre-ltadd 7700  ax-pre-mulgt0 7701  ax-pre-mulext 7702  ax-arch 7703  ax-caucvg 7704
This theorem depends on definitions:  df-bi 116  df-dc 803  df-3or 946  df-3an 947  df-tru 1317  df-fal 1320  df-nf 1420  df-sb 1719  df-eu 1978  df-mo 1979  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2245  df-ne 2284  df-nel 2379  df-ral 2396  df-rex 2397  df-reu 2398  df-rmo 2399  df-rab 2400  df-v 2660  df-sbc 2881  df-csb 2974  df-dif 3041  df-un 3043  df-in 3045  df-ss 3052  df-nul 3332  df-if 3443  df-pw 3480  df-sn 3501  df-pr 3502  df-op 3504  df-uni 3705  df-int 3740  df-iun 3783  df-disj 3875  df-br 3898  df-opab 3958  df-mpt 3959  df-tr 3995  df-id 4183  df-po 4186  df-iso 4187  df-iord 4256  df-on 4258  df-ilim 4259  df-suc 4261  df-iom 4473  df-xp 4513  df-rel 4514  df-cnv 4515  df-co 4516  df-dm 4517  df-rn 4518  df-res 4519  df-ima 4520  df-iota 5056  df-fun 5093  df-fn 5094  df-f 5095  df-f1 5096  df-fo 5097  df-f1o 5098  df-fv 5099  df-isom 5100  df-riota 5696  df-ov 5743  df-oprab 5744  df-mpo 5745  df-1st 6004  df-2nd 6005  df-recs 6168  df-irdg 6233  df-frec 6254  df-1o 6279  df-oadd 6283  df-er 6395  df-en 6601  df-dom 6602  df-fin 6603  df-pnf 7766  df-mnf 7767  df-xr 7768  df-ltxr 7769  df-le 7770  df-sub 7899  df-neg 7900  df-reap 8300  df-ap 8307  df-div 8396  df-inn 8681  df-2 8739  df-3 8740  df-4 8741  df-n0 8932  df-z 9009  df-uz 9279  df-q 9364  df-rp 9394  df-fz 9742  df-fzo 9871  df-seqfrec 10170  df-exp 10244  df-ihash 10473  df-cj 10565  df-re 10566  df-im 10567  df-rsqrt 10721  df-abs 10722  df-clim 10999  df-sumdc 11074
This theorem is referenced by:  fsumcom  11159  fisum0diag  11161
  Copyright terms: Public domain W3C validator