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 29481
Description: Lemma for esum2d 29482 (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 29423 . . 3 (𝑎 = ∅ → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶)
2 nfv 1830 . . . 4 𝑧 𝑎 = ∅
3 iuneq1 4470 . . . 4 (𝑎 = ∅ → 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗 ∈ ∅ ({𝑗} × 𝐵))
42, 3esumeq1d 29424 . . 3 (𝑎 = ∅ → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹)
51, 4eqeq12d 2625 . 2 (𝑎 = ∅ → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹))
6 esumeq1 29423 . . 3 (𝑎 = 𝑏 → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗𝑏Σ*𝑘𝐵𝐶)
7 nfv 1830 . . . 4 𝑧 𝑎 = 𝑏
8 iuneq1 4470 . . . 4 (𝑎 = 𝑏 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗𝑏 ({𝑗} × 𝐵))
97, 8esumeq1d 29424 . . 3 (𝑎 = 𝑏 → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹)
106, 9eqeq12d 2625 . 2 (𝑎 = 𝑏 → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹))
11 esumeq1 29423 . . 3 (𝑎 = (𝑏 ∪ {𝑙}) → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶)
12 nfv 1830 . . . 4 𝑧 𝑎 = (𝑏 ∪ {𝑙})
13 iuneq1 4470 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵))
1412, 13esumeq1d 29424 . . 3 (𝑎 = (𝑏 ∪ {𝑙}) → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹)
1511, 14eqeq12d 2625 . 2 (𝑎 = (𝑏 ∪ {𝑙}) → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹))
16 esumeq1 29423 . . 3 (𝑎 = 𝐴 → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗𝐴Σ*𝑘𝐵𝐶)
17 nfv 1830 . . . 4 𝑧 𝑎 = 𝐴
18 iuneq1 4470 . . . 4 (𝑎 = 𝐴 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗𝐴 ({𝑗} × 𝐵))
1917, 18esumeq1d 29424 . . 3 (𝑎 = 𝐴 → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗𝐴 ({𝑗} × 𝐵)𝐹)
2016, 19eqeq12d 2625 . 2 (𝑎 = 𝐴 → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗𝐴Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝐴 ({𝑗} × 𝐵)𝐹))
21 esumnul 29437 . . . 4 Σ*𝑧 ∈ ∅𝐹 = 0
22 0iun 4513 . . . . 5 𝑗 ∈ ∅ ({𝑗} × 𝐵) = ∅
23 esumeq1 29423 . . . . 5 ( 𝑗 ∈ ∅ ({𝑗} × 𝐵) = ∅ → Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ∅𝐹)
2422, 23ax-mp 5 . . . 4 Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ∅𝐹
25 esumnul 29437 . . . 4 Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = 0
2621, 24, 253eqtr4ri 2643 . . 3 Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹
2726a1i 11 . 2 (𝜑 → Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹)
28 simpr 476 . . . . 5 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹)
29 nfcsb1v 3515 . . . . . . . . 9 𝑗𝑙 / 𝑗𝐵
30 nfcsb1v 3515 . . . . . . . . 9 𝑗𝑙 / 𝑗𝐶
3129, 30nfesum2 29430 . . . . . . . 8 𝑗Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶
32 csbeq1a 3508 . . . . . . . . . 10 (𝑗 = 𝑙𝐵 = 𝑙 / 𝑗𝐵)
33 csbeq1a 3508 . . . . . . . . . 10 (𝑗 = 𝑙𝐶 = 𝑙 / 𝑗𝐶)
3432, 33esumeq12d 29422 . . . . . . . . 9 (𝑗 = 𝑙 → Σ*𝑘𝐵𝐶 = Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶)
3534adantl 481 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 = 𝑙) → Σ*𝑘𝐵𝐶 = Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶)
36 simprr 792 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑙 ∈ (𝐴𝑏))
3736eldifad 3552 . . . . . . . . . 10 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑙𝐴)
38 esum2d.3 . . . . . . . . . . . 12 ((𝜑𝑗𝐴) → 𝐵𝑊)
3938adantlr 747 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝐴) → 𝐵𝑊)
4039ralrimiva 2949 . . . . . . . . . 10 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ∀𝑗𝐴 𝐵𝑊)
41 rspcsbela 3958 . . . . . . . . . 10 ((𝑙𝐴 ∧ ∀𝑗𝐴 𝐵𝑊) → 𝑙 / 𝑗𝐵𝑊)
4237, 40, 41syl2anc 691 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑙 / 𝑗𝐵𝑊)
43 simpll 786 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝜑)
4437adantr 480 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑙𝐴)
45 simpr 476 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑘𝑙 / 𝑗𝐵)
46 esum2d.4 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐶 ∈ (0[,]+∞))
4746ex 449 . . . . . . . . . . . . . 14 (𝜑 → ((𝑗𝐴𝑘𝐵) → 𝐶 ∈ (0[,]+∞)))
4847sbcimdv 3465 . . . . . . . . . . . . 13 (𝜑 → ([𝑙 / 𝑗](𝑗𝐴𝑘𝐵) → [𝑙 / 𝑗]𝐶 ∈ (0[,]+∞)))
49 sbcan 3445 . . . . . . . . . . . . . 14 ([𝑙 / 𝑗](𝑗𝐴𝑘𝐵) ↔ ([𝑙 / 𝑗]𝑗𝐴[𝑙 / 𝑗]𝑘𝐵))
50 sbcel1v 3462 . . . . . . . . . . . . . . 15 ([𝑙 / 𝑗]𝑗𝐴𝑙𝐴)
51 sbcel2 3941 . . . . . . . . . . . . . . 15 ([𝑙 / 𝑗]𝑘𝐵𝑘𝑙 / 𝑗𝐵)
5250, 51anbi12i 729 . . . . . . . . . . . . . 14 (([𝑙 / 𝑗]𝑗𝐴[𝑙 / 𝑗]𝑘𝐵) ↔ (𝑙𝐴𝑘𝑙 / 𝑗𝐵))
5349, 52bitri 263 . . . . . . . . . . . . 13 ([𝑙 / 𝑗](𝑗𝐴𝑘𝐵) ↔ (𝑙𝐴𝑘𝑙 / 𝑗𝐵))
54 vex 3176 . . . . . . . . . . . . . 14 𝑙 ∈ V
55 sbcel1g 3939 . . . . . . . . . . . . . 14 (𝑙 ∈ V → ([𝑙 / 𝑗]𝐶 ∈ (0[,]+∞) ↔ 𝑙 / 𝑗𝐶 ∈ (0[,]+∞)))
5654, 55ax-mp 5 . . . . . . . . . . . . 13 ([𝑙 / 𝑗]𝐶 ∈ (0[,]+∞) ↔ 𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
5748, 53, 563imtr3g 283 . . . . . . . . . . . 12 (𝜑 → ((𝑙𝐴𝑘𝑙 / 𝑗𝐵) → 𝑙 / 𝑗𝐶 ∈ (0[,]+∞)))
5857imp 444 . . . . . . . . . . 11 ((𝜑 ∧ (𝑙𝐴𝑘𝑙 / 𝑗𝐵)) → 𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
5943, 44, 45, 58syl12anc 1316 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
6059ralrimiva 2949 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ∀𝑘 𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
61 nfcv 2751 . . . . . . . . . 10 𝑘𝑙 / 𝑗𝐵
6261esumcl 29419 . . . . . . . . 9 ((𝑙 / 𝑗𝐵𝑊 ∧ ∀𝑘 𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞)) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
6342, 60, 62syl2anc 691 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
6431, 35, 36, 63esumsnf 29453 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶 = Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶)
65 esum2d.0 . . . . . . . . 9 𝑘𝐹
66 nfv 1830 . . . . . . . . 9 𝑘(𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏)))
67 nfv 1830 . . . . . . . . . . 11 𝑗 𝑧 = ⟨𝑙, 𝑘
6830nfeq2 2766 . . . . . . . . . . 11 𝑗 𝐹 = 𝑙 / 𝑗𝐶
6967, 68nfim 1813 . . . . . . . . . 10 𝑗(𝑧 = ⟨𝑙, 𝑘⟩ → 𝐹 = 𝑙 / 𝑗𝐶)
70 opeq1 4340 . . . . . . . . . . . 12 (𝑗 = 𝑙 → ⟨𝑗, 𝑘⟩ = ⟨𝑙, 𝑘⟩)
7170eqeq2d 2620 . . . . . . . . . . 11 (𝑗 = 𝑙 → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑧 = ⟨𝑙, 𝑘⟩))
7233eqeq2d 2620 . . . . . . . . . . 11 (𝑗 = 𝑙 → (𝐹 = 𝐶𝐹 = 𝑙 / 𝑗𝐶))
7371, 72imbi12d 333 . . . . . . . . . 10 (𝑗 = 𝑙 → ((𝑧 = ⟨𝑗, 𝑘⟩ → 𝐹 = 𝐶) ↔ (𝑧 = ⟨𝑙, 𝑘⟩ → 𝐹 = 𝑙 / 𝑗𝐶)))
74 esum2d.1 . . . . . . . . . 10 (𝑧 = ⟨𝑗, 𝑘⟩ → 𝐹 = 𝐶)
7569, 73, 74chvar 2250 . . . . . . . . 9 (𝑧 = ⟨𝑙, 𝑘⟩ → 𝐹 = 𝑙 / 𝑗𝐶)
76 vsnid 4156 . . . . . . . . . . . . . . . . 17 𝑗 ∈ {𝑗}
7776a1i 11 . . . . . . . . . . . . . . . 16 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝑗 ∈ {𝑗})
78 simpr 476 . . . . . . . . . . . . . . . 16 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝑘𝐵)
7977, 78opelxpd 5073 . . . . . . . . . . . . . . 15 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → ⟨𝑗, 𝑘⟩ ∈ ({𝑗} × 𝐵))
80 xp2nd 7090 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ({𝑗} × 𝐵) → (2nd𝑧) ∈ 𝐵)
81 xp1st 7089 . . . . . . . . . . . . . . . . . . . . 21 (𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) ∈ {𝑗})
82 fvex 6113 . . . . . . . . . . . . . . . . . . . . . 22 (1st𝑧) ∈ V
8382elsn 4140 . . . . . . . . . . . . . . . . . . . . 21 ((1st𝑧) ∈ {𝑗} ↔ (1st𝑧) = 𝑗)
8481, 83sylib 207 . . . . . . . . . . . . . . . . . . . 20 (𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) = 𝑗)
85 eqop 7099 . . . . . . . . . . . . . . . . . . . 20 (𝑧 ∈ ({𝑗} × 𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ ((1st𝑧) = 𝑗 ∧ (2nd𝑧) = 𝑘)))
8684, 85mpbirand 529 . . . . . . . . . . . . . . . . . . 19 (𝑧 ∈ ({𝑗} × 𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ (2nd𝑧) = 𝑘))
87 eqcom 2617 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑧) = 𝑘𝑘 = (2nd𝑧))
8886, 87syl6bb 275 . . . . . . . . . . . . . . . . . 18 (𝑧 ∈ ({𝑗} × 𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧)))
8988ad2antlr 759 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧)))
9089ralrimiva 2949 . . . . . . . . . . . . . . . 16 (((𝜑𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → ∀𝑘𝐵 (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧)))
91 reu6i 3364 . . . . . . . . . . . . . . . 16 (((2nd𝑧) ∈ 𝐵 ∧ ∀𝑘𝐵 (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧))) → ∃!𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
9280, 90, 91syl2an2 871 . . . . . . . . . . . . . . 15 (((𝜑𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → ∃!𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
9379, 92f1mptrn 28816 . . . . . . . . . . . . . 14 ((𝜑𝑗𝐴) → Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩))
9493ex 449 . . . . . . . . . . . . 13 (𝜑 → (𝑗𝐴 → Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)))
9594sbcimdv 3465 . . . . . . . . . . . 12 (𝜑 → ([𝑙 / 𝑗]𝑗𝐴[𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)))
96 sbcfung 5827 . . . . . . . . . . . . . 14 (𝑙 ∈ V → ([𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)))
97 csbcnv 5228 . . . . . . . . . . . . . . . 16 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)
98 csbmpt12 4934 . . . . . . . . . . . . . . . . . 18 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝑗, 𝑘⟩))
99 csbopg 4358 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ V → 𝑙 / 𝑗𝑗, 𝑘⟩ = ⟨𝑙 / 𝑗𝑗, 𝑙 / 𝑗𝑘⟩)
100 csbvarg 3955 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 ∈ V → 𝑙 / 𝑗𝑗 = 𝑙)
101 csbconstg 3512 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 ∈ V → 𝑙 / 𝑗𝑘 = 𝑘)
102100, 101opeq12d 4348 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ V → ⟨𝑙 / 𝑗𝑗, 𝑙 / 𝑗𝑘⟩ = ⟨𝑙, 𝑘⟩)
10399, 102eqtrd 2644 . . . . . . . . . . . . . . . . . . 19 (𝑙 ∈ V → 𝑙 / 𝑗𝑗, 𝑘⟩ = ⟨𝑙, 𝑘⟩)
104103mpteq2dv 4673 . . . . . . . . . . . . . . . . . 18 (𝑙 ∈ V → (𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
10598, 104eqtrd 2644 . . . . . . . . . . . . . . . . 17 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
106105cnveqd 5220 . . . . . . . . . . . . . . . 16 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
10797, 106syl5eqr 2658 . . . . . . . . . . . . . . 15 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
108107funeqd 5825 . . . . . . . . . . . . . 14 (𝑙 ∈ V → (Fun 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩)))
10996, 108bitrd 267 . . . . . . . . . . . . 13 (𝑙 ∈ V → ([𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩)))
11054, 109ax-mp 5 . . . . . . . . . . . 12 ([𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
11195, 50, 1103imtr3g 283 . . . . . . . . . . 11 (𝜑 → (𝑙𝐴 → Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩)))
112111imp 444 . . . . . . . . . 10 ((𝜑𝑙𝐴) → Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
11337, 112syldan 486 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
114 vsnid 4156 . . . . . . . . . . 11 𝑙 ∈ {𝑙}
115114a1i 11 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑙 ∈ {𝑙})
116115, 45opelxpd 5073 . . . . . . . . 9 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → ⟨𝑙, 𝑘⟩ ∈ ({𝑙} × 𝑙 / 𝑗𝐵))
11765, 66, 61, 75, 42, 113, 59, 116esumc 29440 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 = Σ*𝑧 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}𝐹)
118 nfab1 2753 . . . . . . . . . 10 𝑡{𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}
119 nfcv 2751 . . . . . . . . . 10 𝑡({𝑙} × 𝑙 / 𝑗𝐵)
120 opeq1 4340 . . . . . . . . . . . . . 14 (𝑖 = 𝑙 → ⟨𝑖, 𝑘⟩ = ⟨𝑙, 𝑘⟩)
121120eqeq2d 2620 . . . . . . . . . . . . 13 (𝑖 = 𝑙 → (𝑡 = ⟨𝑖, 𝑘⟩ ↔ 𝑡 = ⟨𝑙, 𝑘⟩))
122121rexbidv 3034 . . . . . . . . . . . 12 (𝑖 = 𝑙 → (∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑖, 𝑘⟩ ↔ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩))
12354, 122rexsn 4170 . . . . . . . . . . 11 (∃𝑖 ∈ {𝑙}∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑖, 𝑘⟩ ↔ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩)
124 elxp2 5056 . . . . . . . . . . 11 (𝑡 ∈ ({𝑙} × 𝑙 / 𝑗𝐵) ↔ ∃𝑖 ∈ {𝑙}∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑖, 𝑘⟩)
125 abid 2598 . . . . . . . . . . 11 (𝑡 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} ↔ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩)
126123, 124, 1253bitr4ri 292 . . . . . . . . . 10 (𝑡 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} ↔ 𝑡 ∈ ({𝑙} × 𝑙 / 𝑗𝐵))
127118, 119, 126eqri 28735 . . . . . . . . 9 {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} = ({𝑙} × 𝑙 / 𝑗𝐵)
128 esumeq1 29423 . . . . . . . . 9 ({𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} = ({𝑙} × 𝑙 / 𝑗𝐵) → Σ*𝑧 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}𝐹 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
129127, 128ax-mp 5 . . . . . . . 8 Σ*𝑧 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}𝐹 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹
130117, 129syl6eq 2660 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
13164, 130eqtrd 2644 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
132131adantr 480 . . . . 5 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
13328, 132oveq12d 6567 . . . 4 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 +𝑒 Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶) = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
134 nfv 1830 . . . . . 6 𝑗(𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏)))
135 nfcv 2751 . . . . . 6 𝑗𝑏
136 nfcv 2751 . . . . . 6 𝑗{𝑙}
137 vex 3176 . . . . . . 7 𝑏 ∈ V
138137a1i 11 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑏 ∈ V)
139 snex 4835 . . . . . . 7 {𝑙} ∈ V
140139a1i 11 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → {𝑙} ∈ V)
14136eldifbd 3553 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ¬ 𝑙𝑏)
142 disjsn 4192 . . . . . . 7 ((𝑏 ∩ {𝑙}) = ∅ ↔ ¬ 𝑙𝑏)
143141, 142sylibr 223 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → (𝑏 ∩ {𝑙}) = ∅)
144 simpll 786 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝜑)
145 simprl 790 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑏𝐴)
146145sselda 3568 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝑗𝐴)
14746anassrs 678 . . . . . . . . 9 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝐶 ∈ (0[,]+∞))
148147ralrimiva 2949 . . . . . . . 8 ((𝜑𝑗𝐴) → ∀𝑘𝐵 𝐶 ∈ (0[,]+∞))
149 nfcv 2751 . . . . . . . . 9 𝑘𝐵
150149esumcl 29419 . . . . . . . 8 ((𝐵𝑊 ∧ ∀𝑘𝐵 𝐶 ∈ (0[,]+∞)) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
15138, 148, 150syl2anc 691 . . . . . . 7 ((𝜑𝑗𝐴) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
152144, 146, 151syl2anc 691 . . . . . 6 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
153 simpll 786 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 ∈ {𝑙}) → 𝜑)
15437snssd 4281 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → {𝑙} ⊆ 𝐴)
155154sselda 3568 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 ∈ {𝑙}) → 𝑗𝐴)
156153, 155, 151syl2anc 691 . . . . . 6 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 ∈ {𝑙}) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
157134, 135, 136, 138, 140, 143, 152, 156esumsplit 29442 . . . . 5 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 +𝑒 Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶))
158157adantr 480 . . . 4 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 +𝑒 Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶))
159 iunxun 4541 . . . . . . . 8 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ 𝑗 ∈ {𝑙} ({𝑗} × 𝐵))
160136, 29nfxp 5066 . . . . . . . . . . 11 𝑗({𝑙} × 𝑙 / 𝑗𝐵)
161 sneq 4135 . . . . . . . . . . . 12 (𝑗 = 𝑙 → {𝑗} = {𝑙})
162161, 32xpeq12d 5064 . . . . . . . . . . 11 (𝑗 = 𝑙 → ({𝑗} × 𝐵) = ({𝑙} × 𝑙 / 𝑗𝐵))
163160, 162iunxsngf 28758 . . . . . . . . . 10 (𝑙 ∈ V → 𝑗 ∈ {𝑙} ({𝑗} × 𝐵) = ({𝑙} × 𝑙 / 𝑗𝐵))
16454, 163ax-mp 5 . . . . . . . . 9 𝑗 ∈ {𝑙} ({𝑗} × 𝐵) = ({𝑙} × 𝑙 / 𝑗𝐵)
165164uneq2i 3726 . . . . . . . 8 ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ 𝑗 ∈ {𝑙} ({𝑗} × 𝐵)) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))
166159, 165eqtri 2632 . . . . . . 7 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))
167 esumeq1 29423 . . . . . . 7 ( 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵)) → Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))𝐹)
168166, 167ax-mp 5 . . . . . 6 Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))𝐹
169 nfv 1830 . . . . . . 7 𝑧(𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏)))
170 nfcv 2751 . . . . . . 7 𝑧 𝑗𝑏 ({𝑗} × 𝐵)
171 nfcv 2751 . . . . . . 7 𝑧({𝑙} × 𝑙 / 𝑗𝐵)
172 snex 4835 . . . . . . . . . 10 {𝑗} ∈ V
173146, 39syldan 486 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝐵𝑊)
174 xpexg 6858 . . . . . . . . . 10 (({𝑗} ∈ V ∧ 𝐵𝑊) → ({𝑗} × 𝐵) ∈ V)
175172, 173, 174sylancr 694 . . . . . . . . 9 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → ({𝑗} × 𝐵) ∈ V)
176175ralrimiva 2949 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ∀𝑗𝑏 ({𝑗} × 𝐵) ∈ V)
177 iunexg 7035 . . . . . . . 8 ((𝑏 ∈ V ∧ ∀𝑗𝑏 ({𝑗} × 𝐵) ∈ V) → 𝑗𝑏 ({𝑗} × 𝐵) ∈ V)
178137, 176, 177sylancr 694 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑗𝑏 ({𝑗} × 𝐵) ∈ V)
179 xpexg 6858 . . . . . . . 8 (({𝑙} ∈ V ∧ 𝑙 / 𝑗𝐵𝑊) → ({𝑙} × 𝑙 / 𝑗𝐵) ∈ V)
180139, 42, 179sylancr 694 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ({𝑙} × 𝑙 / 𝑗𝐵) ∈ V)
181 simpr 476 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝑗𝑏)
182141adantr 480 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → ¬ 𝑙𝑏)
183 nelne2 2879 . . . . . . . . . . 11 ((𝑗𝑏 ∧ ¬ 𝑙𝑏) → 𝑗𝑙)
184181, 182, 183syl2anc 691 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝑗𝑙)
185 disjsn2 4193 . . . . . . . . . 10 (𝑗𝑙 → ({𝑗} ∩ {𝑙}) = ∅)
186 xpdisj1 5474 . . . . . . . . . 10 (({𝑗} ∩ {𝑙}) = ∅ → (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ∅)
187184, 185, 1863syl 18 . . . . . . . . 9 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ∅)
188187iuneq2dv 4478 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑗𝑏 (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = 𝑗𝑏 ∅)
189160iunin1f 28757 . . . . . . . 8 𝑗𝑏 (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵))
190 iun0 4512 . . . . . . . 8 𝑗𝑏 ∅ = ∅
191188, 189, 1903eqtr3g 2667 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ( 𝑗𝑏 ({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ∅)
192 simpll 786 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 𝑗𝑏 ({𝑗} × 𝐵)) → 𝜑)
193 iunss1 4468 . . . . . . . . . 10 (𝑏𝐴 𝑗𝑏 ({𝑗} × 𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
194145, 193syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑗𝑏 ({𝑗} × 𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
195194sselda 3568 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 𝑗𝑏 ({𝑗} × 𝐵)) → 𝑧 𝑗𝐴 ({𝑗} × 𝐵))
196 nfv 1830 . . . . . . . . . 10 𝑗𝜑
197 nfiu1 4486 . . . . . . . . . . 11 𝑗 𝑗𝐴 ({𝑗} × 𝐵)
198197nfcri 2745 . . . . . . . . . 10 𝑗 𝑧 𝑗𝐴 ({𝑗} × 𝐵)
199196, 198nfan 1816 . . . . . . . . 9 𝑗(𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵))
200 nfv 1830 . . . . . . . . . 10 𝑘(((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵))
201 nfcv 2751 . . . . . . . . . . 11 𝑘(0[,]+∞)
20265, 201nfel 2763 . . . . . . . . . 10 𝑘 𝐹 ∈ (0[,]+∞)
20374adantl 481 . . . . . . . . . . 11 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝐹 = 𝐶)
204 simp-5l 804 . . . . . . . . . . . 12 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝜑)
205 simp-4r 803 . . . . . . . . . . . 12 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝑗𝐴)
206 simplr 788 . . . . . . . . . . . 12 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝑘𝐵)
207204, 205, 206, 46syl12anc 1316 . . . . . . . . . . 11 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝐶 ∈ (0[,]+∞))
208203, 207eqeltrd 2688 . . . . . . . . . 10 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝐹 ∈ (0[,]+∞))
209 elsnxp 5594 . . . . . . . . . . . 12 (𝑗𝐴 → (𝑧 ∈ ({𝑗} × 𝐵) ↔ ∃𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩))
210209biimpa 500 . . . . . . . . . . 11 ((𝑗𝐴𝑧 ∈ ({𝑗} × 𝐵)) → ∃𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
211210adantll 746 . . . . . . . . . 10 ((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → ∃𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
212200, 202, 208, 211r19.29af2 3057 . . . . . . . . 9 ((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → 𝐹 ∈ (0[,]+∞))
213 simpr 476 . . . . . . . . . 10 ((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) → 𝑧 𝑗𝐴 ({𝑗} × 𝐵))
214 eliun 4460 . . . . . . . . . 10 (𝑧 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝐴 𝑧 ∈ ({𝑗} × 𝐵))
215213, 214sylib 207 . . . . . . . . 9 ((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) → ∃𝑗𝐴 𝑧 ∈ ({𝑗} × 𝐵))
216199, 212, 215r19.29af 3058 . . . . . . . 8 ((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) → 𝐹 ∈ (0[,]+∞))
217192, 195, 216syl2anc 691 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 𝑗𝑏 ({𝑗} × 𝐵)) → 𝐹 ∈ (0[,]+∞))
218 simpll 786 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)) → 𝜑)
219 nfcv 2751 . . . . . . . . . . 11 𝑗𝐴
220 nfcv 2751 . . . . . . . . . . 11 𝑗𝑙
221219, 220, 160, 162ssiun2sf 28760 . . . . . . . . . 10 (𝑙𝐴 → ({𝑙} × 𝑙 / 𝑗𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
22237, 221syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ({𝑙} × 𝑙 / 𝑗𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
223222sselda 3568 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)) → 𝑧 𝑗𝐴 ({𝑗} × 𝐵))
224218, 223, 216syl2anc 691 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)) → 𝐹 ∈ (0[,]+∞))
225169, 170, 171, 178, 180, 191, 217, 224esumsplit 29442 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑧 ∈ ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))𝐹 = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
226168, 225syl5eq 2656 . . . . 5 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
227226adantr 480 . . . 4 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
228133, 158, 2273eqtr4d 2654 . . 3 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹)
229228ex 449 . 2 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹))
230 esum2dlem.e . 2 (𝜑𝐴 ∈ Fin)
2315, 10, 15, 20, 27, 229, 230findcard2d 8087 1 (𝜑 → Σ*𝑗𝐴Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝐴 ({𝑗} × 𝐵)𝐹)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 195  wa 383   = wceq 1475  wcel 1977  {cab 2596  wnfc 2738  wne 2780  wral 2896  wrex 2897  ∃!wreu 2898  Vcvv 3173  [wsbc 3402  csb 3499  cdif 3537  cun 3538  cin 3539  wss 3540  c0 3874  {csn 4125  cop 4131   ciun 4455  cmpt 4643   × cxp 5036  ccnv 5037  Fun wfun 5798  cfv 5804  (class class class)co 6549  1st c1st 7057  2nd c2nd 7058  Fincfn 7841  0cc0 9815  +∞cpnf 9950   +𝑒 cxad 11820  [,]cicc 12049  Σ*cesum 29416
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-inf2 8421  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892  ax-pre-sup 9893  ax-addf 9894  ax-mulf 9895
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-fal 1481  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-iin 4458  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-se 4998  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-isom 5813  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-of 6795  df-om 6958  df-1st 7059  df-2nd 7060  df-supp 7183  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-2o 7448  df-oadd 7451  df-er 7629  df-map 7746  df-pm 7747  df-ixp 7795  df-en 7842  df-dom 7843  df-sdom 7844  df-fin 7845  df-fsupp 8159  df-fi 8200  df-sup 8231  df-inf 8232  df-oi 8298  df-card 8648  df-cda 8873  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-div 10564  df-nn 10898  df-2 10956  df-3 10957  df-4 10958  df-5 10959  df-6 10960  df-7 10961  df-8 10962  df-9 10963  df-n0 11170  df-z 11255  df-dec 11370  df-uz 11564  df-q 11665  df-rp 11709  df-xneg 11822  df-xadd 11823  df-xmul 11824  df-ioo 12050  df-ioc 12051  df-ico 12052  df-icc 12053  df-fz 12198  df-fzo 12335  df-fl 12455  df-mod 12531  df-seq 12664  df-exp 12723  df-fac 12923  df-bc 12952  df-hash 12980  df-shft 13655  df-cj 13687  df-re 13688  df-im 13689  df-sqrt 13823  df-abs 13824  df-limsup 14050  df-clim 14067  df-rlim 14068  df-sum 14265  df-ef 14637  df-sin 14639  df-cos 14640  df-pi 14642  df-struct 15697  df-ndx 15698  df-slot 15699  df-base 15700  df-sets 15701  df-ress 15702  df-plusg 15781  df-mulr 15782  df-starv 15783  df-sca 15784  df-vsca 15785  df-ip 15786  df-tset 15787  df-ple 15788  df-ds 15791  df-unif 15792  df-hom 15793  df-cco 15794  df-rest 15906  df-topn 15907  df-0g 15925  df-gsum 15926  df-topgen 15927  df-pt 15928  df-prds 15931  df-ordt 15984  df-xrs 15985  df-qtop 15990  df-imas 15991  df-xps 15993  df-mre 16069  df-mrc 16070  df-acs 16072  df-ps 17023  df-tsr 17024  df-plusf 17064  df-mgm 17065  df-sgrp 17107  df-mnd 17118  df-mhm 17158  df-submnd 17159  df-grp 17248  df-minusg 17249  df-sbg 17250  df-mulg 17364  df-subg 17414  df-cntz 17573  df-cmn 18018  df-abl 18019  df-mgp 18313  df-ur 18325  df-ring 18372  df-cring 18373  df-subrg 18601  df-abv 18640  df-lmod 18688  df-scaf 18689  df-sra 18993  df-rgmod 18994  df-psmet 19559  df-xmet 19560  df-met 19561  df-bl 19562  df-mopn 19563  df-fbas 19564  df-fg 19565  df-cnfld 19568  df-top 20521  df-bases 20522  df-topon 20523  df-topsp 20524  df-cld 20633  df-ntr 20634  df-cls 20635  df-nei 20712  df-lp 20750  df-perf 20751  df-cn 20841  df-cnp 20842  df-haus 20929  df-tx 21175  df-hmeo 21368  df-fil 21460  df-fm 21552  df-flim 21553  df-flf 21554  df-tmd 21686  df-tgp 21687  df-tsms 21740  df-trg 21773  df-xms 21935  df-ms 21936  df-tms 21937  df-nm 22197  df-ngp 22198  df-nrg 22200  df-nlm 22201  df-ii 22488  df-cncf 22489  df-limc 23436  df-dv 23437  df-log 24107  df-esum 29417
This theorem is referenced by:  esum2d  29482
  Copyright terms: Public domain W3C validator