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

Theorem eulerpartlemgh 34129
Description: Lemma for eulerpart 34133: The 𝐹 function is a bijection on the 𝑈 subsets. (Contributed by Thierry Arnoux, 15-Aug-2018.)
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 ∘ (𝑜𝐽))))))
eulerpartlemgh.1 𝑈 = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))
Assertion
Ref Expression
eulerpartlemgh (𝐴 ∈ (𝑇𝑅) → (𝐹𝑈):𝑈1-1-onto→{𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
Distinct variable groups:   𝑧,𝑡   𝑓,𝑔,𝑘,𝑛,𝑡,𝐴   𝑓,𝐽,𝑛,𝑡   𝑓,𝑁,𝑘,𝑛,𝑡   𝑛,𝑂,𝑡   𝑃,𝑔,𝑘   𝑅,𝑓,𝑘,𝑛,𝑡   𝑇,𝑛,𝑡   𝑥,𝑡,𝑦,𝑧   𝑓,𝑚,𝑥,𝑔,𝑘,𝑛,𝑡,𝐴   𝑛,𝐹,𝑡,𝑥   𝑦,𝑓,𝑛   𝑥,𝐽,𝑦   𝑡,𝑃
Allowed substitution hints:   𝐴(𝑦,𝑧,𝑜,𝑟)   𝐷(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑚,𝑛,𝑜,𝑟)   𝑃(𝑥,𝑦,𝑧,𝑓,𝑚,𝑛,𝑜,𝑟)   𝑅(𝑥,𝑦,𝑧,𝑔,𝑚,𝑜,𝑟)   𝑇(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑚,𝑜,𝑟)   𝑈(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑚,𝑛,𝑜,𝑟)   𝐹(𝑦,𝑧,𝑓,𝑔,𝑘,𝑚,𝑜,𝑟)   𝐺(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑚,𝑛,𝑜,𝑟)   𝐻(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑚,𝑛,𝑜,𝑟)   𝐽(𝑧,𝑔,𝑘,𝑚,𝑜,𝑟)   𝑀(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑚,𝑛,𝑜,𝑟)   𝑁(𝑥,𝑦,𝑧,𝑔,𝑚,𝑜,𝑟)   𝑂(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑚,𝑜,𝑟)

Proof of Theorem eulerpartlemgh
Dummy variable 𝑝 is distinct from all other variables.
StepHypRef Expression
1 eulerpart.j . . . . 5 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
2 eulerpart.f . . . . 5 𝐹 = (𝑥𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
31, 2oddpwdc 34105 . . . 4 𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ
4 f1of1 6837 . . . 4 (𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ → 𝐹:(𝐽 × ℕ0)–1-1→ℕ)
53, 4ax-mp 5 . . 3 𝐹:(𝐽 × ℕ0)–1-1→ℕ
6 eulerpartlemgh.1 . . . 4 𝑈 = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))
7 iunss 5049 . . . . 5 ( 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0) ↔ ∀𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
8 inss2 4228 . . . . . . . 8 ((𝐴 “ ℕ) ∩ 𝐽) ⊆ 𝐽
98sseli 3972 . . . . . . 7 (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) → 𝑡𝐽)
109snssd 4814 . . . . . 6 (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) → {𝑡} ⊆ 𝐽)
11 bitsss 16404 . . . . . 6 (bits‘(𝐴𝑡)) ⊆ ℕ0
12 xpss12 5693 . . . . . 6 (({𝑡} ⊆ 𝐽 ∧ (bits‘(𝐴𝑡)) ⊆ ℕ0) → ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
1310, 11, 12sylancl 584 . . . . 5 (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) → ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
147, 13mprgbir 3057 . . . 4 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0)
156, 14eqsstri 4011 . . 3 𝑈 ⊆ (𝐽 × ℕ0)
16 f1ores 6852 . . 3 ((𝐹:(𝐽 × ℕ0)–1-1→ℕ ∧ 𝑈 ⊆ (𝐽 × ℕ0)) → (𝐹𝑈):𝑈1-1-onto→(𝐹𝑈))
175, 15, 16mp2an 690 . 2 (𝐹𝑈):𝑈1-1-onto→(𝐹𝑈)
18 simpr 483 . . . . . . . . . 10 ((((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) ∧ ((2↑𝑛) · 𝑡) = 𝑝) → ((2↑𝑛) · 𝑡) = 𝑝)
19 2nn 12318 . . . . . . . . . . . . . 14 2 ∈ ℕ
2019a1i 11 . . . . . . . . . . . . 13 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → 2 ∈ ℕ)
2111sseli 3972 . . . . . . . . . . . . . 14 (𝑛 ∈ (bits‘(𝐴𝑡)) → 𝑛 ∈ ℕ0)
2221adantl 480 . . . . . . . . . . . . 13 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → 𝑛 ∈ ℕ0)
2320, 22nnexpcld 14243 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → (2↑𝑛) ∈ ℕ)
24 simplr 767 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → 𝑡 ∈ ℕ)
2523, 24nnmulcld 12298 . . . . . . . . . . 11 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → ((2↑𝑛) · 𝑡) ∈ ℕ)
2625adantr 479 . . . . . . . . . 10 ((((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) ∧ ((2↑𝑛) · 𝑡) = 𝑝) → ((2↑𝑛) · 𝑡) ∈ ℕ)
2718, 26eqeltrrd 2826 . . . . . . . . 9 ((((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) ∧ ((2↑𝑛) · 𝑡) = 𝑝) → 𝑝 ∈ ℕ)
2827rexlimdva2 3146 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) → (∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝𝑝 ∈ ℕ))
2928rexlimdva 3144 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝𝑝 ∈ ℕ))
3029pm4.71rd 561 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 ↔ (𝑝 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)))
31 rex0 4357 . . . . . . . . . . . . . . 15 ¬ ∃𝑛 ∈ ∅ ((2↑𝑛) · 𝑡) = 𝑝
32 simplr 767 . . . . . . . . . . . . . . . . . . . 20 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → 𝑡 ∈ ℕ)
33 simpr 483 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → ¬ 𝑡 ∈ (𝐴 “ ℕ))
34 eulerpart.p . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑃 = {𝑓 ∈ (ℕ0m ℕ) ∣ ((𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓𝑘) · 𝑘) = 𝑁)}
35 eulerpart.o . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑂 = {𝑔𝑃 ∣ ∀𝑛 ∈ (𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
36 eulerpart.d . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝐷 = {𝑔𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔𝑛) ≤ 1}
37 eulerpart.h . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝐻 = {𝑟 ∈ ((𝒫 ℕ0 ∩ Fin) ↑m 𝐽) ∣ (𝑟 supp ∅) ∈ Fin}
38 eulerpart.m . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑀 = (𝑟𝐻 ↦ {⟨𝑥, 𝑦⟩ ∣ (𝑥𝐽𝑦 ∈ (𝑟𝑥))})
39 eulerpart.r . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑅 = {𝑓 ∣ (𝑓 “ ℕ) ∈ Fin}
40 eulerpart.t . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑇 = {𝑓 ∈ (ℕ0m ℕ) ∣ (𝑓 “ ℕ) ⊆ 𝐽}
4134, 35, 36, 1, 2, 37, 38, 39, 40eulerpartlemt0 34120 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝐴 ∈ (𝑇𝑅) ↔ (𝐴 ∈ (ℕ0m ℕ) ∧ (𝐴 “ ℕ) ∈ Fin ∧ (𝐴 “ ℕ) ⊆ 𝐽))
4241simp1bi 1142 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐴 ∈ (𝑇𝑅) → 𝐴 ∈ (ℕ0m ℕ))
43 elmapi 8868 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐴 ∈ (ℕ0m ℕ) → 𝐴:ℕ⟶ℕ0)
4442, 43syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐴 ∈ (𝑇𝑅) → 𝐴:ℕ⟶ℕ0)
4544ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → 𝐴:ℕ⟶ℕ0)
46 ffn 6723 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐴:ℕ⟶ℕ0𝐴 Fn ℕ)
47 elpreima 7066 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐴 Fn ℕ → (𝑡 ∈ (𝐴 “ ℕ) ↔ (𝑡 ∈ ℕ ∧ (𝐴𝑡) ∈ ℕ)))
4845, 46, 473syl 18 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (𝑡 ∈ (𝐴 “ ℕ) ↔ (𝑡 ∈ ℕ ∧ (𝐴𝑡) ∈ ℕ)))
4933, 48mtbid 323 . . . . . . . . . . . . . . . . . . . . 21 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → ¬ (𝑡 ∈ ℕ ∧ (𝐴𝑡) ∈ ℕ))
50 imnan 398 . . . . . . . . . . . . . . . . . . . . 21 ((𝑡 ∈ ℕ → ¬ (𝐴𝑡) ∈ ℕ) ↔ ¬ (𝑡 ∈ ℕ ∧ (𝐴𝑡) ∈ ℕ))
5149, 50sylibr 233 . . . . . . . . . . . . . . . . . . . 20 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (𝑡 ∈ ℕ → ¬ (𝐴𝑡) ∈ ℕ))
5232, 51mpd 15 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → ¬ (𝐴𝑡) ∈ ℕ)
5345, 32ffvelcdmd 7094 . . . . . . . . . . . . . . . . . . . 20 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (𝐴𝑡) ∈ ℕ0)
54 elnn0 12507 . . . . . . . . . . . . . . . . . . . 20 ((𝐴𝑡) ∈ ℕ0 ↔ ((𝐴𝑡) ∈ ℕ ∨ (𝐴𝑡) = 0))
5553, 54sylib 217 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → ((𝐴𝑡) ∈ ℕ ∨ (𝐴𝑡) = 0))
56 orel1 886 . . . . . . . . . . . . . . . . . . 19 (¬ (𝐴𝑡) ∈ ℕ → (((𝐴𝑡) ∈ ℕ ∨ (𝐴𝑡) = 0) → (𝐴𝑡) = 0))
5752, 55, 56sylc 65 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (𝐴𝑡) = 0)
5857fveq2d 6900 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (bits‘(𝐴𝑡)) = (bits‘0))
59 0bits 16417 . . . . . . . . . . . . . . . . 17 (bits‘0) = ∅
6058, 59eqtrdi 2781 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (bits‘(𝐴𝑡)) = ∅)
6160rexeqdv 3315 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 ↔ ∃𝑛 ∈ ∅ ((2↑𝑛) · 𝑡) = 𝑝))
6231, 61mtbiri 326 . . . . . . . . . . . . . 14 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → ¬ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)
6362ex 411 . . . . . . . . . . . . 13 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) → (¬ 𝑡 ∈ (𝐴 “ ℕ) → ¬ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
6463con4d 115 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) → (∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝𝑡 ∈ (𝐴 “ ℕ)))
6564impr 453 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)) → 𝑡 ∈ (𝐴 “ ℕ))
66 eldif 3954 . . . . . . . . . . . . . . . . . . . 20 (𝑡 ∈ (ℕ ∖ 𝐽) ↔ (𝑡 ∈ ℕ ∧ ¬ 𝑡𝐽))
6734, 35, 36, 1, 2, 37, 38, 39, 40eulerpartlemf 34121 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ (ℕ ∖ 𝐽)) → (𝐴𝑡) = 0)
6866, 67sylan2br 593 . . . . . . . . . . . . . . . . . . 19 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ¬ 𝑡𝐽)) → (𝐴𝑡) = 0)
6968anassrs 466 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡𝐽) → (𝐴𝑡) = 0)
7069fveq2d 6900 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡𝐽) → (bits‘(𝐴𝑡)) = (bits‘0))
7170, 59eqtrdi 2781 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡𝐽) → (bits‘(𝐴𝑡)) = ∅)
7271rexeqdv 3315 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡𝐽) → (∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 ↔ ∃𝑛 ∈ ∅ ((2↑𝑛) · 𝑡) = 𝑝))
7331, 72mtbiri 326 . . . . . . . . . . . . . 14 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡𝐽) → ¬ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)
7473ex 411 . . . . . . . . . . . . 13 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) → (¬ 𝑡𝐽 → ¬ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
7574con4d 115 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) → (∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝𝑡𝐽))
7675impr 453 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)) → 𝑡𝐽)
7765, 76elind 4192 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽))
78 simprr 771 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)) → ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)
7977, 78jca 510 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)) → (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
8079ex 411 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → ((𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝) → (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)))
8180reximdv2 3153 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 → ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
82 ssrab2 4073 . . . . . . . . . 10 {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧} ⊆ ℕ
831, 82eqsstri 4011 . . . . . . . . 9 𝐽 ⊆ ℕ
848, 83sstri 3986 . . . . . . . 8 ((𝐴 “ ℕ) ∩ 𝐽) ⊆ ℕ
85 ssrexv 4046 . . . . . . . 8 (((𝐴 “ ℕ) ∩ 𝐽) ⊆ ℕ → (∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
8684, 85mp1i 13 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → (∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
8781, 86impbid 211 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
8830, 87bitr3d 280 . . . . 5 (𝐴 ∈ (𝑇𝑅) → ((𝑝 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝) ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
89 eqeq2 2737 . . . . . . . 8 (𝑚 = 𝑝 → (((2↑𝑛) · 𝑡) = 𝑚 ↔ ((2↑𝑛) · 𝑡) = 𝑝))
90892rexbidv 3209 . . . . . . 7 (𝑚 = 𝑝 → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚 ↔ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
9190elrab 3679 . . . . . 6 (𝑝 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ↔ (𝑝 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
9291a1i 11 . . . . 5 (𝐴 ∈ (𝑇𝑅) → (𝑝 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ↔ (𝑝 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)))
936imaeq2i 6062 . . . . . . . . 9 (𝐹𝑈) = (𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))))
94 imaiun 7255 . . . . . . . . 9 (𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))) = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(𝐹 “ ({𝑡} × (bits‘(𝐴𝑡))))
9593, 94eqtri 2753 . . . . . . . 8 (𝐹𝑈) = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(𝐹 “ ({𝑡} × (bits‘(𝐴𝑡))))
9695eleq2i 2817 . . . . . . 7 (𝑝 ∈ (𝐹𝑈) ↔ 𝑝 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))))
97 eliun 5001 . . . . . . 7 (𝑝 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))))
98 f1ofn 6839 . . . . . . . . . . . . 13 (𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ → 𝐹 Fn (𝐽 × ℕ0))
993, 98ax-mp 5 . . . . . . . . . . . 12 𝐹 Fn (𝐽 × ℕ0)
100 snssi 4813 . . . . . . . . . . . . 13 (𝑡𝐽 → {𝑡} ⊆ 𝐽)
101100, 11, 12sylancl 584 . . . . . . . . . . . 12 (𝑡𝐽 → ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
102 ovelimab 7599 . . . . . . . . . . . 12 ((𝐹 Fn (𝐽 × ℕ0) ∧ ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0)) → (𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑥 ∈ {𝑡}∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑥𝐹𝑛)))
10399, 101, 102sylancr 585 . . . . . . . . . . 11 (𝑡𝐽 → (𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑥 ∈ {𝑡}∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑥𝐹𝑛)))
104 vex 3465 . . . . . . . . . . . 12 𝑡 ∈ V
105 oveq1 7426 . . . . . . . . . . . . . 14 (𝑥 = 𝑡 → (𝑥𝐹𝑛) = (𝑡𝐹𝑛))
106105eqeq2d 2736 . . . . . . . . . . . . 13 (𝑥 = 𝑡 → (𝑝 = (𝑥𝐹𝑛) ↔ 𝑝 = (𝑡𝐹𝑛)))
107106rexbidv 3168 . . . . . . . . . . . 12 (𝑥 = 𝑡 → (∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑥𝐹𝑛) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑡𝐹𝑛)))
108104, 107rexsn 4688 . . . . . . . . . . 11 (∃𝑥 ∈ {𝑡}∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑥𝐹𝑛) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑡𝐹𝑛))
109103, 108bitrdi 286 . . . . . . . . . 10 (𝑡𝐽 → (𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑡𝐹𝑛)))
110 df-ov 7422 . . . . . . . . . . . . . . 15 (𝑡𝐹𝑛) = (𝐹‘⟨𝑡, 𝑛⟩)
111110eqeq1i 2730 . . . . . . . . . . . . . 14 ((𝑡𝐹𝑛) = 𝑝 ↔ (𝐹‘⟨𝑡, 𝑛⟩) = 𝑝)
112 eqcom 2732 . . . . . . . . . . . . . 14 ((𝑡𝐹𝑛) = 𝑝𝑝 = (𝑡𝐹𝑛))
113111, 112bitr3i 276 . . . . . . . . . . . . 13 ((𝐹‘⟨𝑡, 𝑛⟩) = 𝑝𝑝 = (𝑡𝐹𝑛))
114 opelxpi 5715 . . . . . . . . . . . . . . 15 ((𝑡𝐽𝑛 ∈ ℕ0) → ⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0))
1151, 2oddpwdcv 34106 . . . . . . . . . . . . . . . 16 (⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑(2nd ‘⟨𝑡, 𝑛⟩)) · (1st ‘⟨𝑡, 𝑛⟩)))
116 vex 3465 . . . . . . . . . . . . . . . . . . 19 𝑛 ∈ V
117104, 116op2nd 8003 . . . . . . . . . . . . . . . . . 18 (2nd ‘⟨𝑡, 𝑛⟩) = 𝑛
118117oveq2i 7430 . . . . . . . . . . . . . . . . 17 (2↑(2nd ‘⟨𝑡, 𝑛⟩)) = (2↑𝑛)
119104, 116op1st 8002 . . . . . . . . . . . . . . . . 17 (1st ‘⟨𝑡, 𝑛⟩) = 𝑡
120118, 119oveq12i 7431 . . . . . . . . . . . . . . . 16 ((2↑(2nd ‘⟨𝑡, 𝑛⟩)) · (1st ‘⟨𝑡, 𝑛⟩)) = ((2↑𝑛) · 𝑡)
121115, 120eqtrdi 2781 . . . . . . . . . . . . . . 15 (⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑𝑛) · 𝑡))
122114, 121syl 17 . . . . . . . . . . . . . 14 ((𝑡𝐽𝑛 ∈ ℕ0) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑𝑛) · 𝑡))
123122eqeq1d 2727 . . . . . . . . . . . . 13 ((𝑡𝐽𝑛 ∈ ℕ0) → ((𝐹‘⟨𝑡, 𝑛⟩) = 𝑝 ↔ ((2↑𝑛) · 𝑡) = 𝑝))
124113, 123bitr3id 284 . . . . . . . . . . . 12 ((𝑡𝐽𝑛 ∈ ℕ0) → (𝑝 = (𝑡𝐹𝑛) ↔ ((2↑𝑛) · 𝑡) = 𝑝))
12521, 124sylan2 591 . . . . . . . . . . 11 ((𝑡𝐽𝑛 ∈ (bits‘(𝐴𝑡))) → (𝑝 = (𝑡𝐹𝑛) ↔ ((2↑𝑛) · 𝑡) = 𝑝))
126125rexbidva 3166 . . . . . . . . . 10 (𝑡𝐽 → (∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑡𝐹𝑛) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
127109, 126bitrd 278 . . . . . . . . 9 (𝑡𝐽 → (𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
1289, 127syl 17 . . . . . . . 8 (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) → (𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
129128rexbiia 3081 . . . . . . 7 (∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)
13096, 97, 1293bitri 296 . . . . . 6 (𝑝 ∈ (𝐹𝑈) ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)
131130a1i 11 . . . . 5 (𝐴 ∈ (𝑇𝑅) → (𝑝 ∈ (𝐹𝑈) ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
13288, 92, 1313bitr4rd 311 . . . 4 (𝐴 ∈ (𝑇𝑅) → (𝑝 ∈ (𝐹𝑈) ↔ 𝑝 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}))
133132eqrdv 2723 . . 3 (𝐴 ∈ (𝑇𝑅) → (𝐹𝑈) = {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
134 f1oeq3 6828 . . 3 ((𝐹𝑈) = {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} → ((𝐹𝑈):𝑈1-1-onto→(𝐹𝑈) ↔ (𝐹𝑈):𝑈1-1-onto→{𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}))
135133, 134syl 17 . 2 (𝐴 ∈ (𝑇𝑅) → ((𝐹𝑈):𝑈1-1-onto→(𝐹𝑈) ↔ (𝐹𝑈):𝑈1-1-onto→{𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}))
13617, 135mpbii 232 1 (𝐴 ∈ (𝑇𝑅) → (𝐹𝑈):𝑈1-1-onto→{𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 394  wo 845   = wceq 1533  wcel 2098  {cab 2702  wral 3050  wrex 3059  {crab 3418  cdif 3941  cin 3943  wss 3944  c0 4322  𝒫 cpw 4604  {csn 4630  cop 4636   ciun 4997   class class class wbr 5149  {copab 5211  cmpt 5232   × cxp 5676  ccnv 5677  cres 5680  cima 5681  ccom 5682   Fn wfn 6544  wf 6545  1-1wf1 6546  1-1-ontowf1o 6548  cfv 6549  (class class class)co 7419  cmpo 7421  1st c1st 7992  2nd c2nd 7993   supp csupp 8165  m cmap 8845  Fincfn 8964  0cc0 11140  1c1 11141   · cmul 11145  cle 11281  cn 12245  2c2 12300  0cn0 12505  cexp 14062  Σcsu 15668  cdvds 16234  bitscbits 16397  𝟭cind 33760
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-sep 5300  ax-nul 5307  ax-pow 5365  ax-pr 5429  ax-un 7741  ax-cnex 11196  ax-resscn 11197  ax-1cn 11198  ax-icn 11199  ax-addcl 11200  ax-addrcl 11201  ax-mulcl 11202  ax-mulrcl 11203  ax-mulcom 11204  ax-addass 11205  ax-mulass 11206  ax-distr 11207  ax-i2m1 11208  ax-1ne0 11209  ax-1rid 11210  ax-rnegex 11211  ax-rrecex 11212  ax-cnre 11213  ax-pre-lttri 11214  ax-pre-lttrn 11215  ax-pre-ltadd 11216  ax-pre-mulgt0 11217  ax-pre-sup 11218
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2930  df-nel 3036  df-ral 3051  df-rex 3060  df-rmo 3363  df-reu 3364  df-rab 3419  df-v 3463  df-sbc 3774  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3964  df-nul 4323  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-op 4637  df-uni 4910  df-iun 4999  df-br 5150  df-opab 5212  df-mpt 5233  df-tr 5267  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5633  df-we 5635  df-xp 5684  df-rel 5685  df-cnv 5686  df-co 5687  df-dm 5688  df-rn 5689  df-res 5690  df-ima 5691  df-pred 6307  df-ord 6374  df-on 6375  df-lim 6376  df-suc 6377  df-iota 6501  df-fun 6551  df-fn 6552  df-f 6553  df-f1 6554  df-fo 6555  df-f1o 6556  df-fv 6557  df-riota 7375  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7872  df-1st 7994  df-2nd 7995  df-frecs 8287  df-wrecs 8318  df-recs 8392  df-rdg 8431  df-1o 8487  df-er 8725  df-map 8847  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-sup 9467  df-inf 9468  df-pnf 11282  df-mnf 11283  df-xr 11284  df-ltxr 11285  df-le 11286  df-sub 11478  df-neg 11479  df-div 11904  df-nn 12246  df-2 12308  df-n0 12506  df-z 12592  df-uz 12856  df-rp 13010  df-fz 13520  df-fzo 13663  df-fl 13793  df-seq 14003  df-exp 14063  df-dvds 16235  df-bits 16400
This theorem is referenced by:  eulerpartlemgs2  34131
  Copyright terms: Public domain W3C validator