Metamath Proof Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >  fsumcom2 Structured version   Visualization version   GIF version

Theorem fsumcom2 14433
 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)
fsumcom2.4 (𝜑 → ((𝑗𝐴𝑘𝐵) ↔ (𝑘𝐶𝑗𝐷)))
fsumcom2.5 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐸 ∈ ℂ)
Assertion
Ref Expression
fsumcom2 (𝜑 → Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑘𝐶 Σ𝑗𝐷 𝐸)
Distinct variable groups:   𝑗,𝑘,𝐴   𝐶,𝑗,𝑘   𝜑,𝑗,𝑘   𝐵,𝑘   𝐷,𝑗
Allowed substitution hints:   𝐵(𝑗)   𝐷(𝑘)   𝐸(𝑗,𝑘)

Proof of Theorem fsumcom2
Dummy variables 𝑚 𝑛 𝑥 𝑦 𝑧 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 relxp 5188 . . . . . . . . 9 Rel ({𝑗} × 𝐵)
21rgenw 2919 . . . . . . . 8 𝑗𝐴 Rel ({𝑗} × 𝐵)
3 reliun 5200 . . . . . . . 8 (Rel 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∀𝑗𝐴 Rel ({𝑗} × 𝐵))
42, 3mpbir 221 . . . . . . 7 Rel 𝑗𝐴 ({𝑗} × 𝐵)
5 relcnv 5462 . . . . . . 7 Rel 𝑘𝐶 ({𝑘} × 𝐷)
6 ancom 466 . . . . . . . . . . . 12 ((𝑥 = 𝑗𝑦 = 𝑘) ↔ (𝑦 = 𝑘𝑥 = 𝑗))
7 vex 3189 . . . . . . . . . . . . 13 𝑥 ∈ V
8 vex 3189 . . . . . . . . . . . . 13 𝑦 ∈ V
97, 8opth 4905 . . . . . . . . . . . 12 (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ (𝑥 = 𝑗𝑦 = 𝑘))
108, 7opth 4905 . . . . . . . . . . . 12 (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ↔ (𝑦 = 𝑘𝑥 = 𝑗))
116, 9, 103bitr4i 292 . . . . . . . . . . 11 (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩)
1211a1i 11 . . . . . . . . . 10 (𝜑 → (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩))
13 fsumcom2.4 . . . . . . . . . 10 (𝜑 → ((𝑗𝐴𝑘𝐵) ↔ (𝑘𝐶𝑗𝐷)))
1412, 13anbi12d 746 . . . . . . . . 9 (𝜑 → ((⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷))))
15142exbidv 1849 . . . . . . . 8 (𝜑 → (∃𝑗𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷))))
16 eliunxp 5219 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)))
177, 8opelcnv 5264 . . . . . . . . 9 (⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑦, 𝑥⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
18 eliunxp 5219 . . . . . . . . 9 (⟨𝑦, 𝑥⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ∃𝑘𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
19 excom 2039 . . . . . . . . 9 (∃𝑘𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
2017, 18, 193bitri 286 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
2115, 16, 203bitr4g 303 . . . . . . 7 (𝜑 → (⟨𝑥, 𝑦⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷)))
224, 5, 21eqrelrdv 5177 . . . . . 6 (𝜑 𝑗𝐴 ({𝑗} × 𝐵) = 𝑘𝐶 ({𝑘} × 𝐷))
23 nfcv 2761 . . . . . . 7 𝑚({𝑗} × 𝐵)
24 nfcv 2761 . . . . . . . 8 𝑗{𝑚}
25 nfcsb1v 3530 . . . . . . . 8 𝑗𝑚 / 𝑗𝐵
2624, 25nfxp 5102 . . . . . . 7 𝑗({𝑚} × 𝑚 / 𝑗𝐵)
27 sneq 4158 . . . . . . . 8 (𝑗 = 𝑚 → {𝑗} = {𝑚})
28 csbeq1a 3523 . . . . . . . 8 (𝑗 = 𝑚𝐵 = 𝑚 / 𝑗𝐵)
2927, 28xpeq12d 5100 . . . . . . 7 (𝑗 = 𝑚 → ({𝑗} × 𝐵) = ({𝑚} × 𝑚 / 𝑗𝐵))
3023, 26, 29cbviun 4523 . . . . . 6 𝑗𝐴 ({𝑗} × 𝐵) = 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)
31 nfcv 2761 . . . . . . . 8 𝑛({𝑘} × 𝐷)
32 nfcv 2761 . . . . . . . . 9 𝑘{𝑛}
33 nfcsb1v 3530 . . . . . . . . 9 𝑘𝑛 / 𝑘𝐷
3432, 33nfxp 5102 . . . . . . . 8 𝑘({𝑛} × 𝑛 / 𝑘𝐷)
35 sneq 4158 . . . . . . . . 9 (𝑘 = 𝑛 → {𝑘} = {𝑛})
36 csbeq1a 3523 . . . . . . . . 9 (𝑘 = 𝑛𝐷 = 𝑛 / 𝑘𝐷)
3735, 36xpeq12d 5100 . . . . . . . 8 (𝑘 = 𝑛 → ({𝑘} × 𝐷) = ({𝑛} × 𝑛 / 𝑘𝐷))
3831, 34, 37cbviun 4523 . . . . . . 7 𝑘𝐶 ({𝑘} × 𝐷) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
3938cnveqi 5257 . . . . . 6 𝑘𝐶 ({𝑘} × 𝐷) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
4022, 30, 393eqtr3g 2678 . . . . 5 (𝜑 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
4140sumeq1d 14365 . . . 4 (𝜑 → Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = Σ𝑧 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
42 vex 3189 . . . . . . . 8 𝑛 ∈ V
43 vex 3189 . . . . . . . 8 𝑚 ∈ V
4442, 43op1std 7123 . . . . . . 7 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) = 𝑛)
4544csbeq1d 3521 . . . . . 6 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘(2nd𝑤) / 𝑗𝐸)
4642, 43op2ndd 7124 . . . . . . . 8 (𝑤 = ⟨𝑛, 𝑚⟩ → (2nd𝑤) = 𝑚)
4746csbeq1d 3521 . . . . . . 7 (𝑤 = ⟨𝑛, 𝑚⟩ → (2nd𝑤) / 𝑗𝐸 = 𝑚 / 𝑗𝐸)
4847csbeq2dv 3964 . . . . . 6 (𝑤 = ⟨𝑛, 𝑚⟩ → 𝑛 / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
4945, 48eqtrd 2655 . . . . 5 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
5043, 42op2ndd 7124 . . . . . . 7 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) = 𝑛)
5150csbeq1d 3521 . . . . . 6 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘(1st𝑧) / 𝑗𝐸)
5243, 42op1std 7123 . . . . . . . 8 (𝑧 = ⟨𝑚, 𝑛⟩ → (1st𝑧) = 𝑚)
5352csbeq1d 3521 . . . . . . 7 (𝑧 = ⟨𝑚, 𝑛⟩ → (1st𝑧) / 𝑗𝐸 = 𝑚 / 𝑗𝐸)
5453csbeq2dv 3964 . . . . . 6 (𝑧 = ⟨𝑚, 𝑛⟩ → 𝑛 / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
5551, 54eqtrd 2655 . . . . 5 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
56 fsumcom2.2 . . . . . 6 (𝜑𝐶 ∈ Fin)
57 snfi 7982 . . . . . . . 8 {𝑛} ∈ Fin
58 fsumcom2.1 . . . . . . . . . 10 (𝜑𝐴 ∈ Fin)
5958adantr 481 . . . . . . . . 9 ((𝜑𝑛𝐶) → 𝐴 ∈ Fin)
6043, 42opelcnv 5264 . . . . . . . . . . . . . . . 16 (⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑛, 𝑚⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
6133, 36opeliunxp2f 7281 . . . . . . . . . . . . . . . 16 (⟨𝑛, 𝑚⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ (𝑛𝐶𝑚𝑛 / 𝑘𝐷))
6260, 61sylbbr 226 . . . . . . . . . . . . . . 15 ((𝑛𝐶𝑚𝑛 / 𝑘𝐷) → ⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
6362adantl 482 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
6422adantr 481 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑗𝐴 ({𝑗} × 𝐵) = 𝑘𝐶 ({𝑘} × 𝐷))
6563, 64eleqtrrd 2701 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ⟨𝑚, 𝑛⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵))
66 eliun 4490 . . . . . . . . . . . . 13 (⟨𝑚, 𝑛⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
6765, 66sylib 208 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
68 simpr 477 . . . . . . . . . . . . . . . . 17 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
69 opelxp 5106 . . . . . . . . . . . . . . . . 17 (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) ↔ (𝑚 ∈ {𝑗} ∧ 𝑛𝐵))
7068, 69sylib 208 . . . . . . . . . . . . . . . 16 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → (𝑚 ∈ {𝑗} ∧ 𝑛𝐵))
7170simpld 475 . . . . . . . . . . . . . . 15 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 ∈ {𝑗})
72 elsni 4165 . . . . . . . . . . . . . . 15 (𝑚 ∈ {𝑗} → 𝑚 = 𝑗)
7371, 72syl 17 . . . . . . . . . . . . . 14 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 = 𝑗)
74 simpl 473 . . . . . . . . . . . . . 14 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑗𝐴)
7573, 74eqeltrd 2698 . . . . . . . . . . . . 13 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚𝐴)
7675rexlimiva 3021 . . . . . . . . . . . 12 (∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑚𝐴)
7767, 76syl 17 . . . . . . . . . . 11 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑚𝐴)
7877expr 642 . . . . . . . . . 10 ((𝜑𝑛𝐶) → (𝑚𝑛 / 𝑘𝐷𝑚𝐴))
7978ssrdv 3589 . . . . . . . . 9 ((𝜑𝑛𝐶) → 𝑛 / 𝑘𝐷𝐴)
8059, 79ssfid 8127 . . . . . . . 8 ((𝜑𝑛𝐶) → 𝑛 / 𝑘𝐷 ∈ Fin)
81 xpfi 8175 . . . . . . . 8 (({𝑛} ∈ Fin ∧ 𝑛 / 𝑘𝐷 ∈ Fin) → ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
8257, 80, 81sylancr 694 . . . . . . 7 ((𝜑𝑛𝐶) → ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
8382ralrimiva 2960 . . . . . 6 (𝜑 → ∀𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
84 iunfi 8198 . . . . . 6 ((𝐶 ∈ Fin ∧ ∀𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin) → 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
8556, 83, 84syl2anc 692 . . . . 5 (𝜑 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
86 reliun 5200 . . . . . . 7 (Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ↔ ∀𝑛𝐶 Rel ({𝑛} × 𝑛 / 𝑘𝐷))
87 relxp 5188 . . . . . . . 8 Rel ({𝑛} × 𝑛 / 𝑘𝐷)
8887a1i 11 . . . . . . 7 (𝑛𝐶 → Rel ({𝑛} × 𝑛 / 𝑘𝐷))
8986, 88mprgbir 2922 . . . . . 6 Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
9089a1i 11 . . . . 5 (𝜑 → Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
91 simpr 477 . . . . . . . 8 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → 𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
92 eliun 4490 . . . . . . . 8 (𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ↔ ∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷))
9391, 92sylib 208 . . . . . . 7 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷))
94 xp2nd 7144 . . . . . . . . . 10 (𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (2nd𝑤) ∈ 𝑛 / 𝑘𝐷)
9594adantl 482 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ 𝑛 / 𝑘𝐷)
96 xp1st 7143 . . . . . . . . . . . 12 (𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (1st𝑤) ∈ {𝑛})
9796adantl 482 . . . . . . . . . . 11 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ {𝑛})
98 elsni 4165 . . . . . . . . . . 11 ((1st𝑤) ∈ {𝑛} → (1st𝑤) = 𝑛)
9997, 98syl 17 . . . . . . . . . 10 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) = 𝑛)
10099csbeq1d 3521 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) / 𝑘𝐷 = 𝑛 / 𝑘𝐷)
10195, 100eleqtrrd 2701 . . . . . . . 8 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
102101rexlimiva 3021 . . . . . . 7 (∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
10393, 102syl 17 . . . . . 6 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
104 simpl 473 . . . . . . . . . 10 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → 𝑛𝐶)
10599, 104eqeltrd 2698 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ 𝐶)
106105rexlimiva 3021 . . . . . . . 8 (∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (1st𝑤) ∈ 𝐶)
10793, 106syl 17 . . . . . . 7 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ 𝐶)
108 simpl 473 . . . . . . . . . 10 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝜑)
10925nfcri 2755 . . . . . . . . . . . 12 𝑗 𝑛𝑚 / 𝑗𝐵
11072equcomd 1943 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ {𝑗} → 𝑗 = 𝑚)
111110, 28syl 17 . . . . . . . . . . . . . . . 16 (𝑚 ∈ {𝑗} → 𝐵 = 𝑚 / 𝑗𝐵)
112111eleq2d 2684 . . . . . . . . . . . . . . 15 (𝑚 ∈ {𝑗} → (𝑛𝐵𝑛𝑚 / 𝑗𝐵))
113112biimpa 501 . . . . . . . . . . . . . 14 ((𝑚 ∈ {𝑗} ∧ 𝑛𝐵) → 𝑛𝑚 / 𝑗𝐵)
11469, 113sylbi 207 . . . . . . . . . . . . 13 (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵)
115114a1i 11 . . . . . . . . . . . 12 (𝑗𝐴 → (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵))
116109, 115rexlimi 3017 . . . . . . . . . . 11 (∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵)
11767, 116syl 17 . . . . . . . . . 10 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑛𝑚 / 𝑗𝐵)
118 fsumcom2.5 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐸 ∈ ℂ)
119118ralrimivva 2965 . . . . . . . . . . . . 13 (𝜑 → ∀𝑗𝐴𝑘𝐵 𝐸 ∈ ℂ)
120 nfcsb1v 3530 . . . . . . . . . . . . . . . 16 𝑗𝑚 / 𝑗𝐸
121120nfel1 2775 . . . . . . . . . . . . . . 15 𝑗𝑚 / 𝑗𝐸 ∈ ℂ
12225, 121nfral 2940 . . . . . . . . . . . . . 14 𝑗𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ
123 csbeq1a 3523 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑚𝐸 = 𝑚 / 𝑗𝐸)
124123eleq1d 2683 . . . . . . . . . . . . . . 15 (𝑗 = 𝑚 → (𝐸 ∈ ℂ ↔ 𝑚 / 𝑗𝐸 ∈ ℂ))
12528, 124raleqbidv 3141 . . . . . . . . . . . . . 14 (𝑗 = 𝑚 → (∀𝑘𝐵 𝐸 ∈ ℂ ↔ ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ))
126122, 125rspc 3289 . . . . . . . . . . . . 13 (𝑚𝐴 → (∀𝑗𝐴𝑘𝐵 𝐸 ∈ ℂ → ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ))
127119, 126mpan9 486 . . . . . . . . . . . 12 ((𝜑𝑚𝐴) → ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ)
128 nfcsb1v 3530 . . . . . . . . . . . . . 14 𝑘𝑛 / 𝑘𝑚 / 𝑗𝐸
129128nfel1 2775 . . . . . . . . . . . . 13 𝑘𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ
130 csbeq1a 3523 . . . . . . . . . . . . . 14 (𝑘 = 𝑛𝑚 / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
131130eleq1d 2683 . . . . . . . . . . . . 13 (𝑘 = 𝑛 → (𝑚 / 𝑗𝐸 ∈ ℂ ↔ 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
132129, 131rspc 3289 . . . . . . . . . . . 12 (𝑛𝑚 / 𝑗𝐵 → (∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
133127, 132syl5com 31 . . . . . . . . . . 11 ((𝜑𝑚𝐴) → (𝑛𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
134133impr 648 . . . . . . . . . 10 ((𝜑 ∧ (𝑚𝐴𝑛𝑚 / 𝑗𝐵)) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
135108, 77, 117, 134syl12anc 1321 . . . . . . . . 9 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
136135ralrimivva 2965 . . . . . . . 8 (𝜑 → ∀𝑛𝐶𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
137136adantr 481 . . . . . . 7 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∀𝑛𝐶𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
138 csbeq1 3517 . . . . . . . . 9 (𝑛 = (1st𝑤) → 𝑛 / 𝑘𝐷 = (1st𝑤) / 𝑘𝐷)
139 csbeq1 3517 . . . . . . . . . 10 (𝑛 = (1st𝑤) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 = (1st𝑤) / 𝑘𝑚 / 𝑗𝐸)
140139eleq1d 2683 . . . . . . . . 9 (𝑛 = (1st𝑤) → (𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ (1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
141138, 140raleqbidv 3141 . . . . . . . 8 (𝑛 = (1st𝑤) → (∀𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ ∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
142141rspcv 3291 . . . . . . 7 ((1st𝑤) ∈ 𝐶 → (∀𝑛𝐶𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ → ∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
143107, 137, 142sylc 65 . . . . . 6 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
144 csbeq1 3517 . . . . . . . . 9 (𝑚 = (2nd𝑤) → 𝑚 / 𝑗𝐸 = (2nd𝑤) / 𝑗𝐸)
145144csbeq2dv 3964 . . . . . . . 8 (𝑚 = (2nd𝑤) → (1st𝑤) / 𝑘𝑚 / 𝑗𝐸 = (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
146145eleq1d 2683 . . . . . . 7 (𝑚 = (2nd𝑤) → ((1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 ∈ ℂ))
147146rspcv 3291 . . . . . 6 ((2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷 → (∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 ∈ ℂ))
148103, 143, 147sylc 65 . . . . 5 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 ∈ ℂ)
14949, 55, 85, 90, 148fsumcnv 14432 . . . 4 (𝜑 → Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = Σ𝑧 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
15041, 149eqtr4d 2658 . . 3 (𝜑 → Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
151 fsumcom2.3 . . . . . 6 ((𝜑𝑗𝐴) → 𝐵 ∈ Fin)
152151ralrimiva 2960 . . . . 5 (𝜑 → ∀𝑗𝐴 𝐵 ∈ Fin)
15325nfel1 2775 . . . . . 6 𝑗𝑚 / 𝑗𝐵 ∈ Fin
15428eleq1d 2683 . . . . . 6 (𝑗 = 𝑚 → (𝐵 ∈ Fin ↔ 𝑚 / 𝑗𝐵 ∈ Fin))
155153, 154rspc 3289 . . . . 5 (𝑚𝐴 → (∀𝑗𝐴 𝐵 ∈ Fin → 𝑚 / 𝑗𝐵 ∈ Fin))
156152, 155mpan9 486 . . . 4 ((𝜑𝑚𝐴) → 𝑚 / 𝑗𝐵 ∈ Fin)
15755, 58, 156, 134fsum2d 14430 . . 3 (𝜑 → Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
15849, 56, 80, 135fsum2d 14430 . . 3 (𝜑 → Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
159150, 157, 1583eqtr4d 2665 . 2 (𝜑 → Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
160 nfcv 2761 . . 3 𝑚Σ𝑘𝐵 𝐸
161 nfcv 2761 . . . . 5 𝑗𝑛
162161, 120nfcsb 3532 . . . 4 𝑗𝑛 / 𝑘𝑚 / 𝑗𝐸
16325, 162nfsum 14355 . . 3 𝑗Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸
164 nfcv 2761 . . . . 5 𝑛𝐸
165 nfcsb1v 3530 . . . . 5 𝑘𝑛 / 𝑘𝐸
166 csbeq1a 3523 . . . . 5 (𝑘 = 𝑛𝐸 = 𝑛 / 𝑘𝐸)
167164, 165, 166cbvsumi 14361 . . . 4 Σ𝑘𝐵 𝐸 = Σ𝑛𝐵 𝑛 / 𝑘𝐸
168123csbeq2dv 3964 . . . . . 6 (𝑗 = 𝑚𝑛 / 𝑘𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
169168adantr 481 . . . . 5 ((𝑗 = 𝑚𝑛𝐵) → 𝑛 / 𝑘𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
17028, 169sumeq12dv 14370 . . . 4 (𝑗 = 𝑚 → Σ𝑛𝐵 𝑛 / 𝑘𝐸 = Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸)
171167, 170syl5eq 2667 . . 3 (𝑗 = 𝑚 → Σ𝑘𝐵 𝐸 = Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸)
172160, 163, 171cbvsumi 14361 . 2 Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸
173 nfcv 2761 . . 3 𝑛Σ𝑗𝐷 𝐸
17433, 128nfsum 14355 . . 3 𝑘Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸
175 nfcv 2761 . . . . 5 𝑚𝐸
176175, 120, 123cbvsumi 14361 . . . 4 Σ𝑗𝐷 𝐸 = Σ𝑚𝐷 𝑚 / 𝑗𝐸
177130adantr 481 . . . . 5 ((𝑘 = 𝑛𝑚𝐷) → 𝑚 / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
17836, 177sumeq12dv 14370 . . . 4 (𝑘 = 𝑛 → Σ𝑚𝐷 𝑚 / 𝑗𝐸 = Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
179176, 178syl5eq 2667 . . 3 (𝑘 = 𝑛 → Σ𝑗𝐷 𝐸 = Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
180173, 174, 179cbvsumi 14361 . 2 Σ𝑘𝐶 Σ𝑗𝐷 𝐸 = Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸
181159, 172, 1803eqtr4g 2680 1 (𝜑 → Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑘𝐶 Σ𝑗𝐷 𝐸)
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ↔ wb 196   ∧ wa 384   = wceq 1480  ∃wex 1701   ∈ wcel 1987  ∀wral 2907  ∃wrex 2908  ⦋csb 3514  {csn 4148  ⟨cop 4154  ∪ ciun 4485   × cxp 5072  ◡ccnv 5073  Rel wrel 5079  ‘cfv 5847  1st c1st 7111  2nd c2nd 7112  Fincfn 7899  ℂcc 9878  Σcsu 14350 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4731  ax-sep 4741  ax-nul 4749  ax-pow 4803  ax-pr 4867  ax-un 6902  ax-inf2 8482  ax-cnex 9936  ax-resscn 9937  ax-1cn 9938  ax-icn 9939  ax-addcl 9940  ax-addrcl 9941  ax-mulcl 9942  ax-mulrcl 9943  ax-mulcom 9944  ax-addass 9945  ax-mulass 9946  ax-distr 9947  ax-i2m1 9948  ax-1ne0 9949  ax-1rid 9950  ax-rnegex 9951  ax-rrecex 9952  ax-cnre 9953  ax-pre-lttri 9954  ax-pre-lttrn 9955  ax-pre-ltadd 9956  ax-pre-mulgt0 9957  ax-pre-sup 9958 This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-fal 1486  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2912  df-rex 2913  df-reu 2914  df-rmo 2915  df-rab 2916  df-v 3188  df-sbc 3418  df-csb 3515  df-dif 3558  df-un 3560  df-in 3562  df-ss 3569  df-pss 3571  df-nul 3892  df-if 4059  df-pw 4132  df-sn 4149  df-pr 4151  df-tp 4153  df-op 4155  df-uni 4403  df-int 4441  df-iun 4487  df-br 4614  df-opab 4674  df-mpt 4675  df-tr 4713  df-eprel 4985  df-id 4989  df-po 4995  df-so 4996  df-fr 5033  df-se 5034  df-we 5035  df-xp 5080  df-rel 5081  df-cnv 5082  df-co 5083  df-dm 5084  df-rn 5085  df-res 5086  df-ima 5087  df-pred 5639  df-ord 5685  df-on 5686  df-lim 5687  df-suc 5688  df-iota 5810  df-fun 5849  df-fn 5850  df-f 5851  df-f1 5852  df-fo 5853  df-f1o 5854  df-fv 5855  df-isom 5856  df-riota 6565  df-ov 6607  df-oprab 6608  df-mpt2 6609  df-om 7013  df-1st 7113  df-2nd 7114  df-wrecs 7352  df-recs 7413  df-rdg 7451  df-1o 7505  df-oadd 7509  df-er 7687  df-en 7900  df-dom 7901  df-sdom 7902  df-fin 7903  df-sup 8292  df-oi 8359  df-card 8709  df-pnf 10020  df-mnf 10021  df-xr 10022  df-ltxr 10023  df-le 10024  df-sub 10212  df-neg 10213  df-div 10629  df-nn 10965  df-2 11023  df-3 11024  df-n0 11237  df-z 11322  df-uz 11632  df-rp 11777  df-fz 12269  df-fzo 12407  df-seq 12742  df-exp 12801  df-hash 13058  df-cj 13773  df-re 13774  df-im 13775  df-sqrt 13909  df-abs 13910  df-clim 14153  df-sum 14351 This theorem is referenced by:  fsumcom  14435  fsum0diag  14437  fsumdvdsdiag  24810  dvdsflsumcom  24814  fsumfldivdiag  24816  logfac2  24842  chpchtsum  24844  logfaclbnd  24847  dchrisum0lem1  25105
 Copyright terms: Public domain W3C validator