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 34270
Description: Lemma for esum2d 34271 (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 34212 . . 3 (𝑎 = ∅ → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶)
2 nfv 1916 . . . 4 𝑧 𝑎 = ∅
3 iuneq1 4965 . . . 4 (𝑎 = ∅ → 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗 ∈ ∅ ({𝑗} × 𝐵))
42, 3esumeq1d 34213 . . 3 (𝑎 = ∅ → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹)
51, 4eqeq12d 2753 . 2 (𝑎 = ∅ → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹))
6 esumeq1 34212 . . 3 (𝑎 = 𝑏 → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗𝑏Σ*𝑘𝐵𝐶)
7 nfv 1916 . . . 4 𝑧 𝑎 = 𝑏
8 iuneq1 4965 . . . 4 (𝑎 = 𝑏 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗𝑏 ({𝑗} × 𝐵))
97, 8esumeq1d 34213 . . 3 (𝑎 = 𝑏 → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹)
106, 9eqeq12d 2753 . 2 (𝑎 = 𝑏 → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹))
11 esumeq1 34212 . . 3 (𝑎 = (𝑏 ∪ {𝑙}) → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶)
12 nfv 1916 . . . 4 𝑧 𝑎 = (𝑏 ∪ {𝑙})
13 iuneq1 4965 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵))
1412, 13esumeq1d 34213 . . 3 (𝑎 = (𝑏 ∪ {𝑙}) → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹)
1511, 14eqeq12d 2753 . 2 (𝑎 = (𝑏 ∪ {𝑙}) → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹))
16 esumeq1 34212 . . 3 (𝑎 = 𝐴 → Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑗𝐴Σ*𝑘𝐵𝐶)
17 nfv 1916 . . . 4 𝑧 𝑎 = 𝐴
18 iuneq1 4965 . . . 4 (𝑎 = 𝐴 𝑗𝑎 ({𝑗} × 𝐵) = 𝑗𝐴 ({𝑗} × 𝐵))
1917, 18esumeq1d 34213 . . 3 (𝑎 = 𝐴 → Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 = Σ*𝑧 𝑗𝐴 ({𝑗} × 𝐵)𝐹)
2016, 19eqeq12d 2753 . 2 (𝑎 = 𝐴 → (Σ*𝑗𝑎Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑎 ({𝑗} × 𝐵)𝐹 ↔ Σ*𝑗𝐴Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝐴 ({𝑗} × 𝐵)𝐹))
21 esumnul 34226 . . . 4 Σ*𝑧 ∈ ∅𝐹 = 0
22 0iun 5020 . . . . 5 𝑗 ∈ ∅ ({𝑗} × 𝐵) = ∅
23 esumeq1 34212 . . . . 5 ( 𝑗 ∈ ∅ ({𝑗} × 𝐵) = ∅ → Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ∅𝐹)
2422, 23ax-mp 5 . . . 4 Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ∅𝐹
25 esumnul 34226 . . . 4 Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = 0
2621, 24, 253eqtr4ri 2771 . . 3 Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹
2726a1i 11 . 2 (𝜑 → Σ*𝑗 ∈ ∅Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ ∅ ({𝑗} × 𝐵)𝐹)
28 simpr 484 . . . . 5 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹)
29 nfcsb1v 3875 . . . . . . . . 9 𝑗𝑙 / 𝑗𝐵
30 nfcsb1v 3875 . . . . . . . . 9 𝑗𝑙 / 𝑗𝐶
3129, 30nfesum2 34219 . . . . . . . 8 𝑗Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶
32 csbeq1a 3865 . . . . . . . . . 10 (𝑗 = 𝑙𝐵 = 𝑙 / 𝑗𝐵)
33 csbeq1a 3865 . . . . . . . . . 10 (𝑗 = 𝑙𝐶 = 𝑙 / 𝑗𝐶)
3432, 33esumeq12d 34211 . . . . . . . . 9 (𝑗 = 𝑙 → Σ*𝑘𝐵𝐶 = Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶)
3534adantl 481 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 = 𝑙) → Σ*𝑘𝐵𝐶 = Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶)
36 simprr 773 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑙 ∈ (𝐴𝑏))
3736eldifad 3915 . . . . . . . . . 10 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑙𝐴)
38 esum2d.3 . . . . . . . . . . . 12 ((𝜑𝑗𝐴) → 𝐵𝑊)
3938adantlr 716 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝐴) → 𝐵𝑊)
4039ralrimiva 3130 . . . . . . . . . 10 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ∀𝑗𝐴 𝐵𝑊)
41 rspcsbela 4392 . . . . . . . . . 10 ((𝑙𝐴 ∧ ∀𝑗𝐴 𝐵𝑊) → 𝑙 / 𝑗𝐵𝑊)
4237, 40, 41syl2anc 585 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑙 / 𝑗𝐵𝑊)
43 simpll 767 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝜑)
4437adantr 480 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑙𝐴)
45 simpr 484 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑘𝑙 / 𝑗𝐵)
46 esum2d.4 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐶 ∈ (0[,]+∞))
4746ex 412 . . . . . . . . . . . . . 14 (𝜑 → ((𝑗𝐴𝑘𝐵) → 𝐶 ∈ (0[,]+∞)))
4847sbcimdv 3811 . . . . . . . . . . . . 13 (𝜑 → ([𝑙 / 𝑗](𝑗𝐴𝑘𝐵) → [𝑙 / 𝑗]𝐶 ∈ (0[,]+∞)))
49 sbcan 3792 . . . . . . . . . . . . . 14 ([𝑙 / 𝑗](𝑗𝐴𝑘𝐵) ↔ ([𝑙 / 𝑗]𝑗𝐴[𝑙 / 𝑗]𝑘𝐵))
50 sbcel1v 3808 . . . . . . . . . . . . . . 15 ([𝑙 / 𝑗]𝑗𝐴𝑙𝐴)
51 sbcel2 4372 . . . . . . . . . . . . . . 15 ([𝑙 / 𝑗]𝑘𝐵𝑘𝑙 / 𝑗𝐵)
5250, 51anbi12i 629 . . . . . . . . . . . . . 14 (([𝑙 / 𝑗]𝑗𝐴[𝑙 / 𝑗]𝑘𝐵) ↔ (𝑙𝐴𝑘𝑙 / 𝑗𝐵))
5349, 52bitri 275 . . . . . . . . . . . . 13 ([𝑙 / 𝑗](𝑗𝐴𝑘𝐵) ↔ (𝑙𝐴𝑘𝑙 / 𝑗𝐵))
54 vex 3446 . . . . . . . . . . . . . 14 𝑙 ∈ V
55 sbcel1g 4370 . . . . . . . . . . . . . 14 (𝑙 ∈ V → ([𝑙 / 𝑗]𝐶 ∈ (0[,]+∞) ↔ 𝑙 / 𝑗𝐶 ∈ (0[,]+∞)))
5654, 55ax-mp 5 . . . . . . . . . . . . 13 ([𝑙 / 𝑗]𝐶 ∈ (0[,]+∞) ↔ 𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
5748, 53, 563imtr3g 295 . . . . . . . . . . . 12 (𝜑 → ((𝑙𝐴𝑘𝑙 / 𝑗𝐵) → 𝑙 / 𝑗𝐶 ∈ (0[,]+∞)))
5857imp 406 . . . . . . . . . . 11 ((𝜑 ∧ (𝑙𝐴𝑘𝑙 / 𝑗𝐵)) → 𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
5943, 44, 45, 58syl12anc 837 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
6059ralrimiva 3130 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ∀𝑘 𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
61 nfcv 2899 . . . . . . . . . 10 𝑘𝑙 / 𝑗𝐵
6261esumcl 34208 . . . . . . . . 9 ((𝑙 / 𝑗𝐵𝑊 ∧ ∀𝑘 𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞)) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
6342, 60, 62syl2anc 585 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 ∈ (0[,]+∞))
6431, 35, 36, 63esumsnf 34242 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶 = Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶)
65 esum2d.0 . . . . . . . . 9 𝑘𝐹
66 nfv 1916 . . . . . . . . 9 𝑘(𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏)))
67 nfv 1916 . . . . . . . . . . 11 𝑗 𝑧 = ⟨𝑙, 𝑘
6830nfeq2 2917 . . . . . . . . . . 11 𝑗 𝐹 = 𝑙 / 𝑗𝐶
6967, 68nfim 1898 . . . . . . . . . 10 𝑗(𝑧 = ⟨𝑙, 𝑘⟩ → 𝐹 = 𝑙 / 𝑗𝐶)
70 opeq1 4831 . . . . . . . . . . . 12 (𝑗 = 𝑙 → ⟨𝑗, 𝑘⟩ = ⟨𝑙, 𝑘⟩)
7170eqeq2d 2748 . . . . . . . . . . 11 (𝑗 = 𝑙 → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑧 = ⟨𝑙, 𝑘⟩))
7233eqeq2d 2748 . . . . . . . . . . 11 (𝑗 = 𝑙 → (𝐹 = 𝐶𝐹 = 𝑙 / 𝑗𝐶))
7371, 72imbi12d 344 . . . . . . . . . 10 (𝑗 = 𝑙 → ((𝑧 = ⟨𝑗, 𝑘⟩ → 𝐹 = 𝐶) ↔ (𝑧 = ⟨𝑙, 𝑘⟩ → 𝐹 = 𝑙 / 𝑗𝐶)))
74 esum2d.1 . . . . . . . . . 10 (𝑧 = ⟨𝑗, 𝑘⟩ → 𝐹 = 𝐶)
7569, 73, 74chvarfv 2248 . . . . . . . . 9 (𝑧 = ⟨𝑙, 𝑘⟩ → 𝐹 = 𝑙 / 𝑗𝐶)
76 vsnid 4622 . . . . . . . . . . . . . . . . 17 𝑗 ∈ {𝑗}
7776a1i 11 . . . . . . . . . . . . . . . 16 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝑗 ∈ {𝑗})
78 simpr 484 . . . . . . . . . . . . . . . 16 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝑘𝐵)
7977, 78opelxpd 5671 . . . . . . . . . . . . . . 15 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → ⟨𝑗, 𝑘⟩ ∈ ({𝑗} × 𝐵))
80 xp2nd 7976 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ({𝑗} × 𝐵) → (2nd𝑧) ∈ 𝐵)
81 xp1st 7975 . . . . . . . . . . . . . . . . . . . . 21 (𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) ∈ {𝑗})
82 fvex 6855 . . . . . . . . . . . . . . . . . . . . . 22 (1st𝑧) ∈ V
8382elsn 4597 . . . . . . . . . . . . . . . . . . . . 21 ((1st𝑧) ∈ {𝑗} ↔ (1st𝑧) = 𝑗)
8481, 83sylib 218 . . . . . . . . . . . . . . . . . . . 20 (𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) = 𝑗)
85 eqop 7985 . . . . . . . . . . . . . . . . . . . 20 (𝑧 ∈ ({𝑗} × 𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ ((1st𝑧) = 𝑗 ∧ (2nd𝑧) = 𝑘)))
8684, 85mpbirand 708 . . . . . . . . . . . . . . . . . . 19 (𝑧 ∈ ({𝑗} × 𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ (2nd𝑧) = 𝑘))
87 eqcom 2744 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑧) = 𝑘𝑘 = (2nd𝑧))
8886, 87bitrdi 287 . . . . . . . . . . . . . . . . . 18 (𝑧 ∈ ({𝑗} × 𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧)))
8988ad2antlr 728 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) → (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧)))
9089ralrimiva 3130 . . . . . . . . . . . . . . . 16 (((𝜑𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → ∀𝑘𝐵 (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧)))
91 reu6i 3688 . . . . . . . . . . . . . . . 16 (((2nd𝑧) ∈ 𝐵 ∧ ∀𝑘𝐵 (𝑧 = ⟨𝑗, 𝑘⟩ ↔ 𝑘 = (2nd𝑧))) → ∃!𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
9280, 90, 91syl2an2 687 . . . . . . . . . . . . . . 15 (((𝜑𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → ∃!𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
9379, 92f1mptrn 32725 . . . . . . . . . . . . . 14 ((𝜑𝑗𝐴) → Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩))
9493ex 412 . . . . . . . . . . . . 13 (𝜑 → (𝑗𝐴 → Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)))
9594sbcimdv 3811 . . . . . . . . . . . 12 (𝜑 → ([𝑙 / 𝑗]𝑗𝐴[𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)))
96 sbcfung 6524 . . . . . . . . . . . . . 14 (𝑙 ∈ V → ([𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)))
97 csbcnv 5840 . . . . . . . . . . . . . . . 16 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩)
98 csbmpt12 5513 . . . . . . . . . . . . . . . . . 18 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝑗, 𝑘⟩))
99 csbopg 4849 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ V → 𝑙 / 𝑗𝑗, 𝑘⟩ = ⟨𝑙 / 𝑗𝑗, 𝑙 / 𝑗𝑘⟩)
100 csbvarg 4388 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 ∈ V → 𝑙 / 𝑗𝑗 = 𝑙)
101 csbconstg 3870 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 ∈ V → 𝑙 / 𝑗𝑘 = 𝑘)
102100, 101opeq12d 4839 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ V → ⟨𝑙 / 𝑗𝑗, 𝑙 / 𝑗𝑘⟩ = ⟨𝑙, 𝑘⟩)
10399, 102eqtrd 2772 . . . . . . . . . . . . . . . . . . 19 (𝑙 ∈ V → 𝑙 / 𝑗𝑗, 𝑘⟩ = ⟨𝑙, 𝑘⟩)
104103mpteq2dv 5194 . . . . . . . . . . . . . . . . . 18 (𝑙 ∈ V → (𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
10598, 104eqtrd 2772 . . . . . . . . . . . . . . . . 17 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
106105cnveqd 5832 . . . . . . . . . . . . . . . 16 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
10797, 106eqtr3id 2786 . . . . . . . . . . . . . . 15 (𝑙 ∈ V → 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) = (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
108107funeqd 6522 . . . . . . . . . . . . . 14 (𝑙 ∈ V → (Fun 𝑙 / 𝑗(𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩)))
10996, 108bitrd 279 . . . . . . . . . . . . 13 (𝑙 ∈ V → ([𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩)))
11054, 109ax-mp 5 . . . . . . . . . . . 12 ([𝑙 / 𝑗]Fun (𝑘𝐵 ↦ ⟨𝑗, 𝑘⟩) ↔ Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
11195, 50, 1103imtr3g 295 . . . . . . . . . . 11 (𝜑 → (𝑙𝐴 → Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩)))
112111imp 406 . . . . . . . . . 10 ((𝜑𝑙𝐴) → Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
11337, 112syldan 592 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Fun (𝑘𝑙 / 𝑗𝐵 ↦ ⟨𝑙, 𝑘⟩))
114 vsnid 4622 . . . . . . . . . . 11 𝑙 ∈ {𝑙}
115114a1i 11 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → 𝑙 ∈ {𝑙})
116115, 45opelxpd 5671 . . . . . . . . 9 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑘𝑙 / 𝑗𝐵) → ⟨𝑙, 𝑘⟩ ∈ ({𝑙} × 𝑙 / 𝑗𝐵))
11765, 66, 61, 75, 42, 113, 59, 116esumc 34229 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 = Σ*𝑧 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}𝐹)
118 nfab1 2901 . . . . . . . . . 10 𝑡{𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}
119 nfcv 2899 . . . . . . . . . 10 𝑡({𝑙} × 𝑙 / 𝑗𝐵)
120 opeq1 4831 . . . . . . . . . . . . . 14 (𝑖 = 𝑙 → ⟨𝑖, 𝑘⟩ = ⟨𝑙, 𝑘⟩)
121120eqeq2d 2748 . . . . . . . . . . . . 13 (𝑖 = 𝑙 → (𝑡 = ⟨𝑖, 𝑘⟩ ↔ 𝑡 = ⟨𝑙, 𝑘⟩))
122121rexbidv 3162 . . . . . . . . . . . 12 (𝑖 = 𝑙 → (∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑖, 𝑘⟩ ↔ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩))
12354, 122rexsn 4641 . . . . . . . . . . 11 (∃𝑖 ∈ {𝑙}∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑖, 𝑘⟩ ↔ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩)
124 elxp2 5656 . . . . . . . . . . 11 (𝑡 ∈ ({𝑙} × 𝑙 / 𝑗𝐵) ↔ ∃𝑖 ∈ {𝑙}∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑖, 𝑘⟩)
125 abid 2719 . . . . . . . . . . 11 (𝑡 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} ↔ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩)
126123, 124, 1253bitr4ri 304 . . . . . . . . . 10 (𝑡 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} ↔ 𝑡 ∈ ({𝑙} × 𝑙 / 𝑗𝐵))
127118, 119, 126eqri 3956 . . . . . . . . 9 {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} = ({𝑙} × 𝑙 / 𝑗𝐵)
128 esumeq1 34212 . . . . . . . . 9 ({𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩} = ({𝑙} × 𝑙 / 𝑗𝐵) → Σ*𝑧 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}𝐹 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
129127, 128ax-mp 5 . . . . . . . 8 Σ*𝑧 ∈ {𝑡 ∣ ∃𝑘 𝑙 / 𝑗𝐵𝑡 = ⟨𝑙, 𝑘⟩}𝐹 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹
130117, 129eqtrdi 2788 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑘𝑙 / 𝑗𝐵𝑙 / 𝑗𝐶 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
13164, 130eqtrd 2772 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
132131adantr 480 . . . . 5 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶 = Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹)
13328, 132oveq12d 7386 . . . 4 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 +𝑒 Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶) = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
134 nfv 1916 . . . . . 6 𝑗(𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏)))
135 nfcv 2899 . . . . . 6 𝑗𝑏
136 nfcv 2899 . . . . . 6 𝑗{𝑙}
137 vex 3446 . . . . . . 7 𝑏 ∈ V
138137a1i 11 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑏 ∈ V)
139 vsnex 5381 . . . . . . 7 {𝑙} ∈ V
140139a1i 11 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → {𝑙} ∈ V)
14136eldifbd 3916 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ¬ 𝑙𝑏)
142 disjsn 4670 . . . . . . 7 ((𝑏 ∩ {𝑙}) = ∅ ↔ ¬ 𝑙𝑏)
143141, 142sylibr 234 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → (𝑏 ∩ {𝑙}) = ∅)
144 simpll 767 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝜑)
145 simprl 771 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑏𝐴)
146145sselda 3935 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝑗𝐴)
14746anassrs 467 . . . . . . . . 9 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝐶 ∈ (0[,]+∞))
148147ralrimiva 3130 . . . . . . . 8 ((𝜑𝑗𝐴) → ∀𝑘𝐵 𝐶 ∈ (0[,]+∞))
149 nfcv 2899 . . . . . . . . 9 𝑘𝐵
150149esumcl 34208 . . . . . . . 8 ((𝐵𝑊 ∧ ∀𝑘𝐵 𝐶 ∈ (0[,]+∞)) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
15138, 148, 150syl2anc 585 . . . . . . 7 ((𝜑𝑗𝐴) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
152144, 146, 151syl2anc 585 . . . . . 6 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
153 simpll 767 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 ∈ {𝑙}) → 𝜑)
15437snssd 4767 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → {𝑙} ⊆ 𝐴)
155154sselda 3935 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 ∈ {𝑙}) → 𝑗𝐴)
156153, 155, 151syl2anc 585 . . . . . 6 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗 ∈ {𝑙}) → Σ*𝑘𝐵𝐶 ∈ (0[,]+∞))
157134, 135, 136, 138, 140, 143, 152, 156esumsplit 34231 . . . . 5 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 +𝑒 Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶))
158157adantr 480 . . . 4 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 +𝑒 Σ*𝑗 ∈ {𝑙*𝑘𝐵𝐶))
159 iunxun 5051 . . . . . . . 8 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ 𝑗 ∈ {𝑙} ({𝑗} × 𝐵))
160136, 29nfxp 5665 . . . . . . . . . . 11 𝑗({𝑙} × 𝑙 / 𝑗𝐵)
161 sneq 4592 . . . . . . . . . . . 12 (𝑗 = 𝑙 → {𝑗} = {𝑙})
162161, 32xpeq12d 5663 . . . . . . . . . . 11 (𝑗 = 𝑙 → ({𝑗} × 𝐵) = ({𝑙} × 𝑙 / 𝑗𝐵))
163160, 162iunxsngf 5049 . . . . . . . . . 10 (𝑙 ∈ V → 𝑗 ∈ {𝑙} ({𝑗} × 𝐵) = ({𝑙} × 𝑙 / 𝑗𝐵))
16454, 163ax-mp 5 . . . . . . . . 9 𝑗 ∈ {𝑙} ({𝑗} × 𝐵) = ({𝑙} × 𝑙 / 𝑗𝐵)
165164uneq2i 4119 . . . . . . . 8 ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ 𝑗 ∈ {𝑙} ({𝑗} × 𝐵)) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))
166159, 165eqtri 2760 . . . . . . 7 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))
167 esumeq1 34212 . . . . . . 7 ( 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵)) → Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))𝐹)
168166, 167ax-mp 5 . . . . . 6 Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = Σ*𝑧 ∈ ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))𝐹
169 nfv 1916 . . . . . . 7 𝑧(𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏)))
170 nfcv 2899 . . . . . . 7 𝑧 𝑗𝑏 ({𝑗} × 𝐵)
171 nfcv 2899 . . . . . . 7 𝑧({𝑙} × 𝑙 / 𝑗𝐵)
172 vsnex 5381 . . . . . . . . . 10 {𝑗} ∈ V
173146, 39syldan 592 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝐵𝑊)
174 xpexg 7705 . . . . . . . . . 10 (({𝑗} ∈ V ∧ 𝐵𝑊) → ({𝑗} × 𝐵) ∈ V)
175172, 173, 174sylancr 588 . . . . . . . . 9 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → ({𝑗} × 𝐵) ∈ V)
176175ralrimiva 3130 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ∀𝑗𝑏 ({𝑗} × 𝐵) ∈ V)
177 iunexg 7917 . . . . . . . 8 ((𝑏 ∈ V ∧ ∀𝑗𝑏 ({𝑗} × 𝐵) ∈ V) → 𝑗𝑏 ({𝑗} × 𝐵) ∈ V)
178137, 176, 177sylancr 588 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑗𝑏 ({𝑗} × 𝐵) ∈ V)
179 xpexg 7705 . . . . . . . 8 (({𝑙} ∈ V ∧ 𝑙 / 𝑗𝐵𝑊) → ({𝑙} × 𝑙 / 𝑗𝐵) ∈ V)
180139, 42, 179sylancr 588 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ({𝑙} × 𝑙 / 𝑗𝐵) ∈ V)
181 simpr 484 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝑗𝑏)
182141adantr 480 . . . . . . . . . . 11 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → ¬ 𝑙𝑏)
183 nelne2 3031 . . . . . . . . . . 11 ((𝑗𝑏 ∧ ¬ 𝑙𝑏) → 𝑗𝑙)
184181, 182, 183syl2anc 585 . . . . . . . . . 10 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → 𝑗𝑙)
185 disjsn2 4671 . . . . . . . . . 10 (𝑗𝑙 → ({𝑗} ∩ {𝑙}) = ∅)
186 xpdisj1 6127 . . . . . . . . . 10 (({𝑗} ∩ {𝑙}) = ∅ → (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ∅)
187184, 185, 1863syl 18 . . . . . . . . 9 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑗𝑏) → (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ∅)
188187iuneq2dv 4973 . . . . . . . 8 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑗𝑏 (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = 𝑗𝑏 ∅)
189160iunin1f 32644 . . . . . . . 8 𝑗𝑏 (({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ( 𝑗𝑏 ({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵))
190 iun0 5019 . . . . . . . 8 𝑗𝑏 ∅ = ∅
191188, 189, 1903eqtr3g 2795 . . . . . . 7 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ( 𝑗𝑏 ({𝑗} × 𝐵) ∩ ({𝑙} × 𝑙 / 𝑗𝐵)) = ∅)
192 simpll 767 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 𝑗𝑏 ({𝑗} × 𝐵)) → 𝜑)
193 iunss1 4963 . . . . . . . . . 10 (𝑏𝐴 𝑗𝑏 ({𝑗} × 𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
194145, 193syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → 𝑗𝑏 ({𝑗} × 𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
195194sselda 3935 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 𝑗𝑏 ({𝑗} × 𝐵)) → 𝑧 𝑗𝐴 ({𝑗} × 𝐵))
196 nfv 1916 . . . . . . . . . 10 𝑗𝜑
197 nfiu1 4984 . . . . . . . . . . 11 𝑗 𝑗𝐴 ({𝑗} × 𝐵)
198197nfcri 2891 . . . . . . . . . 10 𝑗 𝑧 𝑗𝐴 ({𝑗} × 𝐵)
199196, 198nfan 1901 . . . . . . . . 9 𝑗(𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵))
200 nfv 1916 . . . . . . . . . 10 𝑘(((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵))
201 nfcv 2899 . . . . . . . . . . 11 𝑘(0[,]+∞)
20265, 201nfel 2914 . . . . . . . . . 10 𝑘 𝐹 ∈ (0[,]+∞)
20374adantl 481 . . . . . . . . . . 11 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝐹 = 𝐶)
204 simp-5l 785 . . . . . . . . . . . 12 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝜑)
205 simp-4r 784 . . . . . . . . . . . 12 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝑗𝐴)
206 simplr 769 . . . . . . . . . . . 12 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝑘𝐵)
207204, 205, 206, 46syl12anc 837 . . . . . . . . . . 11 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝐶 ∈ (0[,]+∞))
208203, 207eqeltrd 2837 . . . . . . . . . 10 ((((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) ∧ 𝑘𝐵) ∧ 𝑧 = ⟨𝑗, 𝑘⟩) → 𝐹 ∈ (0[,]+∞))
209 elsnxp 6257 . . . . . . . . . . . 12 (𝑗𝐴 → (𝑧 ∈ ({𝑗} × 𝐵) ↔ ∃𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩))
210209biimpa 476 . . . . . . . . . . 11 ((𝑗𝐴𝑧 ∈ ({𝑗} × 𝐵)) → ∃𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
211210adantll 715 . . . . . . . . . 10 ((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → ∃𝑘𝐵 𝑧 = ⟨𝑗, 𝑘⟩)
212200, 202, 208, 211r19.29af2 3246 . . . . . . . . 9 ((((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) ∧ 𝑗𝐴) ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → 𝐹 ∈ (0[,]+∞))
213 simpr 484 . . . . . . . . . 10 ((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) → 𝑧 𝑗𝐴 ({𝑗} × 𝐵))
214 eliun 4952 . . . . . . . . . 10 (𝑧 𝑗𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗𝐴 𝑧 ∈ ({𝑗} × 𝐵))
215213, 214sylib 218 . . . . . . . . 9 ((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) → ∃𝑗𝐴 𝑧 ∈ ({𝑗} × 𝐵))
216199, 212, 215r19.29af 3247 . . . . . . . 8 ((𝜑𝑧 𝑗𝐴 ({𝑗} × 𝐵)) → 𝐹 ∈ (0[,]+∞))
217192, 195, 216syl2anc 585 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 𝑗𝑏 ({𝑗} × 𝐵)) → 𝐹 ∈ (0[,]+∞))
218 simpll 767 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)) → 𝜑)
219 nfcv 2899 . . . . . . . . . . 11 𝑗𝐴
220 nfcv 2899 . . . . . . . . . . 11 𝑗𝑙
221219, 220, 160, 162ssiun2sf 32646 . . . . . . . . . 10 (𝑙𝐴 → ({𝑙} × 𝑙 / 𝑗𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
22237, 221syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ({𝑙} × 𝑙 / 𝑗𝐵) ⊆ 𝑗𝐴 ({𝑗} × 𝐵))
223222sselda 3935 . . . . . . . 8 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)) → 𝑧 𝑗𝐴 ({𝑗} × 𝐵))
224218, 223, 216syl2anc 585 . . . . . . 7 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ 𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)) → 𝐹 ∈ (0[,]+∞))
225169, 170, 171, 178, 180, 191, 217, 224esumsplit 34231 . . . . . 6 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑧 ∈ ( 𝑗𝑏 ({𝑗} × 𝐵) ∪ ({𝑙} × 𝑙 / 𝑗𝐵))𝐹 = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
226168, 225eqtrid 2784 . . . . 5 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
227226adantr 480 . . . 4 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹 = (Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 +𝑒 Σ*𝑧 ∈ ({𝑙} × 𝑙 / 𝑗𝐵)𝐹))
228133, 158, 2273eqtr4d 2782 . . 3 (((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) ∧ Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹) → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹)
229228ex 412 . 2 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → (Σ*𝑗𝑏Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝑏 ({𝑗} × 𝐵)𝐹 → Σ*𝑗 ∈ (𝑏 ∪ {𝑙})Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗 ∈ (𝑏 ∪ {𝑙})({𝑗} × 𝐵)𝐹))
230 esum2dlem.e . 2 (𝜑𝐴 ∈ Fin)
2315, 10, 15, 20, 27, 229, 230findcard2d 9103 1 (𝜑 → Σ*𝑗𝐴Σ*𝑘𝐵𝐶 = Σ*𝑧 𝑗𝐴 ({𝑗} × 𝐵)𝐹)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395   = wceq 1542  wcel 2114  {cab 2715  wnfc 2884  wne 2933  wral 3052  wrex 3062  ∃!wreu 3350  Vcvv 3442  [wsbc 3742  csb 3851  cdif 3900  cun 3901  cin 3902  wss 3903  c0 4287  {csn 4582  cop 4588   ciun 4948  cmpt 5181   × cxp 5630  ccnv 5631  Fun wfun 6494  cfv 6500  (class class class)co 7368  1st c1st 7941  2nd c2nd 7942  Fincfn 8895  0cc0 11038  +∞cpnf 11175   +𝑒 cxad 13036  [,]cicc 13276  Σ*cesum 34205
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690  ax-inf2 9562  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115  ax-pre-sup 11116  ax-addf 11117  ax-mulf 11118
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-iin 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-se 5586  df-we 5587  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-isom 6509  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-of 7632  df-om 7819  df-1st 7943  df-2nd 7944  df-supp 8113  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351  df-1o 8407  df-2o 8408  df-er 8645  df-map 8777  df-pm 8778  df-ixp 8848  df-en 8896  df-dom 8897  df-sdom 8898  df-fin 8899  df-fsupp 9277  df-fi 9326  df-sup 9357  df-inf 9358  df-oi 9427  df-card 9863  df-pnf 11180  df-mnf 11181  df-xr 11182  df-ltxr 11183  df-le 11184  df-sub 11378  df-neg 11379  df-div 11807  df-nn 12158  df-2 12220  df-3 12221  df-4 12222  df-5 12223  df-6 12224  df-7 12225  df-8 12226  df-9 12227  df-n0 12414  df-z 12501  df-dec 12620  df-uz 12764  df-q 12874  df-rp 12918  df-xneg 13038  df-xadd 13039  df-xmul 13040  df-ioo 13277  df-ioc 13278  df-ico 13279  df-icc 13280  df-fz 13436  df-fzo 13583  df-fl 13724  df-mod 13802  df-seq 13937  df-exp 13997  df-fac 14209  df-bc 14238  df-hash 14266  df-shft 15002  df-cj 15034  df-re 15035  df-im 15036  df-sqrt 15170  df-abs 15171  df-limsup 15406  df-clim 15423  df-rlim 15424  df-sum 15622  df-ef 16002  df-sin 16004  df-cos 16005  df-pi 16007  df-struct 17086  df-sets 17103  df-slot 17121  df-ndx 17133  df-base 17149  df-ress 17170  df-plusg 17202  df-mulr 17203  df-starv 17204  df-sca 17205  df-vsca 17206  df-ip 17207  df-tset 17208  df-ple 17209  df-ds 17211  df-unif 17212  df-hom 17213  df-cco 17214  df-rest 17354  df-topn 17355  df-0g 17373  df-gsum 17374  df-topgen 17375  df-pt 17376  df-prds 17379  df-ordt 17434  df-xrs 17435  df-qtop 17440  df-imas 17441  df-xps 17443  df-mre 17517  df-mrc 17518  df-acs 17520  df-ps 18501  df-tsr 18502  df-plusf 18576  df-mgm 18577  df-sgrp 18656  df-mnd 18672  df-mhm 18720  df-submnd 18721  df-grp 18878  df-minusg 18879  df-sbg 18880  df-mulg 19010  df-subg 19065  df-cntz 19258  df-cmn 19723  df-abl 19724  df-mgp 20088  df-rng 20100  df-ur 20129  df-ring 20182  df-cring 20183  df-subrng 20491  df-subrg 20515  df-abv 20754  df-lmod 20825  df-scaf 20826  df-sra 21137  df-rgmod 21138  df-psmet 21313  df-xmet 21314  df-met 21315  df-bl 21316  df-mopn 21317  df-fbas 21318  df-fg 21319  df-cnfld 21322  df-top 22850  df-topon 22867  df-topsp 22889  df-bases 22902  df-cld 22975  df-ntr 22976  df-cls 22977  df-nei 23054  df-lp 23092  df-perf 23093  df-cn 23183  df-cnp 23184  df-haus 23271  df-tx 23518  df-hmeo 23711  df-fil 23802  df-fm 23894  df-flim 23895  df-flf 23896  df-tmd 24028  df-tgp 24029  df-tsms 24083  df-trg 24116  df-xms 24276  df-ms 24277  df-tms 24278  df-nm 24538  df-ngp 24539  df-nrg 24541  df-nlm 24542  df-ii 24838  df-cncf 24839  df-limc 25835  df-dv 25836  df-log 26533  df-esum 34206
This theorem is referenced by:  esum2d  34271
  Copyright terms: Public domain W3C validator