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

Theorem gsumesum 34243
Description: Relate a group sum on (ℝ*𝑠s (0[,]+∞)) to a finite extended sum. (Contributed by Thierry Arnoux, 19-Oct-2017.) (Proof shortened by AV, 12-Dec-2019.)
Hypotheses
Ref Expression
gsumesum.0 𝑘𝜑
gsumesum.1 (𝜑𝐴 ∈ Fin)
gsumesum.2 ((𝜑𝑘𝐴) → 𝐵 ∈ (0[,]+∞))
Assertion
Ref Expression
gsumesum (𝜑 → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) = Σ*𝑘𝐴𝐵)
Distinct variable group:   𝐴,𝑘
Allowed substitution hints:   𝜑(𝑘)   𝐵(𝑘)

Proof of Theorem gsumesum
Dummy variables 𝑎 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 gsumesum.0 . . 3 𝑘𝜑
2 nfcv 2901 . . 3 𝑘𝐴
3 gsumesum.1 . . 3 (𝜑𝐴 ∈ Fin)
4 gsumesum.2 . . 3 ((𝜑𝑘𝐴) → 𝐵 ∈ (0[,]+∞))
5 eqidd 2740 . . 3 ((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))
61, 2, 3, 4, 5esumval 34230 . 2 (𝜑 → Σ*𝑘𝐴𝐵 = sup(ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵))), ℝ*, < ))
7 xrltso 13083 . . . 4 < Or ℝ*
87a1i 11 . . 3 (𝜑 → < Or ℝ*)
9 iccssxr 13374 . . . 4 (0[,]+∞) ⊆ ℝ*
10 xrge0base 17562 . . . . 5 (0[,]+∞) = (Base‘(ℝ*𝑠s (0[,]+∞)))
11 xrge0cmn 21419 . . . . . 6 (ℝ*𝑠s (0[,]+∞)) ∈ CMnd
1211a1i 11 . . . . 5 (𝜑 → (ℝ*𝑠s (0[,]+∞)) ∈ CMnd)
134ex 413 . . . . . 6 (𝜑 → (𝑘𝐴𝐵 ∈ (0[,]+∞)))
141, 13ralrimi 3237 . . . . 5 (𝜑 → ∀𝑘𝐴 𝐵 ∈ (0[,]+∞))
1510, 12, 3, 14gsummptcl 19933 . . . 4 (𝜑 → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) ∈ (0[,]+∞))
169, 15sselid 3913 . . 3 (𝜑 → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) ∈ ℝ*)
17 pwidg 4549 . . . . . . 7 (𝐴 ∈ Fin → 𝐴 ∈ 𝒫 𝐴)
183, 17syl 17 . . . . . 6 (𝜑𝐴 ∈ 𝒫 𝐴)
1918, 3elind 4129 . . . . 5 (𝜑𝐴 ∈ (𝒫 𝐴 ∩ Fin))
20 eqidd 2740 . . . . 5 (𝜑 → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)))
21 mpteq1 5161 . . . . . . 7 (𝑥 = 𝐴 → (𝑘𝑥𝐵) = (𝑘𝐴𝐵))
2221oveq2d 7372 . . . . . 6 (𝑥 = 𝐴 → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)))
2322rspceeqv 3583 . . . . 5 ((𝐴 ∈ (𝒫 𝐴 ∩ Fin) ∧ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵))) → ∃𝑥 ∈ (𝒫 𝐴 ∩ Fin)((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))
2419, 20, 23syl2anc 590 . . . 4 (𝜑 → ∃𝑥 ∈ (𝒫 𝐴 ∩ Fin)((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))
25 eqid 2739 . . . . 5 (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵))) = (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))
26 ovex 7389 . . . . 5 ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)) ∈ V
2725, 26elrnmpti 5904 . . . 4 (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵))) ↔ ∃𝑥 ∈ (𝒫 𝐴 ∩ Fin)((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))
2824, 27sylibr 235 . . 3 (𝜑 → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵))))
29 mpteq1 5161 . . . . . . . . 9 (𝑥 = 𝑎 → (𝑘𝑥𝐵) = (𝑘𝑎𝐵))
3029oveq2d 7372 . . . . . . . 8 (𝑥 = 𝑎 → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)))
3130cbvmptv 5176 . . . . . . 7 (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵))) = (𝑎 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)))
32 ovex 7389 . . . . . . 7 ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ∈ V
3331, 32elrnmpti 5904 . . . . . 6 (𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵))) ↔ ∃𝑎 ∈ (𝒫 𝐴 ∩ Fin)𝑦 = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)))
3433bilani 505 . . . . 5 ((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) → ∃𝑎 ∈ (𝒫 𝐴 ∩ Fin)𝑦 = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)))
3511a1i 11 . . . . . . . . . . 11 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → (ℝ*𝑠s (0[,]+∞)) ∈ CMnd)
36 inss2 4166 . . . . . . . . . . . 12 (𝒫 𝐴 ∩ Fin) ⊆ Fin
37 simpr 485 . . . . . . . . . . . 12 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → 𝑎 ∈ (𝒫 𝐴 ∩ Fin))
3836, 37sselid 3913 . . . . . . . . . . 11 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → 𝑎 ∈ Fin)
39 nfv 1921 . . . . . . . . . . . . 13 𝑘 𝑎 ∈ (𝒫 𝐴 ∩ Fin)
401, 39nfan 1906 . . . . . . . . . . . 12 𝑘(𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin))
41 simpll 772 . . . . . . . . . . . . . 14 (((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑎) → 𝜑)
42 inss1 4165 . . . . . . . . . . . . . . . . . 18 (𝒫 𝐴 ∩ Fin) ⊆ 𝒫 𝐴
4342sseli 3911 . . . . . . . . . . . . . . . . 17 (𝑎 ∈ (𝒫 𝐴 ∩ Fin) → 𝑎 ∈ 𝒫 𝐴)
4443elpwid 4538 . . . . . . . . . . . . . . . 16 (𝑎 ∈ (𝒫 𝐴 ∩ Fin) → 𝑎𝐴)
4544ad2antlr 733 . . . . . . . . . . . . . . 15 (((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑎) → 𝑎𝐴)
46 simpr 485 . . . . . . . . . . . . . . 15 (((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑎) → 𝑘𝑎)
4745, 46sseldd 3916 . . . . . . . . . . . . . 14 (((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑎) → 𝑘𝐴)
4841, 47, 4syl2anc 590 . . . . . . . . . . . . 13 (((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑎) → 𝐵 ∈ (0[,]+∞))
4948ex 413 . . . . . . . . . . . 12 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → (𝑘𝑎𝐵 ∈ (0[,]+∞)))
5040, 49ralrimi 3237 . . . . . . . . . . 11 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → ∀𝑘𝑎 𝐵 ∈ (0[,]+∞))
5110, 35, 38, 50gsummptcl 19933 . . . . . . . . . 10 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ∈ (0[,]+∞))
529, 51sselid 3913 . . . . . . . . 9 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ∈ ℝ*)
53 diffi 9099 . . . . . . . . . . . . 13 (𝐴 ∈ Fin → (𝐴𝑎) ∈ Fin)
543, 53syl 17 . . . . . . . . . . . 12 (𝜑 → (𝐴𝑎) ∈ Fin)
5554adantr 481 . . . . . . . . . . 11 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → (𝐴𝑎) ∈ Fin)
56 simpll 772 . . . . . . . . . . . . . 14 (((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘 ∈ (𝐴𝑎)) → 𝜑)
57 simpr 485 . . . . . . . . . . . . . . 15 (((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘 ∈ (𝐴𝑎)) → 𝑘 ∈ (𝐴𝑎))
5857eldifad 3895 . . . . . . . . . . . . . 14 (((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘 ∈ (𝐴𝑎)) → 𝑘𝐴)
5956, 58, 4syl2anc 590 . . . . . . . . . . . . 13 (((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘 ∈ (𝐴𝑎)) → 𝐵 ∈ (0[,]+∞))
6059ex 413 . . . . . . . . . . . 12 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → (𝑘 ∈ (𝐴𝑎) → 𝐵 ∈ (0[,]+∞)))
6140, 60ralrimi 3237 . . . . . . . . . . 11 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → ∀𝑘 ∈ (𝐴𝑎)𝐵 ∈ (0[,]+∞))
6210, 35, 55, 61gsummptcl 19933 . . . . . . . . . 10 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)) ∈ (0[,]+∞))
639, 62sselid 3913 . . . . . . . . 9 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)) ∈ ℝ*)
64 elxrge0 13401 . . . . . . . . . . 11 (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)) ∈ (0[,]+∞) ↔ (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)) ∈ ℝ* ∧ 0 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵))))
6564simprbi 498 . . . . . . . . . 10 (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)) ∈ (0[,]+∞) → 0 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)))
6662, 65syl 17 . . . . . . . . 9 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → 0 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)))
67 xraddge02 32849 . . . . . . . . . 10 ((((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ∈ ℝ* ∧ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)) ∈ ℝ*) → (0 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) +𝑒 ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)))))
6867imp 407 . . . . . . . . 9 (((((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ∈ ℝ* ∧ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)) ∈ ℝ*) ∧ 0 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵))) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) +𝑒 ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵))))
6952, 63, 66, 68syl21anc 843 . . . . . . . 8 ((𝜑𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) +𝑒 ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵))))
7069adantlr 721 . . . . . . 7 (((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) ∧ 𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) +𝑒 ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵))))
71 simpll 772 . . . . . . . 8 (((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) ∧ 𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → 𝜑)
7244adantl 482 . . . . . . . 8 (((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) ∧ 𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → 𝑎𝐴)
73 xrge00 33093 . . . . . . . . . 10 0 = (0g‘(ℝ*𝑠s (0[,]+∞)))
74 xrge0plusg 21414 . . . . . . . . . 10 +𝑒 = (+g‘(ℝ*𝑠s (0[,]+∞)))
7511a1i 11 . . . . . . . . . 10 ((𝜑𝑎𝐴) → (ℝ*𝑠s (0[,]+∞)) ∈ CMnd)
763adantr 481 . . . . . . . . . 10 ((𝜑𝑎𝐴) → 𝐴 ∈ Fin)
77 eqid 2739 . . . . . . . . . . . 12 (𝑘𝐴𝐵) = (𝑘𝐴𝐵)
781, 4, 77fmptdf 7058 . . . . . . . . . . 11 (𝜑 → (𝑘𝐴𝐵):𝐴⟶(0[,]+∞))
7978adantr 481 . . . . . . . . . 10 ((𝜑𝑎𝐴) → (𝑘𝐴𝐵):𝐴⟶(0[,]+∞))
8077fnmpt 6625 . . . . . . . . . . . . 13 (∀𝑘𝐴 𝐵 ∈ (0[,]+∞) → (𝑘𝐴𝐵) Fn 𝐴)
8114, 80syl 17 . . . . . . . . . . . 12 (𝜑 → (𝑘𝐴𝐵) Fn 𝐴)
82 c0ex 11129 . . . . . . . . . . . . 13 0 ∈ V
8382a1i 11 . . . . . . . . . . . 12 (𝜑 → 0 ∈ V)
8481, 3, 83fndmfifsupp 9281 . . . . . . . . . . 11 (𝜑 → (𝑘𝐴𝐵) finSupp 0)
8584adantr 481 . . . . . . . . . 10 ((𝜑𝑎𝐴) → (𝑘𝐴𝐵) finSupp 0)
86 disjdif 4400 . . . . . . . . . . 11 (𝑎 ∩ (𝐴𝑎)) = ∅
8786a1i 11 . . . . . . . . . 10 ((𝜑𝑎𝐴) → (𝑎 ∩ (𝐴𝑎)) = ∅)
88 undif 4410 . . . . . . . . . . . . 13 (𝑎𝐴 ↔ (𝑎 ∪ (𝐴𝑎)) = 𝐴)
8988biimpi 217 . . . . . . . . . . . 12 (𝑎𝐴 → (𝑎 ∪ (𝐴𝑎)) = 𝐴)
9089eqcomd 2745 . . . . . . . . . . 11 (𝑎𝐴𝐴 = (𝑎 ∪ (𝐴𝑎)))
9190adantl 482 . . . . . . . . . 10 ((𝜑𝑎𝐴) → 𝐴 = (𝑎 ∪ (𝐴𝑎)))
9210, 73, 74, 75, 76, 79, 85, 87, 91gsumsplit 19894 . . . . . . . . 9 ((𝜑𝑎𝐴) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) = (((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘𝐴𝐵) ↾ 𝑎)) +𝑒 ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘𝐴𝐵) ↾ (𝐴𝑎)))))
93 resmpt 5989 . . . . . . . . . . . 12 (𝑎𝐴 → ((𝑘𝐴𝐵) ↾ 𝑎) = (𝑘𝑎𝐵))
9493oveq2d 7372 . . . . . . . . . . 11 (𝑎𝐴 → ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘𝐴𝐵) ↾ 𝑎)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)))
9594adantl 482 . . . . . . . . . 10 ((𝜑𝑎𝐴) → ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘𝐴𝐵) ↾ 𝑎)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)))
96 difss 4066 . . . . . . . . . . . . 13 (𝐴𝑎) ⊆ 𝐴
97 resmpt 5989 . . . . . . . . . . . . 13 ((𝐴𝑎) ⊆ 𝐴 → ((𝑘𝐴𝐵) ↾ (𝐴𝑎)) = (𝑘 ∈ (𝐴𝑎) ↦ 𝐵))
9896, 97ax-mp 5 . . . . . . . . . . . 12 ((𝑘𝐴𝐵) ↾ (𝐴𝑎)) = (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)
9998oveq2i 7367 . . . . . . . . . . 11 ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘𝐴𝐵) ↾ (𝐴𝑎))) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵))
10099a1i 11 . . . . . . . . . 10 ((𝜑𝑎𝐴) → ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘𝐴𝐵) ↾ (𝐴𝑎))) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵)))
10195, 100oveq12d 7374 . . . . . . . . 9 ((𝜑𝑎𝐴) → (((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘𝐴𝐵) ↾ 𝑎)) +𝑒 ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘𝐴𝐵) ↾ (𝐴𝑎)))) = (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) +𝑒 ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵))))
10292, 101eqtrd 2774 . . . . . . . 8 ((𝜑𝑎𝐴) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) = (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) +𝑒 ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵))))
10371, 72, 102syl2anc 590 . . . . . . 7 (((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) ∧ 𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) = (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) +𝑒 ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ (𝐴𝑎) ↦ 𝐵))))
10470, 103breqtrrd 5100 . . . . . 6 (((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) ∧ 𝑎 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)))
105104ralrimiva 3131 . . . . 5 ((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) → ∀𝑎 ∈ (𝒫 𝐴 ∩ Fin)((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)))
106 r19.29r 3103 . . . . . 6 ((∃𝑎 ∈ (𝒫 𝐴 ∩ Fin)𝑦 = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ∧ ∀𝑎 ∈ (𝒫 𝐴 ∩ Fin)((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵))) → ∃𝑎 ∈ (𝒫 𝐴 ∩ Fin)(𝑦 = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ∧ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵))))
107 breq1 5075 . . . . . . . 8 (𝑦 = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) → (𝑦 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) ↔ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵))))
108107biimpar 478 . . . . . . 7 ((𝑦 = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ∧ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵))) → 𝑦 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)))
109108rexlimivw 3136 . . . . . 6 (∃𝑎 ∈ (𝒫 𝐴 ∩ Fin)(𝑦 = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ∧ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵))) → 𝑦 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)))
110106, 109syl 17 . . . . 5 ((∃𝑎 ∈ (𝒫 𝐴 ∩ Fin)𝑦 = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ∧ ∀𝑎 ∈ (𝒫 𝐴 ∩ Fin)((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑎𝐵)) ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵))) → 𝑦 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)))
11134, 105, 110syl2anc 590 . . . 4 ((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) → 𝑦 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)))
11216adantr 481 . . . . 5 ((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) ∈ ℝ*)
11311a1i 11 . . . . . . . . . 10 ((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) → (ℝ*𝑠s (0[,]+∞)) ∈ CMnd)
114 simpr 485 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) → 𝑥 ∈ (𝒫 𝐴 ∩ Fin))
11536, 114sselid 3913 . . . . . . . . . 10 ((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) → 𝑥 ∈ Fin)
116 nfv 1921 . . . . . . . . . . . 12 𝑘 𝑥 ∈ (𝒫 𝐴 ∩ Fin)
1171, 116nfan 1906 . . . . . . . . . . 11 𝑘(𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin))
118 simpll 772 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑥) → 𝜑)
11942sseli 3911 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (𝒫 𝐴 ∩ Fin) → 𝑥 ∈ 𝒫 𝐴)
120119ad2antlr 733 . . . . . . . . . . . . . . 15 (((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑥) → 𝑥 ∈ 𝒫 𝐴)
121120elpwid 4538 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑥) → 𝑥𝐴)
122 simpr 485 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑥) → 𝑘𝑥)
123121, 122sseldd 3916 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑥) → 𝑘𝐴)
124118, 123, 4syl2anc 590 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) ∧ 𝑘𝑥) → 𝐵 ∈ (0[,]+∞))
125124ex 413 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) → (𝑘𝑥𝐵 ∈ (0[,]+∞)))
126117, 125ralrimi 3237 . . . . . . . . . 10 ((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) → ∀𝑘𝑥 𝐵 ∈ (0[,]+∞))
12710, 113, 115, 126gsummptcl 19933 . . . . . . . . 9 ((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)) ∈ (0[,]+∞))
1289, 127sselid 3913 . . . . . . . 8 ((𝜑𝑥 ∈ (𝒫 𝐴 ∩ Fin)) → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)) ∈ ℝ*)
129128ralrimiva 3131 . . . . . . 7 (𝜑 → ∀𝑥 ∈ (𝒫 𝐴 ∩ Fin)((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)) ∈ ℝ*)
13025rnmptss 7064 . . . . . . 7 (∀𝑥 ∈ (𝒫 𝐴 ∩ Fin)((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)) ∈ ℝ* → ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵))) ⊆ ℝ*)
131129, 130syl 17 . . . . . 6 (𝜑 → ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵))) ⊆ ℝ*)
132131sselda 3915 . . . . 5 ((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) → 𝑦 ∈ ℝ*)
133 xrltnle 11203 . . . . . 6 ((((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) ∈ ℝ*𝑦 ∈ ℝ*) → (((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) < 𝑦 ↔ ¬ 𝑦 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵))))
134133con2bid 355 . . . . 5 ((((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) ∈ ℝ*𝑦 ∈ ℝ*) → (𝑦 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) ↔ ¬ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) < 𝑦))
135112, 132, 134syl2anc 590 . . . 4 ((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) → (𝑦 ≤ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) ↔ ¬ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) < 𝑦))
136111, 135mpbid 233 . . 3 ((𝜑𝑦 ∈ ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵)))) → ¬ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) < 𝑦)
1378, 16, 28, 136supmax 9371 . 2 (𝜑 → sup(ran (𝑥 ∈ (𝒫 𝐴 ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝑥𝐵))), ℝ*, < ) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)))
1386, 137eqtr2d 2775 1 (𝜑 → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘𝐴𝐵)) = Σ*𝑘𝐴𝐵)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396   = wceq 1547  wnf 1790  wcel 2119  wral 3053  wrex 3063  Vcvv 3431  cdif 3880  cun 3881  cin 3882  wss 3883  c0 4261  𝒫 cpw 4529   class class class wbr 5072  cmpt 5153   Or wor 5525  ran crn 5619  cres 5620   Fn wfn 6480  wf 6481  (class class class)co 7356  Fincfn 8883   finSupp cfsupp 9264  supcsup 9343  0cc0 11029  +∞cpnf 11167  *cxr 11169   < clt 11170  cle 11171   +𝑒 cxad 13052  [,]cicc 13292  s cress 17191   Σg cgsu 17394  *𝑠cxrs 17455  CMndccmn 19746  Σ*cesum 34211
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106  ax-pre-sup 11107
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-tp 4560  df-op 4562  df-uni 4839  df-int 4878  df-iun 4923  df-iin 4924  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-se 5572  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-isom 6494  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-of 7620  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8101  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8633  df-map 8765  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9265  df-fi 9314  df-sup 9345  df-inf 9346  df-oi 9415  df-card 9854  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-div 11799  df-nn 12166  df-2 12235  df-3 12236  df-4 12237  df-5 12238  df-6 12239  df-7 12240  df-8 12241  df-9 12242  df-n0 12429  df-z 12516  df-dec 12636  df-uz 12780  df-q 12890  df-xadd 13055  df-ioo 13293  df-ioc 13294  df-ico 13295  df-icc 13296  df-fz 13453  df-fzo 13600  df-seq 13955  df-hash 14284  df-struct 17108  df-sets 17125  df-slot 17143  df-ndx 17155  df-base 17171  df-ress 17192  df-plusg 17224  df-mulr 17225  df-tset 17230  df-ple 17231  df-ds 17233  df-rest 17376  df-topn 17377  df-0g 17395  df-gsum 17396  df-topgen 17397  df-ordt 17456  df-xrs 17457  df-mre 17539  df-mrc 17540  df-acs 17542  df-ps 18523  df-tsr 18524  df-mgm 18599  df-sgrp 18678  df-mnd 18694  df-submnd 18743  df-cntz 19283  df-cmn 19748  df-fbas 21344  df-fg 21345  df-top 22877  df-topon 22894  df-topsp 22916  df-bases 22929  df-ntr 23003  df-nei 23081  df-cn 23210  df-haus 23298  df-fil 23829  df-fm 23921  df-flim 23922  df-flf 23923  df-tsms 24110  df-esum 34212
This theorem is referenced by:  esumlub  34244
  Copyright terms: Public domain W3C validator