Theorem eulerpartlemn 31749

Description: Lemma for eulerpart 31750. (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 486	. . . . . . . . . . . . 13 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → 𝑜 = 𝑞)
2	1	fveq1d 6647	. . . . . . . . . . . 12 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → (𝑜‘𝑘) = (𝑞‘𝑘))
3	2	oveq1d 7150	. . . . . . . . . . 11 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → ((𝑜‘𝑘) · 𝑘) = ((𝑞‘𝑘) · 𝑘))
4	3	sumeq2dv 15052	. . . . . . . . . 10 ⊢ (𝑜 = 𝑞 → Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘))
5	4	eqeq1d 2800	. . . . . . . . 9 ⊢ (𝑜 = 𝑞 → (Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁 ↔ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
6	5	cbvrabv 3439	. . . . . . . 8 ⊢ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
7	6	a1i 11	. . . . . . 7 ⊢ (𝑜 = 𝑞 → {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
8	7	reseq2d 5818	. . . . . 6 ⊢ (𝑜 = 𝑞 → (𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}))
9		eqidd 2799	. . . . . 6 ⊢ (𝑜 = 𝑞 → {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
10	8, 7, 9	f1oeq123d 6585	. . . . 5 ⊢ (𝑜 = 𝑞 → ((𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}):{𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} ↔ (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}))
11	10	imbi2d 344	. . . 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 31740	. . . . . 6 ⊢ 𝐺:(𝑇 ∩ 𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅)
23	22	a1i 11	. . . . 5 ⊢ (⊤ → 𝐺:(𝑇 ∩ 𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅))
24		fveq2 6645	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 𝑜 → (𝐺‘𝑞) = (𝐺‘𝑜))
25		reseq1 5812	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑞 = 𝑜 → (𝑞 ↾ 𝐽) = (𝑜 ↾ 𝐽))
26	25	coeq2d 5697	. . . . . . . . . . . . . . . . 17 ⊢ (𝑞 = 𝑜 → (bits ∘ (𝑞 ↾ 𝐽)) = (bits ∘ (𝑜 ↾ 𝐽)))
27	26	fveq2d 6649	. . . . . . . . . . . . . . . 16 ⊢ (𝑞 = 𝑜 → (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))) = (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))
28	27	imaeq2d 5896	. . . . . . . . . . . . . . 15 ⊢ (𝑞 = 𝑜 → (𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽)))) = (𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))
29	28	fveq2d 6649	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 𝑜 → ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
30	24, 29	eqeq12d 2814	. . . . . . . . . . . . 13 ⊢ (𝑞 = 𝑜 → ((𝐺‘𝑞) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))) ↔ (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))))
31	13, 14, 15, 16, 17, 18, 19, 20, 21, 12	eulerpartlemgv 31741	. . . . . . . . . . . . 13 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑞) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))))
32	30, 31	vtoclga 3522	. . . . . . . . . . . 12 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
33	32	3ad2ant2 1131	. . . . . . . . . . 11 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
34		simp3 1135	. . . . . . . . . . 11 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
35	33, 34	eqtr4d 2836	. . . . . . . . . 10 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (𝐺‘𝑜) = 𝑑)
36	35	fveq1d 6647	. . . . . . . . 9 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → ((𝐺‘𝑜)‘𝑘) = (𝑑‘𝑘))
37	36	oveq1d 7150	. . . . . . . 8 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (((𝐺‘𝑜)‘𝑘) · 𝑘) = ((𝑑‘𝑘) · 𝑘))
38	37	sumeq2sdv 15053	. . . . . . 7 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘))
39	24	fveq2d 6649	. . . . . . . . . . 11 ⊢ (𝑞 = 𝑜 → (𝑆‘(𝐺‘𝑞)) = (𝑆‘(𝐺‘𝑜)))
40		fveq2 6645	. . . . . . . . . . 11 ⊢ (𝑞 = 𝑜 → (𝑆‘𝑞) = (𝑆‘𝑜))
41	39, 40	eqeq12d 2814	. . . . . . . . . 10 ⊢ (𝑞 = 𝑜 → ((𝑆‘(𝐺‘𝑞)) = (𝑆‘𝑞) ↔ (𝑆‘(𝐺‘𝑜)) = (𝑆‘𝑜)))
42		eulerpart.s	. . . . . . . . . . 11 ⊢ 𝑆 = (𝑓 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) ↦ Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘))
43	13, 14, 15, 16, 17, 18, 19, 20, 21, 12, 42	eulerpartlemgs2 31748	. . . . . . . . . 10 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑞)) = (𝑆‘𝑞))
44	41, 43	vtoclga 3522	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = (𝑆‘𝑜))
45		nn0ex 11891	. . . . . . . . . . . . 13 ⊢ ℕ0 ∈ V
46		0nn0 11900	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℕ0
47		1nn0 11901	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ0
48		prssi 4714	. . . . . . . . . . . . . 14 ⊢ ((0 ∈ ℕ0 ∧ 1 ∈ ℕ0) → {0, 1} ⊆ ℕ0)
49	46, 47, 48	mp2an 691	. . . . . . . . . . . . 13 ⊢ {0, 1} ⊆ ℕ0
50		mapss 8436	. . . . . . . . . . . . 13 ⊢ ((ℕ0 ∈ V ∧ {0, 1} ⊆ ℕ0) → ({0, 1} ↑m ℕ) ⊆ (ℕ0 ↑m ℕ))
51	45, 49, 50	mp2an 691	. . . . . . . . . . . 12 ⊢ ({0, 1} ↑m ℕ) ⊆ (ℕ0 ↑m ℕ)
52		ssrin 4160	. . . . . . . . . . . 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 6590	. . . . . . . . . . . . 13 ⊢ (𝐺:(𝑇 ∩ 𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅) → 𝐺:(𝑇 ∩ 𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅))
55	22, 54	ax-mp 5	. . . . . . . . . . . 12 ⊢ 𝐺:(𝑇 ∩ 𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅)
56	55	ffvelrni 6827	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) ∈ (({0, 1} ↑m ℕ) ∩ 𝑅))
57	53, 56	sseldi 3913	. . . . . . . . . 10 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅))
58	20, 42	eulerpartlemsv1 31724	. . . . . . . . . 10 ⊢ ((𝐺‘𝑜) ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘))
59	57, 58	syl 17	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘))
60	13, 14, 15, 16, 17, 18, 19, 20, 21	eulerpartlemt0 31737	. . . . . . . . . . . 12 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) ↔ (𝑜 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑜 “ ℕ) ∈ Fin ∧ (◡𝑜 “ ℕ) ⊆ 𝐽))
61	60	simp1bi 1142	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ (ℕ0 ↑m ℕ))
62		inss2 4156	. . . . . . . . . . . 12 ⊢ (𝑇 ∩ 𝑅) ⊆ 𝑅
63	62	sseli 3911	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ 𝑅)
64	61, 63	elind 4121	. . . . . . . . . 10 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅))
65	20, 42	eulerpartlemsv1 31724	. . . . . . . . . 10 ⊢ (𝑜 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) → (𝑆‘𝑜) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
66	64, 65	syl 17	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘𝑜) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
67	44, 59, 66	3eqtr3d 2841	. . . . . . . 8 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
68	67	3ad2ant2 1131	. . . . . . 7 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
69	38, 68	eqtr3d 2835	. . . . . 6 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
70	69	eqeq1d 2800	. . . . 5 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁 ↔ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁))
71	12, 23, 70	f1oresrab 6866	. . . 4 ⊢ (⊤ → (𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}):{𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
72	11, 71	chvarvv 2005	. . 3 ⊢ (⊤ → (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
73		cnveq 5708	. . . . . . . . . 10 ⊢ (𝑔 = 𝑞 → ◡𝑔 = ◡𝑞)
74	73	imaeq1d 5895	. . . . . . . . 9 ⊢ (𝑔 = 𝑞 → (◡𝑔 “ ℕ) = (◡𝑞 “ ℕ))
75	74	raleqdv 3364	. . . . . . . 8 ⊢ (𝑔 = 𝑞 → (∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
76	75	cbvrabv 3439	. . . . . . 7 ⊢ {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛} = {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛}
77		nfrab1 3337	. . . . . . . 8 ⊢ Ⅎ𝑞{𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛}
78		nfrab1 3337	. . . . . . . 8 ⊢ Ⅎ𝑞{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
79		df-3an 1086	. . . . . . . . . . . 12 ⊢ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
80	79	anbi1i 626	. . . . . . . . . . 11 ⊢ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
81	13	eulerpartleme 31731	. . . . . . . . . . . 12 ⊢ (𝑞 ∈ 𝑃 ↔ (𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
82	81	anbi1i 626	. . . . . . . . . . 11 ⊢ ((𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
83		an32 645	. . . . . . . . . . 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 31737	. . . . . . . . . . . . 13 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) ↔ (𝑞 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
86		nnex 11631	. . . . . . . . . . . . . . 15 ⊢ ℕ ∈ V
87	45, 86	elmap 8418	. . . . . . . . . . . . . 14 ⊢ (𝑞 ∈ (ℕ0 ↑m ℕ) ↔ 𝑞:ℕ⟶ℕ0)
88	87	3anbi1i 1154	. . . . . . . . . . . . 13 ⊢ ((𝑞 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽) ↔ (𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
89	85, 88	bitri 278	. . . . . . . . . . . 12 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) ↔ (𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
90		df-3an 1086	. . . . . . . . . . . 12 ⊢ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
91		dfss3 3903	. . . . . . . . . . . . . . . 16 ⊢ ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ 𝐽)
92		breq2 5034	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 = 𝑛 → (2 ∥ 𝑧 ↔ 2 ∥ 𝑛))
93	92	notbid 321	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = 𝑛 → (¬ 2 ∥ 𝑧 ↔ ¬ 2 ∥ 𝑛))
94	93, 16	elrab2 3631	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ 𝐽 ↔ (𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
95	94	ralbii 3133	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)(𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
96		r19.26 3137	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑛 ∈ (◡𝑞 “ ℕ)(𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛) ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
97	91, 95, 96	3bitri 300	. . . . . . . . . . . . . . 15 ⊢ ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
98		cnvimass 5916	. . . . . . . . . . . . . . . . . 18 ⊢ (◡𝑞 “ ℕ) ⊆ dom 𝑞
99		fdm 6495	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑞:ℕ⟶ℕ0 → dom 𝑞 = ℕ)
100	98, 99	sseqtrid 3967	. . . . . . . . . . . . . . . . 17 ⊢ (𝑞:ℕ⟶ℕ0 → (◡𝑞 “ ℕ) ⊆ ℕ)
101		dfss3 3903	. . . . . . . . . . . . . . . . 17 ⊢ ((◡𝑞 “ ℕ) ⊆ ℕ ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ)
102	100, 101	sylib 221	. . . . . . . . . . . . . . . 16 ⊢ (𝑞:ℕ⟶ℕ0 → ∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ)
103	102	biantrurd 536	. . . . . . . . . . . . . . 15 ⊢ (𝑞:ℕ⟶ℕ0 → (∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛 ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛)))
104	97, 103	bitr4id 293	. . . . . . . . . . . . . 14 ⊢ (𝑞:ℕ⟶ℕ0 → ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
105	104	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) → ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
106	105	pm5.32i 578	. . . . . . . . . . . 12 ⊢ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ (◡𝑞 “ ℕ) ⊆ 𝐽) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
107	89, 90, 106	3bitri 300	. . . . . . . . . . 11 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
108	107	anbi1i 626	. . . . . . . . . 10 ⊢ ((𝑞 ∈ (𝑇 ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
109	84, 108	bitr4i 281	. . . . . . . . 9 ⊢ ((𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ (𝑞 ∈ (𝑇 ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
110		rabid 3331	. . . . . . . . 9 ⊢ (𝑞 ∈ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} ↔ (𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
111		rabid 3331	. . . . . . . . 9 ⊢ (𝑞 ∈ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁} ↔ (𝑞 ∈ (𝑇 ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
112	109, 110, 111	3bitr4i 306	. . . . . . . 8 ⊢ (𝑞 ∈ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} ↔ 𝑞 ∈ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
113	77, 78, 112	eqri 3935	. . . . . . 7 ⊢ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
114	14, 76, 113	3eqtri 2825	. . . . . 6 ⊢ 𝑂 = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
115	114	reseq2i 5815	. . . . 5 ⊢ (𝐺 ↾ 𝑂) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
116	115	a1i 11	. . . 4 ⊢ (⊤ → (𝐺 ↾ 𝑂) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}))
117	114	a1i 11	. . . 4 ⊢ (⊤ → 𝑂 = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
118		nfcv 2955	. . . . . 6 ⊢ Ⅎ𝑑𝐷
119		nfrab1 3337	. . . . . 6 ⊢ Ⅎ𝑑{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}
120		fnima 6450	. . . . . . . . . . . . . . . . 17 ⊢ (𝑑 Fn ℕ → (𝑑 “ ℕ) = ran 𝑑)
121	120	sseq1d 3946	. . . . . . . . . . . . . . . 16 ⊢ (𝑑 Fn ℕ → ((𝑑 “ ℕ) ⊆ {0, 1} ↔ ran 𝑑 ⊆ {0, 1}))
122	121	anbi2d 631	. . . . . . . . . . . . . . 15 ⊢ (𝑑 Fn ℕ → ((ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (ran 𝑑 ⊆ ℕ0 ∧ ran 𝑑 ⊆ {0, 1})))
123		sstr 3923	. . . . . . . . . . . . . . . . 17 ⊢ ((ran 𝑑 ⊆ {0, 1} ∧ {0, 1} ⊆ ℕ0) → ran 𝑑 ⊆ ℕ0)
124	49, 123	mpan2 690	. . . . . . . . . . . . . . . 16 ⊢ (ran 𝑑 ⊆ {0, 1} → ran 𝑑 ⊆ ℕ0)
125	124	pm4.71ri 564	. . . . . . . . . . . . . . 15 ⊢ (ran 𝑑 ⊆ {0, 1} ↔ (ran 𝑑 ⊆ ℕ0 ∧ ran 𝑑 ⊆ {0, 1}))
126	122, 125	syl6bbr 292	. . . . . . . . . . . . . 14 ⊢ (𝑑 Fn ℕ → ((ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ran 𝑑 ⊆ {0, 1}))
127	126	pm5.32i 578	. . . . . . . . . . . . 13 ⊢ ((𝑑 Fn ℕ ∧ (ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1})) ↔ (𝑑 Fn ℕ ∧ ran 𝑑 ⊆ {0, 1}))
128		anass 472	. . . . . . . . . . . . 13 ⊢ (((𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (𝑑 Fn ℕ ∧ (ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1})))
129		df-f 6328	. . . . . . . . . . . . 13 ⊢ (𝑑:ℕ⟶{0, 1} ↔ (𝑑 Fn ℕ ∧ ran 𝑑 ⊆ {0, 1}))
130	127, 128, 129	3bitr4ri 307	. . . . . . . . . . . 12 ⊢ (𝑑:ℕ⟶{0, 1} ↔ ((𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
131		prex 5298	. . . . . . . . . . . . 13 ⊢ {0, 1} ∈ V
132	131, 86	elmap 8418	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ ({0, 1} ↑m ℕ) ↔ 𝑑:ℕ⟶{0, 1})
133		df-f 6328	. . . . . . . . . . . . 13 ⊢ (𝑑:ℕ⟶ℕ0 ↔ (𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0))
134	133	anbi1i 626	. . . . . . . . . . . 12 ⊢ ((𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ((𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
135	130, 132, 134	3bitr4i 306	. . . . . . . . . . 11 ⊢ (𝑑 ∈ ({0, 1} ↑m ℕ) ↔ (𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
136		vex 3444	. . . . . . . . . . . 12 ⊢ 𝑑 ∈ V
137		cnveq 5708	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑑 → ◡𝑓 = ◡𝑑)
138	137	imaeq1d 5895	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑑 → (◡𝑓 “ ℕ) = (◡𝑑 “ ℕ))
139	138	eleq1d 2874	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑑 → ((◡𝑓 “ ℕ) ∈ Fin ↔ (◡𝑑 “ ℕ) ∈ Fin))
140	136, 139, 20	elab2 3618	. . . . . . . . . . 11 ⊢ (𝑑 ∈ 𝑅 ↔ (◡𝑑 “ ℕ) ∈ Fin)
141	135, 140	anbi12i 629	. . . . . . . . . 10 ⊢ ((𝑑 ∈ ({0, 1} ↑m ℕ) ∧ 𝑑 ∈ 𝑅) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ (◡𝑑 “ ℕ) ∈ Fin))
142		elin 3897	. . . . . . . . . 10 ⊢ (𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ↔ (𝑑 ∈ ({0, 1} ↑m ℕ) ∧ 𝑑 ∈ 𝑅))
143		an32 645	. . . . . . . . . 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 626	. . . . . . . 8 ⊢ ((𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ↔ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
146	13	eulerpartleme 31731	. . . . . . . . . 10 ⊢ (𝑑 ∈ 𝑃 ↔ (𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
147	146	anbi1i 626	. . . . . . . . 9 ⊢ ((𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
148		df-3an 1086	. . . . . . . . . 10 ⊢ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
149	148	anbi1i 626	. . . . . . . . 9 ⊢ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
150		an32 645	. . . . . . . . 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 3331	. . . . . . 7 ⊢ (𝑑 ∈ {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} ↔ (𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
154	13, 14, 15	eulerpartlemd 31734	. . . . . . 7 ⊢ (𝑑 ∈ 𝐷 ↔ (𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
155	152, 153, 154	3bitr4ri 307	. . . . . 6 ⊢ (𝑑 ∈ 𝐷 ↔ 𝑑 ∈ {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
156	118, 119, 155	eqri 3935	. . . . 5 ⊢ 𝐷 = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}
157	156	a1i 11	. . . 4 ⊢ (⊤ → 𝐷 = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
158	116, 117, 157	f1oeq123d 6585	. . 3 ⊢ (⊤ → ((𝐺 ↾ 𝑂):𝑂–1-1-onto→𝐷 ↔ (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}))
159	72, 158	mpbird 260	. 2 ⊢ (⊤ → (𝐺 ↾ 𝑂):𝑂–1-1-onto→𝐷)
160	159	mptru 1545	1 ⊢ (𝐺 ↾ 𝑂):𝑂–1-1-onto→𝐷

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1084   = wceq 1538  ⊤wtru 1539   ∈ wcel 2111  {cab 2776  ∀wral 3106  {crab 3110  Vcvv 3441   ∩ cin 3880   ⊆ wss 3881  ∅c0 4243  𝒫 cpw 4497  {cpr 4527   class class class wbr 5030  {copab 5092   ↦ cmpt 5110  ^◡ccnv 5518  dom cdm 5519  ran crn 5520   ↾ cres 5521   “ cima 5522   ∘ ccom 5523   Fn wfn 6319  ⟶wf 6320  –1-1-onto→wf1o 6323  ‘cfv 6324  (class class class)co 7135   ∈ cmpo 7137   supp csupp 7813   ↑_m cmap 8389  Fincfn 8492  0cc0 10526  1c1 10527   · cmul 10531   ≤ cle 10665  ℕcn 11625  2c2 11680  ℕ₀cn0 11885  ↑cexp 13425  Σcsu 15034   ∥ cdvds 15599  bitscbits 15758  𝟭cind 31379

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441  ax-inf2 9088  ax-ac2 9874  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603  ax-pre-sup 10604

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4801  df-int 4839  df-iun 4883  df-disj 4996  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-se 5479  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6116  df-ord 6162  df-on 6163  df-lim 6164  df-suc 6165  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-isom 6333  df-riota 7093  df-ov 7138  df-oprab 7139  df-mpo 7140  df-om 7561  df-1st 7671  df-2nd 7672  df-supp 7814  df-wrecs 7930  df-recs 7991  df-rdg 8029  df-1o 8085  df-2o 8086  df-oadd 8089  df-er 8272  df-map 8391  df-pm 8392  df-en 8493  df-dom 8494  df-sdom 8495  df-fin 8496  df-fsupp 8818  df-sup 8890  df-inf 8891  df-oi 8958  df-dju 9314  df-card 9352  df-acn 9355  df-ac 9527  df-pnf 10666  df-mnf 10667  df-xr 10668  df-ltxr 10669  df-le 10670  df-sub 10861  df-neg 10862  df-div 11287  df-nn 11626  df-2 11688  df-3 11689  df-n0 11886  df-xnn0 11956  df-z 11970  df-uz 12232  df-rp 12378  df-fz 12886  df-fzo 13029  df-fl 13157  df-mod 13233  df-seq 13365  df-exp 13426  df-hash 13687  df-cj 14450  df-re 14451  df-im 14452  df-sqrt 14586  df-abs 14587  df-clim 14837  df-sum 15035  df-dvds 15600  df-bits 15761  df-ind 31380

This theorem is referenced by:  eulerpart  31750