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

Theorem neipsm 13739
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 3738 . . . . . 6  |-  ( p  e.  S  ->  { p }  C_  S )
2 neiss 13735 . . . . . 6  |-  ( ( J  e.  Top  /\  N  e.  ( ( nei `  J ) `  S )  /\  {
p }  C_  S
)  ->  N  e.  ( ( nei `  J
) `  { p } ) )
31, 2syl3an3 1273 . . . . 5  |-  ( ( J  e.  Top  /\  N  e.  ( ( nei `  J ) `  S )  /\  p  e.  S )  ->  N  e.  ( ( nei `  J
) `  { p } ) )
433exp 1202 . . . 4  |-  ( J  e.  Top  ->  ( N  e.  ( ( nei `  J ) `  S )  ->  (
p  e.  S  ->  N  e.  ( ( nei `  J ) `  { p } ) ) ) )
54ralrimdv 2556 . . 3  |-  ( J  e.  Top  ->  ( N  e.  ( ( nei `  J ) `  S )  ->  A. p  e.  S  N  e.  ( ( nei `  J
) `  { p } ) ) )
653ad2ant1 1018 . 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 2238 . . . . . . 7  |-  ( p  =  x  ->  (
p  e.  S  <->  x  e.  S ) )
87cbvexv 1918 . . . . . 6  |-  ( E. p  p  e.  S  <->  E. x  x  e.  S
)
9 r19.28mv 3517 . . . . . 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 1020 . . . 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 3242 . . . . . . . . . 10  |-  { v  e.  J  |  v 
C_  N }  C_  J
13 uniopn 13586 . . . . . . . . . 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 3180 . . . . . . . . . . . . . . . 16  |-  ( v  =  g  ->  (
v  C_  N  <->  g  C_  N ) )
1716elrab 2895 . . . . . . . . . . . . . . 15  |-  ( g  e.  { v  e.  J  |  v  C_  N }  <->  ( g  e.  J  /\  g  C_  N ) )
18 elunii 3816 . . . . . . . . . . . . . . 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 565 . . . . . . . . . . . . 13  |-  ( ( g  e.  J  /\  ( p  e.  g  /\  g  C_  N ) )  ->  p  e.  U. { v  e.  J  |  v  C_  N }
)
2120rexlimiva 2589 . . . . . . . . . . . 12  |-  ( E. g  e.  J  ( p  e.  g  /\  g  C_  N )  ->  p  e.  U. { v  e.  J  |  v 
C_  N } )
2221ralimi 2540 . . . . . . . . . . 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 3147 . . . . . . . . . . 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 3841 . . . . . . . . . 10  |-  ( U. { v  e.  J  |  v  C_  N }  C_  N  <->  A. h  e.  {
v  e.  J  | 
v  C_  N }
h  C_  N )
27 sseq1 3180 . . . . . . . . . . . 12  |-  ( v  =  h  ->  (
v  C_  N  <->  h  C_  N
) )
2827elrab 2895 . . . . . . . . . . 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 2535 . . . . . . . . 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 3181 . . . . . . . . . 10  |-  ( h  =  U. { v  e.  J  |  v 
C_  N }  ->  ( S  C_  h  <->  S  C_  U. {
v  e.  J  | 
v  C_  N }
) )
33 sseq1 3180 . . . . . . . . . 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 2843 . . . . . . . 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 1017 . . . 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 3152 . . . . . . 7  |-  ( ( S  C_  X  /\  p  e.  S )  ->  p  e.  X )
42 neips.1 . . . . . . . 8  |-  X  = 
U. J
4342isneip 13731 . . . . . . 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 2473 . . . 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 1017 . . 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 13729 . . . 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 1017 . . 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 978    = wceq 1353   E.wex 1492    e. wcel 2148   A.wral 2455   E.wrex 2456   {crab 2459    C_ wss 3131   {csn 3594   U.cuni 3811   ` cfv 5218   Topctop 13582   neicnei 13723
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 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-14 2151  ax-ext 2159  ax-coll 4120  ax-sep 4123  ax-pow 4176  ax-pr 4211
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ral 2460  df-rex 2461  df-reu 2462  df-rab 2464  df-v 2741  df-sbc 2965  df-csb 3060  df-un 3135  df-in 3137  df-ss 3144  df-pw 3579  df-sn 3600  df-pr 3601  df-op 3603  df-uni 3812  df-iun 3890  df-br 4006  df-opab 4067  df-mpt 4068  df-id 4295  df-xp 4634  df-rel 4635  df-cnv 4636  df-co 4637  df-dm 4638  df-rn 4639  df-res 4640  df-ima 4641  df-iota 5180  df-fun 5220  df-fn 5221  df-f 5222  df-f1 5223  df-fo 5224  df-f1o 5225  df-fv 5226  df-top 13583  df-nei 13724
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator