Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  esum2dlem Structured version   Visualization version   GIF version

Theorem esum2dlem 30154
Description: Lemma for esum2d 30155 (finite case). (Contributed by Thierry Arnoux, 17-May-2020.) (Proof shortened by AV, 17-Sep-2021.)
Hypotheses
Ref Expression
esum2d.0 𝑘𝐹
esum2d.1 (𝑧 = ⟨𝑗, 𝑘⟩ → 𝐹 = 𝐶)
esum2d.2 (𝜑𝐴𝑉)
esum2d.3 ((𝜑𝑗𝐴) → 𝐵𝑊)
esum2d.4 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐶 ∈ (0[,]+∞))
esum2dlem.e (𝜑𝐴 ∈ Fin)
Assertion
Ref Expression
esum2dlem (𝜑 → Σ*𝑗𝐴Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝐴 ({𝑗} × 𝐵)𝐹)
Distinct variable groups:   𝑗,𝑘,𝐴,𝑧   𝑧,𝐶   𝐵,𝑘,𝑧   𝑗,𝐹   𝑗,𝑊,𝑘   𝜑,𝑗,𝑘,𝑧
Allowed substitution hints:   𝐵(𝑗)   𝐶(𝑗,𝑘)   𝐹(𝑧,𝑘)   𝑉(𝑧,𝑗,𝑘)   𝑊(𝑧)

Proof of Theorem esum2dlem
Dummy variables 𝑖 𝑙 𝑡 𝑎 𝑏 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 esumeq1 30096 . . 3 (𝑎 = ∅ → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶)
2 nfv 1843 . . . 4 𝑧 𝑎 = ∅
3 iuneq1 4534 . . . 4 (𝑎 = ∅ → 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗 ∈ ∅ ({𝑗} × 𝐵))
42, 3esumeq1d 30097 . . 3 (𝑎 = ∅ → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹)
51, 4eqeq12d 2637 . 2 (𝑎 = ∅ → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹))
6 esumeq1 30096 . . 3 (𝑎 = 𝑏 → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗𝑏Σ*𝑘𝐵𝐶)
7 nfv 1843 . . . 4 𝑧 𝑎 = 𝑏
8 iuneq1 4534 . . . 4 (𝑎 = 𝑏 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗𝑏 ({𝑗} × 𝐵))
97, 8esumeq1d 30097 . . 3 (𝑎 = 𝑏 → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹)
106, 9eqeq12d 2637 . 2 (𝑎 = 𝑏 → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹))
11 esumeq1 30096 . . 3 (𝑎 = (𝑏 ∪ {𝑙}) → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶)
12 nfv 1843 . . . 4 𝑧 𝑎 = (𝑏 ∪ {𝑙})
13 iuneq1 4534 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵))
1412, 13esumeq1d 30097 . . 3 (𝑎 = (𝑏 ∪ {𝑙}) → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹)
1511, 14eqeq12d 2637 . 2 (𝑎 = (𝑏 ∪ {𝑙}) → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹))
16 esumeq1 30096 . . 3 (𝑎 = 𝐴 → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗𝐴Σ*𝑘𝐵𝐶)
17 nfv 1843 . . . 4 𝑧 𝑎 = 𝐴
18 iuneq1 4534 . . . 4 (𝑎 = 𝐴 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗𝐴 ({𝑗} × 𝐵))
1917, 18esumeq1d 30097 . . 3 (𝑎 = 𝐴 → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗𝐴 ({𝑗} × 𝐵)𝐹)
2016, 19eqeq12d 2637 . 2 (𝑎 = 𝐴 → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗𝐴Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝐴 ({𝑗} × 𝐵)𝐹))
21 esumnul 30110 . . . 4 Σ*𝑧 ∈ ∅𝐹 = 0
22 0iun 4577 . . . . 5 𝑗 ∈ ∅ ({𝑗} × 𝐵) = ∅
23 esumeq1 30096 . . . . 5 ( 𝑗 ∈ ∅ ({𝑗} × 𝐵) = ∅ → Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ∅𝐹)
2422, 23ax-mp 5 . . . 4 Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ∅𝐹
25 esumnul 30110 . . . 4 Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = 0
2621, 24, 253eqtr4ri 2655 . . 3 Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹
2726a1i 11 . 2 (𝜑 → Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹)
28 simpr 477 . . . . 5 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹)
29 nfcsb1v 3549 . . . . . . . . 9 𝑗𝑙 / 𝑗𝐵
30 nfcsb1v 3549 . . . . . . . . 9 𝑗𝑙 / 𝑗𝐶
3129, 30nfesum2 30103 . . . . . . . 8 𝑗Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶
32 csbeq1a 3542 . . . . . . . . . 10 (𝑗 = 𝑙𝐵 = 𝑙 / 𝑗𝐵)
33 csbeq1a 3542 . . . . . . . . . 10 (𝑗 = 𝑙𝐶 = 𝑙 / 𝑗𝐶)
3432, 33esumeq12d 30095 . . . . . . . . 9 (𝑗 = 𝑙 → Σ*𝑘𝐵𝐶 = Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶)
3534adantl 482 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 = 𝑙) → Σ*𝑘𝐵𝐶 = Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶)
36 simprr 796 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑙 ∈ (𝐴𝑏))
3736eldifad 3586 . . . . . . . . . 10 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑙𝐴)
38 esum2d.3 . . . . . . . . . . . 12 ((𝜑𝑗𝐴) → 𝐵𝑊)
3938adantlr 751 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝐴) → 𝐵𝑊)
4039ralrimiva 2966 . . . . . . . . . 10 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ∀𝑗𝐴 𝐵𝑊)
41 rspcsbela 4006 . . . . . . . . . 10 ((𝑙𝐴 ∧ ∀𝑗𝐴 𝐵𝑊) → 𝑙 / 𝑗𝐵𝑊)
4237, 40, 41syl2anc 693 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑙 / 𝑗𝐵𝑊)
43 simpll 790 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝜑)
4437adantr 481 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑙𝐴)
45 simpr 477 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑘𝑙 / 𝑗𝐵)
46 esum2d.4 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐶 ∈ (0[,]+∞))
4746ex 450 . . . . . . . . . . . . . 14 (𝜑 → ((𝑗𝐴𝑘𝐵) → 𝐶 ∈ (0[,]+∞)))
4847sbcimdv 3498 . . . . . . . . . . . . 13 (𝜑 → ([𝑙 / 𝑗](𝑗𝐴𝑘𝐵) → [𝑙 / 𝑗]𝐶 ∈ (0[,]+∞)))
49 sbcan 3478 . . . . . . . . . . . . . 14 ([𝑙 / 𝑗](𝑗𝐴𝑘𝐵) ↔ ([𝑙 / 𝑗]𝑗𝐴[𝑙 / 𝑗]𝑘𝐵))
50 sbcel1v 3495 . . . . . . . . . . . . . . 15 ([𝑙 / 𝑗]𝑗𝐴𝑙𝐴)
51 sbcel2 3989 . . . . . . . . . . . . . . 15 ([𝑙 / 𝑗]𝑘𝐵𝑘𝑙 / 𝑗𝐵)
5250, 51anbi12i 733 . . . . . . . . . . . . . 14 (([𝑙 / 𝑗]𝑗𝐴[𝑙 / 𝑗]𝑘𝐵) ↔ (𝑙𝐴𝑘𝑙 / 𝑗𝐵))
5349, 52bitri 264 . . . . . . . . . . . . 13 ([𝑙 / 𝑗](𝑗𝐴𝑘𝐵) ↔ (𝑙𝐴𝑘𝑙 / 𝑗𝐵))
54 vex 3203 . . . . . . . . . . . . . 14 𝑙 ∈ V
55 sbcel1g 3987 . . . . . . . . . . . . . 14 (𝑙 ∈ V → ([𝑙 / 𝑗]𝐶 ∈ (0[,]+∞) ↔ 𝑙 / 𝑗𝐶 ∈ (0[,]+∞)))
5654, 55ax-mp 5 . . . . . . . . . . . . 13 ([𝑙 / 𝑗]𝐶 ∈ (0[,]+∞) ↔ 𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
5748, 53, 563imtr3g 284 . . . . . . . . . . . 12 (𝜑 → ((𝑙𝐴𝑘𝑙 / 𝑗𝐵) → 𝑙 / 𝑗𝐶 ∈ (0[,]+∞)))
5857imp 445 . . . . . . . . . . 11 ((𝜑 ∧ (𝑙𝐴𝑘𝑙 / 𝑗𝐵)) → 𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
5943, 44, 45, 58syl12anc 1324 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
6059ralrimiva 2966 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ∀𝑘 𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
61 nfcv 2764 . . . . . . . . . 10 𝑘𝑙 / 𝑗𝐵
6261esumcl 30092 . . . . . . . . 9 ((𝑙 / 𝑗𝐵𝑊 ∧ ∀𝑘 𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞)) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
6342, 60, 62syl2anc 693 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
6431, 35, 36, 63esumsnf 30126 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶 = Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶)
65 esum2d.0 . . . . . . . . 9 𝑘𝐹
66 nfv 1843 . . . . . . . . 9 𝑘(𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏)))
67 nfv 1843 . . . . . . . . . . 11 𝑗 𝑧 = ⟨𝑙, 𝑘
6830nfeq2 2780 . . . . . . . . . . 11 𝑗 𝐹 = 𝑙 / 𝑗𝐶
6967, 68nfim 1825 . . . . . . . . . 10 𝑗(𝑧 = ⟨𝑙, 𝑘⟩ → 𝐹 = 𝑙 / 𝑗𝐶)
70 opeq1 4402 . . . . . . . . . . . 12 (𝑗 = 𝑙 → ⟨𝑗, 𝑘⟩ = ⟨𝑙, 𝑘⟩)
7170eqeq2d 2632 . . . . . . . . . . 11 (𝑗 = 𝑙 → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑧 = ⟨𝑙, 𝑘⟩))
7233eqeq2d 2632 . . . . . . . . . . 11 (𝑗 = 𝑙 → (𝐹 = 𝐶𝐹 = 𝑙 / 𝑗𝐶))
7371, 72imbi12d 334 . . . . . . . . . 10 (𝑗 = 𝑙 → ((𝑧 = ⟨𝑗, 𝑘⟩ → 𝐹 = 𝐶) ↔ (𝑧 = ⟨𝑙, 𝑘⟩ → 𝐹 = 𝑙 / 𝑗𝐶)))
74 esum2d.1 . . . . . . . . . 10 (𝑧 = ⟨𝑗, 𝑘⟩ → 𝐹 = 𝐶)
7569, 73, 74chvar 2262 . . . . . . . . 9 (𝑧 = ⟨𝑙, 𝑘⟩ → 𝐹 = 𝑙 / 𝑗𝐶)
76 vsnid 4209 . . . . . . . . . . . . . . . . 17 𝑗 ∈ {𝑗}
7776a1i 11 . . . . . . . . . . . . . . . 16 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝑗 ∈ {𝑗})
78 simpr 477 . . . . . . . . . . . . . . . 16 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝑘𝐵)
7977, 78opelxpd 5149 . . . . . . . . . . . . . . 15 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → ⟨𝑗, 𝑘⟩ ∈ ({𝑗} × 𝐵))
80 xp2nd 7199 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ({𝑗} × 𝐵) → (2nd𝑧) ∈ 𝐵)
81 xp1st 7198 . . . . . . . . . . . . . . . . . . . . 21 (𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) ∈ {𝑗})
82 fvex 6201 . . . . . . . . . . . . . . . . . . . . . 22 (1st𝑧) ∈ V
8382elsn 4192 . . . . . . . . . . . . . . . . . . . . 21 ((1st𝑧) ∈ {𝑗} ↔ (1st𝑧) = 𝑗)
8481, 83sylib 208 . . . . . . . . . . . . . . . . . . . 20 (𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) = 𝑗)
85 eqop 7208 . . . . . . . . . . . . . . . . . . . 20 (𝑧 ∈ ({𝑗} × 𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ ((1st𝑧) = 𝑗 ∧ (2nd𝑧) = 𝑘)))
8684, 85mpbirand 530 . . . . . . . . . . . . . . . . . . 19 (𝑧 ∈ ({𝑗} × 𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ (2nd𝑧) = 𝑘))
87 eqcom 2629 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑧) = 𝑘𝑘 = (2nd𝑧))
8886, 87syl6bb 276 . . . . . . . . . . . . . . . . . 18 (𝑧 ∈ ({𝑗} × 𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧)))
8988ad2antlr 763 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧)))
9089ralrimiva 2966 . . . . . . . . . . . . . . . 16 (((𝜑𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → ∀𝑘𝐵 (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧)))
91 reu6i 3397 . . . . . . . . . . . . . . . 16 (((2nd𝑧) ∈ 𝐵 ∧ ∀𝑘𝐵 (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧))) → ∃!𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
9280, 90, 91syl2an2 875 . . . . . . . . . . . . . . 15 (((𝜑𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → ∃!𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
9379, 92f1mptrn 29435 . . . . . . . . . . . . . 14 ((𝜑𝑗𝐴) → Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩))
9493ex 450 . . . . . . . . . . . . 13 (𝜑 → (𝑗𝐴 → Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)))
9594sbcimdv 3498 . . . . . . . . . . . 12 (𝜑 → ([𝑙 / 𝑗]𝑗𝐴[𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)))
96 sbcfung 5912 . . . . . . . . . . . . . 14 (𝑙 ∈ V → ([𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)))
97 csbcnv 5306 . . . . . . . . . . . . . . . 16 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)
98 csbmpt12 5010 . . . . . . . . . . . . . . . . . 18 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝑗, 𝑘⟩))
99 csbopg 4420 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ V → 𝑙 / 𝑗𝑗, 𝑘⟩ = ⟨𝑙 / 𝑗𝑗, 𝑙 / 𝑗𝑘⟩)
100 csbvarg 4003 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 ∈ V → 𝑙 / 𝑗𝑗 = 𝑙)
101 csbconstg 3546 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 ∈ V → 𝑙 / 𝑗𝑘 = 𝑘)
102100, 101opeq12d 4410 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ V → ⟨𝑙 / 𝑗𝑗, 𝑙 / 𝑗𝑘⟩ = ⟨𝑙, 𝑘⟩)
10399, 102eqtrd 2656 . . . . . . . . . . . . . . . . . . 19 (𝑙 ∈ V → 𝑙 / 𝑗𝑗, 𝑘⟩ = ⟨𝑙, 𝑘⟩)
104103mpteq2dv 4745 . . . . . . . . . . . . . . . . . 18 (𝑙 ∈ V → (𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
10598, 104eqtrd 2656 . . . . . . . . . . . . . . . . 17 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
106105cnveqd 5298 . . . . . . . . . . . . . . . 16 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
10797, 106syl5eqr 2670 . . . . . . . . . . . . . . 15 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
108107funeqd 5910 . . . . . . . . . . . . . 14 (𝑙 ∈ V → (Fun 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩)))
10996, 108bitrd 268 . . . . . . . . . . . . 13 (𝑙 ∈ V → ([𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩)))
11054, 109ax-mp 5 . . . . . . . . . . . 12 ([𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
11195, 50, 1103imtr3g 284 . . . . . . . . . . 11 (𝜑 → (𝑙𝐴 → Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩)))
112111imp 445 . . . . . . . . . 10 ((𝜑𝑙𝐴) → Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
11337, 112syldan 487 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
114 vsnid 4209 . . . . . . . . . . 11 𝑙 ∈ {𝑙}
115114a1i 11 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑙 ∈ {𝑙})
116115, 45opelxpd 5149 . . . . . . . . 9 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → ⟨𝑙, 𝑘⟩ ∈ ({𝑙} × 𝑙 / 𝑗𝐵))
11765, 66, 61, 75, 42, 113, 59, 116esumc 30113 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 = Σ*𝑧 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}𝐹)
118 nfab1 2766 . . . . . . . . . 10 𝑡{𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}
119 nfcv 2764 . . . . . . . . . 10 𝑡({𝑙} × 𝑙 / 𝑗𝐵)
120 opeq1 4402 . . . . . . . . . . . . . 14 (𝑖 = 𝑙 → ⟨𝑖, 𝑘⟩ = ⟨𝑙, 𝑘⟩)
121120eqeq2d 2632 . . . . . . . . . . . . 13 (𝑖 = 𝑙 → (𝑡 = ⟨𝑖, 𝑘⟩ ↔ 𝑡 = ⟨𝑙, 𝑘⟩))
122121rexbidv 3052 . . . . . . . . . . . 12 (𝑖 = 𝑙 → (∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑖, 𝑘⟩ ↔ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩))
12354, 122rexsn 4223 . . . . . . . . . . 11 (∃𝑖 ∈ {𝑙}∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑖, 𝑘⟩ ↔ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩)
124 elxp2 5132 . . . . . . . . . . 11 (𝑡 ∈ ({𝑙} × 𝑙 / 𝑗𝐵) ↔ ∃𝑖 ∈ {𝑙}∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑖, 𝑘⟩)
125 abid 2610 . . . . . . . . . . 11 (𝑡 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} ↔ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩)
126123, 124, 1253bitr4ri 293 . . . . . . . . . 10 (𝑡 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} ↔ 𝑡 ∈ ({𝑙} × 𝑙 / 𝑗𝐵))
127118, 119, 126eqri 29315 . . . . . . . . 9 {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} = ({𝑙} × 𝑙 / 𝑗𝐵)
128 esumeq1 30096 . . . . . . . . 9 ({𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} = ({𝑙} × 𝑙 / 𝑗𝐵) → Σ*𝑧 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}𝐹 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
129127, 128ax-mp 5 . . . . . . . 8 Σ*𝑧 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}𝐹 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹
130117, 129syl6eq 2672 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
13164, 130eqtrd 2656 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
132131adantr 481 . . . . 5 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
13328, 132oveq12d 6668 . . . 4 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 +𝑒 Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶) = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
134 nfv 1843 . . . . . 6 𝑗(𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏)))
135 nfcv 2764 . . . . . 6 𝑗𝑏
136 nfcv 2764 . . . . . 6 𝑗{𝑙}
137 vex 3203 . . . . . . 7 𝑏 ∈ V
138137a1i 11 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑏 ∈ V)
139 snex 4908 . . . . . . 7 {𝑙} ∈ V
140139a1i 11 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → {𝑙} ∈ V)
14136eldifbd 3587 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ¬ 𝑙𝑏)
142 disjsn 4246 . . . . . . 7 ((𝑏 ∩ {𝑙}) = ∅ ↔ ¬ 𝑙𝑏)
143141, 142sylibr 224 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → (𝑏 ∩ {𝑙}) = ∅)
144 simpll 790 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝜑)
145 simprl 794 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑏𝐴)
146145sselda 3603 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝑗𝐴)
14746anassrs 680 . . . . . . . . 9 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝐶 ∈ (0[,]+∞))
148147ralrimiva 2966 . . . . . . . 8 ((𝜑𝑗𝐴) → ∀𝑘𝐵 𝐶 ∈ (0[,]+∞))
149 nfcv 2764 . . . . . . . . 9 𝑘𝐵
150149esumcl 30092 . . . . . . . 8 ((𝐵𝑊 ∧ ∀𝑘𝐵 𝐶 ∈ (0[,]+∞)) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
15138, 148, 150syl2anc 693 . . . . . . 7 ((𝜑𝑗𝐴) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
152144, 146, 151syl2anc 693 . . . . . 6 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
153 simpll 790 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 ∈ {𝑙}) → 𝜑)
15437snssd 4340 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → {𝑙} ⊆ 𝐴)
155154sselda 3603 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 ∈ {𝑙}) → 𝑗𝐴)
156153, 155, 151syl2anc 693 . . . . . 6 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 ∈ {𝑙}) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
157134, 135, 136, 138, 140, 143, 152, 156esumsplit 30115 . . . . 5 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 +𝑒 Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶))
158157adantr 481 . . . 4 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 +𝑒 Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶))
159 iunxun 4605 . . . . . . . 8 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ 𝑗 ∈ {𝑙} ({𝑗} × 𝐵))
160136, 29nfxp 5142 . . . . . . . . . . 11 𝑗({𝑙} × 𝑙 / 𝑗𝐵)
161 sneq 4187 . . . . . . . . . . . 12 (𝑗 = 𝑙 → {𝑗} = {𝑙})
162161, 32xpeq12d 5140 . . . . . . . . . . 11 (𝑗 = 𝑙 → ({𝑗} × 𝐵) = ({𝑙} × 𝑙 / 𝑗𝐵))
163160, 162iunxsngf 29375 . . . . . . . . . 10 (𝑙 ∈ V → 𝑗 ∈ {𝑙} ({𝑗} × 𝐵) = ({𝑙} × 𝑙 / 𝑗𝐵))
16454, 163ax-mp 5 . . . . . . . . 9 𝑗 ∈ {𝑙} ({𝑗} × 𝐵) = ({𝑙} × 𝑙 / 𝑗𝐵)
165164uneq2i 3764 . . . . . . . 8 ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ 𝑗 ∈ {𝑙} ({𝑗} × 𝐵)) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))
166159, 165eqtri 2644 . . . . . . 7 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))
167 esumeq1 30096 . . . . . . 7 ( 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵)) → Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))𝐹)
168166, 167ax-mp 5 . . . . . 6 Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))𝐹
169 nfv 1843 . . . . . . 7 𝑧(𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏)))
170 nfcv 2764 . . . . . . 7 𝑧 𝑗𝑏 ({𝑗} × 𝐵)
171 nfcv 2764 . . . . . . 7 𝑧({𝑙} × 𝑙 / 𝑗𝐵)
172 snex 4908 . . . . . . . . . 10 {𝑗} ∈ V
173146, 39syldan 487 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝐵𝑊)
174 xpexg 6960 . . . . . . . . . 10 (({𝑗} ∈ V ∧ 𝐵𝑊) → ({𝑗} × 𝐵) ∈ V)
175172, 173, 174sylancr 695 . . . . . . . . 9 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → ({𝑗} × 𝐵) ∈ V)
176175ralrimiva 2966 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ∀𝑗𝑏 ({𝑗} × 𝐵) ∈ V)
177 iunexg 7143 . . . . . . . 8 ((𝑏 ∈ V ∧ ∀𝑗𝑏 ({𝑗} × 𝐵) ∈ V) → 𝑗𝑏 ({𝑗} × 𝐵) ∈ V)
178137, 176, 177sylancr 695 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑗𝑏 ({𝑗} × 𝐵) ∈ V)
179 xpexg 6960 . . . . . . . 8 (({𝑙} ∈ V ∧ 𝑙 / 𝑗𝐵𝑊) → ({𝑙} × 𝑙 / 𝑗𝐵) ∈ V)
180139, 42, 179sylancr 695 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ({𝑙} × 𝑙 / 𝑗𝐵) ∈ V)
181 simpr 477 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝑗𝑏)
182141adantr 481 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → ¬ 𝑙𝑏)
183 nelne2 2891 . . . . . . . . . . 11 ((𝑗𝑏 ∧ ¬ 𝑙𝑏) → 𝑗𝑙)
184181, 182, 183syl2anc 693 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝑗𝑙)
185 disjsn2 4247 . . . . . . . . . 10 (𝑗𝑙 → ({𝑗} ∩ {𝑙}) = ∅)
186 xpdisj1 5555 . . . . . . . . . 10 (({𝑗} ∩ {𝑙}) = ∅ → (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ∅)
187184, 185, 1863syl 18 . . . . . . . . 9 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ∅)
188187iuneq2dv 4542 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑗𝑏 (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = 𝑗𝑏 ∅)
189160iunin1f 29374 . . . . . . . 8 𝑗𝑏 (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵))
190 iun0 4576 . . . . . . . 8 𝑗𝑏 ∅ = ∅
191188, 189, 1903eqtr3g 2679 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ( 𝑗𝑏 ({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ∅)
192 simpll 790 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 𝑗𝑏 ({𝑗} × 𝐵)) → 𝜑)
193 iunss1 4532 . . . . . . . . . 10 (𝑏𝐴 𝑗𝑏 ({𝑗} × 𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
194145, 193syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑗𝑏 ({𝑗} × 𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
195194sselda 3603 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 𝑗𝑏 ({𝑗} × 𝐵)) → 𝑧 𝑗𝐴 ({𝑗} × 𝐵))
196 nfv 1843 . . . . . . . . . 10 𝑗𝜑
197 nfiu1 4550 . . . . . . . . . . 11 𝑗 𝑗𝐴 ({𝑗} × 𝐵)
198197nfcri 2758 . . . . . . . . . 10 𝑗 𝑧 𝑗𝐴 ({𝑗} × 𝐵)
199196, 198nfan 1828 . . . . . . . . 9 𝑗(𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵))
200 nfv 1843 . . . . . . . . . 10 𝑘(((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵))
201 nfcv 2764 . . . . . . . . . . 11 𝑘(0[,]+∞)
20265, 201nfel 2777 . . . . . . . . . 10 𝑘 𝐹 ∈ (0[,]+∞)
20374adantl 482 . . . . . . . . . . 11 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝐹 = 𝐶)
204 simp-5l 808 . . . . . . . . . . . 12 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝜑)
205 simp-4r 807 . . . . . . . . . . . 12 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝑗𝐴)
206 simplr 792 . . . . . . . . . . . 12 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝑘𝐵)
207204, 205, 206, 46syl12anc 1324 . . . . . . . . . . 11 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝐶 ∈ (0[,]+∞))
208203, 207eqeltrd 2701 . . . . . . . . . 10 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝐹 ∈ (0[,]+∞))
209 elsnxp 5677 . . . . . . . . . . . 12 (𝑗𝐴 → (𝑧 ∈ ({𝑗} × 𝐵) ↔ ∃𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩))
210209biimpa 501 . . . . . . . . . . 11 ((𝑗𝐴𝑧 ∈ ({𝑗} × 𝐵)) → ∃𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
211210adantll 750 . . . . . . . . . 10 ((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → ∃𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
212200, 202, 208, 211r19.29af2 3075 . . . . . . . . 9 ((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → 𝐹 ∈ (0[,]+∞))
213 simpr 477 . . . . . . . . . 10 ((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) → 𝑧 𝑗𝐴 ({𝑗} × 𝐵))
214 eliun 4524 . . . . . . . . . 10 (𝑧 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝐴 𝑧 ∈ ({𝑗} × 𝐵))
215213, 214sylib 208 . . . . . . . . 9 ((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) → ∃𝑗𝐴 𝑧 ∈ ({𝑗} × 𝐵))
216199, 212, 215r19.29af 3076 . . . . . . . 8 ((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) → 𝐹 ∈ (0[,]+∞))
217192, 195, 216syl2anc 693 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 𝑗𝑏 ({𝑗} × 𝐵)) → 𝐹 ∈ (0[,]+∞))
218 simpll 790 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)) → 𝜑)
219 nfcv 2764 . . . . . . . . . . 11 𝑗𝐴
220 nfcv 2764 . . . . . . . . . . 11 𝑗𝑙
221219, 220, 160, 162ssiun2sf 29378 . . . . . . . . . 10 (𝑙𝐴 → ({𝑙} × 𝑙 / 𝑗𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
22237, 221syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ({𝑙} × 𝑙 / 𝑗𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
223222sselda 3603 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)) → 𝑧 𝑗𝐴 ({𝑗} × 𝐵))
224218, 223, 216syl2anc 693 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)) → 𝐹 ∈ (0[,]+∞))
225169, 170, 171, 178, 180, 191, 217, 224esumsplit 30115 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑧 ∈ ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))𝐹 = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
226168, 225syl5eq 2668 . . . . 5 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
227226adantr 481 . . . 4 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
228133, 158, 2273eqtr4d 2666 . . 3 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹)
229228ex 450 . 2 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹))
230 esum2dlem.e . 2 (𝜑𝐴 ∈ Fin)
2315, 10, 15, 20, 27, 229, 230findcard2d 8202 1 (𝜑 → Σ*𝑗𝐴Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝐴 ({𝑗} × 𝐵)𝐹)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 384   = wceq 1483  wcel 1990  {cab 2608  wnfc 2751  wne 2794  wral 2912  wrex 2913  ∃!wreu 2914  Vcvv 3200  [wsbc 3435  csb 3533  cdif 3571  cun 3572  cin 3573  wss 3574  c0 3915  {csn 4177  cop 4183   ciun 4520  cmpt 4729   × cxp 5112  ccnv 5113  Fun wfun 5882  cfv 5888  (class class class)co 6650  1st c1st 7166  2nd c2nd 7167  Fincfn 7955  0cc0 9936  +∞cpnf 10071   +𝑒 cxad 11944  [,]cicc 12178  Σ*cesum 30089
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013  ax-pre-sup 10014  ax-addf 10015  ax-mulf 10016
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-iin 4523  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-om 7066  df-1st 7168  df-2nd 7169  df-supp 7296  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-2o 7561  df-oadd 7564  df-er 7742  df-map 7859  df-pm 7860  df-ixp 7909  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fsupp 8276  df-fi 8317  df-sup 8348  df-inf 8349  df-oi 8415  df-card 8765  df-cda 8990  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-div 10685  df-nn 11021  df-2 11079  df-3 11080  df-4 11081  df-5 11082  df-6 11083  df-7 11084  df-8 11085  df-9 11086  df-n0 11293  df-z 11378  df-dec 11494  df-uz 11688  df-q 11789  df-rp 11833  df-xneg 11946  df-xadd 11947  df-xmul 11948  df-ioo 12179  df-ioc 12180  df-ico 12181  df-icc 12182  df-fz 12327  df-fzo 12466  df-fl 12593  df-mod 12669  df-seq 12802  df-exp 12861  df-fac 13061  df-bc 13090  df-hash 13118  df-shft 13807  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976  df-limsup 14202  df-clim 14219  df-rlim 14220  df-sum 14417  df-ef 14798  df-sin 14800  df-cos 14801  df-pi 14803  df-struct 15859  df-ndx 15860  df-slot 15861  df-base 15863  df-sets 15864  df-ress 15865  df-plusg 15954  df-mulr 15955  df-starv 15956  df-sca 15957  df-vsca 15958  df-ip 15959  df-tset 15960  df-ple 15961  df-ds 15964  df-unif 15965  df-hom 15966  df-cco 15967  df-rest 16083  df-topn 16084  df-0g 16102  df-gsum 16103  df-topgen 16104  df-pt 16105  df-prds 16108  df-ordt 16161  df-xrs 16162  df-qtop 16167  df-imas 16168  df-xps 16170  df-mre 16246  df-mrc 16247  df-acs 16249  df-ps 17200  df-tsr 17201  df-plusf 17241  df-mgm 17242  df-sgrp 17284  df-mnd 17295  df-mhm 17335  df-submnd 17336  df-grp 17425  df-minusg 17426  df-sbg 17427  df-mulg 17541  df-subg 17591  df-cntz 17750  df-cmn 18195  df-abl 18196  df-mgp 18490  df-ur 18502  df-ring 18549  df-cring 18550  df-subrg 18778  df-abv 18817  df-lmod 18865  df-scaf 18866  df-sra 19172  df-rgmod 19173  df-psmet 19738  df-xmet 19739  df-met 19740  df-bl 19741  df-mopn 19742  df-fbas 19743  df-fg 19744  df-cnfld 19747  df-top 20699  df-topon 20716  df-topsp 20737  df-bases 20750  df-cld 20823  df-ntr 20824  df-cls 20825  df-nei 20902  df-lp 20940  df-perf 20941  df-cn 21031  df-cnp 21032  df-haus 21119  df-tx 21365  df-hmeo 21558  df-fil 21650  df-fm 21742  df-flim 21743  df-flf 21744  df-tmd 21876  df-tgp 21877  df-tsms 21930  df-trg 21963  df-xms 22125  df-ms 22126  df-tms 22127  df-nm 22387  df-ngp 22388  df-nrg 22390  df-nlm 22391  df-ii 22680  df-cncf 22681  df-limc 23630  df-dv 23631  df-log 24303  df-esum 30090
This theorem is referenced by:  esum2d  30155
  Copyright terms: Public domain W3C validator