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

Theorem neipsm 13205
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 3733 . . . . . 6  |-  ( p  e.  S  ->  { p }  C_  S )
2 neiss 13201 . . . . . 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 2554 . . 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 2236 . . . . . . 7  |-  ( p  =  x  ->  (
p  e.  S  <->  x  e.  S ) )
87cbvexv 1916 . . . . . 6  |-  ( E. p  p  e.  S  <->  E. x  x  e.  S
)
9 r19.28mv 3513 . . . . . 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 3238 . . . . . . . . . 10  |-  { v  e.  J  |  v 
C_  N }  C_  J
13 uniopn 13050 . . . . . . . . . 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 3176 . . . . . . . . . . . . . . . 16  |-  ( v  =  g  ->  (
v  C_  N  <->  g  C_  N ) )
1716elrab 2891 . . . . . . . . . . . . . . 15  |-  ( g  e.  { v  e.  J  |  v  C_  N }  <->  ( g  e.  J  /\  g  C_  N ) )
18 elunii 3810 . . . . . . . . . . . . . . 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 2587 . . . . . . . . . . . 12  |-  ( E. g  e.  J  ( p  e.  g  /\  g  C_  N )  ->  p  e.  U. { v  e.  J  |  v 
C_  N } )
2221ralimi 2538 . . . . . . . . . . 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 3143 . . . . . . . . . . 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 3835 . . . . . . . . . 10  |-  ( U. { v  e.  J  |  v  C_  N }  C_  N  <->  A. h  e.  {
v  e.  J  | 
v  C_  N }
h  C_  N )
27 sseq1 3176 . . . . . . . . . . . 12  |-  ( v  =  h  ->  (
v  C_  N  <->  h  C_  N
) )
2827elrab 2891 . . . . . . . . . . 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 2533 . . . . . . . . 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 3177 . . . . . . . . . 10  |-  ( h  =  U. { v  e.  J  |  v 
C_  N }  ->  ( S  C_  h  <->  S  C_  U. {
v  e.  J  | 
v  C_  N }
) )
33 sseq1 3176 . . . . . . . . . 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 2839 . . . . . . . 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 3148 . . . . . . 7  |-  ( ( S  C_  X  /\  p  e.  S )  ->  p  e.  X )
42 neips.1 . . . . . . . 8  |-  X  = 
U. J
4342isneip 13197 . . . . . . 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 2471 . . . 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 13195 . . . 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 1490    e. wcel 2146   A.wral 2453   E.wrex 2454   {crab 2457    C_ wss 3127   {csn 3589   U.cuni 3805   ` cfv 5208   Topctop 13046   neicnei 13189
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 1445  ax-7 1446  ax-gen 1447  ax-ie1 1491  ax-ie2 1492  ax-8 1502  ax-10 1503  ax-11 1504  ax-i12 1505  ax-bndl 1507  ax-4 1508  ax-17 1524  ax-i9 1528  ax-ial 1532  ax-i5r 1533  ax-14 2149  ax-ext 2157  ax-coll 4113  ax-sep 4116  ax-pow 4169  ax-pr 4203
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1459  df-sb 1761  df-eu 2027  df-mo 2028  df-clab 2162  df-cleq 2168  df-clel 2171  df-nfc 2306  df-ral 2458  df-rex 2459  df-reu 2460  df-rab 2462  df-v 2737  df-sbc 2961  df-csb 3056  df-un 3131  df-in 3133  df-ss 3140  df-pw 3574  df-sn 3595  df-pr 3596  df-op 3598  df-uni 3806  df-iun 3884  df-br 3999  df-opab 4060  df-mpt 4061  df-id 4287  df-xp 4626  df-rel 4627  df-cnv 4628  df-co 4629  df-dm 4630  df-rn 4631  df-res 4632  df-ima 4633  df-iota 5170  df-fun 5210  df-fn 5211  df-f 5212  df-f1 5213  df-fo 5214  df-f1o 5215  df-fv 5216  df-top 13047  df-nei 13190
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator