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

Theorem eulerpartlemgs2 34736
Description: Lemma for eulerpart 34738: The 𝐺 function also preserves partition sums. (Contributed by Thierry Arnoux, 10-Sep-2017.)
Hypotheses
Ref Expression
eulerpart.p 𝑃 = {𝑓 ∈ (ℕ0m ℕ) ∣ ((𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓𝑘) · 𝑘) = 𝑁)}
eulerpart.o 𝑂 = {𝑔𝑃 ∣ ∀𝑛 ∈ (𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
eulerpart.d 𝐷 = {𝑔𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔𝑛) ≤ 1}
eulerpart.j 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
eulerpart.f 𝐹 = (𝑥𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
eulerpart.h 𝐻 = {𝑟 ∈ ((𝒫 ℕ0 ∩ Fin) ↑m 𝐽) ∣ (𝑟 supp ∅) ∈ Fin}
eulerpart.m 𝑀 = (𝑟𝐻 ↦ {⟨𝑥, 𝑦⟩ ∣ (𝑥𝐽𝑦 ∈ (𝑟𝑥))})
eulerpart.r 𝑅 = {𝑓 ∣ (𝑓 “ ℕ) ∈ Fin}
eulerpart.t 𝑇 = {𝑓 ∈ (ℕ0m ℕ) ∣ (𝑓 “ ℕ) ⊆ 𝐽}
eulerpart.g 𝐺 = (𝑜 ∈ (𝑇𝑅) ↦ ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜𝐽))))))
eulerpart.s 𝑆 = (𝑓 ∈ ((ℕ0m ℕ) ∩ 𝑅) ↦ Σ𝑘 ∈ ℕ ((𝑓𝑘) · 𝑘))
Assertion
Ref Expression
eulerpartlemgs2 (𝐴 ∈ (𝑇𝑅) → (𝑆‘(𝐺𝐴)) = (𝑆𝐴))
Distinct variable groups:   𝑓,𝑔,𝑘,𝑛,𝑜,𝑥,𝑦,𝑧   𝑓,𝑟,𝐴,𝑔,𝑘,𝑛,𝑜,𝑥,𝑦   𝑓,𝐺,𝑘   𝑛,𝐹,𝑜,𝑥,𝑦   𝑜,𝐻,𝑟   𝑓,𝐽,𝑛,𝑜,𝑟,𝑥,𝑦   𝑛,𝑀,𝑜,𝑟,𝑥,𝑦   𝑓,𝑁,𝑔,𝑘,𝑛,𝑥   𝑛,𝑂,𝑟,𝑥,𝑦   𝑃,𝑔,𝑘,𝑛   𝑅,𝑓,𝑘,𝑛,𝑜,𝑟,𝑥,𝑦   𝑇,𝑓,𝑘,𝑛,𝑜,𝑟,𝑥,𝑦
Allowed substitution hints:   𝐴(𝑧)   𝐷(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)   𝑃(𝑥,𝑦,𝑧,𝑓,𝑜,𝑟)   𝑅(𝑧,𝑔)   𝑆(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)   𝑇(𝑧,𝑔)   𝐹(𝑧,𝑓,𝑔,𝑘,𝑟)   𝐺(𝑥,𝑦,𝑧,𝑔,𝑛,𝑜,𝑟)   𝐻(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑛)   𝐽(𝑧,𝑔,𝑘)   𝑀(𝑧,𝑓,𝑔,𝑘)   𝑁(𝑦,𝑧,𝑜,𝑟)   𝑂(𝑧,𝑓,𝑔,𝑘,𝑜)

Proof of Theorem eulerpartlemgs2
Dummy variables 𝑡 𝑚 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 cnvimass 6084 . . . . . . . 8 ((𝐺𝐴) “ ℕ) ⊆ dom (𝐺𝐴)
2 eulerpart.p . . . . . . . . . . . . . 14 𝑃 = {𝑓 ∈ (ℕ0m ℕ) ∣ ((𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓𝑘) · 𝑘) = 𝑁)}
3 eulerpart.o . . . . . . . . . . . . . 14 𝑂 = {𝑔𝑃 ∣ ∀𝑛 ∈ (𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
4 eulerpart.d . . . . . . . . . . . . . 14 𝐷 = {𝑔𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔𝑛) ≤ 1}
5 eulerpart.j . . . . . . . . . . . . . 14 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
6 eulerpart.f . . . . . . . . . . . . . 14 𝐹 = (𝑥𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
7 eulerpart.h . . . . . . . . . . . . . 14 𝐻 = {𝑟 ∈ ((𝒫 ℕ0 ∩ Fin) ↑m 𝐽) ∣ (𝑟 supp ∅) ∈ Fin}
8 eulerpart.m . . . . . . . . . . . . . 14 𝑀 = (𝑟𝐻 ↦ {⟨𝑥, 𝑦⟩ ∣ (𝑥𝐽𝑦 ∈ (𝑟𝑥))})
9 eulerpart.r . . . . . . . . . . . . . 14 𝑅 = {𝑓 ∣ (𝑓 “ ℕ) ∈ Fin}
10 eulerpart.t . . . . . . . . . . . . . 14 𝑇 = {𝑓 ∈ (ℕ0m ℕ) ∣ (𝑓 “ ℕ) ⊆ 𝐽}
11 eulerpart.g . . . . . . . . . . . . . 14 𝐺 = (𝑜 ∈ (𝑇𝑅) ↦ ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜𝐽))))))
122, 3, 4, 5, 6, 7, 8, 9, 10, 11eulerpartgbij 34728 . . . . . . . . . . . . 13 𝐺:(𝑇𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅)
13 f1of 6820 . . . . . . . . . . . . 13 (𝐺:(𝑇𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅) → 𝐺:(𝑇𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅))
1412, 13ax-mp 5 . . . . . . . . . . . 12 𝐺:(𝑇𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅)
1514ffvelcdmi 7078 . . . . . . . . . . 11 (𝐴 ∈ (𝑇𝑅) → (𝐺𝐴) ∈ (({0, 1} ↑m ℕ) ∩ 𝑅))
16 elin 3920 . . . . . . . . . . 11 ((𝐺𝐴) ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ↔ ((𝐺𝐴) ∈ ({0, 1} ↑m ℕ) ∧ (𝐺𝐴) ∈ 𝑅))
1715, 16sylib 221 . . . . . . . . . 10 (𝐴 ∈ (𝑇𝑅) → ((𝐺𝐴) ∈ ({0, 1} ↑m ℕ) ∧ (𝐺𝐴) ∈ 𝑅))
1817simpld 499 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → (𝐺𝐴) ∈ ({0, 1} ↑m ℕ))
19 elmapi 8845 . . . . . . . . 9 ((𝐺𝐴) ∈ ({0, 1} ↑m ℕ) → (𝐺𝐴):ℕ⟶{0, 1})
20 fdm 6715 . . . . . . . . 9 ((𝐺𝐴):ℕ⟶{0, 1} → dom (𝐺𝐴) = ℕ)
2118, 19, 203syl 19 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → dom (𝐺𝐴) = ℕ)
221, 21sseqtrid 3978 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → ((𝐺𝐴) “ ℕ) ⊆ ℕ)
2322sselda 3936 . . . . . 6 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ ((𝐺𝐴) “ ℕ)) → 𝑘 ∈ ℕ)
242, 3, 4, 5, 6, 7, 8, 9, 10, 11eulerpartlemgvv 34732 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ ℕ) → ((𝐺𝐴)‘𝑘) = if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0))
2524oveq1d 7425 . . . . . 6 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ ℕ) → (((𝐺𝐴)‘𝑘) · 𝑘) = (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘))
2623, 25syldan 602 . . . . 5 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ ((𝐺𝐴) “ ℕ)) → (((𝐺𝐴)‘𝑘) · 𝑘) = (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘))
2726sumeq2dv 15752 . . . 4 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(((𝐺𝐴)‘𝑘) · 𝑘) = Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘))
28 eqeq2 2773 . . . . . . . . . . . . 13 (𝑚 = 𝑘 → (((2↑𝑛) · 𝑡) = 𝑚 ↔ ((2↑𝑛) · 𝑡) = 𝑘))
29282rexbidv 3228 . . . . . . . . . . . 12 (𝑚 = 𝑘 → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚 ↔ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘))
3029elrab 3649 . . . . . . . . . . 11 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ↔ (𝑘 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘))
3130simprbi 502 . . . . . . . . . 10 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘)
3231iftrued 4494 . . . . . . . . 9 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) = 1)
3332oveq1d 7425 . . . . . . . 8 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = (1 · 𝑘))
34 elrabi 3645 . . . . . . . . . 10 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → 𝑘 ∈ ℕ)
3534nncnd 12248 . . . . . . . . 9 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → 𝑘 ∈ ℂ)
3635mullidd 11226 . . . . . . . 8 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → (1 · 𝑘) = 𝑘)
3733, 36eqtrd 2796 . . . . . . 7 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = 𝑘)
3837sumeq2i 15748 . . . . . 6 Σ𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = Σ𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}𝑘
39 id 23 . . . . . . 7 (𝑘 = ((2↑(2nd𝑤)) · (1st𝑤)) → 𝑘 = ((2↑(2nd𝑤)) · (1st𝑤)))
402, 3, 4, 5, 6, 7, 8, 9, 10, 11eulerpartlemgf 34735 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → ((𝐺𝐴) “ ℕ) ∈ Fin)
4134adantl 486 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ ℕ)
4241, 24syldan 602 . . . . . . . . . . . . . 14 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → ((𝐺𝐴)‘𝑘) = if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0))
4331adantl 486 . . . . . . . . . . . . . . 15 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘)
4443iftrued 4494 . . . . . . . . . . . . . 14 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) = 1)
4542, 44eqtrd 2796 . . . . . . . . . . . . 13 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → ((𝐺𝐴)‘𝑘) = 1)
46 1nn 12243 . . . . . . . . . . . . 13 1 ∈ ℕ
4745, 46eqeltrdi 2869 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → ((𝐺𝐴)‘𝑘) ∈ ℕ)
48 ffn 6705 . . . . . . . . . . . . . 14 ((𝐺𝐴):ℕ⟶{0, 1} → (𝐺𝐴) Fn ℕ)
49 elpreima 7053 . . . . . . . . . . . . . 14 ((𝐺𝐴) Fn ℕ → (𝑘 ∈ ((𝐺𝐴) “ ℕ) ↔ (𝑘 ∈ ℕ ∧ ((𝐺𝐴)‘𝑘) ∈ ℕ)))
5018, 19, 48, 494syl 20 . . . . . . . . . . . . 13 (𝐴 ∈ (𝑇𝑅) → (𝑘 ∈ ((𝐺𝐴) “ ℕ) ↔ (𝑘 ∈ ℕ ∧ ((𝐺𝐴)‘𝑘) ∈ ℕ)))
5150adantr 485 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → (𝑘 ∈ ((𝐺𝐴) “ ℕ) ↔ (𝑘 ∈ ℕ ∧ ((𝐺𝐴)‘𝑘) ∈ ℕ)))
5241, 47, 51mpbir2and 725 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ ((𝐺𝐴) “ ℕ))
5352ex 417 . . . . . . . . . 10 (𝐴 ∈ (𝑇𝑅) → (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → 𝑘 ∈ ((𝐺𝐴) “ ℕ)))
5453ssrdv 3942 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ⊆ ((𝐺𝐴) “ ℕ))
55 ssfi 9156 . . . . . . . . 9 ((((𝐺𝐴) “ ℕ) ∈ Fin ∧ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ⊆ ((𝐺𝐴) “ ℕ)) → {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ∈ Fin)
5640, 54, 55syl2anc 595 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ∈ Fin)
57 cnvexg 7920 . . . . . . . . . . 11 (𝐴 ∈ (𝑇𝑅) → 𝐴 ∈ V)
58 imaexg 7909 . . . . . . . . . . 11 (𝐴 ∈ V → (𝐴 “ ℕ) ∈ V)
59 inex1g 5287 . . . . . . . . . . 11 ((𝐴 “ ℕ) ∈ V → ((𝐴 “ ℕ) ∩ 𝐽) ∈ V)
6057, 58, 593syl 19 . . . . . . . . . 10 (𝐴 ∈ (𝑇𝑅) → ((𝐴 “ ℕ) ∩ 𝐽) ∈ V)
61 vsnex 5406 . . . . . . . . . . . 12 {𝑡} ∈ V
62 fvex 6894 . . . . . . . . . . . 12 (bits‘(𝐴𝑡)) ∈ V
6361, 62xpex 7751 . . . . . . . . . . 11 ({𝑡} × (bits‘(𝐴𝑡))) ∈ V
6463rgenw 3081 . . . . . . . . . 10 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ V
65 iunexg 7959 . . . . . . . . . 10 ((((𝐴 “ ℕ) ∩ 𝐽) ∈ V ∧ ∀𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ V) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ V)
6660, 64, 65sylancl 597 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ V)
67 eqid 2761 . . . . . . . . . 10 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))
682, 3, 4, 5, 6, 7, 8, 9, 10, 11, 67eulerpartlemgh 34734 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → (𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))): 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))–1-1-onto→{𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
69 f1oeng 8966 . . . . . . . . 9 (( 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ V ∧ (𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))): 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))–1-1-onto→{𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ≈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
7066, 68, 69syl2anc 595 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ≈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
71 enfii 9169 . . . . . . . 8 (({𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ∈ Fin ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ≈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ Fin)
7256, 70, 71syl2anc 595 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ Fin)
73 fvres 6900 . . . . . . . . 9 (𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) → ((𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))))‘𝑤) = (𝐹𝑤))
7473adantl 486 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))) → ((𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))))‘𝑤) = (𝐹𝑤))
75 inss2 4189 . . . . . . . . . . . . . . 15 ((𝐴 “ ℕ) ∩ 𝐽) ⊆ 𝐽
76 simpr 489 . . . . . . . . . . . . . . 15 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽))
7775, 76sselid 3934 . . . . . . . . . . . . . 14 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡𝐽)
7877snssd 4751 . . . . . . . . . . . . 13 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → {𝑡} ⊆ 𝐽)
79 bitsss 16483 . . . . . . . . . . . . 13 (bits‘(𝐴𝑡)) ⊆ ℕ0
80 xpss12 5676 . . . . . . . . . . . . 13 (({𝑡} ⊆ 𝐽 ∧ (bits‘(𝐴𝑡)) ⊆ ℕ0) → ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
8178, 79, 80sylancl 597 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
8281ralrimiva 3155 . . . . . . . . . . 11 (𝐴 ∈ (𝑇𝑅) → ∀𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
83 iunss 5008 . . . . . . . . . . 11 ( 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0) ↔ ∀𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
8482, 83sylibr 237 . . . . . . . . . 10 (𝐴 ∈ (𝑇𝑅) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
8584sselda 3936 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))) → 𝑤 ∈ (𝐽 × ℕ0))
865, 6oddpwdcv 34711 . . . . . . . . 9 (𝑤 ∈ (𝐽 × ℕ0) → (𝐹𝑤) = ((2↑(2nd𝑤)) · (1st𝑤)))
8785, 86syl 18 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))) → (𝐹𝑤) = ((2↑(2nd𝑤)) · (1st𝑤)))
8874, 87eqtrd 2796 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))) → ((𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))))‘𝑤) = ((2↑(2nd𝑤)) · (1st𝑤)))
8941nncnd 12248 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ ℂ)
9039, 72, 68, 88, 89fsumf1o 15773 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}𝑘 = Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)))
9138, 90eqtrid 2808 . . . . 5 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)))
92 ax-1cn 11157 . . . . . . . . 9 1 ∈ ℂ
93 0cn 11197 . . . . . . . . 9 0 ∈ ℂ
9492, 93ifcli 4534 . . . . . . . 8 if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) ∈ ℂ
9594a1i 11 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) ∈ ℂ)
96 ssrab2 4033 . . . . . . . . 9 {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ⊆ ℕ
97 simpr 489 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
9896, 97sselid 3934 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ ℕ)
9998nncnd 12248 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ ℂ)
10095, 99mulcld 11228 . . . . . 6 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) ∈ ℂ)
101 simpr 489 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}))
102101eldifbd 3917 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → ¬ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
10322ssdifssd 4100 . . . . . . . . . . 11 (𝐴 ∈ (𝑇𝑅) → (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) ⊆ ℕ)
104103sselda 3936 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → 𝑘 ∈ ℕ)
10530notbii 323 . . . . . . . . . . 11 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ↔ ¬ (𝑘 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘))
106 imnan 404 . . . . . . . . . . 11 ((𝑘 ∈ ℕ → ¬ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘) ↔ ¬ (𝑘 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘))
107105, 106sylbb2 241 . . . . . . . . . 10 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → (𝑘 ∈ ℕ → ¬ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘))
108102, 104, 107sylc 66 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → ¬ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘)
109108iffalsed 4497 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) = 0)
110109oveq1d 7425 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = (0 · 𝑘))
111 nnsscn 12237 . . . . . . . . . 10 ℕ ⊆ ℂ
112103, 111sstrdi 3948 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) ⊆ ℂ)
113112sselda 3936 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → 𝑘 ∈ ℂ)
114113mul02d 11407 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → (0 · 𝑘) = 0)
115110, 114eqtrd 2796 . . . . . 6 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = 0)
11654, 100, 115, 40fsumss 15775 . . . . 5 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘))
11791, 116eqtr3d 2798 . . . 4 (𝐴 ∈ (𝑇𝑅) → Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)) = Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘))
1182, 3, 4, 5, 6, 7, 8, 9, 10eulerpartlemt0 34725 . . . . . . . . . . . . 13 (𝐴 ∈ (𝑇𝑅) ↔ (𝐴 ∈ (ℕ0m ℕ) ∧ (𝐴 “ ℕ) ∈ Fin ∧ (𝐴 “ ℕ) ⊆ 𝐽))
119118simp1bi 1161 . . . . . . . . . . . 12 (𝐴 ∈ (𝑇𝑅) → 𝐴 ∈ (ℕ0m ℕ))
120 elmapi 8845 . . . . . . . . . . . 12 (𝐴 ∈ (ℕ0m ℕ) → 𝐴:ℕ⟶ℕ0)
121119, 120syl 18 . . . . . . . . . . 11 (𝐴 ∈ (𝑇𝑅) → 𝐴:ℕ⟶ℕ0)
122121adantr 485 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝐴:ℕ⟶ℕ0)
123 cnvimass 6084 . . . . . . . . . . . . 13 (𝐴 “ ℕ) ⊆ dom 𝐴
124123, 121fssdm 6725 . . . . . . . . . . . 12 (𝐴 ∈ (𝑇𝑅) → (𝐴 “ ℕ) ⊆ ℕ)
125124adantr 485 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (𝐴 “ ℕ) ⊆ ℕ)
126 inss1 4188 . . . . . . . . . . . 12 ((𝐴 “ ℕ) ∩ 𝐽) ⊆ (𝐴 “ ℕ)
127126, 76sselid 3934 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡 ∈ (𝐴 “ ℕ))
128125, 127sseldd 3937 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡 ∈ ℕ)
129122, 128ffvelcdmd 7080 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (𝐴𝑡) ∈ ℕ0)
130 bitsfi 16494 . . . . . . . . 9 ((𝐴𝑡) ∈ ℕ0 → (bits‘(𝐴𝑡)) ∈ Fin)
131129, 130syl 18 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (bits‘(𝐴𝑡)) ∈ Fin)
132128nncnd 12248 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡 ∈ ℂ)
133 2cnd 12318 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → 2 ∈ ℂ)
134 simprr 784 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → 𝑛 ∈ (bits‘(𝐴𝑡)))
13579, 134sselid 3934 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → 𝑛 ∈ ℕ0)
136133, 135expcld 14181 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → (2↑𝑛) ∈ ℂ)
137136anassrs 472 . . . . . . . 8 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → (2↑𝑛) ∈ ℂ)
138131, 132, 137fsummulc1 15835 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) · 𝑡) = Σ𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡))
139138sumeq2dv 15752 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) · 𝑡) = Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡))
140 bitsinv1 16499 . . . . . . . . 9 ((𝐴𝑡) ∈ ℕ0 → Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) = (𝐴𝑡))
141140oveq1d 7425 . . . . . . . 8 ((𝐴𝑡) ∈ ℕ0 → (Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) · 𝑡) = ((𝐴𝑡) · 𝑡))
142129, 141syl 18 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) · 𝑡) = ((𝐴𝑡) · 𝑡))
143142sumeq2dv 15752 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) · 𝑡) = Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)((𝐴𝑡) · 𝑡))
144 vex 3457 . . . . . . . . . 10 𝑡 ∈ V
145 vex 3457 . . . . . . . . . 10 𝑛 ∈ V
146144, 145op2ndd 7996 . . . . . . . . 9 (𝑤 = ⟨𝑡, 𝑛⟩ → (2nd𝑤) = 𝑛)
147146oveq2d 7426 . . . . . . . 8 (𝑤 = ⟨𝑡, 𝑛⟩ → (2↑(2nd𝑤)) = (2↑𝑛))
148144, 145op1std 7995 . . . . . . . 8 (𝑤 = ⟨𝑡, 𝑛⟩ → (1st𝑤) = 𝑡)
149147, 148oveq12d 7428 . . . . . . 7 (𝑤 = ⟨𝑡, 𝑛⟩ → ((2↑(2nd𝑤)) · (1st𝑤)) = ((2↑𝑛) · 𝑡))
150 inss2 4189 . . . . . . . . . 10 (𝑇𝑅) ⊆ 𝑅
151150sseli 3932 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → 𝐴𝑅)
152 cnveq 5859 . . . . . . . . . . . 12 (𝑓 = 𝐴𝑓 = 𝐴)
153152imaeq1d 6061 . . . . . . . . . . 11 (𝑓 = 𝐴 → (𝑓 “ ℕ) = (𝐴 “ ℕ))
154153eleq1d 2846 . . . . . . . . . 10 (𝑓 = 𝐴 → ((𝑓 “ ℕ) ∈ Fin ↔ (𝐴 “ ℕ) ∈ Fin))
155154, 9elab2g 3638 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → (𝐴𝑅 ↔ (𝐴 “ ℕ) ∈ Fin))
156151, 155mpbid 235 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → (𝐴 “ ℕ) ∈ Fin)
157 ssfi 9156 . . . . . . . 8 (((𝐴 “ ℕ) ∈ Fin ∧ ((𝐴 “ ℕ) ∩ 𝐽) ⊆ (𝐴 “ ℕ)) → ((𝐴 “ ℕ) ∩ 𝐽) ∈ Fin)
158156, 126, 157sylancl 597 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → ((𝐴 “ ℕ) ∩ 𝐽) ∈ Fin)
159132adantrr 729 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → 𝑡 ∈ ℂ)
160136, 159mulcld 11228 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → ((2↑𝑛) · 𝑡) ∈ ℂ)
161149, 158, 131, 160fsum2d 15821 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)))
162139, 143, 1613eqtr3d 2804 . . . . 5 (𝐴 ∈ (𝑇𝑅) → Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)((𝐴𝑡) · 𝑡) = Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)))
163 inss1 4188 . . . . . . . . 9 (𝑇𝑅) ⊆ 𝑇
164163sseli 3932 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → 𝐴𝑇)
165153sseq1d 3967 . . . . . . . . . 10 (𝑓 = 𝐴 → ((𝑓 “ ℕ) ⊆ 𝐽 ↔ (𝐴 “ ℕ) ⊆ 𝐽))
166165, 10elrab2 3653 . . . . . . . . 9 (𝐴𝑇 ↔ (𝐴 ∈ (ℕ0m ℕ) ∧ (𝐴 “ ℕ) ⊆ 𝐽))
167166simprbi 502 . . . . . . . 8 (𝐴𝑇 → (𝐴 “ ℕ) ⊆ 𝐽)
168164, 167syl 18 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → (𝐴 “ ℕ) ⊆ 𝐽)
169 dfss2 3922 . . . . . . 7 ((𝐴 “ ℕ) ⊆ 𝐽 ↔ ((𝐴 “ ℕ) ∩ 𝐽) = (𝐴 “ ℕ))
170168, 169sylib 221 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → ((𝐴 “ ℕ) ∩ 𝐽) = (𝐴 “ ℕ))
171170sumeq1d 15750 . . . . 5 (𝐴 ∈ (𝑇𝑅) → Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)((𝐴𝑡) · 𝑡) = Σ𝑡 ∈ (𝐴 “ ℕ)((𝐴𝑡) · 𝑡))
172162, 171eqtr3d 2798 . . . 4 (𝐴 ∈ (𝑇𝑅) → Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)) = Σ𝑡 ∈ (𝐴 “ ℕ)((𝐴𝑡) · 𝑡))
17327, 117, 1723eqtr2d 2802 . . 3 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(((𝐺𝐴)‘𝑘) · 𝑘) = Σ𝑡 ∈ (𝐴 “ ℕ)((𝐴𝑡) · 𝑡))
174 fveq2 6881 . . . . 5 (𝑘 = 𝑡 → (𝐴𝑘) = (𝐴𝑡))
175 id 23 . . . . 5 (𝑘 = 𝑡𝑘 = 𝑡)
176174, 175oveq12d 7428 . . . 4 (𝑘 = 𝑡 → ((𝐴𝑘) · 𝑘) = ((𝐴𝑡) · 𝑡))
177176cbvsumv 15746 . . 3 Σ𝑘 ∈ (𝐴 “ ℕ)((𝐴𝑘) · 𝑘) = Σ𝑡 ∈ (𝐴 “ ℕ)((𝐴𝑡) · 𝑡)
178173, 177eqtr4di 2814 . 2 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(((𝐺𝐴)‘𝑘) · 𝑘) = Σ𝑘 ∈ (𝐴 “ ℕ)((𝐴𝑘) · 𝑘))
179 0nn0 12518 . . . . . . . 8 0 ∈ ℕ0
180 1nn0 12519 . . . . . . . 8 1 ∈ ℕ0
181 prssi 4786 . . . . . . . 8 ((0 ∈ ℕ0 ∧ 1 ∈ ℕ0) → {0, 1} ⊆ ℕ0)
182179, 180, 181mp2an 704 . . . . . . 7 {0, 1} ⊆ ℕ0
183 fss 6722 . . . . . . 7 (((𝐺𝐴):ℕ⟶{0, 1} ∧ {0, 1} ⊆ ℕ0) → (𝐺𝐴):ℕ⟶ℕ0)
184182, 183mpan2 703 . . . . . 6 ((𝐺𝐴):ℕ⟶{0, 1} → (𝐺𝐴):ℕ⟶ℕ0)
185 nn0ex 12509 . . . . . . . 8 0 ∈ V
186 nnex 12238 . . . . . . . 8 ℕ ∈ V
187185, 186elmap 8868 . . . . . . 7 ((𝐺𝐴) ∈ (ℕ0m ℕ) ↔ (𝐺𝐴):ℕ⟶ℕ0)
188187biimpri 231 . . . . . 6 ((𝐺𝐴):ℕ⟶ℕ0 → (𝐺𝐴) ∈ (ℕ0m ℕ))
18919, 184, 1883syl 19 . . . . 5 ((𝐺𝐴) ∈ ({0, 1} ↑m ℕ) → (𝐺𝐴) ∈ (ℕ0m ℕ))
190189anim1i 626 . . . 4 (((𝐺𝐴) ∈ ({0, 1} ↑m ℕ) ∧ (𝐺𝐴) ∈ 𝑅) → ((𝐺𝐴) ∈ (ℕ0m ℕ) ∧ (𝐺𝐴) ∈ 𝑅))
191 elin 3920 . . . 4 ((𝐺𝐴) ∈ ((ℕ0m ℕ) ∩ 𝑅) ↔ ((𝐺𝐴) ∈ (ℕ0m ℕ) ∧ (𝐺𝐴) ∈ 𝑅))
192190, 16, 1913imtr4i 295 . . 3 ((𝐺𝐴) ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) → (𝐺𝐴) ∈ ((ℕ0m ℕ) ∩ 𝑅))
193 eulerpart.s . . . 4 𝑆 = (𝑓 ∈ ((ℕ0m ℕ) ∩ 𝑅) ↦ Σ𝑘 ∈ ℕ ((𝑓𝑘) · 𝑘))
1949, 193eulerpartlemsv2 34714 . . 3 ((𝐺𝐴) ∈ ((ℕ0m ℕ) ∩ 𝑅) → (𝑆‘(𝐺𝐴)) = Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(((𝐺𝐴)‘𝑘) · 𝑘))
19515, 192, 1943syl 19 . 2 (𝐴 ∈ (𝑇𝑅) → (𝑆‘(𝐺𝐴)) = Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(((𝐺𝐴)‘𝑘) · 𝑘))
196119, 151elind 4152 . . 3 (𝐴 ∈ (𝑇𝑅) → 𝐴 ∈ ((ℕ0m ℕ) ∩ 𝑅))
1979, 193eulerpartlemsv2 34714 . . 3 (𝐴 ∈ ((ℕ0m ℕ) ∩ 𝑅) → (𝑆𝐴) = Σ𝑘 ∈ (𝐴 “ ℕ)((𝐴𝑘) · 𝑘))
198196, 197syl 18 . 2 (𝐴 ∈ (𝑇𝑅) → (𝑆𝐴) = Σ𝑘 ∈ (𝐴 “ ℕ)((𝐴𝑘) · 𝑘))
199178, 195, 1983eqtr4d 2806 1 (𝐴 ∈ (𝑇𝑅) → (𝑆‘(𝐺𝐴)) = (𝑆𝐴))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400   = wceq 1568  wcel 2141  {cab 2739  wral 3077  wrex 3087  {crab 3414  Vcvv 3453  cdif 3901  cin 3903  wss 3904  c0 4285  ifcif 4486  𝒫 cpw 4561  {csn 4588  {cpr 4590  cop 4594   ciun 4955   class class class wbr 5108  {copab 5172  cmpt 5191   × cxp 5659  ccnv 5660  dom cdm 5661  cres 5663  cima 5664  ccom 5665   Fn wfn 6531  wf 6532  1-1-ontowf1o 6535  cfv 6536  (class class class)co 7410  cmpo 7412  1st c1st 7983  2nd c2nd 7984   supp csupp 8155  m cmap 8823  cen 8939  Fincfn 8942  cc 11097  0cc0 11099  1c1 11100   · cmul 11104  cle 11243  𝟭cind 12217  cn 12232  2c2 12294  0cn0 12503  cexp 14096  Σcsu 15736  cdvds 16309  bitscbits 16476
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5237  ax-sep 5256  ax-nul 5268  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-inf2 9609  ax-ac2 10446  ax-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176  ax-pre-sup 11177
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2095  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-op 4595  df-uni 4872  df-int 4912  df-iun 4957  df-disj 5076  df-br 5109  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-se 5615  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7862  df-1st 7985  df-2nd 7986  df-supp 8156  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8452  df-2o 8453  df-oadd 8456  df-er 8693  df-map 8825  df-pm 8826  df-en 8943  df-dom 8944  df-sdom 8945  df-fin 8946  df-fsupp 9321  df-sup 9401  df-inf 9402  df-oi 9471  df-dju 9886  df-card 9924  df-acn 9927  df-ac 10099  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-div 11871  df-ind 12218  df-nn 12233  df-2 12302  df-3 12303  df-n0 12504  df-xnn0 12577  df-z 12591  df-uz 12862  df-rp 13016  df-fz 13535  df-fzo 13682  df-fl 13824  df-mod 13902  df-seq 14037  df-exp 14097  df-hash 14366  df-cj 15149  df-re 15150  df-im 15151  df-sqrt 15285  df-abs 15286  df-clim 15538  df-sum 15737  df-dvds 16310  df-bits 16479
This theorem is referenced by:  eulerpartlemn  34737
  Copyright terms: Public domain W3C validator