Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  eulerpartlemt Structured version   Visualization version   GIF version

Theorem eulerpartlemt 30883
Description: Lemma for eulerpart 30894. (Contributed by Thierry Arnoux, 19-Sep-2017.)
Hypotheses
Ref Expression
eulerpart.p 𝑃 = {𝑓 ∈ (ℕ0𝑚 ℕ) ∣ ((𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓𝑘) · 𝑘) = 𝑁)}
eulerpart.o 𝑂 = {𝑔𝑃 ∣ ∀𝑛 ∈ (𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
eulerpart.d 𝐷 = {𝑔𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔𝑛) ≤ 1}
eulerpart.j 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
eulerpart.f 𝐹 = (𝑥𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
eulerpart.h 𝐻 = {𝑟 ∈ ((𝒫 ℕ0 ∩ Fin) ↑𝑚 𝐽) ∣ (𝑟 supp ∅) ∈ Fin}
eulerpart.m 𝑀 = (𝑟𝐻 ↦ {⟨𝑥, 𝑦⟩ ∣ (𝑥𝐽𝑦 ∈ (𝑟𝑥))})
eulerpart.r 𝑅 = {𝑓 ∣ (𝑓 “ ℕ) ∈ Fin}
eulerpart.t 𝑇 = {𝑓 ∈ (ℕ0𝑚 ℕ) ∣ (𝑓 “ ℕ) ⊆ 𝐽}
Assertion
Ref Expression
eulerpartlemt ((ℕ0𝑚 𝐽) ∩ 𝑅) = ran (𝑚 ∈ (𝑇𝑅) ↦ (𝑚𝐽))
Distinct variable groups:   𝑓,𝑚,𝐽   𝑅,𝑚   𝑇,𝑚
Allowed substitution hints:   𝐷(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑚,𝑛,𝑟)   𝑃(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑚,𝑛,𝑟)   𝑅(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑛,𝑟)   𝑇(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑛,𝑟)   𝐹(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑚,𝑛,𝑟)   𝐻(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑚,𝑛,𝑟)   𝐽(𝑥,𝑦,𝑧,𝑔,𝑘,𝑛,𝑟)   𝑀(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑚,𝑛,𝑟)   𝑁(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑚,𝑛,𝑟)   𝑂(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑚,𝑛,𝑟)

Proof of Theorem eulerpartlemt
Dummy variable 𝑜 is distinct from all other variables.
StepHypRef Expression
1 elmapi 8084 . . . . . . . . . 10 (𝑜 ∈ (ℕ0𝑚 𝐽) → 𝑜:𝐽⟶ℕ0)
21adantr 472 . . . . . . . . 9 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → 𝑜:𝐽⟶ℕ0)
3 c0ex 10289 . . . . . . . . . . 11 0 ∈ V
43fconst 6275 . . . . . . . . . 10 ((ℕ ∖ 𝐽) × {0}):(ℕ ∖ 𝐽)⟶{0}
54a1i 11 . . . . . . . . 9 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → ((ℕ ∖ 𝐽) × {0}):(ℕ ∖ 𝐽)⟶{0})
6 disjdif 4202 . . . . . . . . . 10 (𝐽 ∩ (ℕ ∖ 𝐽)) = ∅
76a1i 11 . . . . . . . . 9 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → (𝐽 ∩ (ℕ ∖ 𝐽)) = ∅)
8 fun 6250 . . . . . . . . 9 (((𝑜:𝐽⟶ℕ0 ∧ ((ℕ ∖ 𝐽) × {0}):(ℕ ∖ 𝐽)⟶{0}) ∧ (𝐽 ∩ (ℕ ∖ 𝐽)) = ∅) → (𝑜 ∪ ((ℕ ∖ 𝐽) × {0})):(𝐽 ∪ (ℕ ∖ 𝐽))⟶(ℕ0 ∪ {0}))
92, 5, 7, 8syl21anc 866 . . . . . . . 8 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → (𝑜 ∪ ((ℕ ∖ 𝐽) × {0})):(𝐽 ∪ (ℕ ∖ 𝐽))⟶(ℕ0 ∪ {0}))
10 eulerpart.j . . . . . . . . . . 11 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
11 ssrab2 3849 . . . . . . . . . . 11 {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧} ⊆ ℕ
1210, 11eqsstri 3797 . . . . . . . . . 10 𝐽 ⊆ ℕ
13 undif 4211 . . . . . . . . . 10 (𝐽 ⊆ ℕ ↔ (𝐽 ∪ (ℕ ∖ 𝐽)) = ℕ)
1412, 13mpbi 221 . . . . . . . . 9 (𝐽 ∪ (ℕ ∖ 𝐽)) = ℕ
15 0nn0 11557 . . . . . . . . . . 11 0 ∈ ℕ0
16 snssi 4495 . . . . . . . . . . 11 (0 ∈ ℕ0 → {0} ⊆ ℕ0)
1715, 16ax-mp 5 . . . . . . . . . 10 {0} ⊆ ℕ0
18 ssequn2 3950 . . . . . . . . . 10 ({0} ⊆ ℕ0 ↔ (ℕ0 ∪ {0}) = ℕ0)
1917, 18mpbi 221 . . . . . . . . 9 (ℕ0 ∪ {0}) = ℕ0
2014, 19feq23i 6219 . . . . . . . 8 ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})):(𝐽 ∪ (ℕ ∖ 𝐽))⟶(ℕ0 ∪ {0}) ↔ (𝑜 ∪ ((ℕ ∖ 𝐽) × {0})):ℕ⟶ℕ0)
219, 20sylib 209 . . . . . . 7 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → (𝑜 ∪ ((ℕ ∖ 𝐽) × {0})):ℕ⟶ℕ0)
22 nn0ex 11547 . . . . . . . 8 0 ∈ V
23 nnex 11283 . . . . . . . 8 ℕ ∈ V
2422, 23elmap 8091 . . . . . . 7 ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) ∈ (ℕ0𝑚 ℕ) ↔ (𝑜 ∪ ((ℕ ∖ 𝐽) × {0})):ℕ⟶ℕ0)
2521, 24sylibr 225 . . . . . 6 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → (𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) ∈ (ℕ0𝑚 ℕ))
26 cnvun 5723 . . . . . . . . 9 (𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) = (𝑜((ℕ ∖ 𝐽) × {0}))
2726imaeq1i 5647 . . . . . . . 8 ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) “ ℕ) = ((𝑜((ℕ ∖ 𝐽) × {0})) “ ℕ)
28 imaundir 5731 . . . . . . . 8 ((𝑜((ℕ ∖ 𝐽) × {0})) “ ℕ) = ((𝑜 “ ℕ) ∪ (((ℕ ∖ 𝐽) × {0}) “ ℕ))
2927, 28eqtri 2787 . . . . . . 7 ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) “ ℕ) = ((𝑜 “ ℕ) ∪ (((ℕ ∖ 𝐽) × {0}) “ ℕ))
30 vex 3353 . . . . . . . . . . 11 𝑜 ∈ V
31 cnveq 5466 . . . . . . . . . . . . 13 (𝑓 = 𝑜𝑓 = 𝑜)
3231imaeq1d 5649 . . . . . . . . . . . 12 (𝑓 = 𝑜 → (𝑓 “ ℕ) = (𝑜 “ ℕ))
3332eleq1d 2829 . . . . . . . . . . 11 (𝑓 = 𝑜 → ((𝑓 “ ℕ) ∈ Fin ↔ (𝑜 “ ℕ) ∈ Fin))
34 eulerpart.r . . . . . . . . . . 11 𝑅 = {𝑓 ∣ (𝑓 “ ℕ) ∈ Fin}
3530, 33, 34elab2 3511 . . . . . . . . . 10 (𝑜𝑅 ↔ (𝑜 “ ℕ) ∈ Fin)
3635biimpi 207 . . . . . . . . 9 (𝑜𝑅 → (𝑜 “ ℕ) ∈ Fin)
3736adantl 473 . . . . . . . 8 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → (𝑜 “ ℕ) ∈ Fin)
38 cnvxp 5736 . . . . . . . . . . . . . 14 ((ℕ ∖ 𝐽) × {0}) = ({0} × (ℕ ∖ 𝐽))
3938dmeqi 5495 . . . . . . . . . . . . 13 dom ((ℕ ∖ 𝐽) × {0}) = dom ({0} × (ℕ ∖ 𝐽))
40 2nn 11347 . . . . . . . . . . . . . . 15 2 ∈ ℕ
41 2z 11659 . . . . . . . . . . . . . . . . 17 2 ∈ ℤ
42 iddvds 15283 . . . . . . . . . . . . . . . . 17 (2 ∈ ℤ → 2 ∥ 2)
4341, 42ax-mp 5 . . . . . . . . . . . . . . . 16 2 ∥ 2
44 breq2 4815 . . . . . . . . . . . . . . . . . . 19 (𝑧 = 2 → (2 ∥ 𝑧 ↔ 2 ∥ 2))
4544notbid 309 . . . . . . . . . . . . . . . . . 18 (𝑧 = 2 → (¬ 2 ∥ 𝑧 ↔ ¬ 2 ∥ 2))
4645, 10elrab2 3525 . . . . . . . . . . . . . . . . 17 (2 ∈ 𝐽 ↔ (2 ∈ ℕ ∧ ¬ 2 ∥ 2))
4746simprbi 490 . . . . . . . . . . . . . . . 16 (2 ∈ 𝐽 → ¬ 2 ∥ 2)
4843, 47mt2 191 . . . . . . . . . . . . . . 15 ¬ 2 ∈ 𝐽
49 eldif 3744 . . . . . . . . . . . . . . 15 (2 ∈ (ℕ ∖ 𝐽) ↔ (2 ∈ ℕ ∧ ¬ 2 ∈ 𝐽))
5040, 48, 49mpbir2an 702 . . . . . . . . . . . . . 14 2 ∈ (ℕ ∖ 𝐽)
51 ne0i 4087 . . . . . . . . . . . . . 14 (2 ∈ (ℕ ∖ 𝐽) → (ℕ ∖ 𝐽) ≠ ∅)
52 dmxp 5514 . . . . . . . . . . . . . 14 ((ℕ ∖ 𝐽) ≠ ∅ → dom ({0} × (ℕ ∖ 𝐽)) = {0})
5350, 51, 52mp2b 10 . . . . . . . . . . . . 13 dom ({0} × (ℕ ∖ 𝐽)) = {0}
5439, 53eqtri 2787 . . . . . . . . . . . 12 dom ((ℕ ∖ 𝐽) × {0}) = {0}
5554ineq1i 3974 . . . . . . . . . . 11 (dom ((ℕ ∖ 𝐽) × {0}) ∩ ℕ) = ({0} ∩ ℕ)
56 incom 3969 . . . . . . . . . . 11 (ℕ ∩ {0}) = ({0} ∩ ℕ)
57 0nnn 11311 . . . . . . . . . . . 12 ¬ 0 ∈ ℕ
58 disjsn 4404 . . . . . . . . . . . 12 ((ℕ ∩ {0}) = ∅ ↔ ¬ 0 ∈ ℕ)
5957, 58mpbir 222 . . . . . . . . . . 11 (ℕ ∩ {0}) = ∅
6055, 56, 593eqtr2i 2793 . . . . . . . . . 10 (dom ((ℕ ∖ 𝐽) × {0}) ∩ ℕ) = ∅
61 imadisj 5668 . . . . . . . . . 10 ((((ℕ ∖ 𝐽) × {0}) “ ℕ) = ∅ ↔ (dom ((ℕ ∖ 𝐽) × {0}) ∩ ℕ) = ∅)
6260, 61mpbir 222 . . . . . . . . 9 (((ℕ ∖ 𝐽) × {0}) “ ℕ) = ∅
63 0fin 8397 . . . . . . . . 9 ∅ ∈ Fin
6462, 63eqeltri 2840 . . . . . . . 8 (((ℕ ∖ 𝐽) × {0}) “ ℕ) ∈ Fin
65 unfi 8436 . . . . . . . 8 (((𝑜 “ ℕ) ∈ Fin ∧ (((ℕ ∖ 𝐽) × {0}) “ ℕ) ∈ Fin) → ((𝑜 “ ℕ) ∪ (((ℕ ∖ 𝐽) × {0}) “ ℕ)) ∈ Fin)
6637, 64, 65sylancl 580 . . . . . . 7 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → ((𝑜 “ ℕ) ∪ (((ℕ ∖ 𝐽) × {0}) “ ℕ)) ∈ Fin)
6729, 66syl5eqel 2848 . . . . . 6 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) “ ℕ) ∈ Fin)
68 cnvimass 5669 . . . . . . . . 9 (𝑜 “ ℕ) ⊆ dom 𝑜
6968, 2fssdm 6241 . . . . . . . 8 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → (𝑜 “ ℕ) ⊆ 𝐽)
70 0ss 4136 . . . . . . . . . 10 ∅ ⊆ 𝐽
7162, 70eqsstri 3797 . . . . . . . . 9 (((ℕ ∖ 𝐽) × {0}) “ ℕ) ⊆ 𝐽
7271a1i 11 . . . . . . . 8 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → (((ℕ ∖ 𝐽) × {0}) “ ℕ) ⊆ 𝐽)
7369, 72unssd 3953 . . . . . . 7 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → ((𝑜 “ ℕ) ∪ (((ℕ ∖ 𝐽) × {0}) “ ℕ)) ⊆ 𝐽)
7429, 73syl5eqss 3811 . . . . . 6 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) “ ℕ) ⊆ 𝐽)
75 eulerpart.p . . . . . . 7 𝑃 = {𝑓 ∈ (ℕ0𝑚 ℕ) ∣ ((𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓𝑘) · 𝑘) = 𝑁)}
76 eulerpart.o . . . . . . 7 𝑂 = {𝑔𝑃 ∣ ∀𝑛 ∈ (𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
77 eulerpart.d . . . . . . 7 𝐷 = {𝑔𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔𝑛) ≤ 1}
78 eulerpart.f . . . . . . 7 𝐹 = (𝑥𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
79 eulerpart.h . . . . . . 7 𝐻 = {𝑟 ∈ ((𝒫 ℕ0 ∩ Fin) ↑𝑚 𝐽) ∣ (𝑟 supp ∅) ∈ Fin}
80 eulerpart.m . . . . . . 7 𝑀 = (𝑟𝐻 ↦ {⟨𝑥, 𝑦⟩ ∣ (𝑥𝐽𝑦 ∈ (𝑟𝑥))})
81 eulerpart.t . . . . . . 7 𝑇 = {𝑓 ∈ (ℕ0𝑚 ℕ) ∣ (𝑓 “ ℕ) ⊆ 𝐽}
8275, 76, 77, 10, 78, 79, 80, 34, 81eulerpartlemt0 30881 . . . . . 6 ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) ∈ (𝑇𝑅) ↔ ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) ∈ (ℕ0𝑚 ℕ) ∧ ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) “ ℕ) ∈ Fin ∧ ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) “ ℕ) ⊆ 𝐽))
8325, 67, 74, 82syl3anbrc 1443 . . . . 5 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → (𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) ∈ (𝑇𝑅))
84 resundir 5589 . . . . . 6 ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) ↾ 𝐽) = ((𝑜𝐽) ∪ (((ℕ ∖ 𝐽) × {0}) ↾ 𝐽))
85 ffn 6225 . . . . . . . 8 (𝑜:𝐽⟶ℕ0𝑜 Fn 𝐽)
86 fnresdm 6180 . . . . . . . . 9 (𝑜 Fn 𝐽 → (𝑜𝐽) = 𝑜)
87 incom 3969 . . . . . . . . . . . 12 ((ℕ ∖ 𝐽) ∩ 𝐽) = (𝐽 ∩ (ℕ ∖ 𝐽))
8887, 6eqtri 2787 . . . . . . . . . . 11 ((ℕ ∖ 𝐽) ∩ 𝐽) = ∅
89 fnconstg 6277 . . . . . . . . . . . 12 (0 ∈ ℕ0 → ((ℕ ∖ 𝐽) × {0}) Fn (ℕ ∖ 𝐽))
90 fnresdisj 6181 . . . . . . . . . . . 12 (((ℕ ∖ 𝐽) × {0}) Fn (ℕ ∖ 𝐽) → (((ℕ ∖ 𝐽) ∩ 𝐽) = ∅ ↔ (((ℕ ∖ 𝐽) × {0}) ↾ 𝐽) = ∅))
9115, 89, 90mp2b 10 . . . . . . . . . . 11 (((ℕ ∖ 𝐽) ∩ 𝐽) = ∅ ↔ (((ℕ ∖ 𝐽) × {0}) ↾ 𝐽) = ∅)
9288, 91mpbi 221 . . . . . . . . . 10 (((ℕ ∖ 𝐽) × {0}) ↾ 𝐽) = ∅
9392a1i 11 . . . . . . . . 9 (𝑜 Fn 𝐽 → (((ℕ ∖ 𝐽) × {0}) ↾ 𝐽) = ∅)
9486, 93uneq12d 3932 . . . . . . . 8 (𝑜 Fn 𝐽 → ((𝑜𝐽) ∪ (((ℕ ∖ 𝐽) × {0}) ↾ 𝐽)) = (𝑜 ∪ ∅))
952, 85, 943syl 18 . . . . . . 7 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → ((𝑜𝐽) ∪ (((ℕ ∖ 𝐽) × {0}) ↾ 𝐽)) = (𝑜 ∪ ∅))
96 un0 4131 . . . . . . 7 (𝑜 ∪ ∅) = 𝑜
9795, 96syl6eq 2815 . . . . . 6 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → ((𝑜𝐽) ∪ (((ℕ ∖ 𝐽) × {0}) ↾ 𝐽)) = 𝑜)
9884, 97syl5req 2812 . . . . 5 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → 𝑜 = ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) ↾ 𝐽))
99 reseq1 5561 . . . . . 6 (𝑚 = (𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) → (𝑚𝐽) = ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) ↾ 𝐽))
10099rspceeqv 3480 . . . . 5 (((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) ∈ (𝑇𝑅) ∧ 𝑜 = ((𝑜 ∪ ((ℕ ∖ 𝐽) × {0})) ↾ 𝐽)) → ∃𝑚 ∈ (𝑇𝑅)𝑜 = (𝑚𝐽))
10183, 98, 100syl2anc 579 . . . 4 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) → ∃𝑚 ∈ (𝑇𝑅)𝑜 = (𝑚𝐽))
102 simpr 477 . . . . . . 7 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → 𝑜 = (𝑚𝐽))
103 simpl 474 . . . . . . . . . . . 12 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → 𝑚 ∈ (𝑇𝑅))
10475, 76, 77, 10, 78, 79, 80, 34, 81eulerpartlemt0 30881 . . . . . . . . . . . 12 (𝑚 ∈ (𝑇𝑅) ↔ (𝑚 ∈ (ℕ0𝑚 ℕ) ∧ (𝑚 “ ℕ) ∈ Fin ∧ (𝑚 “ ℕ) ⊆ 𝐽))
105103, 104sylib 209 . . . . . . . . . . 11 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → (𝑚 ∈ (ℕ0𝑚 ℕ) ∧ (𝑚 “ ℕ) ∈ Fin ∧ (𝑚 “ ℕ) ⊆ 𝐽))
106105simp1d 1172 . . . . . . . . . 10 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → 𝑚 ∈ (ℕ0𝑚 ℕ))
10722, 23elmap 8091 . . . . . . . . . 10 (𝑚 ∈ (ℕ0𝑚 ℕ) ↔ 𝑚:ℕ⟶ℕ0)
108106, 107sylib 209 . . . . . . . . 9 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → 𝑚:ℕ⟶ℕ0)
109 fssres 6254 . . . . . . . . 9 ((𝑚:ℕ⟶ℕ0𝐽 ⊆ ℕ) → (𝑚𝐽):𝐽⟶ℕ0)
110108, 12, 109sylancl 580 . . . . . . . 8 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → (𝑚𝐽):𝐽⟶ℕ0)
11110, 23rabex2 4977 . . . . . . . . 9 𝐽 ∈ V
11222, 111elmap 8091 . . . . . . . 8 ((𝑚𝐽) ∈ (ℕ0𝑚 𝐽) ↔ (𝑚𝐽):𝐽⟶ℕ0)
113110, 112sylibr 225 . . . . . . 7 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → (𝑚𝐽) ∈ (ℕ0𝑚 𝐽))
114102, 113eqeltrd 2844 . . . . . 6 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → 𝑜 ∈ (ℕ0𝑚 𝐽))
115 ffun 6228 . . . . . . . . . 10 (𝑚:ℕ⟶ℕ0 → Fun 𝑚)
116 respreima 6536 . . . . . . . . . 10 (Fun 𝑚 → ((𝑚𝐽) “ ℕ) = ((𝑚 “ ℕ) ∩ 𝐽))
117108, 115, 1163syl 18 . . . . . . . . 9 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → ((𝑚𝐽) “ ℕ) = ((𝑚 “ ℕ) ∩ 𝐽))
118105simp2d 1173 . . . . . . . . . 10 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → (𝑚 “ ℕ) ∈ Fin)
119 infi 8393 . . . . . . . . . 10 ((𝑚 “ ℕ) ∈ Fin → ((𝑚 “ ℕ) ∩ 𝐽) ∈ Fin)
120118, 119syl 17 . . . . . . . . 9 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → ((𝑚 “ ℕ) ∩ 𝐽) ∈ Fin)
121117, 120eqeltrd 2844 . . . . . . . 8 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → ((𝑚𝐽) “ ℕ) ∈ Fin)
122 vex 3353 . . . . . . . . . 10 𝑚 ∈ V
123122resex 5622 . . . . . . . . 9 (𝑚𝐽) ∈ V
124 cnveq 5466 . . . . . . . . . . 11 (𝑓 = (𝑚𝐽) → 𝑓 = (𝑚𝐽))
125124imaeq1d 5649 . . . . . . . . . 10 (𝑓 = (𝑚𝐽) → (𝑓 “ ℕ) = ((𝑚𝐽) “ ℕ))
126125eleq1d 2829 . . . . . . . . 9 (𝑓 = (𝑚𝐽) → ((𝑓 “ ℕ) ∈ Fin ↔ ((𝑚𝐽) “ ℕ) ∈ Fin))
127123, 126, 34elab2 3511 . . . . . . . 8 ((𝑚𝐽) ∈ 𝑅 ↔ ((𝑚𝐽) “ ℕ) ∈ Fin)
128121, 127sylibr 225 . . . . . . 7 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → (𝑚𝐽) ∈ 𝑅)
129102, 128eqeltrd 2844 . . . . . 6 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → 𝑜𝑅)
130114, 129jca 507 . . . . 5 ((𝑚 ∈ (𝑇𝑅) ∧ 𝑜 = (𝑚𝐽)) → (𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅))
131130rexlimiva 3175 . . . 4 (∃𝑚 ∈ (𝑇𝑅)𝑜 = (𝑚𝐽) → (𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅))
132101, 131impbii 200 . . 3 ((𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅) ↔ ∃𝑚 ∈ (𝑇𝑅)𝑜 = (𝑚𝐽))
133132abbii 2882 . 2 {𝑜 ∣ (𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅)} = {𝑜 ∣ ∃𝑚 ∈ (𝑇𝑅)𝑜 = (𝑚𝐽)}
134 df-in 3741 . 2 ((ℕ0𝑚 𝐽) ∩ 𝑅) = {𝑜 ∣ (𝑜 ∈ (ℕ0𝑚 𝐽) ∧ 𝑜𝑅)}
135 eqid 2765 . . 3 (𝑚 ∈ (𝑇𝑅) ↦ (𝑚𝐽)) = (𝑚 ∈ (𝑇𝑅) ↦ (𝑚𝐽))
136135rnmpt 5542 . 2 ran (𝑚 ∈ (𝑇𝑅) ↦ (𝑚𝐽)) = {𝑜 ∣ ∃𝑚 ∈ (𝑇𝑅)𝑜 = (𝑚𝐽)}
137133, 134, 1363eqtr4i 2797 1 ((ℕ0𝑚 𝐽) ∩ 𝑅) = ran (𝑚 ∈ (𝑇𝑅) ↦ (𝑚𝐽))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wb 197  wa 384  w3a 1107   = wceq 1652  wcel 2155  {cab 2751  wne 2937  wral 3055  wrex 3056  {crab 3059  cdif 3731  cun 3732  cin 3733  wss 3734  c0 4081  𝒫 cpw 4317  {csn 4336   class class class wbr 4811  {copab 4873  cmpt 4890   × cxp 5277  ccnv 5278  dom cdm 5279  ran crn 5280  cres 5281  cima 5282  Fun wfun 6064   Fn wfn 6065  wf 6066  cfv 6070  (class class class)co 6844  cmpt2 6846   supp csupp 7499  𝑚 cmap 8062  Fincfn 8162  0cc0 10191  1c1 10192   · cmul 10196  cle 10331  cn 11276  2c2 11329  0cn0 11540  cz 11626  cexp 13070  Σcsu 14704  cdvds 15268
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-sep 4943  ax-nul 4951  ax-pow 5003  ax-pr 5064  ax-un 7149  ax-cnex 10247  ax-resscn 10248  ax-1cn 10249  ax-icn 10250  ax-addcl 10251  ax-addrcl 10252  ax-mulcl 10253  ax-mulrcl 10254  ax-mulcom 10255  ax-addass 10256  ax-mulass 10257  ax-distr 10258  ax-i2m1 10259  ax-1ne0 10260  ax-1rid 10261  ax-rnegex 10262  ax-rrecex 10263  ax-cnre 10264  ax-pre-lttri 10265  ax-pre-lttrn 10266  ax-pre-ltadd 10267  ax-pre-mulgt0 10268
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rab 3064  df-v 3352  df-sbc 3599  df-csb 3694  df-dif 3737  df-un 3739  df-in 3741  df-ss 3748  df-pss 3750  df-nul 4082  df-if 4246  df-pw 4319  df-sn 4337  df-pr 4339  df-tp 4341  df-op 4343  df-uni 4597  df-int 4636  df-iun 4680  df-br 4812  df-opab 4874  df-mpt 4891  df-tr 4914  df-id 5187  df-eprel 5192  df-po 5200  df-so 5201  df-fr 5238  df-we 5240  df-xp 5285  df-rel 5286  df-cnv 5287  df-co 5288  df-dm 5289  df-rn 5290  df-res 5291  df-ima 5292  df-pred 5867  df-ord 5913  df-on 5914  df-lim 5915  df-suc 5916  df-iota 6033  df-fun 6072  df-fn 6073  df-f 6074  df-f1 6075  df-fo 6076  df-f1o 6077  df-fv 6078  df-riota 6805  df-ov 6847  df-oprab 6848  df-mpt2 6849  df-om 7266  df-1st 7368  df-2nd 7369  df-wrecs 7612  df-recs 7674  df-rdg 7712  df-oadd 7770  df-er 7949  df-map 8064  df-en 8163  df-dom 8164  df-sdom 8165  df-fin 8166  df-pnf 10332  df-mnf 10333  df-xr 10334  df-ltxr 10335  df-le 10336  df-sub 10524  df-neg 10525  df-nn 11277  df-2 11337  df-n0 11541  df-z 11627  df-dvds 15269
This theorem is referenced by:  eulerpartgbij  30884
  Copyright terms: Public domain W3C validator