Theorem eulerpartlemn 34558

Description: Lemma for eulerpart 34559. (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 482	. . . . . . . . . . . . 13 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → 𝑜 = 𝑞)
2	1	fveq1d 6844	. . . . . . . . . . . 12 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → (𝑜‘𝑘) = (𝑞‘𝑘))
3	2	oveq1d 7383	. . . . . . . . . . 11 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → ((𝑜‘𝑘) · 𝑘) = ((𝑞‘𝑘) · 𝑘))
4	3	sumeq2dv 15637	. . . . . . . . . 10 ⊢ (𝑜 = 𝑞 → Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘))
5	4	eqeq1d 2739	. . . . . . . . 9 ⊢ (𝑜 = 𝑞 → (Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁 ↔ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
6	5	cbvrabv 3411	. . . . . . . 8 ⊢ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
7	6	a1i 11	. . . . . . 7 ⊢ (𝑜 = 𝑞 → {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
8	7	reseq2d 5946	. . . . . 6 ⊢ (𝑜 = 𝑞 → (𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}))
9		eqidd 2738	. . . . . 6 ⊢ (𝑜 = 𝑞 → {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
10	8, 7, 9	f1oeq123d 6776	. . . . 5 ⊢ (𝑜 = 𝑞 → ((𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}):{𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} ↔ (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}))
11	10	imbi2d 340	. . . 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 34549	. . . . . 6 ⊢ 𝐺:(𝑇 ∩ 𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅)
23	22	a1i 11	. . . . 5 ⊢ (⊤ → 𝐺:(𝑇 ∩ 𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅))
24		fveq2 6842	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 𝑜 → (𝐺‘𝑞) = (𝐺‘𝑜))
25		reseq1 5940	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑞 = 𝑜 → (𝑞 ↾ 𝐽) = (𝑜 ↾ 𝐽))
26	25	coeq2d 5819	. . . . . . . . . . . . . . . . 17 ⊢ (𝑞 = 𝑜 → (bits ∘ (𝑞 ↾ 𝐽)) = (bits ∘ (𝑜 ↾ 𝐽)))
27	26	fveq2d 6846	. . . . . . . . . . . . . . . 16 ⊢ (𝑞 = 𝑜 → (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))) = (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))
28	27	imaeq2d 6027	. . . . . . . . . . . . . . 15 ⊢ (𝑞 = 𝑜 → (𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽)))) = (𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))
29	28	fveq2d 6846	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 𝑜 → ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
30	24, 29	eqeq12d 2753	. . . . . . . . . . . . 13 ⊢ (𝑞 = 𝑜 → ((𝐺‘𝑞) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))) ↔ (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))))
31	13, 14, 15, 16, 17, 18, 19, 20, 21, 12	eulerpartlemgv 34550	. . . . . . . . . . . . 13 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑞) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))))
32	30, 31	vtoclga 3534	. . . . . . . . . . . 12 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
33	32	3ad2ant2 1135	. . . . . . . . . . 11 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
34		simp3 1139	. . . . . . . . . . 11 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
35	33, 34	eqtr4d 2775	. . . . . . . . . 10 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (𝐺‘𝑜) = 𝑑)
36	35	fveq1d 6844	. . . . . . . . 9 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → ((𝐺‘𝑜)‘𝑘) = (𝑑‘𝑘))
37	36	oveq1d 7383	. . . . . . . 8 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (((𝐺‘𝑜)‘𝑘) · 𝑘) = ((𝑑‘𝑘) · 𝑘))
38	37	sumeq2sdv 15638	. . . . . . 7 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘))
39	24	fveq2d 6846	. . . . . . . . . . 11 ⊢ (𝑞 = 𝑜 → (𝑆‘(𝐺‘𝑞)) = (𝑆‘(𝐺‘𝑜)))
40		fveq2 6842	. . . . . . . . . . 11 ⊢ (𝑞 = 𝑜 → (𝑆‘𝑞) = (𝑆‘𝑜))
41	39, 40	eqeq12d 2753	. . . . . . . . . 10 ⊢ (𝑞 = 𝑜 → ((𝑆‘(𝐺‘𝑞)) = (𝑆‘𝑞) ↔ (𝑆‘(𝐺‘𝑜)) = (𝑆‘𝑜)))
42		eulerpart.s	. . . . . . . . . . 11 ⊢ 𝑆 = (𝑓 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) ↦ Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘))
43	13, 14, 15, 16, 17, 18, 19, 20, 21, 12, 42	eulerpartlemgs2 34557	. . . . . . . . . 10 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑞)) = (𝑆‘𝑞))
44	41, 43	vtoclga 3534	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = (𝑆‘𝑜))
45		nn0ex 12419	. . . . . . . . . . . . 13 ⊢ ℕ0 ∈ V
46		0nn0 12428	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℕ0
47		1nn0 12429	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ0
48		prssi 4779	. . . . . . . . . . . . . 14 ⊢ ((0 ∈ ℕ0 ∧ 1 ∈ ℕ0) → {0, 1} ⊆ ℕ0)
49	46, 47, 48	mp2an 693	. . . . . . . . . . . . 13 ⊢ {0, 1} ⊆ ℕ0
50		mapss 8839	. . . . . . . . . . . . 13 ⊢ ((ℕ0 ∈ V ∧ {0, 1} ⊆ ℕ0) → ({0, 1} ↑m ℕ) ⊆ (ℕ0 ↑m ℕ))
51	45, 49, 50	mp2an 693	. . . . . . . . . . . 12 ⊢ ({0, 1} ↑m ℕ) ⊆ (ℕ0 ↑m ℕ)
52		ssrin 4196	. . . . . . . . . . . 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 6782	. . . . . . . . . . . . 13 ⊢ (𝐺:(𝑇 ∩ 𝑅)–1-1-onto→(({0, 1} ↑m ℕ) ∩ 𝑅) → 𝐺:(𝑇 ∩ 𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅))
55	22, 54	ax-mp 5	. . . . . . . . . . . 12 ⊢ 𝐺:(𝑇 ∩ 𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅)
56	55	ffvelcdmi 7037	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) ∈ (({0, 1} ↑m ℕ) ∩ 𝑅))
57	53, 56	sselid 3933	. . . . . . . . . 10 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅))
58	20, 42	eulerpartlemsv1 34533	. . . . . . . . . 10 ⊢ ((𝐺‘𝑜) ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘))
59	57, 58	syl 17	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘))
60	13, 14, 15, 16, 17, 18, 19, 20, 21	eulerpartlemt0 34546	. . . . . . . . . . . 12 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) ↔ (𝑜 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑜 “ ℕ) ∈ Fin ∧ (◡𝑜 “ ℕ) ⊆ 𝐽))
61	60	simp1bi 1146	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ (ℕ0 ↑m ℕ))
62		inss2 4192	. . . . . . . . . . . 12 ⊢ (𝑇 ∩ 𝑅) ⊆ 𝑅
63	62	sseli 3931	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ 𝑅)
64	61, 63	elind 4154	. . . . . . . . . 10 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅))
65	20, 42	eulerpartlemsv1 34533	. . . . . . . . . 10 ⊢ (𝑜 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) → (𝑆‘𝑜) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
66	64, 65	syl 17	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘𝑜) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
67	44, 59, 66	3eqtr3d 2780	. . . . . . . 8 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
68	67	3ad2ant2 1135	. . . . . . 7 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
69	38, 68	eqtr3d 2774	. . . . . 6 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
70	69	eqeq1d 2739	. . . . 5 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁 ↔ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁))
71	12, 23, 70	f1oresrab 7082	. . . 4 ⊢ (⊤ → (𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}):{𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
72	11, 71	chvarvv 1991	. . 3 ⊢ (⊤ → (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
73		cnveq 5830	. . . . . . . . . 10 ⊢ (𝑔 = 𝑞 → ◡𝑔 = ◡𝑞)
74	73	imaeq1d 6026	. . . . . . . . 9 ⊢ (𝑔 = 𝑞 → (◡𝑔 “ ℕ) = (◡𝑞 “ ℕ))
75	74	raleqdv 3298	. . . . . . . 8 ⊢ (𝑔 = 𝑞 → (∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
76	75	cbvrabv 3411	. . . . . . 7 ⊢ {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛} = {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛}
77		nfrab1 3421	. . . . . . . 8 ⊢ Ⅎ𝑞{𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛}
78		nfrab1 3421	. . . . . . . 8 ⊢ Ⅎ𝑞{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
79		df-3an 1089	. . . . . . . . . . . 12 ⊢ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
80	79	anbi1i 625	. . . . . . . . . . 11 ⊢ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
81	13	eulerpartleme 34540	. . . . . . . . . . . 12 ⊢ (𝑞 ∈ 𝑃 ↔ (𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
82	81	anbi1i 625	. . . . . . . . . . 11 ⊢ ((𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
83		an32 647	. . . . . . . . . . 11 ⊢ ((((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
84	80, 82, 83	3bitr4i 303	. . . . . . . . . 10 ⊢ ((𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
85	13, 14, 15, 16, 17, 18, 19, 20, 21	eulerpartlemt0 34546	. . . . . . . . . . . . 13 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) ↔ (𝑞 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
86		nnex 12163	. . . . . . . . . . . . . . 15 ⊢ ℕ ∈ V
87	45, 86	elmap 8821	. . . . . . . . . . . . . 14 ⊢ (𝑞 ∈ (ℕ0 ↑m ℕ) ↔ 𝑞:ℕ⟶ℕ0)
88	87	3anbi1i 1158	. . . . . . . . . . . . 13 ⊢ ((𝑞 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽) ↔ (𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
89	85, 88	bitri 275	. . . . . . . . . . . 12 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) ↔ (𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
90		df-3an 1089	. . . . . . . . . . . 12 ⊢ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
91		dfss3 3924	. . . . . . . . . . . . . . . 16 ⊢ ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ 𝐽)
92		breq2 5104	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 = 𝑛 → (2 ∥ 𝑧 ↔ 2 ∥ 𝑛))
93	92	notbid 318	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = 𝑛 → (¬ 2 ∥ 𝑧 ↔ ¬ 2 ∥ 𝑛))
94	93, 16	elrab2 3651	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ 𝐽 ↔ (𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
95	94	ralbii 3084	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)(𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
96		r19.26 3098	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑛 ∈ (◡𝑞 “ ℕ)(𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛) ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
97	91, 95, 96	3bitri 297	. . . . . . . . . . . . . . 15 ⊢ ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
98		cnvimass 6049	. . . . . . . . . . . . . . . . . 18 ⊢ (◡𝑞 “ ℕ) ⊆ dom 𝑞
99		fdm 6679	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑞:ℕ⟶ℕ0 → dom 𝑞 = ℕ)
100	98, 99	sseqtrid 3978	. . . . . . . . . . . . . . . . 17 ⊢ (𝑞:ℕ⟶ℕ0 → (◡𝑞 “ ℕ) ⊆ ℕ)
101		dfss3 3924	. . . . . . . . . . . . . . . . 17 ⊢ ((◡𝑞 “ ℕ) ⊆ ℕ ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ)
102	100, 101	sylib 218	. . . . . . . . . . . . . . . 16 ⊢ (𝑞:ℕ⟶ℕ0 → ∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ)
103	102	biantrurd 532	. . . . . . . . . . . . . . 15 ⊢ (𝑞:ℕ⟶ℕ0 → (∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛 ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛)))
104	97, 103	bitr4id 290	. . . . . . . . . . . . . 14 ⊢ (𝑞:ℕ⟶ℕ0 → ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
105	104	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) → ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
106	105	pm5.32i 574	. . . . . . . . . . . 12 ⊢ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ (◡𝑞 “ ℕ) ⊆ 𝐽) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
107	89, 90, 106	3bitri 297	. . . . . . . . . . 11 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
108	107	anbi1i 625	. . . . . . . . . 10 ⊢ ((𝑞 ∈ (𝑇 ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
109	84, 108	bitr4i 278	. . . . . . . . 9 ⊢ ((𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ (𝑞 ∈ (𝑇 ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
110		rabid 3422	. . . . . . . . 9 ⊢ (𝑞 ∈ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} ↔ (𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
111		rabid 3422	. . . . . . . . 9 ⊢ (𝑞 ∈ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁} ↔ (𝑞 ∈ (𝑇 ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
112	109, 110, 111	3bitr4i 303	. . . . . . . 8 ⊢ (𝑞 ∈ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} ↔ 𝑞 ∈ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
113	77, 78, 112	eqri 3956	. . . . . . 7 ⊢ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
114	14, 76, 113	3eqtri 2764	. . . . . 6 ⊢ 𝑂 = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
115	114	reseq2i 5943	. . . . 5 ⊢ (𝐺 ↾ 𝑂) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
116	115	a1i 11	. . . 4 ⊢ (⊤ → (𝐺 ↾ 𝑂) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}))
117	114	a1i 11	. . . 4 ⊢ (⊤ → 𝑂 = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
118		nfcv 2899	. . . . . 6 ⊢ Ⅎ𝑑𝐷
119		nfrab1 3421	. . . . . 6 ⊢ Ⅎ𝑑{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}
120		fnima 6630	. . . . . . . . . . . . . . . . 17 ⊢ (𝑑 Fn ℕ → (𝑑 “ ℕ) = ran 𝑑)
121	120	sseq1d 3967	. . . . . . . . . . . . . . . 16 ⊢ (𝑑 Fn ℕ → ((𝑑 “ ℕ) ⊆ {0, 1} ↔ ran 𝑑 ⊆ {0, 1}))
122	121	anbi2d 631	. . . . . . . . . . . . . . 15 ⊢ (𝑑 Fn ℕ → ((ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (ran 𝑑 ⊆ ℕ0 ∧ ran 𝑑 ⊆ {0, 1})))
123		sstr 3944	. . . . . . . . . . . . . . . . 17 ⊢ ((ran 𝑑 ⊆ {0, 1} ∧ {0, 1} ⊆ ℕ0) → ran 𝑑 ⊆ ℕ0)
124	49, 123	mpan2 692	. . . . . . . . . . . . . . . 16 ⊢ (ran 𝑑 ⊆ {0, 1} → ran 𝑑 ⊆ ℕ0)
125	124	pm4.71ri 560	. . . . . . . . . . . . . . 15 ⊢ (ran 𝑑 ⊆ {0, 1} ↔ (ran 𝑑 ⊆ ℕ0 ∧ ran 𝑑 ⊆ {0, 1}))
126	122, 125	bitr4di 289	. . . . . . . . . . . . . 14 ⊢ (𝑑 Fn ℕ → ((ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ran 𝑑 ⊆ {0, 1}))
127	126	pm5.32i 574	. . . . . . . . . . . . 13 ⊢ ((𝑑 Fn ℕ ∧ (ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1})) ↔ (𝑑 Fn ℕ ∧ ran 𝑑 ⊆ {0, 1}))
128		anass 468	. . . . . . . . . . . . 13 ⊢ (((𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (𝑑 Fn ℕ ∧ (ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1})))
129		df-f 6504	. . . . . . . . . . . . 13 ⊢ (𝑑:ℕ⟶{0, 1} ↔ (𝑑 Fn ℕ ∧ ran 𝑑 ⊆ {0, 1}))
130	127, 128, 129	3bitr4ri 304	. . . . . . . . . . . 12 ⊢ (𝑑:ℕ⟶{0, 1} ↔ ((𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
131		prex 5384	. . . . . . . . . . . . 13 ⊢ {0, 1} ∈ V
132	131, 86	elmap 8821	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ ({0, 1} ↑m ℕ) ↔ 𝑑:ℕ⟶{0, 1})
133		df-f 6504	. . . . . . . . . . . . 13 ⊢ (𝑑:ℕ⟶ℕ0 ↔ (𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0))
134	133	anbi1i 625	. . . . . . . . . . . 12 ⊢ ((𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ((𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
135	130, 132, 134	3bitr4i 303	. . . . . . . . . . 11 ⊢ (𝑑 ∈ ({0, 1} ↑m ℕ) ↔ (𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
136		vex 3446	. . . . . . . . . . . 12 ⊢ 𝑑 ∈ V
137		cnveq 5830	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑑 → ◡𝑓 = ◡𝑑)
138	137	imaeq1d 6026	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑑 → (◡𝑓 “ ℕ) = (◡𝑑 “ ℕ))
139	138	eleq1d 2822	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑑 → ((◡𝑓 “ ℕ) ∈ Fin ↔ (◡𝑑 “ ℕ) ∈ Fin))
140	136, 139, 20	elab2 3639	. . . . . . . . . . 11 ⊢ (𝑑 ∈ 𝑅 ↔ (◡𝑑 “ ℕ) ∈ Fin)
141	135, 140	anbi12i 629	. . . . . . . . . 10 ⊢ ((𝑑 ∈ ({0, 1} ↑m ℕ) ∧ 𝑑 ∈ 𝑅) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ (◡𝑑 “ ℕ) ∈ Fin))
142		elin 3919	. . . . . . . . . 10 ⊢ (𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ↔ (𝑑 ∈ ({0, 1} ↑m ℕ) ∧ 𝑑 ∈ 𝑅))
143		an32 647	. . . . . . . . . 10 ⊢ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ (◡𝑑 “ ℕ) ∈ Fin))
144	141, 142, 143	3bitr4i 303	. . . . . . . . 9 ⊢ (𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
145	144	anbi1i 625	. . . . . . . 8 ⊢ ((𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ↔ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
146	13	eulerpartleme 34540	. . . . . . . . . 10 ⊢ (𝑑 ∈ 𝑃 ↔ (𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
147	146	anbi1i 625	. . . . . . . . 9 ⊢ ((𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
148		df-3an 1089	. . . . . . . . . 10 ⊢ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ↔ ((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
149	148	anbi1i 625	. . . . . . . . 9 ⊢ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
150		an32 647	. . . . . . . . 9 ⊢ ((((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
151	147, 149, 150	3bitri 297	. . . . . . . 8 ⊢ ((𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (((𝑑:ℕ⟶ℕ0 ∧ (◡𝑑 “ ℕ) ∈ Fin) ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
152	145, 151	bitr4i 278	. . . . . . 7 ⊢ ((𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁) ↔ (𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
153		rabid 3422	. . . . . . 7 ⊢ (𝑑 ∈ {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} ↔ (𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
154	13, 14, 15	eulerpartlemd 34543	. . . . . . 7 ⊢ (𝑑 ∈ 𝐷 ↔ (𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
155	152, 153, 154	3bitr4ri 304	. . . . . 6 ⊢ (𝑑 ∈ 𝐷 ↔ 𝑑 ∈ {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
156	118, 119, 155	eqri 3956	. . . . 5 ⊢ 𝐷 = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}
157	156	a1i 11	. . . 4 ⊢ (⊤ → 𝐷 = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
158	116, 117, 157	f1oeq123d 6776	. . 3 ⊢ (⊤ → ((𝐺 ↾ 𝑂):𝑂–1-1-onto→𝐷 ↔ (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}–1-1-onto→{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}))
159	72, 158	mpbird 257	. 2 ⊢ (⊤ → (𝐺 ↾ 𝑂):𝑂–1-1-onto→𝐷)
160	159	mptru 1549	1 ⊢ (𝐺 ↾ 𝑂):𝑂–1-1-onto→𝐷

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542  ⊤wtru 1543   ∈ wcel 2114  {cab 2715  ∀wral 3052  {crab 3401  Vcvv 3442   ∩ cin 3902   ⊆ wss 3903  ∅c0 4287  𝒫 cpw 4556  {cpr 4584   class class class wbr 5100  {copab 5162   ↦ cmpt 5181  ^◡ccnv 5631  dom cdm 5632  ran crn 5633   ↾ cres 5634   “ cima 5635   ∘ ccom 5636   Fn wfn 6495  ⟶wf 6496  –1-1-onto→wf1o 6499  ‘cfv 6500  (class class class)co 7368   ∈ cmpo 7370   supp csupp 8112   ↑_m cmap 8775  Fincfn 8895  0cc0 11038  1c1 11039   · cmul 11043   ≤ cle 11179  ℕcn 12157  2c2 12212  ℕ₀cn0 12413  ↑cexp 13996  Σcsu 15621   ∥ cdvds 16191  bitscbits 16358  𝟭cind 32939

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690  ax-inf2 9562  ax-ac2 10385  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115  ax-pre-sup 11116

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-disj 5068  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-se 5586  df-we 5587  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-isom 6509  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-om 7819  df-1st 7943  df-2nd 7944  df-supp 8113  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351  df-1o 8407  df-2o 8408  df-oadd 8411  df-er 8645  df-map 8777  df-pm 8778  df-en 8896  df-dom 8897  df-sdom 8898  df-fin 8899  df-fsupp 9277  df-sup 9357  df-inf 9358  df-oi 9427  df-dju 9825  df-card 9863  df-acn 9866  df-ac 10038  df-pnf 11180  df-mnf 11181  df-xr 11182  df-ltxr 11183  df-le 11184  df-sub 11378  df-neg 11379  df-div 11807  df-nn 12158  df-2 12220  df-3 12221  df-n0 12414  df-xnn0 12487  df-z 12501  df-uz 12764  df-rp 12918  df-fz 13436  df-fzo 13583  df-fl 13724  df-mod 13802  df-seq 13937  df-exp 13997  df-hash 14266  df-cj 15034  df-re 15035  df-im 15036  df-sqrt 15170  df-abs 15171  df-clim 15423  df-sum 15622  df-dvds 16192  df-bits 16361  df-ind 32940

This theorem is referenced by:  eulerpart  34559