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

Theorem fsum2dlem 15844
Description: Lemma for fsum2d 15845- induction step. (Contributed by Mario Carneiro, 23-Apr-2014.)
Hypotheses
Ref Expression
fsum2d.1 (𝑧 = ⟨𝑗, 𝑘⟩ → 𝐷 = 𝐶)
fsum2d.2 (𝜑𝐴 ∈ Fin)
fsum2d.3 ((𝜑𝑗𝐴) → 𝐵 ∈ Fin)
fsum2d.4 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐶 ∈ ℂ)
fsum2d.5 (𝜑 → ¬ 𝑦𝑥)
fsum2d.6 (𝜑 → (𝑥 ∪ {𝑦}) ⊆ 𝐴)
fsum2d.7 (𝜓 ↔ Σ𝑗𝑥 Σ𝑘𝐵 𝐶 = Σ𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷)
Assertion
Ref Expression
fsum2dlem ((𝜑𝜓) → Σ𝑗 ∈ (𝑥 ∪ {𝑦})Σ𝑘𝐵 𝐶 = Σ𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷)
Distinct variable groups:   𝑗,𝑘,𝑥,𝑦,𝑧,𝐴   𝐵,𝑘,𝑥,𝑦,𝑧   𝐷,𝑗,𝑘,𝑥,𝑦   𝑥,𝐶,𝑦,𝑧   𝜑,𝑗,𝑘,𝑧
Allowed substitution hints:   𝜑(𝑥, 𝑦)   𝜓(𝑥, 𝑦, 𝑧, 𝑗, 𝑘)   𝐵(𝑗)   𝐶(𝑗, 𝑘)   𝐷(𝑧)

Proof of Theorem fsum2dlem
Dummy variable 𝑚 is distinct from all other variables.
StepHypRef Expression
1 fsum2d.7 . . . 4 (𝜓 ↔ Σ𝑗𝑥 Σ𝑘𝐵 𝐶 = Σ𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷)
21bilani 510 . . 3 ((𝜑𝜓) → Σ𝑗𝑥 Σ𝑘𝐵 𝐶 = Σ𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷)
3 csbeq1a 3868 . . . . . . 7 (𝑗 = 𝑚𝐵 = 𝑚 / 𝑗𝐵)
4 csbeq1a 3868 . . . . . . . 8 (𝑗 = 𝑚𝐶 = 𝑚 / 𝑗𝐶)
54adantr 486 . . . . . . 7 ((𝑗 = 𝑚𝑘𝐵) → 𝐶 = 𝑚 / 𝑗𝐶)
63, 5sumeq12dv 15780 . . . . . 6 (𝑗 = 𝑚 → Σ𝑘𝐵 𝐶 = Σ𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶)
7 nfcv 2927 . . . . . 6 𝑚Σ𝑘𝐵 𝐶
8 nfcsb1v 3878 . . . . . . 7 𝑗𝑚 / 𝑗𝐵
9 nfcsb1v 3878 . . . . . . 7 𝑗𝑚 / 𝑗𝐶
108, 9nfsum 15766 . . . . . 6 𝑗Σ𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶
116, 7, 10cbvsum 15770 . . . . 5 Σ𝑗 ∈ {𝑦𝑘𝐵 𝐶 = Σ𝑚 ∈ {𝑦𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶
12 fsum2d.6 . . . . . . . . 9 (𝜑 → (𝑥 ∪ {𝑦}) ⊆ 𝐴)
1312unssbd 4147 . . . . . . . 8 (𝜑 → {𝑦} ⊆ 𝐴)
14 vex 3461 . . . . . . . . 9 𝑦 ∈ V
1514snss 4752 . . . . . . . 8 (𝑦𝐴 ↔ {𝑦} ⊆ 𝐴)
1613, 15sylibr 237 . . . . . . 7 (𝜑𝑦𝐴)
17 fsum2d.3 . . . . . . . . . 10 ((𝜑𝑗𝐴) → 𝐵 ∈ Fin)
1817ralrimiva 3159 . . . . . . . . 9 (𝜑 → ∀𝑗𝐴 𝐵 ∈ Fin)
19 nfcsb1v 3878 . . . . . . . . . . 11 𝑗𝑦 / 𝑗𝐵
2019nfel1 2943 . . . . . . . . . 10 𝑗𝑦 / 𝑗𝐵 ∈ Fin
21 csbeq1a 3868 . . . . . . . . . . 11 (𝑗 = 𝑦𝐵 = 𝑦 / 𝑗𝐵)
2221eleq1d 2850 . . . . . . . . . 10 (𝑗 = 𝑦 → (𝐵 ∈ Fin ↔ 𝑦 / 𝑗𝐵 ∈ Fin))
2320, 22rspc 3571 . . . . . . . . 9 (𝑦𝐴 → (∀𝑗𝐴 𝐵 ∈ Fin → 𝑦 / 𝑗𝐵 ∈ Fin))
2416, 18, 23sylc 66 . . . . . . . 8 (𝜑𝑦 / 𝑗𝐵 ∈ Fin)
25 fsum2d.4 . . . . . . . . . . 11 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐶 ∈ ℂ)
2625ralrimivva 3210 . . . . . . . . . 10 (𝜑 → ∀𝑗𝐴𝑘𝐵 𝐶 ∈ ℂ)
27 nfcsb1v 3878 . . . . . . . . . . . . 13 𝑗𝑦 / 𝑗𝐶
2827nfel1 2943 . . . . . . . . . . . 12 𝑗𝑦 / 𝑗𝐶 ∈ ℂ
2919, 28nfralw 3314 . . . . . . . . . . 11 𝑗𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ
30 csbeq1a 3868 . . . . . . . . . . . . 13 (𝑗 = 𝑦𝐶 = 𝑦 / 𝑗𝐶)
3130eleq1d 2850 . . . . . . . . . . . 12 (𝑗 = 𝑦 → (𝐶 ∈ ℂ ↔ 𝑦 / 𝑗𝐶 ∈ ℂ))
3221, 31raleqbidv 3340 . . . . . . . . . . 11 (𝑗 = 𝑦 → (∀𝑘𝐵 𝐶 ∈ ℂ ↔ ∀𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ))
3329, 32rspc 3571 . . . . . . . . . 10 (𝑦𝐴 → (∀𝑗𝐴𝑘𝐵 𝐶 ∈ ℂ → ∀𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ))
3416, 26, 33sylc 66 . . . . . . . . 9 (𝜑 → ∀𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ)
3534r19.21bi 3259 . . . . . . . 8 ((𝜑𝑘𝑦 / 𝑗𝐵) → 𝑦 / 𝑗𝐶 ∈ ℂ)
3624, 35fsumcl 15807 . . . . . . 7 (𝜑 → Σ𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ)
37 csbeq1 3857 . . . . . . . . 9 (𝑚 = 𝑦𝑚 / 𝑗𝐵 = 𝑦 / 𝑗𝐵)
38 csbeq1 3857 . . . . . . . . . 10 (𝑚 = 𝑦𝑚 / 𝑗𝐶 = 𝑦 / 𝑗𝐶)
3938adantr 486 . . . . . . . . 9 ((𝑚 = 𝑦𝑘𝑚 / 𝑗𝐵) → 𝑚 / 𝑗𝐶 = 𝑦 / 𝑗𝐶)
4037, 39sumeq12dv 15780 . . . . . . . 8 (𝑚 = 𝑦 → Σ𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶 = Σ𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶)
4140sumsn 15820 . . . . . . 7 ((𝑦𝐴 ∧ Σ𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ) → Σ𝑚 ∈ {𝑦𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶 = Σ𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶)
4216, 36, 41syl2anc 596 . . . . . 6 (𝜑 → Σ𝑚 ∈ {𝑦𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶 = Σ𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶)
43 csbeq1a 3868 . . . . . . . 8 (𝑘 = 𝑚𝑦 / 𝑗𝐶 = 𝑚 / 𝑘𝑦 / 𝑗𝐶)
44 nfcv 2927 . . . . . . . 8 𝑚𝑦 / 𝑗𝐶
45 nfcsb1v 3878 . . . . . . . 8 𝑘𝑚 / 𝑘𝑦 / 𝑗𝐶
4643, 44, 45cbvsum 15770 . . . . . . 7 Σ𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 = Σ𝑚 𝑦 / 𝑗𝐵𝑚 / 𝑘𝑦 / 𝑗𝐶
47 csbeq1 3857 . . . . . . . . 9 (𝑚 = (2nd𝑧) → 𝑚 / 𝑘𝑦 / 𝑗𝐶 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
48 snfi 9047 . . . . . . . . . 10 {𝑦} ∈ Fin
49 xpfi 9286 . . . . . . . . . 10 (({𝑦} ∈ Fin ∧ 𝑦 / 𝑗𝐵 ∈ Fin) → ({𝑦} × 𝑦 / 𝑗𝐵) ∈ Fin)
5048, 24, 49sylancr 599 . . . . . . . . 9 (𝜑 → ({𝑦} × 𝑦 / 𝑗𝐵) ∈ Fin)
51 2ndconst 8102 . . . . . . . . . 10 (𝑦𝐴 → (2nd ↾ ({𝑦} × 𝑦 / 𝑗𝐵)):({𝑦} × 𝑦 / 𝑗𝐵)–1-1-onto𝑦 / 𝑗𝐵)
5216, 51syl 18 . . . . . . . . 9 (𝜑 → (2nd ↾ ({𝑦} × 𝑦 / 𝑗𝐵)):({𝑦} × 𝑦 / 𝑗𝐵)–1-1-onto𝑦 / 𝑗𝐵)
53 fvres 6904 . . . . . . . . . 10 (𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵) → ((2nd ↾ ({𝑦} × 𝑦 / 𝑗𝐵))‘𝑧) = (2nd𝑧))
5453adantl 487 . . . . . . . . 9 ((𝜑𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)) → ((2nd ↾ ({𝑦} × 𝑦 / 𝑗𝐵))‘𝑧) = (2nd𝑧))
5545nfel1 2943 . . . . . . . . . . 11 𝑘𝑚 / 𝑘𝑦 / 𝑗𝐶 ∈ ℂ
5643eleq1d 2850 . . . . . . . . . . 11 (𝑘 = 𝑚 → (𝑦 / 𝑗𝐶 ∈ ℂ ↔ 𝑚 / 𝑘𝑦 / 𝑗𝐶 ∈ ℂ))
5755, 56rspc 3571 . . . . . . . . . 10 (𝑚𝑦 / 𝑗𝐵 → (∀𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ → 𝑚 / 𝑘𝑦 / 𝑗𝐶 ∈ ℂ))
5834, 57mpan9 516 . . . . . . . . 9 ((𝜑𝑚𝑦 / 𝑗𝐵) → 𝑚 / 𝑘𝑦 / 𝑗𝐶 ∈ ℂ)
5947, 50, 52, 54, 58fsumf1o 15797 . . . . . . . 8 (𝜑 → Σ𝑚 𝑦 / 𝑗𝐵𝑚 / 𝑘𝑦 / 𝑗𝐶 = Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)(2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
60 elxp 5686 . . . . . . . . . . . 12 (𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵) ↔ ∃𝑚𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵)))
61 nfv 1947 . . . . . . . . . . . . . . 15 𝑗 𝑧 = ⟨𝑚, 𝑘
62 nfv 1947 . . . . . . . . . . . . . . . 16 𝑗 𝑚 ∈ {𝑦}
6319nfcri 2919 . . . . . . . . . . . . . . . 16 𝑗 𝑘𝑦 / 𝑗𝐵
6462, 63nfan 1932 . . . . . . . . . . . . . . 15 𝑗(𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵)
6561, 64nfan 1932 . . . . . . . . . . . . . 14 𝑗(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵))
6665nfex 2359 . . . . . . . . . . . . 13 𝑗𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵))
67 nfv 1947 . . . . . . . . . . . . 13 𝑚𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵))
68 opeq1 4840 . . . . . . . . . . . . . . . 16 (𝑚 = 𝑗 → ⟨𝑚, 𝑘⟩ = ⟨𝑗, 𝑘⟩)
6968eqeq2d 2776 . . . . . . . . . . . . . . 15 (𝑚 = 𝑗 → (𝑧 = ⟨𝑚, 𝑘⟩ ↔ 𝑧 = ⟨𝑗, 𝑘⟩))
70 velsn 4607 . . . . . . . . . . . . . . . . . 18 (𝑚 ∈ {𝑦} ↔ 𝑚 = 𝑦)
7170anbi1i 636 . . . . . . . . . . . . . . . . 17 ((𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵) ↔ (𝑚 = 𝑦𝑘𝑦 / 𝑗𝐵))
72 eqtr2 2786 . . . . . . . . . . . . . . . . . . . 20 ((𝑚 = 𝑗𝑚 = 𝑦) → 𝑗 = 𝑦)
7372, 21syl 18 . . . . . . . . . . . . . . . . . . 19 ((𝑚 = 𝑗𝑚 = 𝑦) → 𝐵 = 𝑦 / 𝑗𝐵)
7473eleq2d 2851 . . . . . . . . . . . . . . . . . 18 ((𝑚 = 𝑗𝑚 = 𝑦) → (𝑘𝐵𝑘𝑦 / 𝑗𝐵))
7574pm5.32da 590 . . . . . . . . . . . . . . . . 17 (𝑚 = 𝑗 → ((𝑚 = 𝑦𝑘𝐵) ↔ (𝑚 = 𝑦𝑘𝑦 / 𝑗𝐵)))
7671, 75bitr4id 293 . . . . . . . . . . . . . . . 16 (𝑚 = 𝑗 → ((𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵) ↔ (𝑚 = 𝑦𝑘𝐵)))
77 equequ1 2058 . . . . . . . . . . . . . . . . 17 (𝑚 = 𝑗 → (𝑚 = 𝑦𝑗 = 𝑦))
7877anbi1d 643 . . . . . . . . . . . . . . . 16 (𝑚 = 𝑗 → ((𝑚 = 𝑦𝑘𝐵) ↔ (𝑗 = 𝑦𝑘𝐵)))
7976, 78bitrd 282 . . . . . . . . . . . . . . 15 (𝑚 = 𝑗 → ((𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵) ↔ (𝑗 = 𝑦𝑘𝐵)))
8069, 79anbi12d 644 . . . . . . . . . . . . . 14 (𝑚 = 𝑗 → ((𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵)) ↔ (𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵))))
8180exbidv 1954 . . . . . . . . . . . . 13 (𝑚 = 𝑗 → (∃𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵)) ↔ ∃𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵))))
8266, 67, 81cbvexv1 2376 . . . . . . . . . . . 12 (∃𝑚𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵)) ↔ ∃𝑗𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵)))
8360, 82bitri 278 . . . . . . . . . . 11 (𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵) ↔ ∃𝑗𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵)))
84 nfv 1947 . . . . . . . . . . . 12 𝑗𝜑
85 nfcv 2927 . . . . . . . . . . . . . 14 𝑗(2nd𝑧)
8685, 27nfcsbw 3880 . . . . . . . . . . . . 13 𝑗(2nd𝑧) / 𝑘𝑦 / 𝑗𝐶
8786nfeq2 2944 . . . . . . . . . . . 12 𝑗 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶
88 nfv 1947 . . . . . . . . . . . . 13 𝑘𝜑
89 nfcsb1v 3878 . . . . . . . . . . . . . 14 𝑘(2nd𝑧) / 𝑘𝑦 / 𝑗𝐶
9089nfeq2 2944 . . . . . . . . . . . . 13 𝑘 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶
91 fsum2d.1 . . . . . . . . . . . . . . . 16 (𝑧 = ⟨𝑗, 𝑘⟩ → 𝐷 = 𝐶)
9291ad2antlr 740 . . . . . . . . . . . . . . 15 (((𝜑𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐷 = 𝐶)
9330ad2antrl 741 . . . . . . . . . . . . . . 15 (((𝜑𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐶 = 𝑦 / 𝑗𝐶)
94 fveq2 6885 . . . . . . . . . . . . . . . . . 18 (𝑧 = ⟨𝑗, 𝑘⟩ → (2nd𝑧) = (2nd ‘⟨𝑗, 𝑘⟩))
95 vex 3461 . . . . . . . . . . . . . . . . . . 19 𝑗 ∈ V
96 vex 3461 . . . . . . . . . . . . . . . . . . 19 𝑘 ∈ V
9795, 96op2nd 8001 . . . . . . . . . . . . . . . . . 18 (2nd ‘⟨𝑗, 𝑘⟩) = 𝑘
9894, 97eqtr2di 2817 . . . . . . . . . . . . . . . . 17 (𝑧 = ⟨𝑗, 𝑘⟩ → 𝑘 = (2nd𝑧))
9998ad2antlr 740 . . . . . . . . . . . . . . . 16 (((𝜑𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝑘 = (2nd𝑧))
100 csbeq1a 3868 . . . . . . . . . . . . . . . 16 (𝑘 = (2nd𝑧) → 𝑦 / 𝑗𝐶 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
10199, 100syl 18 . . . . . . . . . . . . . . 15 (((𝜑𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝑦 / 𝑗𝐶 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
10292, 93, 1013eqtrd 2804 . . . . . . . . . . . . . 14 (((𝜑𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
103102expl 463 . . . . . . . . . . . . 13 (𝜑 → ((𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶))
10488, 90, 103exlimd 2257 . . . . . . . . . . . 12 (𝜑 → (∃𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶))
10584, 87, 104exlimd 2257 . . . . . . . . . . 11 (𝜑 → (∃𝑗𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶))
10683, 105biimtrid 245 . . . . . . . . . 10 (𝜑 → (𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶))
107106imp 412 . . . . . . . . 9 ((𝜑𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
108107sumeq2dv 15777 . . . . . . . 8 (𝜑 → Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷 = Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)(2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
10959, 108eqtr4d 2803 . . . . . . 7 (𝜑 → Σ𝑚 𝑦 / 𝑗𝐵𝑚 / 𝑘𝑦 / 𝑗𝐶 = Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷)
11046, 109eqtrid 2812 . . . . . 6 (𝜑 → Σ𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 = Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷)
11142, 110eqtrd 2800 . . . . 5 (𝜑 → Σ𝑚 ∈ {𝑦𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶 = Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷)
11211, 111eqtrid 2812 . . . 4 (𝜑 → Σ𝑗 ∈ {𝑦𝑘𝐵 𝐶 = Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷)
113112adantr 486 . . 3 ((𝜑𝜓) → Σ𝑗 ∈ {𝑦𝑘𝐵 𝐶 = Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷)
1142, 113oveq12d 7437 . 2 ((𝜑𝜓) → (Σ𝑗𝑥 Σ𝑘𝐵 𝐶 + Σ𝑗 ∈ {𝑦𝑘𝐵 𝐶) = (Σ𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷 + Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷))
115 fsum2d.5 . . . . 5 (𝜑 → ¬ 𝑦𝑥)
116 disjsn 4679 . . . . 5 ((𝑥 ∩ {𝑦}) = ∅ ↔ ¬ 𝑦𝑥)
117115, 116sylibr 237 . . . 4 (𝜑 → (𝑥 ∩ {𝑦}) = ∅)
118 eqidd 2766 . . . 4 (𝜑 → (𝑥 ∪ {𝑦}) = (𝑥 ∪ {𝑦}))
119 fsum2d.2 . . . . 5 (𝜑𝐴 ∈ Fin)
120119, 12ssfid 9236 . . . 4 (𝜑 → (𝑥 ∪ {𝑦}) ∈ Fin)
12112sselda 3938 . . . . 5 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → 𝑗𝐴)
12225anassrs 473 . . . . . 6 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝐶 ∈ ℂ)
12317, 122fsumcl 15807 . . . . 5 ((𝜑𝑗𝐴) → Σ𝑘𝐵 𝐶 ∈ ℂ)
124121, 123syldan 603 . . . 4 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → Σ𝑘𝐵 𝐶 ∈ ℂ)
125117, 118, 120, 124fsumsplit 15815 . . 3 (𝜑 → Σ𝑗 ∈ (𝑥 ∪ {𝑦})Σ𝑘𝐵 𝐶 = (Σ𝑗𝑥 Σ𝑘𝐵 𝐶 + Σ𝑗 ∈ {𝑦𝑘𝐵 𝐶))
126125adantr 486 . 2 ((𝜑𝜓) → Σ𝑗 ∈ (𝑥 ∪ {𝑦})Σ𝑘𝐵 𝐶 = (Σ𝑗𝑥 Σ𝑘𝐵 𝐶 + Σ𝑗 ∈ {𝑦𝑘𝐵 𝐶))
127 eliun 4962 . . . . . . . . . 10 (𝑧 𝑗𝑥 ({𝑗} × 𝐵) ↔ ∃𝑗𝑥 𝑧 ∈ ({𝑗} × 𝐵))
128 xp1st 8024 . . . . . . . . . . . . . 14 (𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) ∈ {𝑗})
129 elsni 4608 . . . . . . . . . . . . . 14 ((1st𝑧) ∈ {𝑗} → (1st𝑧) = 𝑗)
130128, 129syl 18 . . . . . . . . . . . . 13 (𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) = 𝑗)
131130adantl 487 . . . . . . . . . . . 12 ((𝑗𝑥𝑧 ∈ ({𝑗} × 𝐵)) → (1st𝑧) = 𝑗)
132 simpl 488 . . . . . . . . . . . 12 ((𝑗𝑥𝑧 ∈ ({𝑗} × 𝐵)) → 𝑗𝑥)
133131, 132eqeltrd 2865 . . . . . . . . . . 11 ((𝑗𝑥𝑧 ∈ ({𝑗} × 𝐵)) → (1st𝑧) ∈ 𝑥)
134133rexlimiva 3160 . . . . . . . . . 10 (∃𝑗𝑥 𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) ∈ 𝑥)
135127, 134sylbi 220 . . . . . . . . 9 (𝑧 𝑗𝑥 ({𝑗} × 𝐵) → (1st𝑧) ∈ 𝑥)
136 xp1st 8024 . . . . . . . . 9 (𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵) → (1st𝑧) ∈ {𝑦})
137135, 136anim12i 625 . . . . . . . 8 ((𝑧 𝑗𝑥 ({𝑗} × 𝐵) ∧ 𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)) → ((1st𝑧) ∈ 𝑥 ∧ (1st𝑧) ∈ {𝑦}))
138 elin 3922 . . . . . . . 8 (𝑧 ∈ ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) ↔ (𝑧 𝑗𝑥 ({𝑗} × 𝐵) ∧ 𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)))
139 elin 3922 . . . . . . . 8 ((1st𝑧) ∈ (𝑥 ∩ {𝑦}) ↔ ((1st𝑧) ∈ 𝑥 ∧ (1st𝑧) ∈ {𝑦}))
140137, 138, 1393imtr4i 295 . . . . . . 7 (𝑧 ∈ ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) → (1st𝑧) ∈ (𝑥 ∩ {𝑦}))
141117eleq2d 2851 . . . . . . . 8 (𝜑 → ((1st𝑧) ∈ (𝑥 ∩ {𝑦}) ↔ (1st𝑧) ∈ ∅))
142 noel 4291 . . . . . . . . 9 ¬ (1st𝑧) ∈ ∅
143142pm2.21i 120 . . . . . . . 8 ((1st𝑧) ∈ ∅ → 𝑧 ∈ ∅)
144141, 143biimtrdi 256 . . . . . . 7 (𝜑 → ((1st𝑧) ∈ (𝑥 ∩ {𝑦}) → 𝑧 ∈ ∅))
145140, 144syl5 35 . . . . . 6 (𝜑 → (𝑧 ∈ ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) → 𝑧 ∈ ∅))
146145ssrdv 3944 . . . . 5 (𝜑 → ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) ⊆ ∅)
147 ss0 4359 . . . . 5 (( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) ⊆ ∅ → ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) = ∅)
148146, 147syl 18 . . . 4 (𝜑 → ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) = ∅)
149 iunxun 5062 . . . . . 6 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) = ( 𝑗𝑥 ({𝑗} × 𝐵) ∪ 𝑗 ∈ {𝑦} ({𝑗} × 𝐵))
150 nfcv 2927 . . . . . . . . 9 𝑚({𝑗} × 𝐵)
151 nfcv 2927 . . . . . . . . . 10 𝑗{𝑚}
152151, 8nfxp 5696 . . . . . . . . 9 𝑗({𝑚} × 𝑚 / 𝑗𝐵)
153 sneq 4601 . . . . . . . . . 10 (𝑗 = 𝑚 → {𝑗} = {𝑚})
154153, 3xpeq12d 5694 . . . . . . . . 9 (𝑗 = 𝑚 → ({𝑗} × 𝐵) = ({𝑚} × 𝑚 / 𝑗𝐵))
155150, 152, 154cbviun 5001 . . . . . . . 8 𝑗 ∈ {𝑦} ({𝑗} × 𝐵) = 𝑚 ∈ {𝑦} ({𝑚} × 𝑚 / 𝑗𝐵)
156 sneq 4601 . . . . . . . . . 10 (𝑚 = 𝑦 → {𝑚} = {𝑦})
157156, 37xpeq12d 5694 . . . . . . . . 9 (𝑚 = 𝑦 → ({𝑚} × 𝑚 / 𝑗𝐵) = ({𝑦} × 𝑦 / 𝑗𝐵))
15814, 157iunxsn 5059 . . . . . . . 8 𝑚 ∈ {𝑦} ({𝑚} × 𝑚 / 𝑗𝐵) = ({𝑦} × 𝑦 / 𝑗𝐵)
159155, 158eqtri 2788 . . . . . . 7 𝑗 ∈ {𝑦} ({𝑗} × 𝐵) = ({𝑦} × 𝑦 / 𝑗𝐵)
160159uneq2i 4119 . . . . . 6 ( 𝑗𝑥 ({𝑗} × 𝐵) ∪ 𝑗 ∈ {𝑦} ({𝑗} × 𝐵)) = ( 𝑗𝑥 ({𝑗} × 𝐵) ∪ ({𝑦} × 𝑦 / 𝑗𝐵))
161149, 160eqtri 2788 . . . . 5 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) = ( 𝑗𝑥 ({𝑗} × 𝐵) ∪ ({𝑦} × 𝑦 / 𝑗𝐵))
162161a1i 11 . . . 4 (𝜑 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) = ( 𝑗𝑥 ({𝑗} × 𝐵) ∪ ({𝑦} × 𝑦 / 𝑗𝐵)))
163 snfi 9047 . . . . . . 7 {𝑗} ∈ Fin
164121, 17syldan 603 . . . . . . 7 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → 𝐵 ∈ Fin)
165 xpfi 9286 . . . . . . 7 (({𝑗} ∈ Fin ∧ 𝐵 ∈ Fin) → ({𝑗} × 𝐵) ∈ Fin)
166163, 164, 165sylancr 599 . . . . . 6 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → ({𝑗} × 𝐵) ∈ Fin)
167166ralrimiva 3159 . . . . 5 (𝜑 → ∀𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin)
168 iunfi 9307 . . . . 5 (((𝑥 ∪ {𝑦}) ∈ Fin ∧ ∀𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin) → 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin)
169120, 167, 168syl2anc 596 . . . 4 (𝜑 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin)
170 eliun 4962 . . . . . 6 (𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ↔ ∃𝑗 ∈ (𝑥 ∪ {𝑦})𝑧 ∈ ({𝑗} × 𝐵))
171 elxp 5686 . . . . . . . 8 (𝑧 ∈ ({𝑗} × 𝐵) ↔ ∃𝑚𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵)))
172 simprl 783 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑧 = ⟨𝑚, 𝑘⟩)
173 simprrl 793 . . . . . . . . . . . . . . 15 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑚 ∈ {𝑗})
174 elsni 4608 . . . . . . . . . . . . . . 15 (𝑚 ∈ {𝑗} → 𝑚 = 𝑗)
175173, 174syl 18 . . . . . . . . . . . . . 14 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑚 = 𝑗)
176175opeq1d 4846 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → ⟨𝑚, 𝑘⟩ = ⟨𝑗, 𝑘⟩)
177172, 176eqtrd 2800 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑧 = ⟨𝑗, 𝑘⟩)
178177, 91syl 18 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝐷 = 𝐶)
179 simpll 779 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝜑)
180121adantr 486 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑗𝐴)
181 simprrr 794 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑘𝐵)
182179, 180, 181, 25syl12anc 850 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝐶 ∈ ℂ)
183178, 182eqeltrd 2865 . . . . . . . . . 10 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝐷 ∈ ℂ)
184183ex 418 . . . . . . . . 9 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → ((𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵)) → 𝐷 ∈ ℂ))
185184exlimdvv 1967 . . . . . . . 8 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → (∃𝑚𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵)) → 𝐷 ∈ ℂ))
186171, 185biimtrid 245 . . . . . . 7 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → (𝑧 ∈ ({𝑗} × 𝐵) → 𝐷 ∈ ℂ))
187186rexlimdva 3168 . . . . . 6 (𝜑 → (∃𝑗 ∈ (𝑥 ∪ {𝑦})𝑧 ∈ ({𝑗} × 𝐵) → 𝐷 ∈ ℂ))
188170, 187biimtrid 245 . . . . 5 (𝜑 → (𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) → 𝐷 ∈ ℂ))
189188imp 412 . . . 4 ((𝜑𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)) → 𝐷 ∈ ℂ)
190148, 162, 169, 189fsumsplit 15815 . . 3 (𝜑 → Σ𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷 = (Σ𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷 + Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷))
191190adantr 486 . 2 ((𝜑𝜓) → Σ𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷 = (Σ𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷 + Σ𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷))
192114, 126, 1913eqtr4d 2810 1 ((𝜑𝜓) → Σ𝑗 ∈ (𝑥 ∪ {𝑦})Σ𝑘𝐵 𝐶 = Σ𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401   = wceq 1570  wex 1812  wcel 2146  wral 3081  wrex 3091  csb 3854  cun 3904  cin 3905  wss 3906  c0 4286  {csn 4591  cop 4597   ciun 4958   × cxp 5661  cres 5665  1-1-ontowf1o 6539  cfv 6540  (class class class)co 7419  1st c1st 7990  2nd c2nd 7991  Fincfn 8949  cc 11113   + caddc 11118  Σcsu 15761
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-inf2 9617  ax-cnex 11171  ax-resscn 11172  ax-1cn 11173  ax-icn 11174  ax-addcl 11175  ax-addrcl 11176  ax-mulcl 11177  ax-mulrcl 11178  ax-mulcom 11179  ax-addass 11180  ax-mulass 11181  ax-distr 11182  ax-i2m1 11183  ax-1ne0 11184  ax-1rid 11185  ax-rnegex 11186  ax-rrecex 11187  ax-cnre 11188  ax-pre-lttri 11189  ax-pre-lttrn 11190  ax-pre-ltadd 11191  ax-pre-mulgt0 11192  ax-pre-sup 11193
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-int 4915  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-er 8700  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-sup 9409  df-oi 9479  df-card 9941  df-pnf 11260  df-mnf 11261  df-xr 11262  df-ltxr 11263  df-le 11264  df-sub 11458  df-neg 11459  df-div 11887  df-nn 12249  df-2 12318  df-3 12319  df-n0 12520  df-z 12607  df-uz 12879  df-rp 13033  df-fz 13552  df-fzo 13700  df-seq 14056  df-exp 14116  df-hash 14385  df-cj 15174  df-re 15175  df-im 15176  df-sqrt 15310  df-abs 15311  df-clim 15563  df-sum 15762
This theorem is used by:  fsum2d  15845
  Copyright terms: Public domain W3C validator