Theorem eulerpartlemn 35096

Description: Lemma for eulerpart 35097. (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-1onto𝐷

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 6913	. . . . . . . . . . . 12 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → (𝑜‘𝑘) = (𝑞‘𝑘))
3	2	oveq1d 7461	. . . . . . . . . . 11 ⊢ ((𝑜 = 𝑞 ∧ 𝑘 ∈ ℕ) → ((𝑜‘𝑘) · 𝑘) = ((𝑞‘𝑘) · 𝑘))
4	3	sumeq2dv 15901	. . . . . . . . . 10 ⊢ (𝑜 = 𝑞 → Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘))
5	4	eqeq1d 2765	. . . . . . . . 9 ⊢ (𝑜 = 𝑞 → (Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁 ↔ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
6	5	cbvrabv 3426	. . . . . . . 8 ⊢ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
7	6	a1i 11	. . . . . . 7 ⊢ (𝑜 = 𝑞 → {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
8	7	reseq2d 5982	. . . . . 6 ⊢ (𝑜 = 𝑞 → (𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}))
9		eqidd 2764	. . . . . 6 ⊢ (𝑜 = 𝑞 → {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
10	8, 7, 9	f1oeq123d 6843	. . . . 5 ⊢ (𝑜 = 𝑞 → ((𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}):{𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}⟶1-1onto{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} ↔ (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}⟶1-1onto{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}))
11	10	imbi2d 343	. . . 4 ⊢ (𝑜 = 𝑞 → ((⊤ → (𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}):{𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}⟶1-1onto{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}) ↔ (⊤ → (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}⟶1-1onto{𝑑 ∈ (({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 35087	. . . . . 6 ⊢ 𝐺:(𝑇 ∩ 𝑅)⟶1-1onto(({0, 1} ↑m ℕ) ∩ 𝑅)
23	22	a1i 11	. . . . 5 ⊢ (⊤ → 𝐺:(𝑇 ∩ 𝑅)⟶1-1onto(({0, 1} ↑m ℕ) ∩ 𝑅))
24		fveq2 6911	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 𝑜 → (𝐺‘𝑞) = (𝐺‘𝑜))
25		reseq1 5976	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑞 = 𝑜 → (𝑞 ↾ 𝐽) = (𝑜 ↾ 𝐽))
26	25	coeq2d 5847	. . . . . . . . . . . . . . . . 17 ⊢ (𝑞 = 𝑜 → (bits ∘ (𝑞 ↾ 𝐽)) = (bits ∘ (𝑜 ↾ 𝐽)))
27	26	fveq2d 6915	. . . . . . . . . . . . . . . 16 ⊢ (𝑞 = 𝑜 → (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))) = (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))
28	27	imaeq2d 6065	. . . . . . . . . . . . . . 15 ⊢ (𝑞 = 𝑜 → (𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽)))) = (𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))
29	28	fveq2d 6915	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 𝑜 → ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
30	24, 29	eqeq12d 2779	. . . . . . . . . . . . 13 ⊢ (𝑞 = 𝑜 → ((𝐺‘𝑞) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))) ↔ (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))))
31	13, 14, 15, 16, 17, 18, 19, 20, 21, 12	eulerpartlemgv 35088	. . . . . . . . . . . . 13 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑞) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑞 ↾ 𝐽))))))
32	30, 31	vtoclga 3540	. . . . . . . . . . . 12 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
33	32	3ad2ant2 1152	. . . . . . . . . . 11 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (𝐺‘𝑜) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
34		simp3 1156	. . . . . . . . . . 11 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
35	33, 34	eqtr4d 2801	. . . . . . . . . 10 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (𝐺‘𝑜) = 𝑑)
36	35	fveq1d 6913	. . . . . . . . 9 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → ((𝐺‘𝑜)‘𝑘) = (𝑑‘𝑘))
37	36	oveq1d 7461	. . . . . . . 8 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (((𝐺‘𝑜)‘𝑘) · 𝑘) = ((𝑑‘𝑘) · 𝑘))
38	37	sumeq2sdv 15902	. . . . . . 7 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘))
39	24	fveq2d 6915	. . . . . . . . . . 11 ⊢ (𝑞 = 𝑜 → (𝑆‘(𝐺‘𝑞)) = (𝑆‘(𝐺‘𝑜)))
40		fveq2 6911	. . . . . . . . . . 11 ⊢ (𝑞 = 𝑜 → (𝑆‘𝑞) = (𝑆‘𝑜))
41	39, 40	eqeq12d 2779	. . . . . . . . . 10 ⊢ (𝑞 = 𝑜 → ((𝑆‘(𝐺‘𝑞)) = (𝑆‘𝑞) ↔ (𝑆‘(𝐺‘𝑜)) = (𝑆‘𝑜)))
42		eulerpart.s	. . . . . . . . . . 11 ⊢ 𝑆 = (𝑓 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) ↦ Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘))
43	13, 14, 15, 16, 17, 18, 19, 20, 21, 12, 42	eulerpartlemgs2 35095	. . . . . . . . . 10 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑞)) = (𝑆‘𝑞))
44	41, 43	vtoclga 3540	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = (𝑆‘𝑜))
45		nn0ex 12642	. . . . . . . . . . . . 13 ⊢ ℕ0 ∈ V
46		0nn0 12651	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℕ0
47		1nn0 12652	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ0
48		prssi 4780	. . . . . . . . . . . . . 14 ⊢ ((0 ∈ ℕ0 ∧ 1 ∈ ℕ0) → {0, 1} ⊆ ℕ0)
49	46, 47, 48	mp2an 705	. . . . . . . . . . . . 13 ⊢ {0, 1} ⊆ ℕ0
50		mapss 8948	. . . . . . . . . . . . 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 4141	. . . . . . . . . . . 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 6849	. . . . . . . . . . . . 13 ⊢ (𝐺:(𝑇 ∩ 𝑅)⟶1-1onto(({0, 1} ↑m ℕ) ∩ 𝑅) → 𝐺:(𝑇 ∩ 𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅))
55	22, 54	ax-mp 5	. . . . . . . . . . . 12 ⊢ 𝐺:(𝑇 ∩ 𝑅)⟶(({0, 1} ↑m ℕ) ∩ 𝑅)
56	55	ffvelcdmi 7110	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) ∈ (({0, 1} ↑m ℕ) ∩ 𝑅))
57	53, 56	sselid 3911	. . . . . . . . . 10 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝑜) ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅))
58	20, 42	eulerpartlemsv1 35071	. . . . . . . . . 10 ⊢ ((𝐺‘𝑜) ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘))
59	57, 58	syl 18	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘(𝐺‘𝑜)) = Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘))
60	13, 14, 15, 16, 17, 18, 19, 20, 21	eulerpartlemt0 35084	. . . . . . . . . . . 12 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) ↔ (𝑜 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑜 “ ℕ) ∈ Fin ∧ (◡𝑜 “ ℕ) ⊆ 𝐽))
61	60	simp1bi 1163	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ (ℕ0 ↑m ℕ))
62		inss2 4137	. . . . . . . . . . . 12 ⊢ (𝑇 ∩ 𝑅) ⊆ 𝑅
63	62	sseli 3909	. . . . . . . . . . 11 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ 𝑅)
64	61, 63	elind 4100	. . . . . . . . . 10 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → 𝑜 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅))
65	20, 42	eulerpartlemsv1 35071	. . . . . . . . . 10 ⊢ (𝑜 ∈ ((ℕ0 ↑m ℕ) ∩ 𝑅) → (𝑆‘𝑜) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
66	64, 65	syl 18	. . . . . . . . 9 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → (𝑆‘𝑜) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
67	44, 59, 66	3eqtr3d 2806	. . . . . . . 8 ⊢ (𝑜 ∈ (𝑇 ∩ 𝑅) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
68	67	3ad2ant2 1152	. . . . . . 7 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ (((𝐺‘𝑜)‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
69	38, 68	eqtr3d 2800	. . . . . 6 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘))
70	69	eqeq1d 2765	. . . . 5 ⊢ ((⊤ ∧ 𝑜 ∈ (𝑇 ∩ 𝑅) ∧ 𝑑 = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽)))))) → (Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁 ↔ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁))
71	12, 23, 70	f1oresrab 7155	. . . 4 ⊢ (⊤ → (𝐺 ↾ {𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}):{𝑜 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑜‘𝑘) · 𝑘) = 𝑁}⟶1-1onto{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
72	11, 71	chvarvv 2024	. . 3 ⊢ (⊤ → (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}⟶1-1onto{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
73		cnveq 5859	. . . . . . . . . 10 ⊢ (𝑔 = 𝑞 → ◡𝑔 = ◡𝑞)
74	73	imaeq1d 6064	. . . . . . . . 9 ⊢ (𝑔 = 𝑞 → (◡𝑔 “ ℕ) = (◡𝑞 “ ℕ))
75	74	raleqdv 3323	. . . . . . . 8 ⊢ (𝑔 = 𝑞 → (∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
76	75	cbvrabv 3426	. . . . . . 7 ⊢ {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛} = {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛}
77		nfrab1 3435	. . . . . . . 8 ⊢ Ⅎ𝑞{𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛}
78		nfrab1 3435	. . . . . . . 8 ⊢ Ⅎ𝑞{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
79		df-3an 1105	. . . . . . . . . . . 12 ⊢ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ↔ ((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
80	79	anbi1i 636	. . . . . . . . . . 11 ⊢ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛) ↔ (((𝑞:ℕ⟶ℕ0 ∧ (◡𝑞 “ ℕ) ∈ Fin) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁) ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
81	13	eulerpartleme 35078	. . . . . . . . . . . 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 35084	. . . . . . . . . . . . 13 ⊢ (𝑞 ∈ (𝑇 ∩ 𝑅) ↔ (𝑞 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝑞 “ ℕ) ∈ Fin ∧ (◡𝑞 “ ℕ) ⊆ 𝐽))
86		nnex 12371	. . . . . . . . . . . . . . 15 ⊢ ℕ ∈ V
87	45, 86	elmap 8930	. . . . . . . . . . . . . 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 3902	. . . . . . . . . . . . . . . 16 ⊢ ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ 𝐽)
92		breq2 5110	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 = 𝑛 → (2 ∥ 𝑧 ↔ 2 ∥ 𝑛))
93	92	notbid 321	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = 𝑛 → (¬ 2 ∥ 𝑧 ↔ ¬ 2 ∥ 𝑛))
94	93, 16	elrab2 3652	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ 𝐽 ↔ (𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
95	94	ralbii 3112	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ 𝐽 ↔ ∀𝑛 ∈ (◡𝑞 “ ℕ)(𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
96		r19.26 3126	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑛 ∈ (◡𝑞 “ ℕ)(𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛) ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
97	91, 95, 96	3bitri 300	. . . . . . . . . . . . . . 15 ⊢ ((◡𝑞 “ ℕ) ⊆ 𝐽 ↔ (∀𝑛 ∈ (◡𝑞 “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
98		cnvimass 6212	. . . . . . . . . . . . . . . . . 18 ⊢ (◡𝑞 “ ℕ) ⊆ dom 𝑞
99		fdm 6744	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑞:ℕ⟶ℕ0 → dom 𝑞 = ℕ)
100	98, 99	sseqtrid 3955	. . . . . . . . . . . . . . . . 17 ⊢ (𝑞:ℕ⟶ℕ0 → (◡𝑞 “ ℕ) ⊆ ℕ)
101		dfss3 3902	. . . . . . . . . . . . . . . . 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 3436	. . . . . . . . 9 ⊢ (𝑞 ∈ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} ↔ (𝑞 ∈ 𝑃 ∧ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛))
111		rabid 3436	. . . . . . . . 9 ⊢ (𝑞 ∈ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁} ↔ (𝑞 ∈ (𝑇 ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁))
112	109, 110, 111	3bitr4i 306	. . . . . . . 8 ⊢ (𝑞 ∈ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} ↔ 𝑞 ∈ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
113	77, 78, 112	eqri 3933	. . . . . . 7 ⊢ {𝑞 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑞 “ ℕ) ¬ 2 ∥ 𝑛} = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
114	14, 76, 113	3eqtri 2790	. . . . . 6 ⊢ 𝑂 = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}
115	114	reseq2i 5979	. . . . 5 ⊢ (𝐺 ↾ 𝑂) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
116	115	a1i 11	. . . 4 ⊢ (⊤ → (𝐺 ↾ 𝑂) = (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}))
117	114	a1i 11	. . . 4 ⊢ (⊤ → 𝑂 = {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁})
118		nfcv 2926	. . . . . 6 ⊢ Ⅎ𝑑𝐷
119		nfrab1 3435	. . . . . 6 ⊢ Ⅎ𝑑{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}
120		fnima 6694	. . . . . . . . . . . . . . . . 17 ⊢ (𝑑 Fn ℕ → (𝑑 “ ℕ) = ran 𝑑)
121	120	sseq1d 3944	. . . . . . . . . . . . . . . 16 ⊢ (𝑑 Fn ℕ → ((𝑑 “ ℕ) ⊆ {0, 1} ↔ ran 𝑑 ⊆ {0, 1}))
122	121	anbi2d 642	. . . . . . . . . . . . . . 15 ⊢ (𝑑 Fn ℕ → ((ran 𝑑 ⊆ ℕ0 ∧ (𝑑 “ ℕ) ⊆ {0, 1}) ↔ (ran 𝑑 ⊆ ℕ0 ∧ ran 𝑑 ⊆ {0, 1})))
123		sstr 3921	. . . . . . . . . . . . . . . . 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 6565	. . . . . . . . . . . . 13 ⊢ (𝑑:ℕ⟶{0, 1} ↔ (𝑑 Fn ℕ ∧ ran 𝑑 ⊆ {0, 1}))
130	127, 128, 129	3bitr4ri 307	. . . . . . . . . . . 12 ⊢ (𝑑:ℕ⟶{0, 1} ↔ ((𝑑 Fn ℕ ∧ ran 𝑑 ⊆ ℕ0) ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
131		prex 5401	. . . . . . . . . . . . 13 ⊢ {0, 1} ∈ V
132	131, 86	elmap 8930	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ ({0, 1} ↑m ℕ) ↔ 𝑑:ℕ⟶{0, 1})
133		df-f 6565	. . . . . . . . . . . . 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 3458	. . . . . . . . . . . 12 ⊢ 𝑑 ∈ V
137		cnveq 5859	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑑 → ◡𝑓 = ◡𝑑)
138	137	imaeq1d 6064	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑑 → (◡𝑓 “ ℕ) = (◡𝑑 “ ℕ))
139	138	eleq1d 2849	. . . . . . . . . . . 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 4096	. . . . . . . . . 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 35078	. . . . . . . . . 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 3436	. . . . . . 7 ⊢ (𝑑 ∈ {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁} ↔ (𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∧ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁))
154	13, 14, 15	eulerpartlemd 35081	. . . . . . 7 ⊢ (𝑑 ∈ 𝐷 ↔ (𝑑 ∈ 𝑃 ∧ (𝑑 “ ℕ) ⊆ {0, 1}))
155	152, 153, 154	3bitr4ri 307	. . . . . 6 ⊢ (𝑑 ∈ 𝐷 ↔ 𝑑 ∈ {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
156	118, 119, 155	eqri 3933	. . . . 5 ⊢ 𝐷 = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}
157	156	a1i 11	. . . 4 ⊢ (⊤ → 𝐷 = {𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁})
158	116, 117, 157	f1oeq123d 6843	. . 3 ⊢ (⊤ → ((𝐺 ↾ 𝑂):𝑂⟶1-1onto𝐷 ↔ (𝐺 ↾ {𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}):{𝑞 ∈ (𝑇 ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑞‘𝑘) · 𝑘) = 𝑁}⟶1-1onto{𝑑 ∈ (({0, 1} ↑m ℕ) ∩ 𝑅) ∣ Σ𝑘 ∈ ℕ ((𝑑‘𝑘) · 𝑘) = 𝑁}))
159	72, 158	mpbird 260	. 2 ⊢ (⊤ → (𝐺 ↾ 𝑂):𝑂⟶1-1onto𝐷)
160	159	mptru 1577	1 ⊢ (𝐺 ↾ 𝑂):𝑂⟶1-1onto𝐷

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570  ⊤wtru 1571   ∈ wcel 2147  {cab 2741  ∀wral 3080  {crab 3416  Vcvv 3454   ⊆ wss 3900   ∩ cin 4092  ∅c0 4281  𝒫 cpw 4560  {cpr 4590   class class class wbr 5106  {copab 5171   ↦ cmpt 5190  ^◡ccnv 5655  dom cdm 5656  ran crn 5657   ↾ cres 5658   “ cima 5659   ∘ ccom 5660   Fn wfn 6556  ⟶wf 6557  ⟶1-1ontowf1o 6560  ‘cfv 6561  (class class class)co 7446   ∈ cmpo 7448   supp csupp 8207   ↑_m cmap 8878  Fincfn 9004  0cc0 11230  1c1 11231   · cmul 11235   ≤ cle 11374  𝟭cind 12350  ℕcn 12365  2c2 12427  ℕ₀cn0 12636  ↑cexp 14234  Σcsu 15885   ∥ cdvds 16454  bitscbits 16621

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5236  ax-sep 5253  ax-nul 5264  ax-pow 5332  ax-pr 5396  ax-un 7778  ax-inf2 9672  ax-cnex 11286  ax-resscn 11287  ax-1cn 11288  ax-icn 11289  ax-addcl 11290  ax-addrcl 11291  ax-mulcl 11292  ax-mulrcl 11293  ax-mulcom 11294  ax-addass 11295  ax-mulass 11296  ax-distr 11297  ax-i2m1 11298  ax-1ne0 11299  ax-1rid 11300  ax-rnegex 11301  ax-rrecex 11302  ax-cnre 11303  ax-pre-lttri 11304  ax-pre-lttrn 11305  ax-pre-ltadd 11306  ax-pre-mulgt0 11307  ax-pre-sup 11308

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 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-int 4911  df-iun 4956  df-disj 5074  df-br 5107  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5551  df-eprel 5556  df-po 5564  df-so 5565  df-fr 5609  df-se 5610  df-we 5611  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-pred 6325  df-ord 6386  df-on 6387  df-lim 6388  df-suc 6389  df-iota 6515  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-isom 6570  df-riota 7403  df-ov 7449  df-oprab 7450  df-mpo 7451  df-om 7905  df-1st 8028  df-2nd 8029  df-supp 8208  df-frecs 8330  df-wrecs 8361  df-recs 8410  df-rdg 8449  df-1o 8507  df-2o 8508  df-oadd 8511  df-er 8748  df-map 8880  df-pm 8881  df-en 9005  df-dom 9006  df-sdom 9007  df-fin 9008  df-fsupp 9385  df-sup 9464  df-inf 9465  df-oi 9534  df-dju 10012  df-card 10050  df-acn 10053  df-pnf 11375  df-mnf 11376  df-xr 11377  df-ltxr 11378  df-le 11379  df-sub 11573  df-neg 11574  df-div 12004  df-ind 12351  df-nn 12366  df-2 12435  df-3 12436  df-n0 12637  df-xnn0 12710  df-z 12724  df-uz 12996  df-rp 13151  df-fz 13670  df-fzo 13819  df-fl 13962  df-mod 14040  df-seq 14175  df-exp 14235  df-hash 14505  df-cj 15298  df-re 15299  df-im 15300  df-sqrt 15434  df-abs 15435  df-clim 15687  df-sum 15886  df-dvds 16455  df-bits 16624

This theorem is used by:  eulerpart  35097