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

Theorem esumsnf 34615
Description: The extended sum of a singleton is the term. (Contributed by Thierry Arnoux, 2-Jan-2017.) (Revised by Thierry Arnoux, 2-May-2020.)
Hypotheses
Ref Expression
esumsnf.0 𝑘𝐵
esumsnf.1 ((𝜑𝑘 = 𝑀) → 𝐴 = 𝐵)
esumsnf.2 (𝜑𝑀𝑉)
esumsnf.3 (𝜑𝐵 ∈ (0[,]+∞))
Assertion
Ref Expression
esumsnf (𝜑 → Σ*𝑘 ∈ {𝑀}𝐴 = 𝐵)
Distinct variable groups:   𝑘,𝑀   𝜑,𝑘
Allowed substitution hints:   𝐴(𝑘)   𝐵(𝑘)   𝑉(𝑘)

Proof of Theorem esumsnf
Dummy variables 𝑥 𝑙 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-esum 34579 . . 3 Σ*𝑘 ∈ {𝑀}𝐴 = ((ℝ*𝑠s (0[,]+∞)) tsums (𝑘 ∈ {𝑀} ↦ 𝐴))
21a1i 11 . 2 (𝜑 → Σ*𝑘 ∈ {𝑀}𝐴 = ((ℝ*𝑠s (0[,]+∞)) tsums (𝑘 ∈ {𝑀} ↦ 𝐴)))
3 eqid 2760 . . . 4 (ℝ*𝑠s (0[,]+∞)) = (ℝ*𝑠s (0[,]+∞))
4 snfi 9050 . . . . 5 {𝑀} ∈ Fin
54a1i 11 . . . 4 (𝜑 → {𝑀} ∈ Fin)
6 elsni 4601 . . . . . . . . 9 (𝑘 ∈ {𝑀} → 𝑘 = 𝑀)
7 esumsnf.1 . . . . . . . . 9 ((𝜑𝑘 = 𝑀) → 𝐴 = 𝐵)
86, 7sylan2 605 . . . . . . . 8 ((𝜑𝑘 ∈ {𝑀}) → 𝐴 = 𝐵)
98mpteq2dva 5198 . . . . . . 7 (𝜑 → (𝑘 ∈ {𝑀} ↦ 𝐴) = (𝑘 ∈ {𝑀} ↦ 𝐵))
10 esumsnf.2 . . . . . . . 8 (𝜑𝑀𝑉)
11 esumsnf.3 . . . . . . . 8 (𝜑𝐵 ∈ (0[,]+∞))
12 fmptsn 7161 . . . . . . . . 9 ((𝑀𝑉𝐵 ∈ (0[,]+∞)) → {⟨𝑀, 𝐵⟩} = (𝑙 ∈ {𝑀} ↦ 𝐵))
13 nfcv 2922 . . . . . . . . . 10 𝑙𝐵
14 esumsnf.0 . . . . . . . . . 10 𝑘𝐵
15 eqidd 2761 . . . . . . . . . 10 (𝑘 = 𝑙𝐵 = 𝐵)
1613, 14, 15cbvmpt 5207 . . . . . . . . 9 (𝑘 ∈ {𝑀} ↦ 𝐵) = (𝑙 ∈ {𝑀} ↦ 𝐵)
1712, 16eqtr4di 2813 . . . . . . . 8 ((𝑀𝑉𝐵 ∈ (0[,]+∞)) → {⟨𝑀, 𝐵⟩} = (𝑘 ∈ {𝑀} ↦ 𝐵))
1810, 11, 17syl2anc 596 . . . . . . 7 (𝜑 → {⟨𝑀, 𝐵⟩} = (𝑘 ∈ {𝑀} ↦ 𝐵))
199, 18eqtr4d 2798 . . . . . 6 (𝜑 → (𝑘 ∈ {𝑀} ↦ 𝐴) = {⟨𝑀, 𝐵⟩})
20 fsng 7127 . . . . . . 7 ((𝑀𝑉𝐵 ∈ (0[,]+∞)) → ((𝑘 ∈ {𝑀} ↦ 𝐴):{𝑀}⟶{𝐵} ↔ (𝑘 ∈ {𝑀} ↦ 𝐴) = {⟨𝑀, 𝐵⟩}))
2110, 11, 20syl2anc 596 . . . . . 6 (𝜑 → ((𝑘 ∈ {𝑀} ↦ 𝐴):{𝑀}⟶{𝐵} ↔ (𝑘 ∈ {𝑀} ↦ 𝐴) = {⟨𝑀, 𝐵⟩}))
2219, 21mpbird 260 . . . . 5 (𝜑 → (𝑘 ∈ {𝑀} ↦ 𝐴):{𝑀}⟶{𝐵})
2311snssd 4747 . . . . 5 (𝜑 → {𝐵} ⊆ (0[,]+∞))
2422, 23fssd 6716 . . . 4 (𝜑 → (𝑘 ∈ {𝑀} ↦ 𝐴):{𝑀}⟶(0[,]+∞))
25 xrltso 13225 . . . . . . 7 < Or ℝ*
2625a1i 11 . . . . . 6 (𝜑 → < Or ℝ*)
27 0xr 11313 . . . . . . 7 0 ∈ ℝ*
2827a1i 11 . . . . . 6 (𝜑 → 0 ∈ ℝ*)
29 elxrge0 13543 . . . . . . . 8 (𝐵 ∈ (0[,]+∞) ↔ (𝐵 ∈ ℝ* ∧ 0 ≤ 𝐵))
3011, 29sylib 221 . . . . . . 7 (𝜑 → (𝐵 ∈ ℝ* ∧ 0 ≤ 𝐵))
3130simpld 500 . . . . . 6 (𝜑𝐵 ∈ ℝ*)
32 suppr 9442 . . . . . 6 (( < Or ℝ* ∧ 0 ∈ ℝ*𝐵 ∈ ℝ*) → sup({0, 𝐵}, ℝ*, < ) = if(𝐵 < 0, 0, 𝐵))
3326, 28, 31, 32syl3anc 1398 . . . . 5 (𝜑 → sup({0, 𝐵}, ℝ*, < ) = if(𝐵 < 0, 0, 𝐵))
34 0fi 9049 . . . . . . . . . . 11 ∅ ∈ Fin
3534a1i 11 . . . . . . . . . 10 (𝜑 → ∅ ∈ Fin)
36 reseq2 5962 . . . . . . . . . . . . . 14 (𝑥 = ∅ → ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥) = ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ ∅))
37 res0 5971 . . . . . . . . . . . . . 14 ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ ∅) = ∅
3836, 37eqtrdi 2811 . . . . . . . . . . . . 13 (𝑥 = ∅ → ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥) = ∅)
3938oveq2d 7425 . . . . . . . . . . . 12 (𝑥 = ∅ → ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥)) = ((ℝ*𝑠s (0[,]+∞)) Σg ∅))
40 xrge00 33494 . . . . . . . . . . . . 13 0 = (0g‘(ℝ*𝑠s (0[,]+∞)))
4140gsum0 18820 . . . . . . . . . . . 12 ((ℝ*𝑠s (0[,]+∞)) Σg ∅) = 0
4239, 41eqtrdi 2811 . . . . . . . . . . 11 (𝑥 = ∅ → ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥)) = 0)
4342adantl 487 . . . . . . . . . 10 ((𝜑𝑥 = ∅) → ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥)) = 0)
44 reseq2 5962 . . . . . . . . . . . . 13 (𝑥 = {𝑀} → ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥) = ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ {𝑀}))
45 ssid 3953 . . . . . . . . . . . . . 14 {𝑀} ⊆ {𝑀}
46 resmpt 6028 . . . . . . . . . . . . . 14 ({𝑀} ⊆ {𝑀} → ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ {𝑀}) = (𝑘 ∈ {𝑀} ↦ 𝐴))
4745, 46ax-mp 5 . . . . . . . . . . . . 13 ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ {𝑀}) = (𝑘 ∈ {𝑀} ↦ 𝐴)
4844, 47eqtrdi 2811 . . . . . . . . . . . 12 (𝑥 = {𝑀} → ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥) = (𝑘 ∈ {𝑀} ↦ 𝐴))
4948oveq2d 7425 . . . . . . . . . . 11 (𝑥 = {𝑀} → ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥)) = ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ {𝑀} ↦ 𝐴)))
50 xrge0base 17726 . . . . . . . . . . . 12 (0[,]+∞) = (Base‘(ℝ*𝑠s (0[,]+∞)))
51 xrge0cmn 21697 . . . . . . . . . . . . . 14 (ℝ*𝑠s (0[,]+∞)) ∈ CMnd
52 cmnmnd 19958 . . . . . . . . . . . . . 14 ((ℝ*𝑠s (0[,]+∞)) ∈ CMnd → (ℝ*𝑠s (0[,]+∞)) ∈ Mnd)
5351, 52ax-mp 5 . . . . . . . . . . . . 13 (ℝ*𝑠s (0[,]+∞)) ∈ Mnd
5453a1i 11 . . . . . . . . . . . 12 (𝜑 → (ℝ*𝑠s (0[,]+∞)) ∈ Mnd)
55 nfv 1947 . . . . . . . . . . . 12 𝑘𝜑
5650, 54, 10, 11, 7, 55, 14gsumsnfd 20112 . . . . . . . . . . 11 (𝜑 → ((ℝ*𝑠s (0[,]+∞)) Σg (𝑘 ∈ {𝑀} ↦ 𝐴)) = 𝐵)
5749, 56sylan9eqr 2817 . . . . . . . . . 10 ((𝜑𝑥 = {𝑀}) → ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥)) = 𝐵)
5835, 5, 28, 11, 43, 57fmptpr 7166 . . . . . . . . 9 (𝜑 → {⟨∅, 0⟩, ⟨{𝑀}, 𝐵⟩} = (𝑥 ∈ {∅, {𝑀}} ↦ ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥))))
59 pwsn 4860 . . . . . . . . . . . . 13 𝒫 {𝑀} = {∅, {𝑀}}
60 prssi 4782 . . . . . . . . . . . . . 14 ((∅ ∈ Fin ∧ {𝑀} ∈ Fin) → {∅, {𝑀}} ⊆ Fin)
6134, 4, 60mp2an 705 . . . . . . . . . . . . 13 {∅, {𝑀}} ⊆ Fin
6259, 61eqsstri 3977 . . . . . . . . . . . 12 𝒫 {𝑀} ⊆ Fin
63 dfss2 3917 . . . . . . . . . . . 12 (𝒫 {𝑀} ⊆ Fin ↔ (𝒫 {𝑀} ∩ Fin) = 𝒫 {𝑀})
6462, 63mpbi 233 . . . . . . . . . . 11 (𝒫 {𝑀} ∩ Fin) = 𝒫 {𝑀}
6564, 59eqtri 2783 . . . . . . . . . 10 (𝒫 {𝑀} ∩ Fin) = {∅, {𝑀}}
66 eqid 2760 . . . . . . . . . 10 ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥)) = ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥))
6765, 66mpteq12i 5202 . . . . . . . . 9 (𝑥 ∈ (𝒫 {𝑀} ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥))) = (𝑥 ∈ {∅, {𝑀}} ↦ ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥)))
6858, 67eqtr4di 2813 . . . . . . . 8 (𝜑 → {⟨∅, 0⟩, ⟨{𝑀}, 𝐵⟩} = (𝑥 ∈ (𝒫 {𝑀} ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥))))
6968rneqd 5917 . . . . . . 7 (𝜑 → ran {⟨∅, 0⟩, ⟨{𝑀}, 𝐵⟩} = ran (𝑥 ∈ (𝒫 {𝑀} ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥))))
70 rnpropg 6213 . . . . . . . 8 ((∅ ∈ Fin ∧ {𝑀} ∈ Fin) → ran {⟨∅, 0⟩, ⟨{𝑀}, 𝐵⟩} = {0, 𝐵})
7135, 5, 70syl2anc 596 . . . . . . 7 (𝜑 → ran {⟨∅, 0⟩, ⟨{𝑀}, 𝐵⟩} = {0, 𝐵})
7269, 71eqtr3d 2797 . . . . . 6 (𝜑 → ran (𝑥 ∈ (𝒫 {𝑀} ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥))) = {0, 𝐵})
7372supeq1d 9416 . . . . 5 (𝜑 → sup(ran (𝑥 ∈ (𝒫 {𝑀} ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥))), ℝ*, < ) = sup({0, 𝐵}, ℝ*, < ))
7430simprd 501 . . . . . . . . 9 (𝜑 → 0 ≤ 𝐵)
75 xrlenlt 11331 . . . . . . . . . 10 ((0 ∈ ℝ*𝐵 ∈ ℝ*) → (0 ≤ 𝐵 ↔ ¬ 𝐵 < 0))
7628, 31, 75syl2anc 596 . . . . . . . . 9 (𝜑 → (0 ≤ 𝐵 ↔ ¬ 𝐵 < 0))
7774, 76mpbid 235 . . . . . . . 8 (𝜑 → ¬ 𝐵 < 0)
78 eqidd 2761 . . . . . . . 8 (𝜑𝐵 = 𝐵)
7977, 78jca 521 . . . . . . 7 (𝜑 → (¬ 𝐵 < 0 ∧ 𝐵 = 𝐵))
8079olcd 888 . . . . . 6 (𝜑 → ((𝐵 < 0 ∧ 𝐵 = 0) ∨ (¬ 𝐵 < 0 ∧ 𝐵 = 𝐵)))
81 eqif 4524 . . . . . 6 (𝐵 = if(𝐵 < 0, 0, 𝐵) ↔ ((𝐵 < 0 ∧ 𝐵 = 0) ∨ (¬ 𝐵 < 0 ∧ 𝐵 = 𝐵)))
8280, 81sylibr 237 . . . . 5 (𝜑𝐵 = if(𝐵 < 0, 0, 𝐵))
8333, 73, 823eqtr4rd 2806 . . . 4 (𝜑𝐵 = sup(ran (𝑥 ∈ (𝒫 {𝑀} ∩ Fin) ↦ ((ℝ*𝑠s (0[,]+∞)) Σg ((𝑘 ∈ {𝑀} ↦ 𝐴) ↾ 𝑥))), ℝ*, < ))
843, 5, 24, 83xrge0tsmsd 33553 . . 3 (𝜑 → ((ℝ*𝑠s (0[,]+∞)) tsums (𝑘 ∈ {𝑀} ↦ 𝐴)) = {𝐵})
8584unieqd 4880 . 2 (𝜑 ((ℝ*𝑠s (0[,]+∞)) tsums (𝑘 ∈ {𝑀} ↦ 𝐴)) = {𝐵})
86 unisng 4885 . . 3 (𝐵 ∈ (0[,]+∞) → {𝐵} = 𝐵)
8711, 86syl 18 . 2 (𝜑 {𝐵} = 𝐵)
882, 85, 873eqtrd 2799 1 (𝜑 → Σ*𝑘 ∈ {𝑀}𝐴 = 𝐵)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  wo 861   = wceq 1570  wcel 2145  wnfc 2907  cin 3898  wss 3899  c0 4279  ifcif 4482  𝒫 cpw 4557  {csn 4584  {cpr 4586  cop 4590   cuni 4867   class class class wbr 5103  cmpt 5186   Or wor 5555  ran crn 5649  cres 5650  wf 6524  (class class class)co 7409  Fincfn 8952  supcsup 9410  0cc0 11157  +∞cpnf 11297  *cxr 11299   < clt 11300  cle 11301  [,]cicc 13434  s cress 17355   Σg cgsu 17558  *𝑠cxrs 17619  Mndcmnd 18870  CMndccmn 19941   tsums ctsu 24392  Σ*cesum 34578
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 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7735  ax-cnex 11213  ax-resscn 11214  ax-1cn 11215  ax-icn 11216  ax-addcl 11217  ax-addrcl 11218  ax-mulcl 11219  ax-mulrcl 11220  ax-mulcom 11221  ax-addass 11222  ax-mulass 11223  ax-distr 11224  ax-i2m1 11225  ax-1ne0 11226  ax-1rid 11227  ax-rnegex 11228  ax-rrecex 11229  ax-cnre 11230  ax-pre-lttri 11231  ax-pre-lttrn 11232  ax-pre-ltadd 11233  ax-pre-mulgt0 11234  ax-pre-sup 11235
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 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-iin 4954  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5543  df-eprel 5548  df-po 5556  df-so 5557  df-fr 5601  df-se 5602  df-we 5603  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-pred 6294  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6484  df-fun 6530  df-fn 6531  df-f 6532  df-f1 6533  df-fo 6534  df-f1o 6535  df-fv 6536  df-isom 6537  df-riota 7366  df-ov 7412  df-oprab 7413  df-mpo 7414  df-of 7677  df-om 7862  df-1st 7985  df-2nd 7986  df-supp 8157  df-frecs 8278  df-wrecs 8309  df-recs 8358  df-rdg 8397  df-1o 8455  df-2o 8456  df-er 8696  df-map 8828  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-fsupp 9332  df-fi 9381  df-sup 9412  df-inf 9413  df-oi 9482  df-card 9977  df-pnf 11302  df-mnf 11303  df-xr 11304  df-ltxr 11305  df-le 11306  df-sub 11500  df-neg 11501  df-div 11929  df-nn 12291  df-2 12360  df-3 12361  df-4 12362  df-5 12363  df-6 12364  df-7 12365  df-8 12366  df-9 12367  df-n0 12562  df-z 12649  df-dec 12770  df-uz 12921  df-q 13031  df-xadd 13197  df-ioo 13435  df-ioc 13436  df-ico 13437  df-icc 13438  df-fz 13595  df-fzo 13743  df-seq 14099  df-hash 14428  df-struct 17272  df-sets 17289  df-slot 17307  df-ndx 17319  df-base 17335  df-ress 17356  df-plusg 17388  df-mulr 17389  df-tset 17394  df-ple 17395  df-ds 17397  df-rest 17540  df-topn 17541  df-0g 17559  df-gsum 17560  df-topgen 17561  df-ordt 17620  df-xrs 17621  df-mre 17703  df-mrc 17704  df-acs 17706  df-ps 18687  df-tsr 18688  df-mgm 18763  df-sgrp 18855  df-mnd 18871  df-submnd 18926  df-mulg 19225  df-cntz 19478  df-cmn 19943  df-fbas 21622  df-fg 21623  df-top 23159  df-topon 23176  df-topsp 23198  df-bases 23211  df-ntr 23285  df-nei 23363  df-cn 23492  df-haus 23580  df-fil 24112  df-fm 24204  df-flim 24205  df-flf 24206  df-tsms 24393  df-esum 34579
This theorem is used by:  esumsn  34616  esum2dlem  34643
  Copyright terms: Public domain W3C validator