Metamath Proof Explorer


Theorem neibastop2

Description: In the topology generated by a neighborhood base, a set is a neighborhood of a point iff it contains a subset in the base. (Contributed by Jeff Hankins, 9-Sep-2009) (Proof shortened by Mario Carneiro, 11-Sep-2015)

Ref Expression
Hypotheses neibastop1.1 φ X V
neibastop1.2 φ F : X 𝒫 𝒫 X
neibastop1.3 φ x X v F x w F x F x 𝒫 v w
neibastop1.4 J = o 𝒫 X | x o F x 𝒫 o
neibastop1.5 φ x X v F x x v
neibastop1.6 φ x X v F x t F x y t F y 𝒫 v
Assertion neibastop2 φ P X N nei J P N X F P 𝒫 N

Proof

Step Hyp Ref Expression
1 neibastop1.1 φ X V
2 neibastop1.2 φ F : X 𝒫 𝒫 X
3 neibastop1.3 φ x X v F x w F x F x 𝒫 v w
4 neibastop1.4 J = o 𝒫 X | x o F x 𝒫 o
5 neibastop1.5 φ x X v F x x v
6 neibastop1.6 φ x X v F x t F x y t F y 𝒫 v
7 1 2 3 4 neibastop1 φ J TopOn X
8 topontop J TopOn X J Top
9 7 8 syl φ J Top
10 9 adantr φ P X J Top
11 eqid J = J
12 11 neii1 J Top N nei J P N J
13 10 12 sylan φ P X N nei J P N J
14 toponuni J TopOn X X = J
15 7 14 syl φ X = J
16 15 ad2antrr φ P X N nei J P X = J
17 13 16 sseqtrrd φ P X N nei J P N X
18 neii2 J Top N nei J P y J P y y N
19 10 18 sylan φ P X N nei J P y J P y y N
20 pweq o = y 𝒫 o = 𝒫 y
21 20 ineq2d o = y F x 𝒫 o = F x 𝒫 y
22 21 neeq1d o = y F x 𝒫 o F x 𝒫 y
23 22 raleqbi1dv o = y x o F x 𝒫 o x y F x 𝒫 y
24 23 4 elrab2 y J y 𝒫 X x y F x 𝒫 y
25 simprrr φ P X N nei J P y 𝒫 X P y y N y N
26 sspwb y N 𝒫 y 𝒫 N
27 25 26 sylib φ P X N nei J P y 𝒫 X P y y N 𝒫 y 𝒫 N
28 sslin 𝒫 y 𝒫 N F P 𝒫 y F P 𝒫 N
29 27 28 syl φ P X N nei J P y 𝒫 X P y y N F P 𝒫 y F P 𝒫 N
30 simprrl φ P X N nei J P y 𝒫 X P y y N P y
31 snssg P X P y P y
32 31 ad3antlr φ P X N nei J P y 𝒫 X P y y N P y P y
33 30 32 mpbird φ P X N nei J P y 𝒫 X P y y N P y
34 fveq2 x = P F x = F P
35 34 ineq1d x = P F x 𝒫 y = F P 𝒫 y
36 35 neeq1d x = P F x 𝒫 y F P 𝒫 y
37 36 rspcv P y x y F x 𝒫 y F P 𝒫 y
38 33 37 syl φ P X N nei J P y 𝒫 X P y y N x y F x 𝒫 y F P 𝒫 y
39 ssn0 F P 𝒫 y F P 𝒫 N F P 𝒫 y F P 𝒫 N
40 29 38 39 syl6an φ P X N nei J P y 𝒫 X P y y N x y F x 𝒫 y F P 𝒫 N
41 40 expr φ P X N nei J P y 𝒫 X P y y N x y F x 𝒫 y F P 𝒫 N
42 41 com23 φ P X N nei J P y 𝒫 X x y F x 𝒫 y P y y N F P 𝒫 N
43 42 expimpd φ P X N nei J P y 𝒫 X x y F x 𝒫 y P y y N F P 𝒫 N
44 24 43 syl5bi φ P X N nei J P y J P y y N F P 𝒫 N
45 44 rexlimdv φ P X N nei J P y J P y y N F P 𝒫 N
46 19 45 mpd φ P X N nei J P F P 𝒫 N
47 17 46 jca φ P X N nei J P N X F P 𝒫 N
48 47 ex φ P X N nei J P N X F P 𝒫 N
49 n0 F P 𝒫 N s s F P 𝒫 N
50 elin s F P 𝒫 N s F P s 𝒫 N
51 simprl φ P X N X s F P s 𝒫 N N X
52 15 ad2antrr φ P X N X s F P s 𝒫 N X = J
53 51 52 sseqtrd φ P X N X s F P s 𝒫 N N J
54 1 ad2antrr φ P X N X s F P s 𝒫 N X V
55 2 ad2antrr φ P X N X s F P s 𝒫 N F : X 𝒫 𝒫 X
56 simpll φ P X N X s F P s 𝒫 N φ
57 56 3 sylan φ P X N X s F P s 𝒫 N x X v F x w F x F x 𝒫 v w
58 56 5 sylan φ P X N X s F P s 𝒫 N x X v F x x v
59 56 6 sylan φ P X N X s F P s 𝒫 N x X v F x t F x y t F y 𝒫 v
60 simplr φ P X N X s F P s 𝒫 N P X
61 simprrl φ P X N X s F P s 𝒫 N s F P
62 simprrr φ P X N X s F P s 𝒫 N s 𝒫 N
63 62 elpwid φ P X N X s F P s 𝒫 N s N
64 fveq2 n = x F n = F x
65 64 ineq1d n = x F n 𝒫 b = F x 𝒫 b
66 65 cbviunv n X F n 𝒫 b = x X F x 𝒫 b
67 pweq b = z 𝒫 b = 𝒫 z
68 67 ineq2d b = z F x 𝒫 b = F x 𝒫 z
69 68 iuneq2d b = z x X F x 𝒫 b = x X F x 𝒫 z
70 66 69 syl5eq b = z n X F n 𝒫 b = x X F x 𝒫 z
71 70 cbviunv b a n X F n 𝒫 b = z a x X F x 𝒫 z
72 71 mpteq2i a V b a n X F n 𝒫 b = a V z a x X F x 𝒫 z
73 rdgeq1 a V b a n X F n 𝒫 b = a V z a x X F x 𝒫 z rec a V b a n X F n 𝒫 b s = rec a V z a x X F x 𝒫 z s
74 72 73 ax-mp rec a V b a n X F n 𝒫 b s = rec a V z a x X F x 𝒫 z s
75 74 reseq1i rec a V b a n X F n 𝒫 b s ω = rec a V z a x X F x 𝒫 z s ω
76 pweq g = f 𝒫 g = 𝒫 f
77 76 ineq2d g = f F w 𝒫 g = F w 𝒫 f
78 77 neeq1d g = f F w 𝒫 g F w 𝒫 f
79 78 cbvrexvw g ran rec a V b a n X F n 𝒫 b s ω F w 𝒫 g f ran rec a V b a n X F n 𝒫 b s ω F w 𝒫 f
80 fveq2 w = y F w = F y
81 80 ineq1d w = y F w 𝒫 f = F y 𝒫 f
82 81 neeq1d w = y F w 𝒫 f F y 𝒫 f
83 82 rexbidv w = y f ran rec a V b a n X F n 𝒫 b s ω F w 𝒫 f f ran rec a V b a n X F n 𝒫 b s ω F y 𝒫 f
84 79 83 syl5bb w = y g ran rec a V b a n X F n 𝒫 b s ω F w 𝒫 g f ran rec a V b a n X F n 𝒫 b s ω F y 𝒫 f
85 84 cbvrabv w X | g ran rec a V b a n X F n 𝒫 b s ω F w 𝒫 g = y X | f ran rec a V b a n X F n 𝒫 b s ω F y 𝒫 f
86 54 55 57 4 58 59 60 51 61 63 75 85 neibastop2lem φ P X N X s F P s 𝒫 N u J P u u N
87 9 ad2antrr φ P X N X s F P s 𝒫 N J Top
88 60 52 eleqtrd φ P X N X s F P s 𝒫 N P J
89 11 isneip J Top P J N nei J P N J u J P u u N
90 87 88 89 syl2anc φ P X N X s F P s 𝒫 N N nei J P N J u J P u u N
91 53 86 90 mpbir2and φ P X N X s F P s 𝒫 N N nei J P
92 91 expr φ P X N X s F P s 𝒫 N N nei J P
93 50 92 syl5bi φ P X N X s F P 𝒫 N N nei J P
94 93 exlimdv φ P X N X s s F P 𝒫 N N nei J P
95 49 94 syl5bi φ P X N X F P 𝒫 N N nei J P
96 95 expimpd φ P X N X F P 𝒫 N N nei J P
97 48 96 impbid φ P X N nei J P N X F P 𝒫 N