MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  neiptopuni Structured version   Unicode version

Theorem neiptopuni 19758
Description: Lemma for neiptopreu 19761 (Contributed by Thierry Arnoux, 6-Jan-2018.)
Hypotheses
Ref Expression
neiptop.o  |-  J  =  { a  e.  ~P X  |  A. p  e.  a  a  e.  ( N `  p ) }
neiptop.0  |-  ( ph  ->  N : X --> ~P ~P X )
neiptop.1  |-  ( ( ( ( ph  /\  p  e.  X )  /\  a  C_  b  /\  b  C_  X )  /\  a  e.  ( N `  p ) )  -> 
b  e.  ( N `
 p ) )
neiptop.2  |-  ( (
ph  /\  p  e.  X )  ->  ( fi `  ( N `  p ) )  C_  ( N `  p ) )
neiptop.3  |-  ( ( ( ph  /\  p  e.  X )  /\  a  e.  ( N `  p
) )  ->  p  e.  a )
neiptop.4  |-  ( ( ( ph  /\  p  e.  X )  /\  a  e.  ( N `  p
) )  ->  E. b  e.  ( N `  p
) A. q  e.  b  a  e.  ( N `  q ) )
neiptop.5  |-  ( (
ph  /\  p  e.  X )  ->  X  e.  ( N `  p
) )
Assertion
Ref Expression
neiptopuni  |-  ( ph  ->  X  =  U. J
)
Distinct variable groups:    p, a    N, a    X, a    a, b, p    J, a, p    X, p    ph, p
Allowed substitution hints:    ph( q, a, b)    J( q, b)    N( q, p, b)    X( q, b)

Proof of Theorem neiptopuni
StepHypRef Expression
1 elpwi 4024 . . . . . . . 8  |-  ( a  e.  ~P X  -> 
a  C_  X )
21ad2antlr 726 . . . . . . 7  |-  ( ( ( p  e.  U. J  /\  a  e.  ~P X )  /\  p  e.  a )  ->  a  C_  X )
3 simpr 461 . . . . . . 7  |-  ( ( ( p  e.  U. J  /\  a  e.  ~P X )  /\  p  e.  a )  ->  p  e.  a )
42, 3sseldd 3500 . . . . . 6  |-  ( ( ( p  e.  U. J  /\  a  e.  ~P X )  /\  p  e.  a )  ->  p  e.  X )
5 neiptop.o . . . . . . . . . 10  |-  J  =  { a  e.  ~P X  |  A. p  e.  a  a  e.  ( N `  p ) }
65unieqi 4260 . . . . . . . . 9  |-  U. J  =  U. { a  e. 
~P X  |  A. p  e.  a  a  e.  ( N `  p
) }
76eleq2i 2535 . . . . . . . 8  |-  ( p  e.  U. J  <->  p  e.  U. { a  e.  ~P X  |  A. p  e.  a  a  e.  ( N `  p ) } )
8 elunirab 4263 . . . . . . . 8  |-  ( p  e.  U. { a  e.  ~P X  |  A. p  e.  a 
a  e.  ( N `
 p ) }  <->  E. a  e.  ~P  X ( p  e.  a  /\  A. p  e.  a  a  e.  ( N `  p ) ) )
97, 8bitri 249 . . . . . . 7  |-  ( p  e.  U. J  <->  E. a  e.  ~P  X ( p  e.  a  /\  A. p  e.  a  a  e.  ( N `  p
) ) )
10 simpl 457 . . . . . . . 8  |-  ( ( p  e.  a  /\  A. p  e.  a  a  e.  ( N `  p ) )  ->  p  e.  a )
1110reximi 2925 . . . . . . 7  |-  ( E. a  e.  ~P  X
( p  e.  a  /\  A. p  e.  a  a  e.  ( N `  p ) )  ->  E. a  e.  ~P  X p  e.  a )
129, 11sylbi 195 . . . . . 6  |-  ( p  e.  U. J  ->  E. a  e.  ~P  X p  e.  a
)
134, 12r19.29a 2999 . . . . 5  |-  ( p  e.  U. J  ->  p  e.  X )
1413a1i 11 . . . 4  |-  ( ph  ->  ( p  e.  U. J  ->  p  e.  X
) )
1514ssrdv 3505 . . 3  |-  ( ph  ->  U. J  C_  X
)
16 ssid 3518 . . . . 5  |-  X  C_  X
1716a1i 11 . . . 4  |-  ( ph  ->  X  C_  X )
18 neiptop.5 . . . . 5  |-  ( (
ph  /\  p  e.  X )  ->  X  e.  ( N `  p
) )
1918ralrimiva 2871 . . . 4  |-  ( ph  ->  A. p  e.  X  X  e.  ( N `  p ) )
205neipeltop 19757 . . . 4  |-  ( X  e.  J  <->  ( X  C_  X  /\  A. p  e.  X  X  e.  ( N `  p ) ) )
2117, 19, 20sylanbrc 664 . . 3  |-  ( ph  ->  X  e.  J )
22 unissel 4282 . . 3  |-  ( ( U. J  C_  X  /\  X  e.  J
)  ->  U. J  =  X )
2315, 21, 22syl2anc 661 . 2  |-  ( ph  ->  U. J  =  X )
2423eqcomd 2465 1  |-  ( ph  ->  X  =  U. J
)
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 369    /\ w3a 973    = wceq 1395    e. wcel 1819   A.wral 2807   E.wrex 2808   {crab 2811    C_ wss 3471   ~Pcpw 4015   U.cuni 4251   -->wf 5590   ` cfv 5594   ficfi 7888
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1619  ax-4 1632  ax-5 1705  ax-6 1748  ax-7 1791  ax-10 1838  ax-11 1843  ax-12 1855  ax-13 2000  ax-ext 2435  ax-nul 4586
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-tru 1398  df-ex 1614  df-nf 1618  df-sb 1741  df-clab 2443  df-cleq 2449  df-clel 2452  df-nfc 2607  df-ne 2654  df-ral 2812  df-rex 2813  df-rab 2816  df-v 3111  df-dif 3474  df-in 3478  df-ss 3485  df-nul 3794  df-pw 4017  df-uni 4252
This theorem is referenced by:  neiptoptop  19759  neiptopnei  19760  neiptopreu  19761
  Copyright terms: Public domain W3C validator