Proof of Theorem neiptopreu
Step | Hyp | Ref
| Expression |
1 | | neiptop.o |
. . . . 5
⊢ 𝐽 = {𝑎 ∈ 𝒫 𝑋 ∣ ∀𝑝 ∈ 𝑎 𝑎 ∈ (𝑁‘𝑝)} |
2 | | neiptop.0 |
. . . . 5
⊢ (𝜑 → 𝑁:𝑋⟶𝒫 𝒫 𝑋) |
3 | | neiptop.1 |
. . . . 5
⊢ ((((𝜑 ∧ 𝑝 ∈ 𝑋) ∧ 𝑎 ⊆ 𝑏 ∧ 𝑏 ⊆ 𝑋) ∧ 𝑎 ∈ (𝑁‘𝑝)) → 𝑏 ∈ (𝑁‘𝑝)) |
4 | | neiptop.2 |
. . . . 5
⊢ ((𝜑 ∧ 𝑝 ∈ 𝑋) → (fi‘(𝑁‘𝑝)) ⊆ (𝑁‘𝑝)) |
5 | | neiptop.3 |
. . . . 5
⊢ (((𝜑 ∧ 𝑝 ∈ 𝑋) ∧ 𝑎 ∈ (𝑁‘𝑝)) → 𝑝 ∈ 𝑎) |
6 | | neiptop.4 |
. . . . 5
⊢ (((𝜑 ∧ 𝑝 ∈ 𝑋) ∧ 𝑎 ∈ (𝑁‘𝑝)) → ∃𝑏 ∈ (𝑁‘𝑝)∀𝑞 ∈ 𝑏 𝑎 ∈ (𝑁‘𝑞)) |
7 | | neiptop.5 |
. . . . 5
⊢ ((𝜑 ∧ 𝑝 ∈ 𝑋) → 𝑋 ∈ (𝑁‘𝑝)) |
8 | 1, 2, 3, 4, 5, 6, 7 | neiptoptop 20745 |
. . . 4
⊢ (𝜑 → 𝐽 ∈ Top) |
9 | | eqid 2610 |
. . . . 5
⊢ ∪ 𝐽 =
∪ 𝐽 |
10 | 9 | toptopon 20548 |
. . . 4
⊢ (𝐽 ∈ Top ↔ 𝐽 ∈ (TopOn‘∪ 𝐽)) |
11 | 8, 10 | sylib 207 |
. . 3
⊢ (𝜑 → 𝐽 ∈ (TopOn‘∪ 𝐽)) |
12 | 1, 2, 3, 4, 5, 6, 7 | neiptopuni 20744 |
. . . 4
⊢ (𝜑 → 𝑋 = ∪ 𝐽) |
13 | 12 | fveq2d 6107 |
. . 3
⊢ (𝜑 → (TopOn‘𝑋) = (TopOn‘∪ 𝐽)) |
14 | 11, 13 | eleqtrrd 2691 |
. 2
⊢ (𝜑 → 𝐽 ∈ (TopOn‘𝑋)) |
15 | 1, 2, 3, 4, 5, 6, 7 | neiptopnei 20746 |
. 2
⊢ (𝜑 → 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝐽)‘{𝑝}))) |
16 | | nfv 1830 |
. . . . . . . . . 10
⊢
Ⅎ𝑝(𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) |
17 | | nfmpt1 4675 |
. . . . . . . . . . 11
⊢
Ⅎ𝑝(𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝})) |
18 | 17 | nfeq2 2766 |
. . . . . . . . . 10
⊢
Ⅎ𝑝 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝})) |
19 | 16, 18 | nfan 1816 |
. . . . . . . . 9
⊢
Ⅎ𝑝((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) |
20 | | nfv 1830 |
. . . . . . . . 9
⊢
Ⅎ𝑝 𝑏 ⊆ 𝑋 |
21 | 19, 20 | nfan 1816 |
. . . . . . . 8
⊢
Ⅎ𝑝(((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ⊆ 𝑋) |
22 | | simpllr 795 |
. . . . . . . . . . 11
⊢
(((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ⊆ 𝑋) ∧ 𝑝 ∈ 𝑏) → 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) |
23 | | simpr 476 |
. . . . . . . . . . . 12
⊢ ((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ⊆ 𝑋) → 𝑏 ⊆ 𝑋) |
24 | 23 | sselda 3568 |
. . . . . . . . . . 11
⊢
(((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ⊆ 𝑋) ∧ 𝑝 ∈ 𝑏) → 𝑝 ∈ 𝑋) |
25 | | id 22 |
. . . . . . . . . . . 12
⊢ (𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝})) → 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) |
26 | | fvex 6113 |
. . . . . . . . . . . . 13
⊢
((nei‘𝑗)‘{𝑝}) ∈ V |
27 | 26 | a1i 11 |
. . . . . . . . . . . 12
⊢ ((𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝})) ∧ 𝑝 ∈ 𝑋) → ((nei‘𝑗)‘{𝑝}) ∈ V) |
28 | 25, 27 | fvmpt2d 6202 |
. . . . . . . . . . 11
⊢ ((𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝})) ∧ 𝑝 ∈ 𝑋) → (𝑁‘𝑝) = ((nei‘𝑗)‘{𝑝})) |
29 | 22, 24, 28 | syl2anc 691 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ⊆ 𝑋) ∧ 𝑝 ∈ 𝑏) → (𝑁‘𝑝) = ((nei‘𝑗)‘{𝑝})) |
30 | 29 | eqcomd 2616 |
. . . . . . . . 9
⊢
(((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ⊆ 𝑋) ∧ 𝑝 ∈ 𝑏) → ((nei‘𝑗)‘{𝑝}) = (𝑁‘𝑝)) |
31 | 30 | eleq2d 2673 |
. . . . . . . 8
⊢
(((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ⊆ 𝑋) ∧ 𝑝 ∈ 𝑏) → (𝑏 ∈ ((nei‘𝑗)‘{𝑝}) ↔ 𝑏 ∈ (𝑁‘𝑝))) |
32 | 21, 31 | ralbida 2965 |
. . . . . . 7
⊢ ((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ⊆ 𝑋) → (∀𝑝 ∈ 𝑏 𝑏 ∈ ((nei‘𝑗)‘{𝑝}) ↔ ∀𝑝 ∈ 𝑏 𝑏 ∈ (𝑁‘𝑝))) |
33 | 32 | pm5.32da 671 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) → ((𝑏 ⊆ 𝑋 ∧ ∀𝑝 ∈ 𝑏 𝑏 ∈ ((nei‘𝑗)‘{𝑝})) ↔ (𝑏 ⊆ 𝑋 ∧ ∀𝑝 ∈ 𝑏 𝑏 ∈ (𝑁‘𝑝)))) |
34 | | simpllr 795 |
. . . . . . . . 9
⊢ ((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ∈ 𝑗) → 𝑗 ∈ (TopOn‘𝑋)) |
35 | | simpr 476 |
. . . . . . . . 9
⊢ ((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ∈ 𝑗) → 𝑏 ∈ 𝑗) |
36 | | toponss 20544 |
. . . . . . . . 9
⊢ ((𝑗 ∈ (TopOn‘𝑋) ∧ 𝑏 ∈ 𝑗) → 𝑏 ⊆ 𝑋) |
37 | 34, 35, 36 | syl2anc 691 |
. . . . . . . 8
⊢ ((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ∈ 𝑗) → 𝑏 ⊆ 𝑋) |
38 | | topontop 20541 |
. . . . . . . . . . 11
⊢ (𝑗 ∈ (TopOn‘𝑋) → 𝑗 ∈ Top) |
39 | 38 | ad2antlr 759 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) → 𝑗 ∈ Top) |
40 | | opnnei 20734 |
. . . . . . . . . 10
⊢ (𝑗 ∈ Top → (𝑏 ∈ 𝑗 ↔ ∀𝑝 ∈ 𝑏 𝑏 ∈ ((nei‘𝑗)‘{𝑝}))) |
41 | 39, 40 | syl 17 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) → (𝑏 ∈ 𝑗 ↔ ∀𝑝 ∈ 𝑏 𝑏 ∈ ((nei‘𝑗)‘{𝑝}))) |
42 | 41 | biimpa 500 |
. . . . . . . 8
⊢ ((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ∈ 𝑗) → ∀𝑝 ∈ 𝑏 𝑏 ∈ ((nei‘𝑗)‘{𝑝})) |
43 | 37, 42 | jca 553 |
. . . . . . 7
⊢ ((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ 𝑏 ∈ 𝑗) → (𝑏 ⊆ 𝑋 ∧ ∀𝑝 ∈ 𝑏 𝑏 ∈ ((nei‘𝑗)‘{𝑝}))) |
44 | 41 | biimpar 501 |
. . . . . . . 8
⊢ ((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ ∀𝑝 ∈ 𝑏 𝑏 ∈ ((nei‘𝑗)‘{𝑝})) → 𝑏 ∈ 𝑗) |
45 | 44 | adantrl 748 |
. . . . . . 7
⊢ ((((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) ∧ (𝑏 ⊆ 𝑋 ∧ ∀𝑝 ∈ 𝑏 𝑏 ∈ ((nei‘𝑗)‘{𝑝}))) → 𝑏 ∈ 𝑗) |
46 | 43, 45 | impbida 873 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) → (𝑏 ∈ 𝑗 ↔ (𝑏 ⊆ 𝑋 ∧ ∀𝑝 ∈ 𝑏 𝑏 ∈ ((nei‘𝑗)‘{𝑝})))) |
47 | 1 | neipeltop 20743 |
. . . . . . 7
⊢ (𝑏 ∈ 𝐽 ↔ (𝑏 ⊆ 𝑋 ∧ ∀𝑝 ∈ 𝑏 𝑏 ∈ (𝑁‘𝑝))) |
48 | 47 | a1i 11 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) → (𝑏 ∈ 𝐽 ↔ (𝑏 ⊆ 𝑋 ∧ ∀𝑝 ∈ 𝑏 𝑏 ∈ (𝑁‘𝑝)))) |
49 | 33, 46, 48 | 3bitr4d 299 |
. . . . 5
⊢ (((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) → (𝑏 ∈ 𝑗 ↔ 𝑏 ∈ 𝐽)) |
50 | 49 | eqrdv 2608 |
. . . 4
⊢ (((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) → 𝑗 = 𝐽) |
51 | 50 | ex 449 |
. . 3
⊢ ((𝜑 ∧ 𝑗 ∈ (TopOn‘𝑋)) → (𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝})) → 𝑗 = 𝐽)) |
52 | 51 | ralrimiva 2949 |
. 2
⊢ (𝜑 → ∀𝑗 ∈ (TopOn‘𝑋)(𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝})) → 𝑗 = 𝐽)) |
53 | | simpl 472 |
. . . . . . 7
⊢ ((𝑗 = 𝐽 ∧ 𝑝 ∈ 𝑋) → 𝑗 = 𝐽) |
54 | 53 | fveq2d 6107 |
. . . . . 6
⊢ ((𝑗 = 𝐽 ∧ 𝑝 ∈ 𝑋) → (nei‘𝑗) = (nei‘𝐽)) |
55 | 54 | fveq1d 6105 |
. . . . 5
⊢ ((𝑗 = 𝐽 ∧ 𝑝 ∈ 𝑋) → ((nei‘𝑗)‘{𝑝}) = ((nei‘𝐽)‘{𝑝})) |
56 | 55 | mpteq2dva 4672 |
. . . 4
⊢ (𝑗 = 𝐽 → (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝})) = (𝑝 ∈ 𝑋 ↦ ((nei‘𝐽)‘{𝑝}))) |
57 | 56 | eqeq2d 2620 |
. . 3
⊢ (𝑗 = 𝐽 → (𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝})) ↔ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝐽)‘{𝑝})))) |
58 | 57 | eqreu 3365 |
. 2
⊢ ((𝐽 ∈ (TopOn‘𝑋) ∧ 𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝐽)‘{𝑝})) ∧ ∀𝑗 ∈ (TopOn‘𝑋)(𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝})) → 𝑗 = 𝐽)) → ∃!𝑗 ∈ (TopOn‘𝑋)𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) |
59 | 14, 15, 52, 58 | syl3anc 1318 |
1
⊢ (𝜑 → ∃!𝑗 ∈ (TopOn‘𝑋)𝑁 = (𝑝 ∈ 𝑋 ↦ ((nei‘𝑗)‘{𝑝}))) |