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 34347
Description: Lemma for eulerpart 34349: 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 6037 . . . . . . . 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 34339 . . . . . . . . . . . . 13 𝐺:(𝑇𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅)
13 f1of 6768 . . . . . . . . . . . . 13 (𝐺:(𝑇𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅) → 𝐺:(𝑇𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅))
1412, 13ax-mp 5 . . . . . . . . . . . 12 𝐺:(𝑇𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅)
1514ffvelcdmi 7021 . . . . . . . . . . 11 (𝐴 ∈ (𝑇𝑅) → (𝐺𝐴) ∈ (({0, 1} ↑m ℕ) ∩ 𝑅))
16 elin 3921 . . . . . . . . . . 11 ((𝐺𝐴) ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ↔ ((𝐺𝐴) ∈ ({0, 1} ↑m ℕ) ∧ (𝐺𝐴) ∈ 𝑅))
1715, 16sylib 218 . . . . . . . . . 10 (𝐴 ∈ (𝑇𝑅) → ((𝐺𝐴) ∈ ({0, 1} ↑m ℕ) ∧ (𝐺𝐴) ∈ 𝑅))
1817simpld 494 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → (𝐺𝐴) ∈ ({0, 1} ↑m ℕ))
19 elmapi 8783 . . . . . . . . 9 ((𝐺𝐴) ∈ ({0, 1} ↑m ℕ) → (𝐺𝐴):ℕ⟶{0, 1})
20 fdm 6665 . . . . . . . . 9 ((𝐺𝐴):ℕ⟶{0, 1} → dom (𝐺𝐴) = ℕ)
2118, 19, 203syl 18 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → dom (𝐺𝐴) = ℕ)
221, 21sseqtrid 3980 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → ((𝐺𝐴) “ ℕ) ⊆ ℕ)
2322sselda 3937 . . . . . 6 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ ((𝐺𝐴) “ ℕ)) → 𝑘 ∈ ℕ)
242, 3, 4, 5, 6, 7, 8, 9, 10, 11eulerpartlemgvv 34343 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ ℕ) → ((𝐺𝐴)‘𝑘) = if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0))
2524oveq1d 7368 . . . . . 6 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ ℕ) → (((𝐺𝐴)‘𝑘) · 𝑘) = (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘))
2623, 25syldan 591 . . . . 5 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ ((𝐺𝐴) “ ℕ)) → (((𝐺𝐴)‘𝑘) · 𝑘) = (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘))
2726sumeq2dv 15627 . . . 4 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(((𝐺𝐴)‘𝑘) · 𝑘) = Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘))
28 eqeq2 2741 . . . . . . . . . . . . 13 (𝑚 = 𝑘 → (((2↑𝑛) · 𝑡) = 𝑚 ↔ ((2↑𝑛) · 𝑡) = 𝑘))
29282rexbidv 3194 . . . . . . . . . . . 12 (𝑚 = 𝑘 → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚 ↔ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘))
3029elrab 3650 . . . . . . . . . . 11 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ↔ (𝑘 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘))
3130simprbi 496 . . . . . . . . . 10 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘)
3231iftrued 4486 . . . . . . . . 9 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) = 1)
3332oveq1d 7368 . . . . . . . 8 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = (1 · 𝑘))
34 elrabi 3645 . . . . . . . . . 10 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → 𝑘 ∈ ℕ)
3534nncnd 12162 . . . . . . . . 9 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → 𝑘 ∈ ℂ)
3635mullidd 11152 . . . . . . . 8 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → (1 · 𝑘) = 𝑘)
3733, 36eqtrd 2764 . . . . . . 7 (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = 𝑘)
3837sumeq2i 15623 . . . . . 6 Σ𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = Σ𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}𝑘
39 id 22 . . . . . . 7 (𝑘 = ((2↑(2nd𝑤)) · (1st𝑤)) → 𝑘 = ((2↑(2nd𝑤)) · (1st𝑤)))
402, 3, 4, 5, 6, 7, 8, 9, 10, 11eulerpartlemgf 34346 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → ((𝐺𝐴) “ ℕ) ∈ Fin)
4134adantl 481 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ ℕ)
4241, 24syldan 591 . . . . . . . . . . . . . 14 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → ((𝐺𝐴)‘𝑘) = if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0))
4331adantl 481 . . . . . . . . . . . . . . 15 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘)
4443iftrued 4486 . . . . . . . . . . . . . 14 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) = 1)
4542, 44eqtrd 2764 . . . . . . . . . . . . 13 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → ((𝐺𝐴)‘𝑘) = 1)
46 1nn 12157 . . . . . . . . . . . . 13 1 ∈ ℕ
4745, 46eqeltrdi 2836 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → ((𝐺𝐴)‘𝑘) ∈ ℕ)
48 ffn 6656 . . . . . . . . . . . . . 14 ((𝐺𝐴):ℕ⟶{0, 1} → (𝐺𝐴) Fn ℕ)
49 elpreima 6996 . . . . . . . . . . . . . 14 ((𝐺𝐴) Fn ℕ → (𝑘 ∈ ((𝐺𝐴) “ ℕ) ↔ (𝑘 ∈ ℕ ∧ ((𝐺𝐴)‘𝑘) ∈ ℕ)))
5018, 19, 48, 494syl 19 . . . . . . . . . . . . 13 (𝐴 ∈ (𝑇𝑅) → (𝑘 ∈ ((𝐺𝐴) “ ℕ) ↔ (𝑘 ∈ ℕ ∧ ((𝐺𝐴)‘𝑘) ∈ ℕ)))
5150adantr 480 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → (𝑘 ∈ ((𝐺𝐴) “ ℕ) ↔ (𝑘 ∈ ℕ ∧ ((𝐺𝐴)‘𝑘) ∈ ℕ)))
5241, 47, 51mpbir2and 713 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ ((𝐺𝐴) “ ℕ))
5352ex 412 . . . . . . . . . 10 (𝐴 ∈ (𝑇𝑅) → (𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → 𝑘 ∈ ((𝐺𝐴) “ ℕ)))
5453ssrdv 3943 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ⊆ ((𝐺𝐴) “ ℕ))
55 ssfi 9097 . . . . . . . . 9 ((((𝐺𝐴) “ ℕ) ∈ Fin ∧ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ⊆ ((𝐺𝐴) “ ℕ)) → {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ∈ Fin)
5640, 54, 55syl2anc 584 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ∈ Fin)
57 cnvexg 7864 . . . . . . . . . . 11 (𝐴 ∈ (𝑇𝑅) → 𝐴 ∈ V)
58 imaexg 7853 . . . . . . . . . . 11 (𝐴 ∈ V → (𝐴 “ ℕ) ∈ V)
59 inex1g 5261 . . . . . . . . . . 11 ((𝐴 “ ℕ) ∈ V → ((𝐴 “ ℕ) ∩ 𝐽) ∈ V)
6057, 58, 593syl 18 . . . . . . . . . 10 (𝐴 ∈ (𝑇𝑅) → ((𝐴 “ ℕ) ∩ 𝐽) ∈ V)
61 vsnex 5376 . . . . . . . . . . . 12 {𝑡} ∈ V
62 fvex 6839 . . . . . . . . . . . 12 (bits‘(𝐴𝑡)) ∈ V
6361, 62xpex 7693 . . . . . . . . . . 11 ({𝑡} × (bits‘(𝐴𝑡))) ∈ V
6463rgenw 3048 . . . . . . . . . 10 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ V
65 iunexg 7905 . . . . . . . . . 10 ((((𝐴 “ ℕ) ∩ 𝐽) ∈ V ∧ ∀𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ V) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ V)
6660, 64, 65sylancl 586 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ V)
67 eqid 2729 . . . . . . . . . 10 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))
682, 3, 4, 5, 6, 7, 8, 9, 10, 11, 67eulerpartlemgh 34345 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → (𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))): 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))–1-1-onto→{𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
69 f1oeng 8903 . . . . . . . . 9 (( 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ V ∧ (𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))): 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))–1-1-onto→{𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ≈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
7066, 68, 69syl2anc 584 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ≈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
71 enfii 9110 . . . . . . . 8 (({𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ∈ Fin ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ≈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ Fin)
7256, 70, 71syl2anc 584 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ∈ Fin)
73 fvres 6845 . . . . . . . . 9 (𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) → ((𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))))‘𝑤) = (𝐹𝑤))
7473adantl 481 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))) → ((𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))))‘𝑤) = (𝐹𝑤))
75 inss2 4191 . . . . . . . . . . . . . . 15 ((𝐴 “ ℕ) ∩ 𝐽) ⊆ 𝐽
76 simpr 484 . . . . . . . . . . . . . . 15 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽))
7775, 76sselid 3935 . . . . . . . . . . . . . 14 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡𝐽)
7877snssd 4763 . . . . . . . . . . . . 13 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → {𝑡} ⊆ 𝐽)
79 bitsss 16355 . . . . . . . . . . . . 13 (bits‘(𝐴𝑡)) ⊆ ℕ0
80 xpss12 5638 . . . . . . . . . . . . 13 (({𝑡} ⊆ 𝐽 ∧ (bits‘(𝐴𝑡)) ⊆ ℕ0) → ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
8178, 79, 80sylancl 586 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
8281ralrimiva 3121 . . . . . . . . . . 11 (𝐴 ∈ (𝑇𝑅) → ∀𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
83 iunss 4997 . . . . . . . . . . 11 ( 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0) ↔ ∀𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
8482, 83sylibr 234 . . . . . . . . . 10 (𝐴 ∈ (𝑇𝑅) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
8584sselda 3937 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))) → 𝑤 ∈ (𝐽 × ℕ0))
865, 6oddpwdcv 34322 . . . . . . . . 9 (𝑤 ∈ (𝐽 × ℕ0) → (𝐹𝑤) = ((2↑(2nd𝑤)) · (1st𝑤)))
8785, 86syl 17 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))) → (𝐹𝑤) = ((2↑(2nd𝑤)) · (1st𝑤)))
8874, 87eqtrd 2764 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))) → ((𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))))‘𝑤) = ((2↑(2nd𝑤)) · (1st𝑤)))
8941nncnd 12162 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ ℂ)
9039, 72, 68, 88, 89fsumf1o 15648 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}𝑘 = Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)))
9138, 90eqtrid 2776 . . . . 5 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)))
92 ax-1cn 11086 . . . . . . . . 9 1 ∈ ℂ
93 0cn 11126 . . . . . . . . 9 0 ∈ ℂ
9492, 93ifcli 4526 . . . . . . . 8 if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) ∈ ℂ
9594a1i 11 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) ∈ ℂ)
96 ssrab2 4033 . . . . . . . . 9 {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ⊆ ℕ
97 simpr 484 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
9896, 97sselid 3935 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ ℕ)
9998nncnd 12162 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → 𝑘 ∈ ℂ)
10095, 99mulcld 11154 . . . . . 6 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) → (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) ∈ ℂ)
101 simpr 484 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}))
102101eldifbd 3918 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → ¬ 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
10322ssdifssd 4100 . . . . . . . . . . 11 (𝐴 ∈ (𝑇𝑅) → (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) ⊆ ℕ)
104103sselda 3937 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → 𝑘 ∈ ℕ)
10530notbii 320 . . . . . . . . . . 11 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ↔ ¬ (𝑘 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘))
106 imnan 399 . . . . . . . . . . 11 ((𝑘 ∈ ℕ → ¬ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘) ↔ ¬ (𝑘 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘))
107105, 106sylbb2 238 . . . . . . . . . 10 𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → (𝑘 ∈ ℕ → ¬ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘))
108102, 104, 107sylc 65 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → ¬ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘)
109108iffalsed 4489 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) = 0)
110109oveq1d 7368 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = (0 · 𝑘))
111 nnsscn 12151 . . . . . . . . . 10 ℕ ⊆ ℂ
112103, 111sstrdi 3950 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}) ⊆ ℂ)
113112sselda 3937 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → 𝑘 ∈ ℂ)
114113mul02d 11332 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → (0 · 𝑘) = 0)
115110, 114eqtrd 2764 . . . . . 6 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑘 ∈ (((𝐺𝐴) “ ℕ) ∖ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})) → (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = 0)
11654, 100, 115, 40fsumss 15650 . . . . 5 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} (if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘) = Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘))
11791, 116eqtr3d 2766 . . . 4 (𝐴 ∈ (𝑇𝑅) → Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)) = Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑘, 1, 0) · 𝑘))
1182, 3, 4, 5, 6, 7, 8, 9, 10eulerpartlemt0 34336 . . . . . . . . . . . . 13 (𝐴 ∈ (𝑇𝑅) ↔ (𝐴 ∈ (ℕ0m ℕ) ∧ (𝐴 “ ℕ) ∈ Fin ∧ (𝐴 “ ℕ) ⊆ 𝐽))
119118simp1bi 1145 . . . . . . . . . . . 12 (𝐴 ∈ (𝑇𝑅) → 𝐴 ∈ (ℕ0m ℕ))
120 elmapi 8783 . . . . . . . . . . . 12 (𝐴 ∈ (ℕ0m ℕ) → 𝐴:ℕ⟶ℕ0)
121119, 120syl 17 . . . . . . . . . . 11 (𝐴 ∈ (𝑇𝑅) → 𝐴:ℕ⟶ℕ0)
122121adantr 480 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝐴:ℕ⟶ℕ0)
123 cnvimass 6037 . . . . . . . . . . . . 13 (𝐴 “ ℕ) ⊆ dom 𝐴
124123, 121fssdm 6675 . . . . . . . . . . . 12 (𝐴 ∈ (𝑇𝑅) → (𝐴 “ ℕ) ⊆ ℕ)
125124adantr 480 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (𝐴 “ ℕ) ⊆ ℕ)
126 inss1 4190 . . . . . . . . . . . 12 ((𝐴 “ ℕ) ∩ 𝐽) ⊆ (𝐴 “ ℕ)
127126, 76sselid 3935 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡 ∈ (𝐴 “ ℕ))
128125, 127sseldd 3938 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡 ∈ ℕ)
129122, 128ffvelcdmd 7023 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (𝐴𝑡) ∈ ℕ0)
130 bitsfi 16366 . . . . . . . . 9 ((𝐴𝑡) ∈ ℕ0 → (bits‘(𝐴𝑡)) ∈ Fin)
131129, 130syl 17 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (bits‘(𝐴𝑡)) ∈ Fin)
132128nncnd 12162 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡 ∈ ℂ)
133 2cnd 12224 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → 2 ∈ ℂ)
134 simprr 772 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → 𝑛 ∈ (bits‘(𝐴𝑡)))
13579, 134sselid 3935 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → 𝑛 ∈ ℕ0)
136133, 135expcld 14071 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → (2↑𝑛) ∈ ℂ)
137136anassrs 467 . . . . . . . 8 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → (2↑𝑛) ∈ ℂ)
138131, 132, 137fsummulc1 15710 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) · 𝑡) = Σ𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡))
139138sumeq2dv 15627 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) · 𝑡) = Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡))
140 bitsinv1 16371 . . . . . . . . 9 ((𝐴𝑡) ∈ ℕ0 → Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) = (𝐴𝑡))
141140oveq1d 7368 . . . . . . . 8 ((𝐴𝑡) ∈ ℕ0 → (Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) · 𝑡) = ((𝐴𝑡) · 𝑡))
142129, 141syl 17 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) · 𝑡) = ((𝐴𝑡) · 𝑡))
143142sumeq2dv 15627 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(Σ𝑛 ∈ (bits‘(𝐴𝑡))(2↑𝑛) · 𝑡) = Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)((𝐴𝑡) · 𝑡))
144 vex 3442 . . . . . . . . . 10 𝑡 ∈ V
145 vex 3442 . . . . . . . . . 10 𝑛 ∈ V
146144, 145op2ndd 7942 . . . . . . . . 9 (𝑤 = ⟨𝑡, 𝑛⟩ → (2nd𝑤) = 𝑛)
147146oveq2d 7369 . . . . . . . 8 (𝑤 = ⟨𝑡, 𝑛⟩ → (2↑(2nd𝑤)) = (2↑𝑛))
148144, 145op1std 7941 . . . . . . . 8 (𝑤 = ⟨𝑡, 𝑛⟩ → (1st𝑤) = 𝑡)
149147, 148oveq12d 7371 . . . . . . 7 (𝑤 = ⟨𝑡, 𝑛⟩ → ((2↑(2nd𝑤)) · (1st𝑤)) = ((2↑𝑛) · 𝑡))
150 inss2 4191 . . . . . . . . . 10 (𝑇𝑅) ⊆ 𝑅
151150sseli 3933 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → 𝐴𝑅)
152 cnveq 5820 . . . . . . . . . . . 12 (𝑓 = 𝐴𝑓 = 𝐴)
153152imaeq1d 6014 . . . . . . . . . . 11 (𝑓 = 𝐴 → (𝑓 “ ℕ) = (𝐴 “ ℕ))
154153eleq1d 2813 . . . . . . . . . 10 (𝑓 = 𝐴 → ((𝑓 “ ℕ) ∈ Fin ↔ (𝐴 “ ℕ) ∈ Fin))
155154, 9elab2g 3638 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → (𝐴𝑅 ↔ (𝐴 “ ℕ) ∈ Fin))
156151, 155mpbid 232 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → (𝐴 “ ℕ) ∈ Fin)
157 ssfi 9097 . . . . . . . 8 (((𝐴 “ ℕ) ∈ Fin ∧ ((𝐴 “ ℕ) ∩ 𝐽) ⊆ (𝐴 “ ℕ)) → ((𝐴 “ ℕ) ∩ 𝐽) ∈ Fin)
158156, 126, 157sylancl 586 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → ((𝐴 “ ℕ) ∩ 𝐽) ∈ Fin)
159132adantrr 717 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → 𝑡 ∈ ℂ)
160136, 159mulcld 11154 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ (bits‘(𝐴𝑡)))) → ((2↑𝑛) · 𝑡) ∈ ℂ)
161149, 158, 131, 160fsum2d 15696 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)))
162139, 143, 1613eqtr3d 2772 . . . . 5 (𝐴 ∈ (𝑇𝑅) → Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)((𝐴𝑡) · 𝑡) = Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)))
163 inss1 4190 . . . . . . . . 9 (𝑇𝑅) ⊆ 𝑇
164163sseli 3933 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → 𝐴𝑇)
165153sseq1d 3969 . . . . . . . . . 10 (𝑓 = 𝐴 → ((𝑓 “ ℕ) ⊆ 𝐽 ↔ (𝐴 “ ℕ) ⊆ 𝐽))
166165, 10elrab2 3653 . . . . . . . . 9 (𝐴𝑇 ↔ (𝐴 ∈ (ℕ0m ℕ) ∧ (𝐴 “ ℕ) ⊆ 𝐽))
167166simprbi 496 . . . . . . . 8 (𝐴𝑇 → (𝐴 “ ℕ) ⊆ 𝐽)
168164, 167syl 17 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → (𝐴 “ ℕ) ⊆ 𝐽)
169 dfss2 3923 . . . . . . 7 ((𝐴 “ ℕ) ⊆ 𝐽 ↔ ((𝐴 “ ℕ) ∩ 𝐽) = (𝐴 “ ℕ))
170168, 169sylib 218 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → ((𝐴 “ ℕ) ∩ 𝐽) = (𝐴 “ ℕ))
171170sumeq1d 15625 . . . . 5 (𝐴 ∈ (𝑇𝑅) → Σ𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)((𝐴𝑡) · 𝑡) = Σ𝑡 ∈ (𝐴 “ ℕ)((𝐴𝑡) · 𝑡))
172162, 171eqtr3d 2766 . . . 4 (𝐴 ∈ (𝑇𝑅) → Σ𝑤 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))((2↑(2nd𝑤)) · (1st𝑤)) = Σ𝑡 ∈ (𝐴 “ ℕ)((𝐴𝑡) · 𝑡))
17327, 117, 1723eqtr2d 2770 . . 3 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(((𝐺𝐴)‘𝑘) · 𝑘) = Σ𝑡 ∈ (𝐴 “ ℕ)((𝐴𝑡) · 𝑡))
174 fveq2 6826 . . . . 5 (𝑘 = 𝑡 → (𝐴𝑘) = (𝐴𝑡))
175 id 22 . . . . 5 (𝑘 = 𝑡𝑘 = 𝑡)
176174, 175oveq12d 7371 . . . 4 (𝑘 = 𝑡 → ((𝐴𝑘) · 𝑘) = ((𝐴𝑡) · 𝑡))
177176cbvsumv 15621 . . 3 Σ𝑘 ∈ (𝐴 “ ℕ)((𝐴𝑘) · 𝑘) = Σ𝑡 ∈ (𝐴 “ ℕ)((𝐴𝑡) · 𝑡)
178173, 177eqtr4di 2782 . 2 (𝐴 ∈ (𝑇𝑅) → Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(((𝐺𝐴)‘𝑘) · 𝑘) = Σ𝑘 ∈ (𝐴 “ ℕ)((𝐴𝑘) · 𝑘))
179 0nn0 12417 . . . . . . . 8 0 ∈ ℕ0
180 1nn0 12418 . . . . . . . 8 1 ∈ ℕ0
181 prssi 4775 . . . . . . . 8 ((0 ∈ ℕ0 ∧ 1 ∈ ℕ0) → {0, 1} ⊆ ℕ0)
182179, 180, 181mp2an 692 . . . . . . 7 {0, 1} ⊆ ℕ0
183 fss 6672 . . . . . . 7 (((𝐺𝐴):ℕ⟶{0, 1} ∧ {0, 1} ⊆ ℕ0) → (𝐺𝐴):ℕ⟶ℕ0)
184182, 183mpan2 691 . . . . . 6 ((𝐺𝐴):ℕ⟶{0, 1} → (𝐺𝐴):ℕ⟶ℕ0)
185 nn0ex 12408 . . . . . . . 8 0 ∈ V
186 nnex 12152 . . . . . . . 8 ℕ ∈ V
187185, 186elmap 8805 . . . . . . 7 ((𝐺𝐴) ∈ (ℕ0m ℕ) ↔ (𝐺𝐴):ℕ⟶ℕ0)
188187biimpri 228 . . . . . 6 ((𝐺𝐴):ℕ⟶ℕ0 → (𝐺𝐴) ∈ (ℕ0m ℕ))
18919, 184, 1883syl 18 . . . . 5 ((𝐺𝐴) ∈ ({0, 1} ↑m ℕ) → (𝐺𝐴) ∈ (ℕ0m ℕ))
190189anim1i 615 . . . 4 (((𝐺𝐴) ∈ ({0, 1} ↑m ℕ) ∧ (𝐺𝐴) ∈ 𝑅) → ((𝐺𝐴) ∈ (ℕ0m ℕ) ∧ (𝐺𝐴) ∈ 𝑅))
191 elin 3921 . . . 4 ((𝐺𝐴) ∈ ((ℕ0m ℕ) ∩ 𝑅) ↔ ((𝐺𝐴) ∈ (ℕ0m ℕ) ∧ (𝐺𝐴) ∈ 𝑅))
192190, 16, 1913imtr4i 292 . . 3 ((𝐺𝐴) ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) → (𝐺𝐴) ∈ ((ℕ0m ℕ) ∩ 𝑅))
193 eulerpart.s . . . 4 𝑆 = (𝑓 ∈ ((ℕ0m ℕ) ∩ 𝑅) ↦ Σ𝑘 ∈ ℕ ((𝑓𝑘) · 𝑘))
1949, 193eulerpartlemsv2 34325 . . 3 ((𝐺𝐴) ∈ ((ℕ0m ℕ) ∩ 𝑅) → (𝑆‘(𝐺𝐴)) = Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(((𝐺𝐴)‘𝑘) · 𝑘))
19515, 192, 1943syl 18 . 2 (𝐴 ∈ (𝑇𝑅) → (𝑆‘(𝐺𝐴)) = Σ𝑘 ∈ ((𝐺𝐴) “ ℕ)(((𝐺𝐴)‘𝑘) · 𝑘))
196119, 151elind 4153 . . 3 (𝐴 ∈ (𝑇𝑅) → 𝐴 ∈ ((ℕ0m ℕ) ∩ 𝑅))
1979, 193eulerpartlemsv2 34325 . . 3 (𝐴 ∈ ((ℕ0m ℕ) ∩ 𝑅) → (𝑆𝐴) = Σ𝑘 ∈ (𝐴 “ ℕ)((𝐴𝑘) · 𝑘))
198196, 197syl 17 . 2 (𝐴 ∈ (𝑇𝑅) → (𝑆𝐴) = Σ𝑘 ∈ (𝐴 “ ℕ)((𝐴𝑘) · 𝑘))
199178, 195, 1983eqtr4d 2774 1 (𝐴 ∈ (𝑇𝑅) → (𝑆‘(𝐺𝐴)) = (𝑆𝐴))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395   = wceq 1540  wcel 2109  {cab 2707  wral 3044  wrex 3053  {crab 3396  Vcvv 3438  cdif 3902  cin 3904  wss 3905  c0 4286  ifcif 4478  𝒫 cpw 4553  {csn 4579  {cpr 4581  cop 4585   ciun 4944   class class class wbr 5095  {copab 5157  cmpt 5176   × cxp 5621  ccnv 5622  dom cdm 5623  cres 5625  cima 5626  ccom 5627   Fn wfn 6481  wf 6482  1-1-ontowf1o 6485  cfv 6486  (class class class)co 7353  cmpo 7355  1st c1st 7929  2nd c2nd 7930   supp csupp 8100  m cmap 8760  cen 8876  Fincfn 8879  cc 11026  0cc0 11028  1c1 11029   · cmul 11033  cle 11169  cn 12146  2c2 12201  0cn0 12402  cexp 13986  Σcsu 15611  cdvds 16181  bitscbits 16348  𝟭cind 32806
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7675  ax-inf2 9556  ax-ac2 10376  ax-cnex 11084  ax-resscn 11085  ax-1cn 11086  ax-icn 11087  ax-addcl 11088  ax-addrcl 11089  ax-mulcl 11090  ax-mulrcl 11091  ax-mulcom 11092  ax-addass 11093  ax-mulass 11094  ax-distr 11095  ax-i2m1 11096  ax-1ne0 11097  ax-1rid 11098  ax-rnegex 11099  ax-rrecex 11100  ax-cnre 11101  ax-pre-lttri 11102  ax-pre-lttrn 11103  ax-pre-ltadd 11104  ax-pre-mulgt0 11105  ax-pre-sup 11106
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3345  df-reu 3346  df-rab 3397  df-v 3440  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4862  df-int 4900  df-iun 4946  df-disj 5063  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-se 5577  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-isom 6495  df-riota 7310  df-ov 7356  df-oprab 7357  df-mpo 7358  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-oadd 8399  df-er 8632  df-map 8762  df-pm 8763  df-en 8880  df-dom 8881  df-sdom 8882  df-fin 8883  df-fsupp 9271  df-sup 9351  df-inf 9352  df-oi 9421  df-dju 9816  df-card 9854  df-acn 9857  df-ac 10029  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11367  df-neg 11368  df-div 11796  df-nn 12147  df-2 12209  df-3 12210  df-n0 12403  df-xnn0 12476  df-z 12490  df-uz 12754  df-rp 12912  df-fz 13429  df-fzo 13576  df-fl 13714  df-mod 13792  df-seq 13927  df-exp 13987  df-hash 14256  df-cj 15024  df-re 15025  df-im 15026  df-sqrt 15160  df-abs 15161  df-clim 15413  df-sum 15612  df-dvds 16182  df-bits 16351  df-ind 32807
This theorem is referenced by:  eulerpartlemn  34348
  Copyright terms: Public domain W3C validator