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

Theorem neipsm 12323
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 3664 . . . . . 6  |-  ( p  e.  S  ->  { p }  C_  S )
2 neiss 12319 . . . . . 6  |-  ( ( J  e.  Top  /\  N  e.  ( ( nei `  J ) `  S )  /\  {
p }  C_  S
)  ->  N  e.  ( ( nei `  J
) `  { p } ) )
31, 2syl3an3 1251 . . . . 5  |-  ( ( J  e.  Top  /\  N  e.  ( ( nei `  J ) `  S )  /\  p  e.  S )  ->  N  e.  ( ( nei `  J
) `  { p } ) )
433exp 1180 . . . 4  |-  ( J  e.  Top  ->  ( N  e.  ( ( nei `  J ) `  S )  ->  (
p  e.  S  ->  N  e.  ( ( nei `  J ) `  { p } ) ) ) )
54ralrimdv 2511 . . 3  |-  ( J  e.  Top  ->  ( N  e.  ( ( nei `  J ) `  S )  ->  A. p  e.  S  N  e.  ( ( nei `  J
) `  { p } ) ) )
653ad2ant1 1002 . 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 2200 . . . . . . 7  |-  ( p  =  x  ->  (
p  e.  S  <->  x  e.  S ) )
87cbvexv 1890 . . . . . 6  |-  ( E. p  p  e.  S  <->  E. x  x  e.  S
)
9 r19.28mv 3455 . . . . . 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 134 . . . . 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 1004 . . . 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 3182 . . . . . . . . . 10  |-  { v  e.  J  |  v 
C_  N }  C_  J
13 uniopn 12168 . . . . . . . . . 10  |-  ( ( J  e.  Top  /\  { v  e.  J  | 
v  C_  N }  C_  J )  ->  U. {
v  e.  J  | 
v  C_  N }  e.  J )
1412, 13mpan2 421 . . . . . . . . 9  |-  ( J  e.  Top  ->  U. {
v  e.  J  | 
v  C_  N }  e.  J )
1514ad2antrr 479 . . . . . . . 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 3120 . . . . . . . . . . . . . . . 16  |-  ( v  =  g  ->  (
v  C_  N  <->  g  C_  N ) )
1716elrab 2840 . . . . . . . . . . . . . . 15  |-  ( g  e.  { v  e.  J  |  v  C_  N }  <->  ( g  e.  J  /\  g  C_  N ) )
18 elunii 3741 . . . . . . . . . . . . . . 15  |-  ( ( p  e.  g  /\  g  e.  { v  e.  J  |  v  C_  N } )  ->  p  e.  U. { v  e.  J  |  v 
C_  N } )
1917, 18sylan2br 286 . . . . . . . . . . . . . 14  |-  ( ( p  e.  g  /\  ( g  e.  J  /\  g  C_  N ) )  ->  p  e.  U. { v  e.  J  |  v  C_  N }
)
2019an12s 554 . . . . . . . . . . . . 13  |-  ( ( g  e.  J  /\  ( p  e.  g  /\  g  C_  N ) )  ->  p  e.  U. { v  e.  J  |  v  C_  N }
)
2120rexlimiva 2544 . . . . . . . . . . . 12  |-  ( E. g  e.  J  ( p  e.  g  /\  g  C_  N )  ->  p  e.  U. { v  e.  J  |  v 
C_  N } )
2221ralimi 2495 . . . . . . . . . . 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 3087 . . . . . . . . . . 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 133 . . . . . . . . . 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 275 . . . . . . . . 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 3766 . . . . . . . . . 10  |-  ( U. { v  e.  J  |  v  C_  N }  C_  N  <->  A. h  e.  {
v  e.  J  | 
v  C_  N }
h  C_  N )
27 sseq1 3120 . . . . . . . . . . . 12  |-  ( v  =  h  ->  (
v  C_  N  <->  h  C_  N
) )
2827elrab 2840 . . . . . . . . . . 11  |-  ( h  e.  { v  e.  J  |  v  C_  N }  <->  ( h  e.  J  /\  h  C_  N ) )
2928simprbi 273 . . . . . . . . . 10  |-  ( h  e.  { v  e.  J  |  v  C_  N }  ->  h  C_  N )
3026, 29mprgbir 2490 . . . . . . . . 9  |-  U. {
v  e.  J  | 
v  C_  N }  C_  N
3125, 30jctir 311 . . . . . . . 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 3121 . . . . . . . . . 10  |-  ( h  =  U. { v  e.  J  |  v 
C_  N }  ->  ( S  C_  h  <->  S  C_  U. {
v  e.  J  | 
v  C_  N }
) )
33 sseq1 3120 . . . . . . . . . 10  |-  ( h  =  U. { v  e.  J  |  v 
C_  N }  ->  ( h  C_  N  <->  U. { v  e.  J  |  v 
C_  N }  C_  N ) )
3432, 33anbi12d 464 . . . . . . . . 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 2789 . . . . . . . 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 408 . . . . . . 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 114 . . . . . 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 335 . . . . 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 1001 . . . 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 149 . . 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 3092 . . . . . . 7  |-  ( ( S  C_  X  /\  p  e.  S )  ->  p  e.  X )
42 neips.1 . . . . . . . 8  |-  X  = 
U. J
4342isneip 12315 . . . . . . 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 284 . . . . . 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 397 . . . . 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 2433 . . . 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 1001 . . 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 12313 . . . 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 1001 . . 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 202 . 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 128 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 103    <-> wb 104    /\ w3a 962    = wceq 1331   E.wex 1468    e. wcel 1480   A.wral 2416   E.wrex 2417   {crab 2420    C_ wss 3071   {csn 3527   U.cuni 3736   ` cfv 5123   Topctop 12164   neicnei 12307
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 698  ax-5 1423  ax-7 1424  ax-gen 1425  ax-ie1 1469  ax-ie2 1470  ax-8 1482  ax-10 1483  ax-11 1484  ax-i12 1485  ax-bndl 1486  ax-4 1487  ax-14 1492  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-ext 2121  ax-coll 4043  ax-sep 4046  ax-pow 4098  ax-pr 4131
This theorem depends on definitions:  df-bi 116  df-3an 964  df-tru 1334  df-nf 1437  df-sb 1736  df-eu 2002  df-mo 2003  df-clab 2126  df-cleq 2132  df-clel 2135  df-nfc 2270  df-ral 2421  df-rex 2422  df-reu 2423  df-rab 2425  df-v 2688  df-sbc 2910  df-csb 3004  df-un 3075  df-in 3077  df-ss 3084  df-pw 3512  df-sn 3533  df-pr 3534  df-op 3536  df-uni 3737  df-iun 3815  df-br 3930  df-opab 3990  df-mpt 3991  df-id 4215  df-xp 4545  df-rel 4546  df-cnv 4547  df-co 4548  df-dm 4549  df-rn 4550  df-res 4551  df-ima 4552  df-iota 5088  df-fun 5125  df-fn 5126  df-f 5127  df-f1 5128  df-fo 5129  df-f1o 5130  df-fv 5131  df-top 12165  df-nei 12308
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator