ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  neipsm Unicode version

Theorem neipsm 14877
Description: A neighborhood of a set is a neighborhood of every point in the set. Proposition 1 of [BourbakiTop1] p. I.2. (Contributed by FL, 16-Nov-2006.) (Revised by Jim Kingdon, 22-Mar-2023.)
Hypothesis
Ref Expression
neips.1  |-  X  = 
U. J
Assertion
Ref Expression
neipsm  |-  ( ( J  e.  Top  /\  S  C_  X  /\  E. x  x  e.  S
)  ->  ( N  e.  ( ( nei `  J
) `  S )  <->  A. p  e.  S  N  e.  ( ( nei `  J
) `  { p } ) ) )
Distinct variable groups:    J, p    N, p    S, p    X, p   
x, p, S
Allowed substitution hints:    J( x)    N( x)    X( x)

Proof of Theorem neipsm
Dummy variables  g  h  v are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 snssi 3817 . . . . . 6  |-  ( p  e.  S  ->  { p }  C_  S )
2 neiss 14873 . . . . . 6  |-  ( ( J  e.  Top  /\  N  e.  ( ( nei `  J ) `  S )  /\  {
p }  C_  S
)  ->  N  e.  ( ( nei `  J
) `  { p } ) )
31, 2syl3an3 1308 . . . . 5  |-  ( ( J  e.  Top  /\  N  e.  ( ( nei `  J ) `  S )  /\  p  e.  S )  ->  N  e.  ( ( nei `  J
) `  { p } ) )
433exp 1228 . . . 4  |-  ( J  e.  Top  ->  ( N  e.  ( ( nei `  J ) `  S )  ->  (
p  e.  S  ->  N  e.  ( ( nei `  J ) `  { p } ) ) ) )
54ralrimdv 2611 . . 3  |-  ( J  e.  Top  ->  ( N  e.  ( ( nei `  J ) `  S )  ->  A. p  e.  S  N  e.  ( ( nei `  J
) `  { p } ) ) )
653ad2ant1 1044 . 2  |-  ( ( J  e.  Top  /\  S  C_  X  /\  E. x  x  e.  S
)  ->  ( N  e.  ( ( nei `  J
) `  S )  ->  A. p  e.  S  N  e.  ( ( nei `  J ) `  { p } ) ) )
7 eleq1w 2292 . . . . . . 7  |-  ( p  =  x  ->  (
p  e.  S  <->  x  e.  S ) )
87cbvexv 1967 . . . . . 6  |-  ( E. p  p  e.  S  <->  E. x  x  e.  S
)
9 r19.28mv 3587 . . . . . 6  |-  ( E. p  p  e.  S  ->  ( A. p  e.  S  ( N  C_  X  /\  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) )  <->  ( N  C_  X  /\  A. p  e.  S  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) ) ) )
108, 9sylbir 135 . . . . 5  |-  ( E. x  x  e.  S  ->  ( A. p  e.  S  ( N  C_  X  /\  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) )  <->  ( N  C_  X  /\  A. p  e.  S  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) ) ) )
11103ad2ant3 1046 . . . 4  |-  ( ( J  e.  Top  /\  S  C_  X  /\  E. x  x  e.  S
)  ->  ( A. p  e.  S  ( N  C_  X  /\  E. g  e.  J  (
p  e.  g  /\  g  C_  N ) )  <-> 
( N  C_  X  /\  A. p  e.  S  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) ) ) )
12 ssrab2 3312 . . . . . . . . . 10  |-  { v  e.  J  |  v 
C_  N }  C_  J
13 uniopn 14724 . . . . . . . . . 10  |-  ( ( J  e.  Top  /\  { v  e.  J  | 
v  C_  N }  C_  J )  ->  U. {
v  e.  J  | 
v  C_  N }  e.  J )
1412, 13mpan2 425 . . . . . . . . 9  |-  ( J  e.  Top  ->  U. {
v  e.  J  | 
v  C_  N }  e.  J )
1514ad2antrr 488 . . . . . . . 8  |-  ( ( ( J  e.  Top  /\  S  C_  X )  /\  A. p  e.  S  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) )  ->  U. { v  e.  J  |  v 
C_  N }  e.  J )
16 sseq1 3250 . . . . . . . . . . . . . . . 16  |-  ( v  =  g  ->  (
v  C_  N  <->  g  C_  N ) )
1716elrab 2962 . . . . . . . . . . . . . . 15  |-  ( g  e.  { v  e.  J  |  v  C_  N }  <->  ( g  e.  J  /\  g  C_  N ) )
18 elunii 3898 . . . . . . . . . . . . . . 15  |-  ( ( p  e.  g  /\  g  e.  { v  e.  J  |  v  C_  N } )  ->  p  e.  U. { v  e.  J  |  v 
C_  N } )
1917, 18sylan2br 288 . . . . . . . . . . . . . 14  |-  ( ( p  e.  g  /\  ( g  e.  J  /\  g  C_  N ) )  ->  p  e.  U. { v  e.  J  |  v  C_  N }
)
2019an12s 567 . . . . . . . . . . . . 13  |-  ( ( g  e.  J  /\  ( p  e.  g  /\  g  C_  N ) )  ->  p  e.  U. { v  e.  J  |  v  C_  N }
)
2120rexlimiva 2645 . . . . . . . . . . . 12  |-  ( E. g  e.  J  ( p  e.  g  /\  g  C_  N )  ->  p  e.  U. { v  e.  J  |  v 
C_  N } )
2221ralimi 2595 . . . . . . . . . . 11  |-  ( A. p  e.  S  E. g  e.  J  (
p  e.  g  /\  g  C_  N )  ->  A. p  e.  S  p  e.  U. { v  e.  J  |  v 
C_  N } )
23 dfss3 3216 . . . . . . . . . . 11  |-  ( S 
C_  U. { v  e.  J  |  v  C_  N }  <->  A. p  e.  S  p  e.  U. { v  e.  J  |  v 
C_  N } )
2422, 23sylibr 134 . . . . . . . . . 10  |-  ( A. p  e.  S  E. g  e.  J  (
p  e.  g  /\  g  C_  N )  ->  S  C_  U. { v  e.  J  |  v 
C_  N } )
2524adantl 277 . . . . . . . . 9  |-  ( ( ( J  e.  Top  /\  S  C_  X )  /\  A. p  e.  S  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) )  ->  S  C_  U. {
v  e.  J  | 
v  C_  N }
)
26 unissb 3923 . . . . . . . . . 10  |-  ( U. { v  e.  J  |  v  C_  N }  C_  N  <->  A. h  e.  {
v  e.  J  | 
v  C_  N }
h  C_  N )
27 sseq1 3250 . . . . . . . . . . . 12  |-  ( v  =  h  ->  (
v  C_  N  <->  h  C_  N
) )
2827elrab 2962 . . . . . . . . . . 11  |-  ( h  e.  { v  e.  J  |  v  C_  N }  <->  ( h  e.  J  /\  h  C_  N ) )
2928simprbi 275 . . . . . . . . . 10  |-  ( h  e.  { v  e.  J  |  v  C_  N }  ->  h  C_  N )
3026, 29mprgbir 2590 . . . . . . . . 9  |-  U. {
v  e.  J  | 
v  C_  N }  C_  N
3125, 30jctir 313 . . . . . . . 8  |-  ( ( ( J  e.  Top  /\  S  C_  X )  /\  A. p  e.  S  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) )  ->  ( S  C_ 
U. { v  e.  J  |  v  C_  N }  /\  U. {
v  e.  J  | 
v  C_  N }  C_  N ) )
32 sseq2 3251 . . . . . . . . . 10  |-  ( h  =  U. { v  e.  J  |  v 
C_  N }  ->  ( S  C_  h  <->  S  C_  U. {
v  e.  J  | 
v  C_  N }
) )
33 sseq1 3250 . . . . . . . . . 10  |-  ( h  =  U. { v  e.  J  |  v 
C_  N }  ->  ( h  C_  N  <->  U. { v  e.  J  |  v 
C_  N }  C_  N ) )
3432, 33anbi12d 473 . . . . . . . . 9  |-  ( h  =  U. { v  e.  J  |  v 
C_  N }  ->  ( ( S  C_  h  /\  h  C_  N )  <-> 
( S  C_  U. {
v  e.  J  | 
v  C_  N }  /\  U. { v  e.  J  |  v  C_  N }  C_  N ) ) )
3534rspcev 2910 . . . . . . . 8  |-  ( ( U. { v  e.  J  |  v  C_  N }  e.  J  /\  ( S  C_  U. {
v  e.  J  | 
v  C_  N }  /\  U. { v  e.  J  |  v  C_  N }  C_  N ) )  ->  E. h  e.  J  ( S  C_  h  /\  h  C_  N ) )
3615, 31, 35syl2anc 411 . . . . . . 7  |-  ( ( ( J  e.  Top  /\  S  C_  X )  /\  A. p  e.  S  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) )  ->  E. h  e.  J  ( S  C_  h  /\  h  C_  N ) )
3736ex 115 . . . . . 6  |-  ( ( J  e.  Top  /\  S  C_  X )  -> 
( A. p  e.  S  E. g  e.  J  ( p  e.  g  /\  g  C_  N )  ->  E. h  e.  J  ( S  C_  h  /\  h  C_  N ) ) )
3837anim2d 337 . . . . 5  |-  ( ( J  e.  Top  /\  S  C_  X )  -> 
( ( N  C_  X  /\  A. p  e.  S  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) )  -> 
( N  C_  X  /\  E. h  e.  J  ( S  C_  h  /\  h  C_  N ) ) ) )
39383adant3 1043 . . . 4  |-  ( ( J  e.  Top  /\  S  C_  X  /\  E. x  x  e.  S
)  ->  ( ( N  C_  X  /\  A. p  e.  S  E. g  e.  J  (
p  e.  g  /\  g  C_  N ) )  ->  ( N  C_  X  /\  E. h  e.  J  ( S  C_  h  /\  h  C_  N
) ) ) )
4011, 39sylbid 150 . . 3  |-  ( ( J  e.  Top  /\  S  C_  X  /\  E. x  x  e.  S
)  ->  ( A. p  e.  S  ( N  C_  X  /\  E. g  e.  J  (
p  e.  g  /\  g  C_  N ) )  ->  ( N  C_  X  /\  E. h  e.  J  ( S  C_  h  /\  h  C_  N
) ) ) )
41 ssel2 3222 . . . . . . 7  |-  ( ( S  C_  X  /\  p  e.  S )  ->  p  e.  X )
42 neips.1 . . . . . . . 8  |-  X  = 
U. J
4342isneip 14869 . . . . . . 7  |-  ( ( J  e.  Top  /\  p  e.  X )  ->  ( N  e.  ( ( nei `  J
) `  { p } )  <->  ( N  C_  X  /\  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) ) ) )
4441, 43sylan2 286 . . . . . 6  |-  ( ( J  e.  Top  /\  ( S  C_  X  /\  p  e.  S )
)  ->  ( N  e.  ( ( nei `  J
) `  { p } )  <->  ( N  C_  X  /\  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) ) ) )
4544anassrs 400 . . . . 5  |-  ( ( ( J  e.  Top  /\  S  C_  X )  /\  p  e.  S
)  ->  ( N  e.  ( ( nei `  J
) `  { p } )  <->  ( N  C_  X  /\  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) ) ) )
4645ralbidva 2528 . . . 4  |-  ( ( J  e.  Top  /\  S  C_  X )  -> 
( A. p  e.  S  N  e.  ( ( nei `  J
) `  { p } )  <->  A. p  e.  S  ( N  C_  X  /\  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) ) ) )
47463adant3 1043 . . 3  |-  ( ( J  e.  Top  /\  S  C_  X  /\  E. x  x  e.  S
)  ->  ( A. p  e.  S  N  e.  ( ( nei `  J
) `  { p } )  <->  A. p  e.  S  ( N  C_  X  /\  E. g  e.  J  ( p  e.  g  /\  g  C_  N ) ) ) )
4842isnei 14867 . . . 4  |-  ( ( J  e.  Top  /\  S  C_  X )  -> 
( N  e.  ( ( nei `  J
) `  S )  <->  ( N  C_  X  /\  E. h  e.  J  ( S  C_  h  /\  h  C_  N ) ) ) )
49483adant3 1043 . . 3  |-  ( ( J  e.  Top  /\  S  C_  X  /\  E. x  x  e.  S
)  ->  ( N  e.  ( ( nei `  J
) `  S )  <->  ( N  C_  X  /\  E. h  e.  J  ( S  C_  h  /\  h  C_  N ) ) ) )
5040, 47, 493imtr4d 203 . 2  |-  ( ( J  e.  Top  /\  S  C_  X  /\  E. x  x  e.  S
)  ->  ( A. p  e.  S  N  e.  ( ( nei `  J
) `  { p } )  ->  N  e.  ( ( nei `  J
) `  S )
) )
516, 50impbid 129 1  |-  ( ( J  e.  Top  /\  S  C_  X  /\  E. x  x  e.  S
)  ->  ( N  e.  ( ( nei `  J
) `  S )  <->  A. p  e.  S  N  e.  ( ( nei `  J
) `  { p } ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 104    <-> wb 105    /\ w3a 1004    = wceq 1397   E.wex 1540    e. wcel 2202   A.wral 2510   E.wrex 2511   {crab 2514    C_ wss 3200   {csn 3669   U.cuni 3893   ` cfv 5326   Topctop 14720   neicnei 14861
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-14 2205  ax-ext 2213  ax-coll 4204  ax-sep 4207  ax-pow 4264  ax-pr 4299
This theorem depends on definitions:  df-bi 117  df-3an 1006  df-tru 1400  df-nf 1509  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ral 2515  df-rex 2516  df-reu 2517  df-rab 2519  df-v 2804  df-sbc 3032  df-csb 3128  df-un 3204  df-in 3206  df-ss 3213  df-pw 3654  df-sn 3675  df-pr 3676  df-op 3678  df-uni 3894  df-iun 3972  df-br 4089  df-opab 4151  df-mpt 4152  df-id 4390  df-xp 4731  df-rel 4732  df-cnv 4733  df-co 4734  df-dm 4735  df-rn 4736  df-res 4737  df-ima 4738  df-iota 5286  df-fun 5328  df-fn 5329  df-f 5330  df-f1 5331  df-fo 5332  df-f1o 5333  df-fv 5334  df-top 14721  df-nei 14862
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator