Theorem eulerpartlemn 34900

Description: Lemma for eulerpart 34901. (Contributed by Thierry Arnoux, 30-Aug-2018.)

Hypotheses

Ref	Expression
eulerpart.p	⊢ 𝑃 = {𝑓 ∈ (ℕ0 ↑m ℕ) ∣ ((◡𝑓 “ ℕ) ∈ 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	⊢ 𝑇 = {𝑓 ∈ (ℕ0 ↑m ℕ) ∣ (◡𝑓 “ ℕ) ⊆ 𝐽}
eulerpart.g	⊢ 𝐺 = (𝑜 ∈ (𝑇 ∩ 𝑅) ↦ ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
eulerpart.s	⊢ 𝑆 = (𝑓 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) ↦ Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘))

Assertion

Ref	Expression
eulerpartlemn	⊢ (𝐺 ↾ 𝑂):𝑂–1-1-onto→𝐷

Distinct variable groups:   𝑓,𝑔,𝑘,𝑛,𝑜,𝑟,𝑥,𝑦,𝑧   𝑘,𝐹,𝑛,𝑜,𝑥,𝑦   𝑓,𝐺,𝑘,𝑜   𝑜,𝐻,𝑟   𝑓,𝐽,𝑘,𝑛,𝑜,𝑟,𝑥,𝑦   𝑘,𝑀,𝑛,𝑜,𝑟,𝑥,𝑦   𝑓,𝑁,𝑔,𝑘,𝑛,𝑜,𝑥   𝑛,𝑂,𝑟,𝑥,𝑦   𝑃,𝑔,𝑘,𝑛   𝑅,𝑓,𝑘,𝑛,𝑜,𝑟,𝑥,𝑦   𝑇,𝑓,𝑘,𝑛,𝑜,𝑟,𝑥,𝑦

Allowed substitution hints:   𝐷(𝑥, 𝑦, 𝑧, 𝑓, 𝑔, 𝑘, 𝑛, 𝑜, 𝑟)   𝑃(𝑥, 𝑦, 𝑧, 𝑓, 𝑜, 𝑟)   𝑅(𝑧, 𝑔)   𝑆(𝑥, 𝑦, 𝑧, 𝑓, 𝑔, 𝑘, 𝑛, 𝑜, 𝑟)   𝑇(𝑧, 𝑔)   𝐹(𝑧, 𝑓, 𝑔, 𝑟)   𝐺(𝑥, 𝑦, 𝑧, 𝑔, 𝑛, 𝑟)   𝐻(𝑥, 𝑦, 𝑧, 𝑓, 𝑔, 𝑘, 𝑛)   𝐽(𝑧, 𝑔)   𝑀(𝑧, 𝑓, 𝑔)   𝑁(𝑦, 𝑧, 𝑟)   𝑂(𝑧, 𝑓, 𝑔, 𝑘, 𝑜)

Proof of Theorem eulerpartlemn

Dummy variables 𝑑 𝑞 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 488	. . . . . . . . . . . . 13 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → 𝑜 = 𝑞)
2	1	fveq1d 6884	. . . . . . . . . . . 12 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → (𝑜‘𝑘) = (𝑞‘𝑘))
3	2	oveq1d 7432	. . . . . . . . . . 11 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → ((𝑜‘𝑘) · 𝑘) = ((𝑞‘𝑘) · 𝑘))
4	3	sumeq2dv 15793	. . . . . . . . . 10 ⊢ (𝑜 = 𝑞 → Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘))
5	4	eqeq1d 2764	. . . . . . . . 9 ⊢ (𝑜 = 𝑞 → (Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁 ↔ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
6	5	cbvrabv 3424	. . . . . . . 8 ⊢ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
7	6	a1i 11	. . . . . . 7 ⊢ (𝑜 = 𝑞 → {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
8	7	reseq2d 5976	. . . . . 6 ⊢ (𝑜 = 𝑞 → (𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}))
9		eqidd 2763	. . . . . 6 ⊢ (𝑜 = 𝑞 → {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
10	8, 7, 9	f1oeq123d 6815	. . . . 5 ⊢ (𝑜 = 𝑞 → ((𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}):{𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} ↔ (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}))
11	10	imbi2d 343	. . . 4 ⊢ (𝑜 = 𝑞 → ((⊤ → (𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}):{𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}) ↔ (⊤ → (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})))
12		eulerpart.g	. . . . 5 ⊢ 𝐺 = (𝑜 ∈ (𝑇 ∩ 𝑅) ↦ ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
13		eulerpart.p	. . . . . . 7 ⊢ 𝑃 = {𝑓 ∈ (ℕ0 ↑m ℕ) ∣ ((◡𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘) = 𝑁)}
14		eulerpart.o	. . . . . . 7 ⊢ 𝑂 = {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
15		eulerpart.d	. . . . . . 7 ⊢ 𝐷 = {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔‘𝑛) ≤ 1}
16		eulerpart.j	. . . . . . 7 ⊢ 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
17		eulerpart.f	. . . . . . 7 ⊢ 𝐹 = (𝑥 ∈ 𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
18		eulerpart.h	. . . . . . 7 ⊢ 𝐻 = {𝑟 ∈ ((𝒫 ℕ0 ∩ Fin) ↑m 𝐽) ∣ (𝑟 supp ∅) ∈ Fin}
19		eulerpart.m	. . . . . . 7 ⊢ 𝑀 = (𝑟 ∈ 𝐻 ↦ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ (𝑟‘𝑥))})
20		eulerpart.r	. . . . . . 7 ⊢ 𝑅 = {𝑓 ∣ (◡𝑓 “ ℕ) ∈ Fin}
21		eulerpart.t	. . . . . . 7 ⊢ 𝑇 = {𝑓 ∈ (ℕ0 ↑m ℕ) ∣ (◡𝑓 “ ℕ) ⊆ 𝐽}
22	13, 14, 15, 16, 17, 18, 19, 20, 21, 12	eulerpartgbij 34891	. . . . . 6 ⊢ 𝐺:(𝑇 ∩ 𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅)
23	22	a1i 11	. . . . 5 ⊢ (⊤ → 𝐺:(𝑇 ∩ 𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅))
24		fveq2 6882	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 𝑜 → (𝐺‘𝑞) = (𝐺‘𝑜))
25		reseq1 5970	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑞 = 𝑜 → (𝑞 ↾ 𝐽) = (𝑜 ↾ 𝐽))
26	25	coeq2d 5846	. . . . . . . . . . . . . . . . 17 ⊢ (𝑞 = 𝑜 → (bits ∘ (𝑞 ↾ 𝐽)) = (bits ∘ (𝑜 ↾ 𝐽)))
27	26	fveq2d 6886	. . . . . . . . . . . . . . . 16 ⊢ (𝑞 = 𝑜 → (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))) = (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))
28	27	imaeq2d 6060	. . . . . . . . . . . . . . 15 ⊢ (𝑞 = 𝑜 → (𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽)))) = (𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))
29	28	fveq2d 6886	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 𝑜 → ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
30	24, 29	eqeq12d 2778	. . . . . . . . . . . . 13 ⊢ (𝑞 = 𝑜 → ((𝐺‘𝑞) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))) ↔ (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))))
31	13, 14, 15, 16, 17, 18, 19, 20, 21, 12	eulerpartlemgv 34892	. . . . . . . . . . . . 13 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑞) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))))
32	30, 31	vtoclga 3539	. . . . . . . . . . . 12 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
33	32	3ad2ant2 1152	. . . . . . . . . . 11 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
34		simp3 1156	. . . . . . . . . . 11 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
35	33, 34	eqtr4d 2800	. . . . . . . . . 10 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (𝐺‘𝑜) = 𝑑)
36	35	fveq1d 6884	. . . . . . . . 9 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → ((𝐺‘𝑜)‘𝑘) = (𝑑‘𝑘))
37	36	oveq1d 7432	. . . . . . . 8 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (((𝐺‘𝑜)‘𝑘) · 𝑘) = ((𝑑‘𝑘) · 𝑘))
38	37	sumeq2sdv 15794	. . . . . . 7 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘))
39	24	fveq2d 6886	. . . . . . . . . . 11 ⊢ (𝑞 = 𝑜 → (𝑆‘(𝐺‘𝑞)) = (𝑆‘(𝐺‘𝑜)))
40		fveq2 6882	. . . . . . . . . . 11 ⊢ (𝑞 = 𝑜 → (𝑆‘𝑞) = (𝑆‘𝑜))
41	39, 40	eqeq12d 2778	. . . . . . . . . 10 ⊢ (𝑞 = 𝑜 → ((𝑆‘(𝐺‘𝑞)) = (𝑆‘𝑞) ↔ (𝑆‘(𝐺‘𝑜)) = (𝑆‘𝑜)))
42		eulerpart.s	. . . . . . . . . . 11 ⊢ 𝑆 = (𝑓 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) ↦ Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘))
43	13, 14, 15, 16, 17, 18, 19, 20, 21, 12, 42	eulerpartlemgs2 34899	. . . . . . . . . 10 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑞)) = (𝑆‘𝑞))
44	41, 43	vtoclga 3539	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = (𝑆‘𝑜))
45		nn0ex 12538	. . . . . . . . . . . . 13 ⊢ ℕ0 ∈ V
46		0nn0 12547	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℕ0
47		1nn0 12548	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ0
48		prssi 4785	. . . . . . . . . . . . . 14 ⊢ ((0 ∈ ℕ0 ∧ 1 ∈ ℕ0) → {0, 1} ⊆ ℕ0)
49	46, 47, 48	mp2an 705	. . . . . . . . . . . . 13 ⊢ {0, 1} ⊆ ℕ0
50		mapss 8900	. . . . . . . . . . . . 13 ⊢ ((ℕ0 ∈ V ∧ {0, 1} ⊆ ℕ0) → ({0, 1} ↑m ℕ) ⊆ (ℕ0 ↑m ℕ))
51	45, 49, 50	mp2an 705	. . . . . . . . . . . 12 ⊢ ({0, 1} ↑m ℕ) ⊆ (ℕ0 ↑m ℕ)
52		ssrin 4190	. . . . . . . . . . . 12 ⊢ (({0, 1} ↑m ℕ) ⊆ (ℕ0 ↑m ℕ) → (({0, 1} ↑m ℕ) ∩ 𝑅) ⊆ ((ℕ0 ↑m ℕ) ∩ 𝑅))
53	51, 52	ax-mp 5	. . . . . . . . . . 11 ⊢ (({0, 1} ↑m ℕ) ∩ 𝑅) ⊆ ((ℕ0 ↑m ℕ) ∩ 𝑅)
54		f1of 6821	. . . . . . . . . . . . 13 ⊢ (𝐺:(𝑇 ∩ 𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅) → 𝐺:(𝑇 ∩ 𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅))
55	22, 54	ax-mp 5	. . . . . . . . . . . 12 ⊢ 𝐺:(𝑇 ∩ 𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅)
56	55	ffvelcdmi 7080	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) ∈ (({0, 1} ↑m ℕ) ∩ 𝑅))
57	53, 56	sselid 3932	. . . . . . . . . 10 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅))
58	20, 42	eulerpartlemsv1 34875	. . . . . . . . . 10 ⊢ ((𝐺‘𝑜) ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘))
59	57, 58	syl 18	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘))
60	13, 14, 15, 16, 17, 18, 19, 20, 21	eulerpartlemt0 34888	. . . . . . . . . . . 12 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) ↔ (𝑜 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑜 “ ℕ) ∈ Fin ∧ (◡𝑜 “ ℕ) ⊆ 𝐽))
61	60	simp1bi 1163	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ (ℕ0 ↑m ℕ))
62		inss2 4186	. . . . . . . . . . . 12 ⊢ (𝑇 ∩ 𝑅) ⊆ 𝑅
63	62	sseli 3930	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ 𝑅)
64	61, 63	elind 4149	. . . . . . . . . 10 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅))
65	20, 42	eulerpartlemsv1 34875	. . . . . . . . . 10 ⊢ (𝑜 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) → (𝑆‘𝑜) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
66	64, 65	syl 18	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘𝑜) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
67	44, 59, 66	3eqtr3d 2805	. . . . . . . 8 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
68	67	3ad2ant2 1152	. . . . . . 7 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
69	38, 68	eqtr3d 2799	. . . . . 6 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
70	69	eqeq1d 2764	. . . . 5 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁 ↔ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁))
71	12, 23, 70	f1oresrab 7125	. . . 4 ⊢ (⊤ → (𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}):{𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
72	11, 71	chvarvv 2022	. . 3 ⊢ (⊤ → (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
73		cnveq 5857	. . . . . . . . . 10 ⊢ (𝑔 = 𝑞 → ◡𝑔 = ◡𝑞)
74	73	imaeq1d 6059	. . . . . . . . 9 ⊢ (𝑔 = 𝑞 → (◡𝑔 “ ℕ) = (◡𝑞 “ ℕ))
75	74	raleqdv 3321	. . . . . . . 8 ⊢ (𝑔 = 𝑞 → (∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
76	75	cbvrabv 3424	. . . . . . 7 ⊢ {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛} = {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛}
77		nfrab1 3434	. . . . . . . 8 ⊢ Ⅎ𝑞{𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛}
78		nfrab1 3434	. . . . . . . 8 ⊢ Ⅎ𝑞{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
79		df-3an 1105	. . . . . . . . . . . 12 ⊢ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
80	79	anbi1i 636	. . . . . . . . . . 11 ⊢ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
81	13	eulerpartleme 34882	. . . . . . . . . . . 12 ⊢ (𝑞 ∈ 𝑃 ↔ (𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
82	81	anbi1i 636	. . . . . . . . . . 11 ⊢ ((𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
83		an32 659	. . . . . . . . . . 11 ⊢ ((((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
84	80, 82, 83	3bitr4i 306	. . . . . . . . . 10 ⊢ ((𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
85	13, 14, 15, 16, 17, 18, 19, 20, 21	eulerpartlemt0 34888	. . . . . . . . . . . . 13 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) ↔ (𝑞 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
86		nnex 12267	. . . . . . . . . . . . . . 15 ⊢ ℕ ∈ V
87	45, 86	elmap 8882	. . . . . . . . . . . . . 14 ⊢ (𝑞 ∈ (ℕ0 ↑m ℕ) ↔ 𝑞:ℕ⟶ℕ0)
88	87	3anbi1i 1175	. . . . . . . . . . . . 13 ⊢ ((𝑞 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽) ↔ (𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
89	85, 88	bitri 278	. . . . . . . . . . . 12 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) ↔ (𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
90		df-3an 1105	. . . . . . . . . . . 12 ⊢ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
91		dfss3 3923	. . . . . . . . . . . . . . . 16 ⊢ ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ 𝐽)
92		breq2 5111	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 = 𝑛 → (2 ∥ 𝑧 ↔ 2 ∥ 𝑛))
93	92	notbid 321	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = 𝑛 → (¬ 2 ∥ 𝑧 ↔ ¬ 2 ∥ 𝑛))
94	93, 16	elrab2 3652	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ 𝐽 ↔ (𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
95	94	ralbii 3110	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)(𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
96		r19.26 3124	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑛 ∈ (◡𝑞 “ ℕ)(𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛) ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
97	91, 95, 96	3bitri 300	. . . . . . . . . . . . . . 15 ⊢ ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
98		cnvimass 6082	. . . . . . . . . . . . . . . . . 18 ⊢ (◡𝑞 “ ℕ) ⊆ dom 𝑞
99		fdm 6716	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑞:ℕ⟶ℕ0 → dom 𝑞 = ℕ)
100	98, 99	sseqtrid 3976	. . . . . . . . . . . . . . . . 17 ⊢ (𝑞:ℕ⟶ℕ0 → (◡𝑞 “ ℕ) ⊆ ℕ)
101		dfss3 3923	. . . . . . . . . . . . . . . . 17 ⊢ ((◡𝑞 “ ℕ) ⊆ ℕ ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ)
102	100, 101	sylib 221	. . . . . . . . . . . . . . . 16 ⊢ (𝑞:ℕ⟶ℕ0 → ∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ)
103	102	biantrurd 542	. . . . . . . . . . . . . . 15 ⊢ (𝑞:ℕ⟶ℕ0 → (∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛 ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛)))
104	97, 103	bitr4id 293	. . . . . . . . . . . . . 14 ⊢ (𝑞:ℕ⟶ℕ0 → ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
105	104	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) → ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
106	105	pm5.32i 585	. . . . . . . . . . . 12 ⊢ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ (◡𝑞 “ ℕ) ⊆ 𝐽) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
107	89, 90, 106	3bitri 300	. . . . . . . . . . 11 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
108	107	anbi1i 636	. . . . . . . . . 10 ⊢ ((𝑞 ∈ (𝑇 ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
109	84, 108	bitr4i 281	. . . . . . . . 9 ⊢ ((𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ (𝑞 ∈ (𝑇 ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
110		rabid 3435	. . . . . . . . 9 ⊢ (𝑞 ∈ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} ↔ (𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
111		rabid 3435	. . . . . . . . 9 ⊢ (𝑞 ∈ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁} ↔ (𝑞 ∈ (𝑇 ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
112	109, 110, 111	3bitr4i 306	. . . . . . . 8 ⊢ (𝑞 ∈ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} ↔ 𝑞 ∈ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
113	77, 78, 112	eqri 3954	. . . . . . 7 ⊢ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
114	14, 76, 113	3eqtri 2789	. . . . . 6 ⊢ 𝑂 = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
115	114	reseq2i 5973	. . . . 5 ⊢ (𝐺 ↾ 𝑂) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
116	115	a1i 11	. . . 4 ⊢ (⊤ → (𝐺 ↾ 𝑂) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}))
117	114	a1i 11	. . . 4 ⊢ (⊤ → 𝑂 = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
118		nfcv 2924	. . . . . 6 ⊢ Ⅎ𝑑𝐷
119		nfrab1 3434	. . . . . 6 ⊢ Ⅎ𝑑{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}
120		fnima 6666	. . . . . . . . . . . . . . . . 17 ⊢ (𝑑 Fn ℕ → (𝑑 “ ℕ) = ran 𝑑)
121	120	sseq1d 3965	. . . . . . . . . . . . . . . 16 ⊢ (𝑑 Fn ℕ → ((𝑑 “ ℕ) ⊆ {0, 1} ↔ ran 𝑑 ⊆ {0, 1}))
122	121	anbi2d 642	. . . . . . . . . . . . . . 15 ⊢ (𝑑 Fn ℕ → ((ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (ran 𝑑 ⊆ ℕ0 ∧ ran 𝑑 ⊆ {0, 1})))
123		sstr 3942	. . . . . . . . . . . . . . . . 17 ⊢ ((ran 𝑑 ⊆ {0, 1} ∧ {0, 1} ⊆ ℕ0) → ran 𝑑 ⊆ ℕ0)
124	49, 123	mpan2 704	. . . . . . . . . . . . . . . 16 ⊢ (ran 𝑑 ⊆ {0, 1} → ran 𝑑 ⊆ ℕ0)
125	124	pm4.71ri 570	. . . . . . . . . . . . . . 15 ⊢ (ran 𝑑 ⊆ {0, 1} ↔ (ran 𝑑 ⊆ ℕ0 ∧ ran 𝑑 ⊆ {0, 1}))
126	122, 125	bitr4di 292	. . . . . . . . . . . . . 14 ⊢ (𝑑 Fn ℕ → ((ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ran 𝑑 ⊆ {0, 1}))
127	126	pm5.32i 585	. . . . . . . . . . . . 13 ⊢ ((𝑑 Fn ℕ ∧ (ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1})) ↔ (𝑑 Fn ℕ ∧ ran 𝑑 ⊆ {0, 1}))
128		anass 474	. . . . . . . . . . . . 13 ⊢ (((𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (𝑑 Fn ℕ ∧ (ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1})))
129		df-f 6541	. . . . . . . . . . . . 13 ⊢ (𝑑:ℕ⟶{0, 1} ↔ (𝑑 Fn ℕ ∧ ran 𝑑 ⊆ {0, 1}))
130	127, 128, 129	3bitr4ri 307	. . . . . . . . . . . 12 ⊢ (𝑑:ℕ⟶{0, 1} ↔ ((𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
131		prex 5407	. . . . . . . . . . . . 13 ⊢ {0, 1} ∈ V
132	131, 86	elmap 8882	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ ({0, 1} ↑m ℕ) ↔ 𝑑:ℕ⟶{0, 1})
133		df-f 6541	. . . . . . . . . . . . 13 ⊢ (𝑑:ℕ⟶ℕ0 ↔ (𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0))
134	133	anbi1i 636	. . . . . . . . . . . 12 ⊢ ((𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ((𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
135	130, 132, 134	3bitr4i 306	. . . . . . . . . . 11 ⊢ (𝑑 ∈ ({0, 1} ↑m ℕ) ↔ (𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
136		vex 3457	. . . . . . . . . . . 12 ⊢ 𝑑 ∈ V
137		cnveq 5857	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑑 → ◡𝑓 = ◡𝑑)
138	137	imaeq1d 6059	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑑 → (◡𝑓 “ ℕ) = (◡𝑑 “ ℕ))
139	138	eleq1d 2847	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑑 → ((◡𝑓 “ ℕ) ∈ Fin ↔ (◡𝑑 “ ℕ) ∈ Fin))
140	136, 139, 20	elab2 3639	. . . . . . . . . . 11 ⊢ (𝑑 ∈ 𝑅 ↔ (◡𝑑 “ ℕ) ∈ Fin)
141	135, 140	anbi12i 640	. . . . . . . . . 10 ⊢ ((𝑑 ∈ ({0, 1} ↑m ℕ) ∧ 𝑑 ∈ 𝑅) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ (◡𝑑 “ ℕ) ∈ Fin))
142		elin 3918	. . . . . . . . . 10 ⊢ (𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ↔ (𝑑 ∈ ({0, 1} ↑m ℕ) ∧ 𝑑 ∈ 𝑅))
143		an32 659	. . . . . . . . . 10 ⊢ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ (◡𝑑 “ ℕ) ∈ Fin))
144	141, 142, 143	3bitr4i 306	. . . . . . . . 9 ⊢ (𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
145	144	anbi1i 636	. . . . . . . 8 ⊢ ((𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ↔ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
146	13	eulerpartleme 34882	. . . . . . . . . 10 ⊢ (𝑑 ∈ 𝑃 ↔ (𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
147	146	anbi1i 636	. . . . . . . . 9 ⊢ ((𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
148		df-3an 1105	. . . . . . . . . 10 ⊢ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
149	148	anbi1i 636	. . . . . . . . 9 ⊢ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
150		an32 659	. . . . . . . . 9 ⊢ ((((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
151	147, 149, 150	3bitri 300	. . . . . . . 8 ⊢ ((𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
152	145, 151	bitr4i 281	. . . . . . 7 ⊢ ((𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ↔ (𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
153		rabid 3435	. . . . . . 7 ⊢ (𝑑 ∈ {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} ↔ (𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
154	13, 14, 15	eulerpartlemd 34885	. . . . . . 7 ⊢ (𝑑 ∈ 𝐷 ↔ (𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
155	152, 153, 154	3bitr4ri 307	. . . . . 6 ⊢ (𝑑 ∈ 𝐷 ↔ 𝑑 ∈ {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
156	118, 119, 155	eqri 3954	. . . . 5 ⊢ 𝐷 = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}
157	156	a1i 11	. . . 4 ⊢ (⊤ → 𝐷 = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
158	116, 117, 157	f1oeq123d 6815	. . 3 ⊢ (⊤ → ((𝐺 ↾ 𝑂):𝑂–1-1-onto→𝐷 ↔ (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}))
159	72, 158	mpbird 260	. 2 ⊢ (⊤ → (𝐺 ↾ 𝑂):𝑂–1-1-onto→𝐷)
160	159	mptru 1577	1 ⊢ (𝐺 ↾ 𝑂):𝑂–1-1-onto→𝐷

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570  ⊤wtru 1571   ∈ wcel 2145  {cab 2740  ∀wral 3078  {crab 3414  Vcvv 3453   ∩ cin 3901   ⊆ wss 3902  ∅c0 4282  𝒫 cpw 4560  {cpr 4589   class class class wbr 5107  {copab 5171   ↦ cmpt 5190  ^◡ccnv 5658  dom cdm 5659  ran crn 5660   ↾ cres 5661   “ cima 5662   ∘ ccom 5663   Fn wfn 6532  ⟶wf 6533  –1-1-onto→wf1o 6536  ‘cfv 6537  (class class class)co 7417   ∈ cmpo 7419   supp csupp 8162   ↑_m cmap 8830  Fincfn 8956  0cc0 11128  1c1 11129   · cmul 11133   ≤ cle 11272  𝟭cind 12246  ℕcn 12261  2c2 12323  ℕ₀cn0 12532  ↑cexp 14129  Σcsu 15777   ∥ cdvds 16348  bitscbits 16515

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 2215  ax-ext 2734  ax-rep 5236  ax-sep 5255  ax-nul 5267  ax-pow 5334  ax-pr 5402  ax-un 7740  ax-inf2 9624  ax-cnex 11184  ax-resscn 11185  ax-1cn 11186  ax-icn 11187  ax-addcl 11188  ax-addrcl 11189  ax-mulcl 11190  ax-mulrcl 11191  ax-mulcom 11192  ax-addass 11193  ax-mulass 11194  ax-distr 11195  ax-i2m1 11196  ax-1ne0 11197  ax-1rid 11198  ax-rnegex 11199  ax-rrecex 11200  ax-cnre 11201  ax-pre-lttri 11202  ax-pre-lttrn 11203  ax-pre-ltadd 11204  ax-pre-mulgt0 11205  ax-pre-sup 11206

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 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3064  df-ral 3079  df-rex 3089  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4871  df-int 4911  df-iun 4956  df-disj 5075  df-br 5108  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-se 5613  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7374  df-ov 7420  df-oprab 7421  df-mpo 7422  df-om 7867  df-1st 7990  df-2nd 7991  df-supp 8163  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-2o 8460  df-oadd 8463  df-er 8700  df-map 8832  df-pm 8833  df-en 8957  df-dom 8958  df-sdom 8959  df-fin 8960  df-fsupp 9336  df-sup 9416  df-inf 9417  df-oi 9486  df-dju 9910  df-card 9948  df-acn 9951  df-pnf 11273  df-mnf 11274  df-xr 11275  df-ltxr 11276  df-le 11277  df-sub 11471  df-neg 11472  df-div 11900  df-ind 12247  df-nn 12262  df-2 12331  df-3 12332  df-n0 12533  df-xnn0 12606  df-z 12620  df-uz 12892  df-rp 13047  df-fz 13566  df-fzo 13714  df-fl 13857  df-mod 13935  df-seq 14070  df-exp 14130  df-hash 14399  df-cj 15190  df-re 15191  df-im 15192  df-sqrt 15326  df-abs 15327  df-clim 15579  df-sum 15778  df-dvds 16349  df-bits 16518

This theorem is used by:  eulerpart  34901