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

Theorem neipsm 15178
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 3854 . . . . . 6  |-  ( p  e.  S  ->  { p }  C_  S )
2 neiss 15174 . . . . . 6  |-  ( ( J  e.  Top  /\  N  e.  ( ( nei `  J ) `  S )  /\  {
p }  C_  S
)  ->  N  e.  ( ( nei `  J
) `  { p } ) )
31, 2syl3an3 1313 . . . . 5  |-  ( ( J  e.  Top  /\  N  e.  ( ( nei `  J ) `  S )  /\  p  e.  S )  ->  N  e.  ( ( nei `  J
) `  { p } ) )
433exp 1233 . . . 4  |-  ( J  e.  Top  ->  ( N  e.  ( ( nei `  J ) `  S )  ->  (
p  e.  S  ->  N  e.  ( ( nei `  J ) `  { p } ) ) ) )
54ralrimdv 2629 . . 3  |-  ( J  e.  Top  ->  ( N  e.  ( ( nei `  J ) `  S )  ->  A. p  e.  S  N  e.  ( ( nei `  J
) `  { p } ) ) )
653ad2ant1 1049 . 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 2299 . . . . . . 7  |-  ( p  =  x  ->  (
p  e.  S  <->  x  e.  S ) )
87cbvexv 1974 . . . . . 6  |-  ( E. p  p  e.  S  <->  E. x  x  e.  S
)
9 r19.28mv 3617 . . . . . 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 1051 . . . 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 3333 . . . . . . . . . 10  |-  { v  e.  J  |  v 
C_  N }  C_  J
13 uniopn 15025 . . . . . . . . . 10  |-  ( ( J  e.  Top  /\  { v  e.  J  | 
v  C_  N }  C_  J )  ->  U. {
v  e.  J  | 
v  C_  N }  e.  J )
1412, 13mpan2 429 . . . . . . . . 9  |-  ( J  e.  Top  ->  U. {
v  e.  J  | 
v  C_  N }  e.  J )
1514ad2antrr 492 . . . . . . . 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 3271 . . . . . . . . . . . . . . . 16  |-  ( v  =  g  ->  (
v  C_  N  <->  g  C_  N ) )
1716elrab 2982 . . . . . . . . . . . . . . 15  |-  ( g  e.  { v  e.  J  |  v  C_  N }  <->  ( g  e.  J  /\  g  C_  N ) )
18 elunii 3935 . . . . . . . . . . . . . . 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 571 . . . . . . . . . . . . 13  |-  ( ( g  e.  J  /\  ( p  e.  g  /\  g  C_  N ) )  ->  p  e.  U. { v  e.  J  |  v  C_  N }
)
2120rexlimiva 2663 . . . . . . . . . . . 12  |-  ( E. g  e.  J  ( p  e.  g  /\  g  C_  N )  ->  p  e.  U. { v  e.  J  |  v 
C_  N } )
2221ralimi 2613 . . . . . . . . . . 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 3236 . . . . . . . . . . 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 3960 . . . . . . . . . 10  |-  ( U. { v  e.  J  |  v  C_  N }  C_  N  <->  A. h  e.  {
v  e.  J  | 
v  C_  N }
h  C_  N )
27 sseq1 3271 . . . . . . . . . . . 12  |-  ( v  =  h  ->  (
v  C_  N  <->  h  C_  N
) )
2827elrab 2982 . . . . . . . . . . 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 2608 . . . . . . . . 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 3272 . . . . . . . . . 10  |-  ( h  =  U. { v  e.  J  |  v 
C_  N }  ->  ( S  C_  h  <->  S  C_  U. {
v  e.  J  | 
v  C_  N }
) )
33 sseq1 3271 . . . . . . . . . 10  |-  ( h  =  U. { v  e.  J  |  v 
C_  N }  ->  ( h  C_  N  <->  U. { v  e.  J  |  v 
C_  N }  C_  N ) )
3432, 33anbi12d 477 . . . . . . . . 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 2929 . . . . . . . 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 415 . . . . . . 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 1048 . . . 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 3243 . . . . . . 7  |-  ( ( S  C_  X  /\  p  e.  S )  ->  p  e.  X )
42 neips.1 . . . . . . . 8  |-  X  = 
U. J
4342isneip 15170 . . . . . . 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 404 . . . . 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 2546 . . . 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 1048 . . 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 15168 . . . 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 1048 . . 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 1009    = wceq 1402   E.wex 1545    e. wcel 2209   A.wral 2528   E.wrex 2529   {crab 2532    C_ wss 3220   {csn 3705   U.cuni 3930   ` cfv 5372   Topctop 15021   neicnei 15162
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 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-coll 4241  ax-sep 4244  ax-pow 4306  ax-pr 4341
This theorem depends on definitions:  df-bi 117  df-3an 1011  df-tru 1405  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ral 2533  df-rex 2534  df-reu 2535  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-un 3224  df-in 3226  df-ss 3233  df-pw 3687  df-sn 3711  df-pr 3712  df-op 3714  df-uni 3931  df-iun 4009  df-br 4126  df-opab 4188  df-mpt 4189  df-id 4433  df-xp 4775  df-rel 4776  df-cnv 4777  df-co 4778  df-dm 4779  df-rn 4780  df-res 4781  df-ima 4782  df-iota 5332  df-fun 5374  df-fn 5375  df-f 5376  df-f1 5377  df-fo 5378  df-f1o 5379  df-fv 5380  df-top 15022  df-nei 15163
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator