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

Theorem fsumcom2OLD 14487
Description: Obsolete proof of fsumcom2 14486 as of 2-Aug-2021. (Contributed by Mario Carneiro, 28-Apr-2014.) (Revised by Mario Carneiro, 8-Apr-2016.) (Proof modification is discouraged.) (New usage is discouraged.)
Hypotheses
Ref Expression
fsumcom2.1 (𝜑𝐴 ∈ Fin)
fsumcom2.2 (𝜑𝐶 ∈ Fin)
fsumcom2.3 ((𝜑𝑗𝐴) → 𝐵 ∈ Fin)
fsumcom2.4 (𝜑 → ((𝑗𝐴𝑘𝐵) ↔ (𝑘𝐶𝑗𝐷)))
fsumcom2.5 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐸 ∈ ℂ)
Assertion
Ref Expression
fsumcom2OLD (𝜑 → Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑘𝐶 Σ𝑗𝐷 𝐸)
Distinct variable groups:   𝑗,𝑘,𝐴   𝐶,𝑗,𝑘   𝜑,𝑗,𝑘   𝐵,𝑘   𝐷,𝑗
Allowed substitution hints:   𝐵(𝑗)   𝐷(𝑘)   𝐸(𝑗,𝑘)

Proof of Theorem fsumcom2OLD
Dummy variables 𝑚 𝑛 𝑥 𝑦 𝑧 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 relxp 5217 . . . . . . . . 9 Rel ({𝑗} × 𝐵)
21rgenw 2921 . . . . . . . 8 𝑗𝐴 Rel ({𝑗} × 𝐵)
3 reliun 5229 . . . . . . . 8 (Rel 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∀𝑗𝐴 Rel ({𝑗} × 𝐵))
42, 3mpbir 221 . . . . . . 7 Rel 𝑗𝐴 ({𝑗} × 𝐵)
5 relcnv 5491 . . . . . . 7 Rel 𝑘𝐶 ({𝑘} × 𝐷)
6 ancom 466 . . . . . . . . . . . 12 ((𝑥 = 𝑗𝑦 = 𝑘) ↔ (𝑦 = 𝑘𝑥 = 𝑗))
7 vex 3198 . . . . . . . . . . . . 13 𝑥 ∈ V
8 vex 3198 . . . . . . . . . . . . 13 𝑦 ∈ V
97, 8opth 4935 . . . . . . . . . . . 12 (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ (𝑥 = 𝑗𝑦 = 𝑘))
108, 7opth 4935 . . . . . . . . . . . 12 (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ↔ (𝑦 = 𝑘𝑥 = 𝑗))
116, 9, 103bitr4i 292 . . . . . . . . . . 11 (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩)
1211a1i 11 . . . . . . . . . 10 (𝜑 → (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩))
13 fsumcom2.4 . . . . . . . . . 10 (𝜑 → ((𝑗𝐴𝑘𝐵) ↔ (𝑘𝐶𝑗𝐷)))
1412, 13anbi12d 746 . . . . . . . . 9 (𝜑 → ((⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷))))
15142exbidv 1850 . . . . . . . 8 (𝜑 → (∃𝑗𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷))))
16 eliunxp 5248 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗𝐴𝑘𝐵)))
177, 8opelcnv 5293 . . . . . . . . 9 (⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑦, 𝑥⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
18 eliunxp 5248 . . . . . . . . 9 (⟨𝑦, 𝑥⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ∃𝑘𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
19 excom 2040 . . . . . . . . 9 (∃𝑘𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
2017, 18, 193bitri 286 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ∃𝑗𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘𝐶𝑗𝐷)))
2115, 16, 203bitr4g 303 . . . . . . 7 (𝜑 → (⟨𝑥, 𝑦⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ⟨𝑥, 𝑦⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷)))
224, 5, 21eqrelrdv 5206 . . . . . 6 (𝜑 𝑗𝐴 ({𝑗} × 𝐵) = 𝑘𝐶 ({𝑘} × 𝐷))
23 nfcv 2762 . . . . . . 7 𝑚({𝑗} × 𝐵)
24 nfcv 2762 . . . . . . . 8 𝑗{𝑚}
25 nfcsb1v 3542 . . . . . . . 8 𝑗𝑚 / 𝑗𝐵
2624, 25nfxp 5132 . . . . . . 7 𝑗({𝑚} × 𝑚 / 𝑗𝐵)
27 sneq 4178 . . . . . . . 8 (𝑗 = 𝑚 → {𝑗} = {𝑚})
28 csbeq1a 3535 . . . . . . . 8 (𝑗 = 𝑚𝐵 = 𝑚 / 𝑗𝐵)
2927, 28xpeq12d 5130 . . . . . . 7 (𝑗 = 𝑚 → ({𝑗} × 𝐵) = ({𝑚} × 𝑚 / 𝑗𝐵))
3023, 26, 29cbviun 4548 . . . . . 6 𝑗𝐴 ({𝑗} × 𝐵) = 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)
31 nfcv 2762 . . . . . . . 8 𝑛({𝑘} × 𝐷)
32 nfcv 2762 . . . . . . . . 9 𝑘{𝑛}
33 nfcsb1v 3542 . . . . . . . . 9 𝑘𝑛 / 𝑘𝐷
3432, 33nfxp 5132 . . . . . . . 8 𝑘({𝑛} × 𝑛 / 𝑘𝐷)
35 sneq 4178 . . . . . . . . 9 (𝑘 = 𝑛 → {𝑘} = {𝑛})
36 csbeq1a 3535 . . . . . . . . 9 (𝑘 = 𝑛𝐷 = 𝑛 / 𝑘𝐷)
3735, 36xpeq12d 5130 . . . . . . . 8 (𝑘 = 𝑛 → ({𝑘} × 𝐷) = ({𝑛} × 𝑛 / 𝑘𝐷))
3831, 34, 37cbviun 4548 . . . . . . 7 𝑘𝐶 ({𝑘} × 𝐷) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
3938cnveqi 5286 . . . . . 6 𝑘𝐶 ({𝑘} × 𝐷) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
4022, 30, 393eqtr3g 2677 . . . . 5 (𝜑 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵) = 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
4140sumeq1d 14412 . . . 4 (𝜑 → Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = Σ𝑧 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
42 vex 3198 . . . . . . . 8 𝑛 ∈ V
43 vex 3198 . . . . . . . 8 𝑚 ∈ V
4442, 43op1std 7163 . . . . . . 7 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) = 𝑛)
4544csbeq1d 3533 . . . . . 6 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘(2nd𝑤) / 𝑗𝐸)
4642, 43op2ndd 7164 . . . . . . . 8 (𝑤 = ⟨𝑛, 𝑚⟩ → (2nd𝑤) = 𝑚)
4746csbeq1d 3533 . . . . . . 7 (𝑤 = ⟨𝑛, 𝑚⟩ → (2nd𝑤) / 𝑗𝐸 = 𝑚 / 𝑗𝐸)
4847csbeq2dv 3983 . . . . . 6 (𝑤 = ⟨𝑛, 𝑚⟩ → 𝑛 / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
4945, 48eqtrd 2654 . . . . 5 (𝑤 = ⟨𝑛, 𝑚⟩ → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
5043, 42op2ndd 7164 . . . . . . 7 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) = 𝑛)
5150csbeq1d 3533 . . . . . 6 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘(1st𝑧) / 𝑗𝐸)
5243, 42op1std 7163 . . . . . . . 8 (𝑧 = ⟨𝑚, 𝑛⟩ → (1st𝑧) = 𝑚)
5352csbeq1d 3533 . . . . . . 7 (𝑧 = ⟨𝑚, 𝑛⟩ → (1st𝑧) / 𝑗𝐸 = 𝑚 / 𝑗𝐸)
5453csbeq2dv 3983 . . . . . 6 (𝑧 = ⟨𝑚, 𝑛⟩ → 𝑛 / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
5551, 54eqtrd 2654 . . . . 5 (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
56 fsumcom2.2 . . . . . 6 (𝜑𝐶 ∈ Fin)
57 snfi 8023 . . . . . . . 8 {𝑛} ∈ Fin
58 fsumcom2.1 . . . . . . . . . 10 (𝜑𝐴 ∈ Fin)
5958adantr 481 . . . . . . . . 9 ((𝜑𝑛𝐶) → 𝐴 ∈ Fin)
6033nfcri 2756 . . . . . . . . . . . . . . . . . 18 𝑘 𝑚𝑛 / 𝑘𝐷
61 id 22 . . . . . . . . . . . . . . . . . . . . . 22 (𝑘 = 𝑛𝑘 = 𝑛)
62 vsnid 4200 . . . . . . . . . . . . . . . . . . . . . 22 𝑘 ∈ {𝑘}
6361, 62syl6eqelr 2708 . . . . . . . . . . . . . . . . . . . . 21 (𝑘 = 𝑛𝑛 ∈ {𝑘})
6463biantrurd 529 . . . . . . . . . . . . . . . . . . . 20 (𝑘 = 𝑛 → (𝑚𝐷 ↔ (𝑛 ∈ {𝑘} ∧ 𝑚𝐷)))
65 opelxp 5136 . . . . . . . . . . . . . . . . . . . 20 (⟨𝑛, 𝑚⟩ ∈ ({𝑘} × 𝐷) ↔ (𝑛 ∈ {𝑘} ∧ 𝑚𝐷))
6664, 65syl6rbbr 279 . . . . . . . . . . . . . . . . . . 19 (𝑘 = 𝑛 → (⟨𝑛, 𝑚⟩ ∈ ({𝑘} × 𝐷) ↔ 𝑚𝐷))
6736eleq2d 2685 . . . . . . . . . . . . . . . . . . 19 (𝑘 = 𝑛 → (𝑚𝐷𝑚𝑛 / 𝑘𝐷))
6866, 67bitrd 268 . . . . . . . . . . . . . . . . . 18 (𝑘 = 𝑛 → (⟨𝑛, 𝑚⟩ ∈ ({𝑘} × 𝐷) ↔ 𝑚𝑛 / 𝑘𝐷))
6960, 68rspce 3299 . . . . . . . . . . . . . . . . 17 ((𝑛𝐶𝑚𝑛 / 𝑘𝐷) → ∃𝑘𝐶𝑛, 𝑚⟩ ∈ ({𝑘} × 𝐷))
70 eliun 4515 . . . . . . . . . . . . . . . . 17 (⟨𝑛, 𝑚⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ∃𝑘𝐶𝑛, 𝑚⟩ ∈ ({𝑘} × 𝐷))
7169, 70sylibr 224 . . . . . . . . . . . . . . . 16 ((𝑛𝐶𝑚𝑛 / 𝑘𝐷) → ⟨𝑛, 𝑚⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
7243, 42opelcnv 5293 . . . . . . . . . . . . . . . 16 (⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑛, 𝑚⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
7371, 72sylibr 224 . . . . . . . . . . . . . . 15 ((𝑛𝐶𝑚𝑛 / 𝑘𝐷) → ⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
7473adantl 482 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ⟨𝑚, 𝑛⟩ ∈ 𝑘𝐶 ({𝑘} × 𝐷))
7522adantr 481 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑗𝐴 ({𝑗} × 𝐵) = 𝑘𝐶 ({𝑘} × 𝐷))
7674, 75eleqtrrd 2702 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ⟨𝑚, 𝑛⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵))
77 eliun 4515 . . . . . . . . . . . . 13 (⟨𝑚, 𝑛⟩ ∈ 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
7876, 77sylib 208 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → ∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
79 simpr 477 . . . . . . . . . . . . . . . . 17 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
80 opelxp 5136 . . . . . . . . . . . . . . . . 17 (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) ↔ (𝑚 ∈ {𝑗} ∧ 𝑛𝐵))
8179, 80sylib 208 . . . . . . . . . . . . . . . 16 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → (𝑚 ∈ {𝑗} ∧ 𝑛𝐵))
8281simpld 475 . . . . . . . . . . . . . . 15 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 ∈ {𝑗})
83 elsni 4185 . . . . . . . . . . . . . . 15 (𝑚 ∈ {𝑗} → 𝑚 = 𝑗)
8482, 83syl 17 . . . . . . . . . . . . . 14 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 = 𝑗)
85 simpl 473 . . . . . . . . . . . . . 14 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑗𝐴)
8684, 85eqeltrd 2699 . . . . . . . . . . . . 13 ((𝑗𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚𝐴)
8786rexlimiva 3024 . . . . . . . . . . . 12 (∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑚𝐴)
8878, 87syl 17 . . . . . . . . . . 11 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑚𝐴)
8988expr 642 . . . . . . . . . 10 ((𝜑𝑛𝐶) → (𝑚𝑛 / 𝑘𝐷𝑚𝐴))
9089ssrdv 3601 . . . . . . . . 9 ((𝜑𝑛𝐶) → 𝑛 / 𝑘𝐷𝐴)
91 ssfi 8165 . . . . . . . . 9 ((𝐴 ∈ Fin ∧ 𝑛 / 𝑘𝐷𝐴) → 𝑛 / 𝑘𝐷 ∈ Fin)
9259, 90, 91syl2anc 692 . . . . . . . 8 ((𝜑𝑛𝐶) → 𝑛 / 𝑘𝐷 ∈ Fin)
93 xpfi 8216 . . . . . . . 8 (({𝑛} ∈ Fin ∧ 𝑛 / 𝑘𝐷 ∈ Fin) → ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
9457, 92, 93sylancr 694 . . . . . . 7 ((𝜑𝑛𝐶) → ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
9594ralrimiva 2963 . . . . . 6 (𝜑 → ∀𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
96 iunfi 8239 . . . . . 6 ((𝐶 ∈ Fin ∧ ∀𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin) → 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
9756, 95, 96syl2anc 692 . . . . 5 (𝜑 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ∈ Fin)
98 reliun 5229 . . . . . . 7 (Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ↔ ∀𝑛𝐶 Rel ({𝑛} × 𝑛 / 𝑘𝐷))
99 relxp 5217 . . . . . . . 8 Rel ({𝑛} × 𝑛 / 𝑘𝐷)
10099a1i 11 . . . . . . 7 (𝑛𝐶 → Rel ({𝑛} × 𝑛 / 𝑘𝐷))
10198, 100mprgbir 2924 . . . . . 6 Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)
102101a1i 11 . . . . 5 (𝜑 → Rel 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
103 simpr 477 . . . . . . . 8 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → 𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷))
104 eliun 4515 . . . . . . . 8 (𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷) ↔ ∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷))
105103, 104sylib 208 . . . . . . 7 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷))
106 xp2nd 7184 . . . . . . . . . 10 (𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (2nd𝑤) ∈ 𝑛 / 𝑘𝐷)
107106adantl 482 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ 𝑛 / 𝑘𝐷)
108 xp1st 7183 . . . . . . . . . . . 12 (𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (1st𝑤) ∈ {𝑛})
109108adantl 482 . . . . . . . . . . 11 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ {𝑛})
110 elsni 4185 . . . . . . . . . . 11 ((1st𝑤) ∈ {𝑛} → (1st𝑤) = 𝑛)
111109, 110syl 17 . . . . . . . . . 10 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) = 𝑛)
112111csbeq1d 3533 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) / 𝑘𝐷 = 𝑛 / 𝑘𝐷)
113107, 112eleqtrrd 2702 . . . . . . . 8 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
114113rexlimiva 3024 . . . . . . 7 (∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
115105, 114syl 17 . . . . . 6 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷)
116 simpl 473 . . . . . . . . . 10 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → 𝑛𝐶)
117111, 116eqeltrd 2699 . . . . . . . . 9 ((𝑛𝐶𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ 𝐶)
118117rexlimiva 3024 . . . . . . . 8 (∃𝑛𝐶 𝑤 ∈ ({𝑛} × 𝑛 / 𝑘𝐷) → (1st𝑤) ∈ 𝐶)
119105, 118syl 17 . . . . . . 7 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) ∈ 𝐶)
120 simpl 473 . . . . . . . . . 10 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝜑)
12125nfcri 2756 . . . . . . . . . . . 12 𝑗 𝑛𝑚 / 𝑗𝐵
12283eqcomd 2626 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ {𝑗} → 𝑗 = 𝑚)
123122, 28syl 17 . . . . . . . . . . . . . . . 16 (𝑚 ∈ {𝑗} → 𝐵 = 𝑚 / 𝑗𝐵)
124123eleq2d 2685 . . . . . . . . . . . . . . 15 (𝑚 ∈ {𝑗} → (𝑛𝐵𝑛𝑚 / 𝑗𝐵))
125124biimpa 501 . . . . . . . . . . . . . 14 ((𝑚 ∈ {𝑗} ∧ 𝑛𝐵) → 𝑛𝑚 / 𝑗𝐵)
12680, 125sylbi 207 . . . . . . . . . . . . 13 (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵)
127126a1i 11 . . . . . . . . . . . 12 (𝑗𝐴 → (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵))
128121, 127rexlimi 3020 . . . . . . . . . . 11 (∃𝑗𝐴𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛𝑚 / 𝑗𝐵)
12978, 128syl 17 . . . . . . . . . 10 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑛𝑚 / 𝑗𝐵)
130 fsumcom2.5 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐸 ∈ ℂ)
131130ralrimivva 2968 . . . . . . . . . . . . 13 (𝜑 → ∀𝑗𝐴𝑘𝐵 𝐸 ∈ ℂ)
132 nfcsb1v 3542 . . . . . . . . . . . . . . . 16 𝑗𝑚 / 𝑗𝐸
133132nfel1 2776 . . . . . . . . . . . . . . 15 𝑗𝑚 / 𝑗𝐸 ∈ ℂ
13425, 133nfral 2942 . . . . . . . . . . . . . 14 𝑗𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ
135 csbeq1a 3535 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑚𝐸 = 𝑚 / 𝑗𝐸)
136135eleq1d 2684 . . . . . . . . . . . . . . 15 (𝑗 = 𝑚 → (𝐸 ∈ ℂ ↔ 𝑚 / 𝑗𝐸 ∈ ℂ))
13728, 136raleqbidv 3147 . . . . . . . . . . . . . 14 (𝑗 = 𝑚 → (∀𝑘𝐵 𝐸 ∈ ℂ ↔ ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ))
138134, 137rspc 3298 . . . . . . . . . . . . 13 (𝑚𝐴 → (∀𝑗𝐴𝑘𝐵 𝐸 ∈ ℂ → ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ))
139131, 138mpan9 486 . . . . . . . . . . . 12 ((𝜑𝑚𝐴) → ∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ)
140 nfcsb1v 3542 . . . . . . . . . . . . . 14 𝑘𝑛 / 𝑘𝑚 / 𝑗𝐸
141140nfel1 2776 . . . . . . . . . . . . 13 𝑘𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ
142 csbeq1a 3535 . . . . . . . . . . . . . 14 (𝑘 = 𝑛𝑚 / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
143142eleq1d 2684 . . . . . . . . . . . . 13 (𝑘 = 𝑛 → (𝑚 / 𝑗𝐸 ∈ ℂ ↔ 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
144141, 143rspc 3298 . . . . . . . . . . . 12 (𝑛𝑚 / 𝑗𝐵 → (∀𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐸 ∈ ℂ → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
145139, 144syl5com 31 . . . . . . . . . . 11 ((𝜑𝑚𝐴) → (𝑛𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
146145impr 648 . . . . . . . . . 10 ((𝜑 ∧ (𝑚𝐴𝑛𝑚 / 𝑗𝐵)) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
147120, 88, 129, 146syl12anc 1322 . . . . . . . . 9 ((𝜑 ∧ (𝑛𝐶𝑚𝑛 / 𝑘𝐷)) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
148147ralrimivva 2968 . . . . . . . 8 (𝜑 → ∀𝑛𝐶𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
149148adantr 481 . . . . . . 7 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∀𝑛𝐶𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
150 csbeq1 3529 . . . . . . . . 9 (𝑛 = (1st𝑤) → 𝑛 / 𝑘𝐷 = (1st𝑤) / 𝑘𝐷)
151 csbeq1 3529 . . . . . . . . . 10 (𝑛 = (1st𝑤) → 𝑛 / 𝑘𝑚 / 𝑗𝐸 = (1st𝑤) / 𝑘𝑚 / 𝑗𝐸)
152151eleq1d 2684 . . . . . . . . 9 (𝑛 = (1st𝑤) → (𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ (1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
153150, 152raleqbidv 3147 . . . . . . . 8 (𝑛 = (1st𝑤) → (∀𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ ∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
154153rspcv 3300 . . . . . . 7 ((1st𝑤) ∈ 𝐶 → (∀𝑛𝐶𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ → ∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ))
155119, 149, 154sylc 65 . . . . . 6 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → ∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ)
156 csbeq1 3529 . . . . . . . . 9 (𝑚 = (2nd𝑤) → 𝑚 / 𝑗𝐸 = (2nd𝑤) / 𝑗𝐸)
157156csbeq2dv 3983 . . . . . . . 8 (𝑚 = (2nd𝑤) → (1st𝑤) / 𝑘𝑚 / 𝑗𝐸 = (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
158157eleq1d 2684 . . . . . . 7 (𝑚 = (2nd𝑤) → ((1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ ↔ (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 ∈ ℂ))
159158rspcv 3300 . . . . . 6 ((2nd𝑤) ∈ (1st𝑤) / 𝑘𝐷 → (∀𝑚 (1st𝑤) / 𝑘𝐷(1st𝑤) / 𝑘𝑚 / 𝑗𝐸 ∈ ℂ → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 ∈ ℂ))
160115, 155, 159sylc 65 . . . . 5 ((𝜑𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)) → (1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 ∈ ℂ)
16149, 55, 97, 102, 160fsumcnv 14485 . . . 4 (𝜑 → Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸 = Σ𝑧 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
16241, 161eqtr4d 2657 . . 3 (𝜑 → Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸 = Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
163 fsumcom2.3 . . . . . 6 ((𝜑𝑗𝐴) → 𝐵 ∈ Fin)
164163ralrimiva 2963 . . . . 5 (𝜑 → ∀𝑗𝐴 𝐵 ∈ Fin)
16525nfel1 2776 . . . . . 6 𝑗𝑚 / 𝑗𝐵 ∈ Fin
16628eleq1d 2684 . . . . . 6 (𝑗 = 𝑚 → (𝐵 ∈ Fin ↔ 𝑚 / 𝑗𝐵 ∈ Fin))
167165, 166rspc 3298 . . . . 5 (𝑚𝐴 → (∀𝑗𝐴 𝐵 ∈ Fin → 𝑚 / 𝑗𝐵 ∈ Fin))
168164, 167mpan9 486 . . . 4 ((𝜑𝑚𝐴) → 𝑚 / 𝑗𝐵 ∈ Fin)
16955, 58, 168, 146fsum2d 14483 . . 3 (𝜑 → Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑧 𝑚𝐴 ({𝑚} × 𝑚 / 𝑗𝐵)(2nd𝑧) / 𝑘(1st𝑧) / 𝑗𝐸)
17049, 56, 92, 147fsum2d 14483 . . 3 (𝜑 → Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑤 𝑛𝐶 ({𝑛} × 𝑛 / 𝑘𝐷)(1st𝑤) / 𝑘(2nd𝑤) / 𝑗𝐸)
171162, 169, 1703eqtr4d 2664 . 2 (𝜑 → Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸 = Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
172 nfcv 2762 . . 3 𝑚Σ𝑘𝐵 𝐸
173 nfcv 2762 . . . . 5 𝑗𝑛
174173, 132nfcsb 3544 . . . 4 𝑗𝑛 / 𝑘𝑚 / 𝑗𝐸
17525, 174nfsum 14402 . . 3 𝑗Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸
176 nfcv 2762 . . . . 5 𝑛𝐸
177 nfcsb1v 3542 . . . . 5 𝑘𝑛 / 𝑘𝐸
178 csbeq1a 3535 . . . . 5 (𝑘 = 𝑛𝐸 = 𝑛 / 𝑘𝐸)
179176, 177, 178cbvsumi 14408 . . . 4 Σ𝑘𝐵 𝐸 = Σ𝑛𝐵 𝑛 / 𝑘𝐸
180135csbeq2dv 3983 . . . . . 6 (𝑗 = 𝑚𝑛 / 𝑘𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
181180adantr 481 . . . . 5 ((𝑗 = 𝑚𝑛𝐵) → 𝑛 / 𝑘𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
18228, 181sumeq12dv 14418 . . . 4 (𝑗 = 𝑚 → Σ𝑛𝐵 𝑛 / 𝑘𝐸 = Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸)
183179, 182syl5eq 2666 . . 3 (𝑗 = 𝑚 → Σ𝑘𝐵 𝐸 = Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸)
184172, 175, 183cbvsumi 14408 . 2 Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑚𝐴 Σ𝑛 𝑚 / 𝑗𝐵𝑛 / 𝑘𝑚 / 𝑗𝐸
185 nfcv 2762 . . 3 𝑛Σ𝑗𝐷 𝐸
18633, 140nfsum 14402 . . 3 𝑘Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸
187 nfcv 2762 . . . . 5 𝑚𝐸
188187, 132, 135cbvsumi 14408 . . . 4 Σ𝑗𝐷 𝐸 = Σ𝑚𝐷 𝑚 / 𝑗𝐸
189142adantr 481 . . . . 5 ((𝑘 = 𝑛𝑚𝐷) → 𝑚 / 𝑗𝐸 = 𝑛 / 𝑘𝑚 / 𝑗𝐸)
19036, 189sumeq12dv 14418 . . . 4 (𝑘 = 𝑛 → Σ𝑚𝐷 𝑚 / 𝑗𝐸 = Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
191188, 190syl5eq 2666 . . 3 (𝑘 = 𝑛 → Σ𝑗𝐷 𝐸 = Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸)
192185, 186, 191cbvsumi 14408 . 2 Σ𝑘𝐶 Σ𝑗𝐷 𝐸 = Σ𝑛𝐶 Σ𝑚 𝑛 / 𝑘𝐷𝑛 / 𝑘𝑚 / 𝑗𝐸
193171, 184, 1923eqtr4g 2679 1 (𝜑 → Σ𝑗𝐴 Σ𝑘𝐵 𝐸 = Σ𝑘𝐶 Σ𝑗𝐷 𝐸)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384   = wceq 1481  wex 1702  wcel 1988  wral 2909  wrex 2910  csb 3526  wss 3567  {csn 4168  cop 4174   ciun 4511   × cxp 5102  ccnv 5103  Rel wrel 5109  cfv 5876  1st c1st 7151  2nd c2nd 7152  Fincfn 7940  cc 9919  Σcsu 14397
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1720  ax-4 1735  ax-5 1837  ax-6 1886  ax-7 1933  ax-8 1990  ax-9 1997  ax-10 2017  ax-11 2032  ax-12 2045  ax-13 2244  ax-ext 2600  ax-rep 4762  ax-sep 4772  ax-nul 4780  ax-pow 4834  ax-pr 4897  ax-un 6934  ax-inf2 8523  ax-cnex 9977  ax-resscn 9978  ax-1cn 9979  ax-icn 9980  ax-addcl 9981  ax-addrcl 9982  ax-mulcl 9983  ax-mulrcl 9984  ax-mulcom 9985  ax-addass 9986  ax-mulass 9987  ax-distr 9988  ax-i2m1 9989  ax-1ne0 9990  ax-1rid 9991  ax-rnegex 9992  ax-rrecex 9993  ax-cnre 9994  ax-pre-lttri 9995  ax-pre-lttrn 9996  ax-pre-ltadd 9997  ax-pre-mulgt0 9998  ax-pre-sup 9999
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1484  df-fal 1487  df-ex 1703  df-nf 1708  df-sb 1879  df-eu 2472  df-mo 2473  df-clab 2607  df-cleq 2613  df-clel 2616  df-nfc 2751  df-ne 2792  df-nel 2895  df-ral 2914  df-rex 2915  df-reu 2916  df-rmo 2917  df-rab 2918  df-v 3197  df-sbc 3430  df-csb 3527  df-dif 3570  df-un 3572  df-in 3574  df-ss 3581  df-pss 3583  df-nul 3908  df-if 4078  df-pw 4151  df-sn 4169  df-pr 4171  df-tp 4173  df-op 4175  df-uni 4428  df-int 4467  df-iun 4513  df-br 4645  df-opab 4704  df-mpt 4721  df-tr 4744  df-id 5014  df-eprel 5019  df-po 5025  df-so 5026  df-fr 5063  df-se 5064  df-we 5065  df-xp 5110  df-rel 5111  df-cnv 5112  df-co 5113  df-dm 5114  df-rn 5115  df-res 5116  df-ima 5117  df-pred 5668  df-ord 5714  df-on 5715  df-lim 5716  df-suc 5717  df-iota 5839  df-fun 5878  df-fn 5879  df-f 5880  df-f1 5881  df-fo 5882  df-f1o 5883  df-fv 5884  df-isom 5885  df-riota 6596  df-ov 6638  df-oprab 6639  df-mpt2 6640  df-om 7051  df-1st 7153  df-2nd 7154  df-wrecs 7392  df-recs 7453  df-rdg 7491  df-1o 7545  df-oadd 7549  df-er 7727  df-en 7941  df-dom 7942  df-sdom 7943  df-fin 7944  df-sup 8333  df-oi 8400  df-card 8750  df-pnf 10061  df-mnf 10062  df-xr 10063  df-ltxr 10064  df-le 10065  df-sub 10253  df-neg 10254  df-div 10670  df-nn 11006  df-2 11064  df-3 11065  df-n0 11278  df-z 11363  df-uz 11673  df-rp 11818  df-fz 12312  df-fzo 12450  df-seq 12785  df-exp 12844  df-hash 13101  df-cj 13820  df-re 13821  df-im 13822  df-sqrt 13956  df-abs 13957  df-clim 14200  df-sum 14398
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator