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 34343
Description: Lemma for eulerpart 34347: 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 34319 . . . 4 𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ
4 f1of1 6861 . . . 4 (𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ → 𝐹:(𝐽 × ℕ0)–1-1→ℕ)
53, 4ax-mp 5 . . 3 𝐹:(𝐽 × ℕ0)–1-1→ℕ
6 eulerpartlemgh.1 . . . 4 𝑈 = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))
7 iunss 5068 . . . . 5 ( 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0) ↔ ∀𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
8 inss2 4259 . . . . . . . 8 ((𝐴 “ ℕ) ∩ 𝐽) ⊆ 𝐽
98sseli 4004 . . . . . . 7 (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) → 𝑡𝐽)
109snssd 4834 . . . . . 6 (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) → {𝑡} ⊆ 𝐽)
11 bitsss 16472 . . . . . 6 (bits‘(𝐴𝑡)) ⊆ ℕ0
12 xpss12 5715 . . . . . 6 (({𝑡} ⊆ 𝐽 ∧ (bits‘(𝐴𝑡)) ⊆ ℕ0) → ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
1310, 11, 12sylancl 585 . . . . 5 (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) → ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
147, 13mprgbir 3074 . . . 4 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0)
156, 14eqsstri 4043 . . 3 𝑈 ⊆ (𝐽 × ℕ0)
16 f1ores 6876 . . 3 ((𝐹:(𝐽 × ℕ0)–1-1→ℕ ∧ 𝑈 ⊆ (𝐽 × ℕ0)) → (𝐹𝑈):𝑈1-1-onto→(𝐹𝑈))
175, 15, 16mp2an 691 . 2 (𝐹𝑈):𝑈1-1-onto→(𝐹𝑈)
18 simpr 484 . . . . . . . . . 10 ((((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) ∧ ((2↑𝑛) · 𝑡) = 𝑝) → ((2↑𝑛) · 𝑡) = 𝑝)
19 2nn 12366 . . . . . . . . . . . . . 14 2 ∈ ℕ
2019a1i 11 . . . . . . . . . . . . 13 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → 2 ∈ ℕ)
2111sseli 4004 . . . . . . . . . . . . . 14 (𝑛 ∈ (bits‘(𝐴𝑡)) → 𝑛 ∈ ℕ0)
2221adantl 481 . . . . . . . . . . . . 13 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → 𝑛 ∈ ℕ0)
2320, 22nnexpcld 14294 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → (2↑𝑛) ∈ ℕ)
24 simplr 768 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → 𝑡 ∈ ℕ)
2523, 24nnmulcld 12346 . . . . . . . . . . 11 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) → ((2↑𝑛) · 𝑡) ∈ ℕ)
2625adantr 480 . . . . . . . . . 10 ((((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) ∧ ((2↑𝑛) · 𝑡) = 𝑝) → ((2↑𝑛) · 𝑡) ∈ ℕ)
2718, 26eqeltrrd 2845 . . . . . . . . 9 ((((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ 𝑛 ∈ (bits‘(𝐴𝑡))) ∧ ((2↑𝑛) · 𝑡) = 𝑝) → 𝑝 ∈ ℕ)
2827rexlimdva2 3163 . . . . . . . 8 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) → (∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝𝑝 ∈ ℕ))
2928rexlimdva 3161 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝𝑝 ∈ ℕ))
3029pm4.71rd 562 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 ↔ (𝑝 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)))
31 rex0 4383 . . . . . . . . . . . . . . 15 ¬ ∃𝑛 ∈ ∅ ((2↑𝑛) · 𝑡) = 𝑝
32 simplr 768 . . . . . . . . . . . . . . . . . . . 20 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → 𝑡 ∈ ℕ)
33 simpr 484 . . . . . . . . . . . . . . . . . . . . . 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 34334 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝐴 ∈ (𝑇𝑅) ↔ (𝐴 ∈ (ℕ0m ℕ) ∧ (𝐴 “ ℕ) ∈ Fin ∧ (𝐴 “ ℕ) ⊆ 𝐽))
4241simp1bi 1145 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐴 ∈ (𝑇𝑅) → 𝐴 ∈ (ℕ0m ℕ))
43 elmapi 8907 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐴 ∈ (ℕ0m ℕ) → 𝐴:ℕ⟶ℕ0)
4442, 43syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐴 ∈ (𝑇𝑅) → 𝐴:ℕ⟶ℕ0)
4544ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → 𝐴:ℕ⟶ℕ0)
46 ffn 6747 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐴:ℕ⟶ℕ0𝐴 Fn ℕ)
47 elpreima 7091 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐴 Fn ℕ → (𝑡 ∈ (𝐴 “ ℕ) ↔ (𝑡 ∈ ℕ ∧ (𝐴𝑡) ∈ ℕ)))
4845, 46, 473syl 18 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (𝑡 ∈ (𝐴 “ ℕ) ↔ (𝑡 ∈ ℕ ∧ (𝐴𝑡) ∈ ℕ)))
4933, 48mtbid 324 . . . . . . . . . . . . . . . . . . . . 21 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → ¬ (𝑡 ∈ ℕ ∧ (𝐴𝑡) ∈ ℕ))
50 imnan 399 . . . . . . . . . . . . . . . . . . . . 21 ((𝑡 ∈ ℕ → ¬ (𝐴𝑡) ∈ ℕ) ↔ ¬ (𝑡 ∈ ℕ ∧ (𝐴𝑡) ∈ ℕ))
5149, 50sylibr 234 . . . . . . . . . . . . . . . . . . . 20 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (𝑡 ∈ ℕ → ¬ (𝐴𝑡) ∈ ℕ))
5232, 51mpd 15 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → ¬ (𝐴𝑡) ∈ ℕ)
5345, 32ffvelcdmd 7119 . . . . . . . . . . . . . . . . . . . 20 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (𝐴𝑡) ∈ ℕ0)
54 elnn0 12555 . . . . . . . . . . . . . . . . . . . 20 ((𝐴𝑡) ∈ ℕ0 ↔ ((𝐴𝑡) ∈ ℕ ∨ (𝐴𝑡) = 0))
5553, 54sylib 218 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → ((𝐴𝑡) ∈ ℕ ∨ (𝐴𝑡) = 0))
56 orel1 887 . . . . . . . . . . . . . . . . . . 19 (¬ (𝐴𝑡) ∈ ℕ → (((𝐴𝑡) ∈ ℕ ∨ (𝐴𝑡) = 0) → (𝐴𝑡) = 0))
5752, 55, 56sylc 65 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (𝐴𝑡) = 0)
5857fveq2d 6924 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (bits‘(𝐴𝑡)) = (bits‘0))
59 0bits 16485 . . . . . . . . . . . . . . . . 17 (bits‘0) = ∅
6058, 59eqtrdi 2796 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (bits‘(𝐴𝑡)) = ∅)
6160rexeqdv 3335 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → (∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 ↔ ∃𝑛 ∈ ∅ ((2↑𝑛) · 𝑡) = 𝑝))
6231, 61mtbiri 327 . . . . . . . . . . . . . 14 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡 ∈ (𝐴 “ ℕ)) → ¬ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)
6362ex 412 . . . . . . . . . . . . 13 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) → (¬ 𝑡 ∈ (𝐴 “ ℕ) → ¬ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
6463con4d 115 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) → (∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝𝑡 ∈ (𝐴 “ ℕ)))
6564impr 454 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)) → 𝑡 ∈ (𝐴 “ ℕ))
66 eldif 3986 . . . . . . . . . . . . . . . . . . . 20 (𝑡 ∈ (ℕ ∖ 𝐽) ↔ (𝑡 ∈ ℕ ∧ ¬ 𝑡𝐽))
6734, 35, 36, 1, 2, 37, 38, 39, 40eulerpartlemf 34335 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ (ℕ ∖ 𝐽)) → (𝐴𝑡) = 0)
6866, 67sylan2br 594 . . . . . . . . . . . . . . . . . . 19 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ¬ 𝑡𝐽)) → (𝐴𝑡) = 0)
6968anassrs 467 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡𝐽) → (𝐴𝑡) = 0)
7069fveq2d 6924 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡𝐽) → (bits‘(𝐴𝑡)) = (bits‘0))
7170, 59eqtrdi 2796 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡𝐽) → (bits‘(𝐴𝑡)) = ∅)
7271rexeqdv 3335 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡𝐽) → (∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 ↔ ∃𝑛 ∈ ∅ ((2↑𝑛) · 𝑡) = 𝑝))
7331, 72mtbiri 327 . . . . . . . . . . . . . 14 (((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) ∧ ¬ 𝑡𝐽) → ¬ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)
7473ex 412 . . . . . . . . . . . . 13 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) → (¬ 𝑡𝐽 → ¬ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
7574con4d 115 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ℕ) → (∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝𝑡𝐽))
7675impr 454 . . . . . . . . . . 11 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)) → 𝑡𝐽)
7765, 76elind 4223 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽))
78 simprr 772 . . . . . . . . . 10 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)) → ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)
7977, 78jca 511 . . . . . . . . 9 ((𝐴 ∈ (𝑇𝑅) ∧ (𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)) → (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
8079ex 412 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → ((𝑡 ∈ ℕ ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝) → (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)))
8180reximdv2 3170 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 → ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
82 ssrab2 4103 . . . . . . . . . 10 {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧} ⊆ ℕ
831, 82eqsstri 4043 . . . . . . . . 9 𝐽 ⊆ ℕ
848, 83sstri 4018 . . . . . . . 8 ((𝐴 “ ℕ) ∩ 𝐽) ⊆ ℕ
85 ssrexv 4078 . . . . . . . 8 (((𝐴 “ ℕ) ∩ 𝐽) ⊆ ℕ → (∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
8684, 85mp1i 13 . . . . . . 7 (𝐴 ∈ (𝑇𝑅) → (∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
8781, 86impbid 212 . . . . . 6 (𝐴 ∈ (𝑇𝑅) → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝 ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
8830, 87bitr3d 281 . . . . 5 (𝐴 ∈ (𝑇𝑅) → ((𝑝 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝) ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
89 eqeq2 2752 . . . . . . . 8 (𝑚 = 𝑝 → (((2↑𝑛) · 𝑡) = 𝑚 ↔ ((2↑𝑛) · 𝑡) = 𝑝))
90892rexbidv 3228 . . . . . . 7 (𝑚 = 𝑝 → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚 ↔ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
9190elrab 3708 . . . . . 6 (𝑝 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ↔ (𝑝 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
9291a1i 11 . . . . 5 (𝐴 ∈ (𝑇𝑅) → (𝑝 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚} ↔ (𝑝 ∈ ℕ ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)))
936imaeq2i 6087 . . . . . . . . 9 (𝐹𝑈) = (𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))))
94 imaiun 7282 . . . . . . . . 9 (𝐹 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))) = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(𝐹 “ ({𝑡} × (bits‘(𝐴𝑡))))
9593, 94eqtri 2768 . . . . . . . 8 (𝐹𝑈) = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(𝐹 “ ({𝑡} × (bits‘(𝐴𝑡))))
9695eleq2i 2836 . . . . . . 7 (𝑝 ∈ (𝐹𝑈) ↔ 𝑝 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))))
97 eliun 5019 . . . . . . 7 (𝑝 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)(𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))))
98 f1ofn 6863 . . . . . . . . . . . . 13 (𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ → 𝐹 Fn (𝐽 × ℕ0))
993, 98ax-mp 5 . . . . . . . . . . . 12 𝐹 Fn (𝐽 × ℕ0)
100 snssi 4833 . . . . . . . . . . . . 13 (𝑡𝐽 → {𝑡} ⊆ 𝐽)
101100, 11, 12sylancl 585 . . . . . . . . . . . 12 (𝑡𝐽 → ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0))
102 ovelimab 7628 . . . . . . . . . . . 12 ((𝐹 Fn (𝐽 × ℕ0) ∧ ({𝑡} × (bits‘(𝐴𝑡))) ⊆ (𝐽 × ℕ0)) → (𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑥 ∈ {𝑡}∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑥𝐹𝑛)))
10399, 101, 102sylancr 586 . . . . . . . . . . 11 (𝑡𝐽 → (𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑥 ∈ {𝑡}∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑥𝐹𝑛)))
104 vex 3492 . . . . . . . . . . . 12 𝑡 ∈ V
105 oveq1 7455 . . . . . . . . . . . . . 14 (𝑥 = 𝑡 → (𝑥𝐹𝑛) = (𝑡𝐹𝑛))
106105eqeq2d 2751 . . . . . . . . . . . . 13 (𝑥 = 𝑡 → (𝑝 = (𝑥𝐹𝑛) ↔ 𝑝 = (𝑡𝐹𝑛)))
107106rexbidv 3185 . . . . . . . . . . . 12 (𝑥 = 𝑡 → (∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑥𝐹𝑛) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑡𝐹𝑛)))
108104, 107rexsn 4706 . . . . . . . . . . 11 (∃𝑥 ∈ {𝑡}∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑥𝐹𝑛) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑡𝐹𝑛))
109103, 108bitrdi 287 . . . . . . . . . 10 (𝑡𝐽 → (𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑡𝐹𝑛)))
110 df-ov 7451 . . . . . . . . . . . . . . 15 (𝑡𝐹𝑛) = (𝐹‘⟨𝑡, 𝑛⟩)
111110eqeq1i 2745 . . . . . . . . . . . . . 14 ((𝑡𝐹𝑛) = 𝑝 ↔ (𝐹‘⟨𝑡, 𝑛⟩) = 𝑝)
112 eqcom 2747 . . . . . . . . . . . . . 14 ((𝑡𝐹𝑛) = 𝑝𝑝 = (𝑡𝐹𝑛))
113111, 112bitr3i 277 . . . . . . . . . . . . 13 ((𝐹‘⟨𝑡, 𝑛⟩) = 𝑝𝑝 = (𝑡𝐹𝑛))
114 opelxpi 5737 . . . . . . . . . . . . . . 15 ((𝑡𝐽𝑛 ∈ ℕ0) → ⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0))
1151, 2oddpwdcv 34320 . . . . . . . . . . . . . . . 16 (⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑(2nd ‘⟨𝑡, 𝑛⟩)) · (1st ‘⟨𝑡, 𝑛⟩)))
116 vex 3492 . . . . . . . . . . . . . . . . . . 19 𝑛 ∈ V
117104, 116op2nd 8039 . . . . . . . . . . . . . . . . . 18 (2nd ‘⟨𝑡, 𝑛⟩) = 𝑛
118117oveq2i 7459 . . . . . . . . . . . . . . . . 17 (2↑(2nd ‘⟨𝑡, 𝑛⟩)) = (2↑𝑛)
119104, 116op1st 8038 . . . . . . . . . . . . . . . . 17 (1st ‘⟨𝑡, 𝑛⟩) = 𝑡
120118, 119oveq12i 7460 . . . . . . . . . . . . . . . 16 ((2↑(2nd ‘⟨𝑡, 𝑛⟩)) · (1st ‘⟨𝑡, 𝑛⟩)) = ((2↑𝑛) · 𝑡)
121115, 120eqtrdi 2796 . . . . . . . . . . . . . . 15 (⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑𝑛) · 𝑡))
122114, 121syl 17 . . . . . . . . . . . . . 14 ((𝑡𝐽𝑛 ∈ ℕ0) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑𝑛) · 𝑡))
123122eqeq1d 2742 . . . . . . . . . . . . 13 ((𝑡𝐽𝑛 ∈ ℕ0) → ((𝐹‘⟨𝑡, 𝑛⟩) = 𝑝 ↔ ((2↑𝑛) · 𝑡) = 𝑝))
124113, 123bitr3id 285 . . . . . . . . . . . 12 ((𝑡𝐽𝑛 ∈ ℕ0) → (𝑝 = (𝑡𝐹𝑛) ↔ ((2↑𝑛) · 𝑡) = 𝑝))
12521, 124sylan2 592 . . . . . . . . . . 11 ((𝑡𝐽𝑛 ∈ (bits‘(𝐴𝑡))) → (𝑝 = (𝑡𝐹𝑛) ↔ ((2↑𝑛) · 𝑡) = 𝑝))
126125rexbidva 3183 . . . . . . . . . 10 (𝑡𝐽 → (∃𝑛 ∈ (bits‘(𝐴𝑡))𝑝 = (𝑡𝐹𝑛) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
127109, 126bitrd 279 . . . . . . . . 9 (𝑡𝐽 → (𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
1289, 127syl 17 . . . . . . . 8 (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) → (𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
129128rexbiia 3098 . . . . . . 7 (∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)𝑝 ∈ (𝐹 “ ({𝑡} × (bits‘(𝐴𝑡)))) ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)
13096, 97, 1293bitri 297 . . . . . 6 (𝑝 ∈ (𝐹𝑈) ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝)
131130a1i 11 . . . . 5 (𝐴 ∈ (𝑇𝑅) → (𝑝 ∈ (𝐹𝑈) ↔ ∃𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑝))
13288, 92, 1313bitr4rd 312 . . . 4 (𝐴 ∈ (𝑇𝑅) → (𝑝 ∈ (𝐹𝑈) ↔ 𝑝 ∈ {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚}))
133132eqrdv 2738 . . 3 (𝐴 ∈ (𝑇𝑅) → (𝐹𝑈) = {𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
134 f1oeq3 6852 . . 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 233 1 (𝐴 ∈ (𝑇𝑅) → (𝐹𝑈):𝑈1-1-onto→{𝑚 ∈ ℕ ∣ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴𝑡))((2↑𝑛) · 𝑡) = 𝑚})
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 846   = wceq 1537  wcel 2108  {cab 2717  wral 3067  wrex 3076  {crab 3443  cdif 3973  cin 3975  wss 3976  c0 4352  𝒫 cpw 4622  {csn 4648  cop 4654   ciun 5015   class class class wbr 5166  {copab 5228  cmpt 5249   × cxp 5698  ccnv 5699  cres 5702  cima 5703  ccom 5704   Fn wfn 6568  wf 6569  1-1wf1 6570  1-1-ontowf1o 6572  cfv 6573  (class class class)co 7448  cmpo 7450  1st c1st 8028  2nd c2nd 8029   supp csupp 8201  m cmap 8884  Fincfn 9003  0cc0 11184  1c1 11185   · cmul 11189  cle 11325  cn 12293  2c2 12348  0cn0 12553  cexp 14112  Σcsu 15734  cdvds 16302  bitscbits 16465  𝟭cind 33974
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-pre-sup 11262
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-er 8763  df-map 8886  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-sup 9511  df-inf 9512  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-div 11948  df-nn 12294  df-2 12356  df-n0 12554  df-z 12640  df-uz 12904  df-rp 13058  df-fz 13568  df-fzo 13712  df-fl 13843  df-seq 14053  df-exp 14113  df-dvds 16303  df-bits 16468
This theorem is referenced by:  eulerpartlemgs2  34345
  Copyright terms: Public domain W3C validator