Theorem eulerpartlemr 34371

Description: Lemma for eulerpart 34379. (Contributed by Thierry Arnoux, 13-Nov-2017.)

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 ∘ (𝑜 ↾ 𝐽))))))

Assertion

Ref	Expression
eulerpartlemr	⊢ 𝑂 = ((𝑇 ∩ 𝑅) ∩ 𝑃)

Distinct variable groups:   𝑓,𝑘,𝑛,𝑧   𝑓,𝐽,𝑛   𝑓,𝑁   𝑔,𝑛,𝑃

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

Proof of Theorem eulerpartlemr

Dummy variable ℎ is distinct from all other variables.

Step	Hyp	Ref	Expression
1		elin 3932	. . . 4 ⊢ (ℎ ∈ (𝑇 ∩ 𝑅) ↔ (ℎ ∈ 𝑇 ∧ ℎ ∈ 𝑅))
2	1	anbi1i 624	. . 3 ⊢ ((ℎ ∈ (𝑇 ∩ 𝑅) ∧ ℎ ∈ 𝑃) ↔ ((ℎ ∈ 𝑇 ∧ ℎ ∈ 𝑅) ∧ ℎ ∈ 𝑃))
3		elin 3932	. . 3 ⊢ (ℎ ∈ ((𝑇 ∩ 𝑅) ∩ 𝑃) ↔ (ℎ ∈ (𝑇 ∩ 𝑅) ∧ ℎ ∈ 𝑃))
4		eulerpart.p	. . . . 5 ⊢ 𝑃 = {𝑓 ∈ (ℕ0 ↑m ℕ) ∣ ((◡𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘) = 𝑁)}
5		eulerpart.o	. . . . 5 ⊢ 𝑂 = {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
6		eulerpart.d	. . . . 5 ⊢ 𝐷 = {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔‘𝑛) ≤ 1}
7	4, 5, 6	eulerpartlemo 34362	. . . 4 ⊢ (ℎ ∈ 𝑂 ↔ (ℎ ∈ 𝑃 ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛))
8		cnveq 5839	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 = ℎ → ◡𝑓 = ◡ℎ)
9	8	imaeq1d 6032	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = ℎ → (◡𝑓 “ ℕ) = (◡ℎ “ ℕ))
10	9	eleq1d 2814	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = ℎ → ((◡𝑓 “ ℕ) ∈ Fin ↔ (◡ℎ “ ℕ) ∈ Fin))
11		fveq1 6859	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓 = ℎ → (𝑓‘𝑘) = (ℎ‘𝑘))
12	11	oveq1d 7404	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 = ℎ → ((𝑓‘𝑘) · 𝑘) = ((ℎ‘𝑘) · 𝑘))
13	12	sumeq2sdv 15675	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = ℎ → Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘) = Σ𝑘 ∈ ℕ ((ℎ‘𝑘) · 𝑘))
14	13	eqeq1d 2732	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = ℎ → (Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘) = 𝑁 ↔ Σ𝑘 ∈ ℕ ((ℎ‘𝑘) · 𝑘) = 𝑁))
15	10, 14	anbi12d 632	. . . . . . . . . . . . . 14 ⊢ (𝑓 = ℎ → (((◡𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘) = 𝑁) ↔ ((◡ℎ “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((ℎ‘𝑘) · 𝑘) = 𝑁)))
16	15, 4	elrab2 3664	. . . . . . . . . . . . 13 ⊢ (ℎ ∈ 𝑃 ↔ (ℎ ∈ (ℕ0 ↑m ℕ) ∧ ((◡ℎ “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((ℎ‘𝑘) · 𝑘) = 𝑁)))
17	16	simplbi 497	. . . . . . . . . . . 12 ⊢ (ℎ ∈ 𝑃 → ℎ ∈ (ℕ0 ↑m ℕ))
18		cnvimass 6055	. . . . . . . . . . . . 13 ⊢ (◡ℎ “ ℕ) ⊆ dom ℎ
19		nn0ex 12454	. . . . . . . . . . . . . . 15 ⊢ ℕ0 ∈ V
20		nnex 12193	. . . . . . . . . . . . . . 15 ⊢ ℕ ∈ V
21	19, 20	elmap 8846	. . . . . . . . . . . . . 14 ⊢ (ℎ ∈ (ℕ0 ↑m ℕ) ↔ ℎ:ℕ⟶ℕ0)
22		fdm 6699	. . . . . . . . . . . . . 14 ⊢ (ℎ:ℕ⟶ℕ0 → dom ℎ = ℕ)
23	21, 22	sylbi 217	. . . . . . . . . . . . 13 ⊢ (ℎ ∈ (ℕ0 ↑m ℕ) → dom ℎ = ℕ)
24	18, 23	sseqtrid 3991	. . . . . . . . . . . 12 ⊢ (ℎ ∈ (ℕ0 ↑m ℕ) → (◡ℎ “ ℕ) ⊆ ℕ)
25	17, 24	syl 17	. . . . . . . . . . 11 ⊢ (ℎ ∈ 𝑃 → (◡ℎ “ ℕ) ⊆ ℕ)
26	25	sselda 3948	. . . . . . . . . 10 ⊢ ((ℎ ∈ 𝑃 ∧ 𝑛 ∈ (◡ℎ “ ℕ)) → 𝑛 ∈ ℕ)
27	26	ralrimiva 3126	. . . . . . . . 9 ⊢ (ℎ ∈ 𝑃 → ∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ)
28	27	biantrurd 532	. . . . . . . 8 ⊢ (ℎ ∈ 𝑃 → (∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛 ↔ (∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛)))
29	17	biantrurd 532	. . . . . . . 8 ⊢ (ℎ ∈ 𝑃 → ((∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛) ↔ (ℎ ∈ (ℕ0 ↑m ℕ) ∧ (∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛))))
30	16	simprbi 496	. . . . . . . . . 10 ⊢ (ℎ ∈ 𝑃 → ((◡ℎ “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((ℎ‘𝑘) · 𝑘) = 𝑁))
31	30	simpld 494	. . . . . . . . 9 ⊢ (ℎ ∈ 𝑃 → (◡ℎ “ ℕ) ∈ Fin)
32	31	biantrud 531	. . . . . . . 8 ⊢ (ℎ ∈ 𝑃 → ((ℎ ∈ (ℕ0 ↑m ℕ) ∧ (∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛)) ↔ ((ℎ ∈ (ℕ0 ↑m ℕ) ∧ (∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛)) ∧ (◡ℎ “ ℕ) ∈ Fin)))
33	28, 29, 32	3bitrd 305	. . . . . . 7 ⊢ (ℎ ∈ 𝑃 → (∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛 ↔ ((ℎ ∈ (ℕ0 ↑m ℕ) ∧ (∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛)) ∧ (◡ℎ “ ℕ) ∈ Fin)))
34		dfss3 3937	. . . . . . . . . 10 ⊢ ((◡ℎ “ ℕ) ⊆ 𝐽 ↔ ∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ 𝐽)
35		breq2 5113	. . . . . . . . . . . . 13 ⊢ (𝑧 = 𝑛 → (2 ∥ 𝑧 ↔ 2 ∥ 𝑛))
36	35	notbid 318	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑛 → (¬ 2 ∥ 𝑧 ↔ ¬ 2 ∥ 𝑛))
37		eulerpart.j	. . . . . . . . . . . 12 ⊢ 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
38	36, 37	elrab2 3664	. . . . . . . . . . 11 ⊢ (𝑛 ∈ 𝐽 ↔ (𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
39	38	ralbii 3076	. . . . . . . . . 10 ⊢ (∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ 𝐽 ↔ ∀𝑛 ∈ (◡ℎ “ ℕ)(𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
40		r19.26 3092	. . . . . . . . . 10 ⊢ (∀𝑛 ∈ (◡ℎ “ ℕ)(𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛) ↔ (∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛))
41	34, 39, 40	3bitri 297	. . . . . . . . 9 ⊢ ((◡ℎ “ ℕ) ⊆ 𝐽 ↔ (∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛))
42	41	anbi2i 623	. . . . . . . 8 ⊢ ((ℎ ∈ (ℕ0 ↑m ℕ) ∧ (◡ℎ “ ℕ) ⊆ 𝐽) ↔ (ℎ ∈ (ℕ0 ↑m ℕ) ∧ (∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛)))
43	42	anbi1i 624	. . . . . . 7 ⊢ (((ℎ ∈ (ℕ0 ↑m ℕ) ∧ (◡ℎ “ ℕ) ⊆ 𝐽) ∧ (◡ℎ “ ℕ) ∈ Fin) ↔ ((ℎ ∈ (ℕ0 ↑m ℕ) ∧ (∀𝑛 ∈ (◡ℎ “ ℕ)𝑛 ∈ ℕ ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛)) ∧ (◡ℎ “ ℕ) ∈ Fin))
44	33, 43	bitr4di 289	. . . . . 6 ⊢ (ℎ ∈ 𝑃 → (∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛 ↔ ((ℎ ∈ (ℕ0 ↑m ℕ) ∧ (◡ℎ “ ℕ) ⊆ 𝐽) ∧ (◡ℎ “ ℕ) ∈ Fin)))
45	9	sseq1d 3980	. . . . . . . 8 ⊢ (𝑓 = ℎ → ((◡𝑓 “ ℕ) ⊆ 𝐽 ↔ (◡ℎ “ ℕ) ⊆ 𝐽))
46		eulerpart.t	. . . . . . . 8 ⊢ 𝑇 = {𝑓 ∈ (ℕ0 ↑m ℕ) ∣ (◡𝑓 “ ℕ) ⊆ 𝐽}
47	45, 46	elrab2 3664	. . . . . . 7 ⊢ (ℎ ∈ 𝑇 ↔ (ℎ ∈ (ℕ0 ↑m ℕ) ∧ (◡ℎ “ ℕ) ⊆ 𝐽))
48		vex 3454	. . . . . . . 8 ⊢ ℎ ∈ V
49		eulerpart.r	. . . . . . . 8 ⊢ 𝑅 = {𝑓 ∣ (◡𝑓 “ ℕ) ∈ Fin}
50	48, 10, 49	elab2 3651	. . . . . . 7 ⊢ (ℎ ∈ 𝑅 ↔ (◡ℎ “ ℕ) ∈ Fin)
51	47, 50	anbi12i 628	. . . . . 6 ⊢ ((ℎ ∈ 𝑇 ∧ ℎ ∈ 𝑅) ↔ ((ℎ ∈ (ℕ0 ↑m ℕ) ∧ (◡ℎ “ ℕ) ⊆ 𝐽) ∧ (◡ℎ “ ℕ) ∈ Fin))
52	44, 51	bitr4di 289	. . . . 5 ⊢ (ℎ ∈ 𝑃 → (∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛 ↔ (ℎ ∈ 𝑇 ∧ ℎ ∈ 𝑅)))
53	52	pm5.32i 574	. . . 4 ⊢ ((ℎ ∈ 𝑃 ∧ ∀𝑛 ∈ (◡ℎ “ ℕ) ¬ 2 ∥ 𝑛) ↔ (ℎ ∈ 𝑃 ∧ (ℎ ∈ 𝑇 ∧ ℎ ∈ 𝑅)))
54		ancom 460	. . . 4 ⊢ ((ℎ ∈ 𝑃 ∧ (ℎ ∈ 𝑇 ∧ ℎ ∈ 𝑅)) ↔ ((ℎ ∈ 𝑇 ∧ ℎ ∈ 𝑅) ∧ ℎ ∈ 𝑃))
55	7, 53, 54	3bitri 297	. . 3 ⊢ (ℎ ∈ 𝑂 ↔ ((ℎ ∈ 𝑇 ∧ ℎ ∈ 𝑅) ∧ ℎ ∈ 𝑃))
56	2, 3, 55	3bitr4ri 304	. 2 ⊢ (ℎ ∈ 𝑂 ↔ ℎ ∈ ((𝑇 ∩ 𝑅) ∩ 𝑃))
57	56	eqriv 2727	1 ⊢ 𝑂 = ((𝑇 ∩ 𝑅) ∩ 𝑃)

Syntax hints:  ¬ wn 3   ∧ wa 395   = wceq 1540   ∈ wcel 2109  {cab 2708  ∀wral 3045  {crab 3408   ∩ cin 3915   ⊆ wss 3916  ∅c0 4298  𝒫 cpw 4565   class class class wbr 5109  {copab 5171   ↦ cmpt 5190  ^◡ccnv 5639  dom cdm 5640   ↾ cres 5642   “ cima 5643   ∘ ccom 5644  ⟶wf 6509  ‘cfv 6513  (class class class)co 7389   ∈ cmpo 7391   supp csupp 8141   ↑_m cmap 8801  Fincfn 8920  1c1 11075   · cmul 11079   ≤ cle 11215  ℕcn 12187  2c2 12242  ℕ₀cn0 12448  ↑cexp 14032  Σcsu 15658   ∥ cdvds 16228  bitscbits 16395  𝟭cind 32779

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-sep 5253  ax-nul 5263  ax-pow 5322  ax-pr 5389  ax-un 7713  ax-cnex 11130  ax-1cn 11132  ax-addcl 11134

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3756  df-csb 3865  df-dif 3919  df-un 3921  df-in 3923  df-ss 3933  df-pss 3936  df-nul 4299  df-if 4491  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-iun 4959  df-br 5110  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5535  df-eprel 5540  df-po 5548  df-so 5549  df-fr 5593  df-we 5595  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-dm 5650  df-rn 5651  df-res 5652  df-ima 5653  df-pred 6276  df-ord 6337  df-on 6338  df-lim 6339  df-suc 6340  df-iota 6466  df-fun 6515  df-fn 6516  df-f 6517  df-f1 6518  df-fo 6519  df-f1o 6520  df-fv 6521  df-ov 7392  df-oprab 7393  df-mpo 7394  df-om 7845  df-2nd 7971  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8380  df-map 8803  df-nn 12188  df-n0 12449  df-seq 13973  df-sum 15659

This theorem is referenced by: (None)