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

Theorem r1pwss 8263
Description: Each set of the cumulative hierarchy is closed under subsets. (Contributed by Mario Carneiro, 16-Nov-2014.)
Assertion
Ref Expression
r1pwss  |-  ( A  e.  ( R1 `  B )  ->  ~P A  C_  ( R1 `  B ) )

Proof of Theorem r1pwss
Dummy variables  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 r1funlim 8245 . . . . . . 7  |-  ( Fun 
R1  /\  Lim  dom  R1 )
21simpri 463 . . . . . 6  |-  Lim  dom  R1
3 limord 5501 . . . . . 6  |-  ( Lim 
dom  R1  ->  Ord  dom  R1 )
42, 3ax-mp 5 . . . . 5  |-  Ord  dom  R1
5 ordsson 6630 . . . . 5  |-  ( Ord 
dom  R1  ->  dom  R1  C_  On )
64, 5ax-mp 5 . . . 4  |-  dom  R1  C_  On
7 elfvdm 5907 . . . 4  |-  ( A  e.  ( R1 `  B )  ->  B  e.  dom  R1 )
86, 7sseldi 3462 . . 3  |-  ( A  e.  ( R1 `  B )  ->  B  e.  On )
9 onzsl 6687 . . 3  |-  ( B  e.  On  <->  ( B  =  (/)  \/  E. x  e.  On  B  =  suc  x  \/  ( B  e.  _V  /\  Lim  B
) ) )
108, 9sylib 199 . 2  |-  ( A  e.  ( R1 `  B )  ->  ( B  =  (/)  \/  E. x  e.  On  B  =  suc  x  \/  ( B  e.  _V  /\  Lim  B ) ) )
11 noel 3765 . . . . 5  |-  -.  A  e.  (/)
12 fveq2 5881 . . . . . . . 8  |-  ( B  =  (/)  ->  ( R1
`  B )  =  ( R1 `  (/) ) )
13 r10 8247 . . . . . . . 8  |-  ( R1
`  (/) )  =  (/)
1412, 13syl6eq 2479 . . . . . . 7  |-  ( B  =  (/)  ->  ( R1
`  B )  =  (/) )
1514eleq2d 2492 . . . . . 6  |-  ( B  =  (/)  ->  ( A  e.  ( R1 `  B )  <->  A  e.  (/) ) )
1615biimpcd 227 . . . . 5  |-  ( A  e.  ( R1 `  B )  ->  ( B  =  (/)  ->  A  e.  (/) ) )
1711, 16mtoi 181 . . . 4  |-  ( A  e.  ( R1 `  B )  ->  -.  B  =  (/) )
1817pm2.21d 109 . . 3  |-  ( A  e.  ( R1 `  B )  ->  ( B  =  (/)  ->  ~P A  C_  ( R1 `  B ) ) )
19 simpl 458 . . . . . . . 8  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  A  e.  ( R1 `  B ) )
20 simpr 462 . . . . . . . . . 10  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  B  =  suc  x )
2120fveq2d 5885 . . . . . . . . 9  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  ( R1 `  B )  =  ( R1 `  suc  x
) )
227adantr 466 . . . . . . . . . . . 12  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  B  e.  dom  R1 )
2320, 22eqeltrrd 2508 . . . . . . . . . . 11  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  suc  x  e.  dom  R1 )
24 limsuc 6690 . . . . . . . . . . . 12  |-  ( Lim 
dom  R1  ->  ( x  e.  dom  R1  <->  suc  x  e. 
dom  R1 ) )
252, 24ax-mp 5 . . . . . . . . . . 11  |-  ( x  e.  dom  R1  <->  suc  x  e. 
dom  R1 )
2623, 25sylibr 215 . . . . . . . . . 10  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  x  e.  dom  R1 )
27 r1sucg 8248 . . . . . . . . . 10  |-  ( x  e.  dom  R1  ->  ( R1 `  suc  x
)  =  ~P ( R1 `  x ) )
2826, 27syl 17 . . . . . . . . 9  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  ( R1 `  suc  x )  =  ~P ( R1 `  x ) )
2921, 28eqtrd 2463 . . . . . . . 8  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  ( R1 `  B )  =  ~P ( R1 `  x ) )
3019, 29eleqtrd 2509 . . . . . . 7  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  A  e.  ~P ( R1 `  x ) )
31 elpwi 3990 . . . . . . . 8  |-  ( A  e.  ~P ( R1
`  x )  ->  A  C_  ( R1 `  x ) )
32 sspwb 4670 . . . . . . . 8  |-  ( A 
C_  ( R1 `  x )  <->  ~P A  C_ 
~P ( R1 `  x ) )
3331, 32sylib 199 . . . . . . 7  |-  ( A  e.  ~P ( R1
`  x )  ->  ~P A  C_  ~P ( R1 `  x ) )
3430, 33syl 17 . . . . . 6  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  ~P A  C_  ~P ( R1 `  x
) )
3534, 29sseqtr4d 3501 . . . . 5  |-  ( ( A  e.  ( R1
`  B )  /\  B  =  suc  x )  ->  ~P A  C_  ( R1 `  B ) )
3635ex 435 . . . 4  |-  ( A  e.  ( R1 `  B )  ->  ( B  =  suc  x  ->  ~P A  C_  ( R1
`  B ) ) )
3736rexlimdvw 2917 . . 3  |-  ( A  e.  ( R1 `  B )  ->  ( E. x  e.  On  B  =  suc  x  ->  ~P A  C_  ( R1
`  B ) ) )
38 r1tr 8255 . . . . . 6  |-  Tr  ( R1 `  B )
39 simpl 458 . . . . . . . . . . 11  |-  ( ( A  e.  ( R1
`  B )  /\  Lim  B )  ->  A  e.  ( R1 `  B
) )
40 r1limg 8250 . . . . . . . . . . . 12  |-  ( ( B  e.  dom  R1  /\ 
Lim  B )  -> 
( R1 `  B
)  =  U_ x  e.  B  ( R1 `  x ) )
417, 40sylan 473 . . . . . . . . . . 11  |-  ( ( A  e.  ( R1
`  B )  /\  Lim  B )  ->  ( R1 `  B )  = 
U_ x  e.  B  ( R1 `  x ) )
4239, 41eleqtrd 2509 . . . . . . . . . 10  |-  ( ( A  e.  ( R1
`  B )  /\  Lim  B )  ->  A  e.  U_ x  e.  B  ( R1 `  x ) )
43 eliun 4304 . . . . . . . . . 10  |-  ( A  e.  U_ x  e.  B  ( R1 `  x )  <->  E. x  e.  B  A  e.  ( R1 `  x ) )
4442, 43sylib 199 . . . . . . . . 9  |-  ( ( A  e.  ( R1
`  B )  /\  Lim  B )  ->  E. x  e.  B  A  e.  ( R1 `  x ) )
45 simprl 762 . . . . . . . . . . . 12  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  x  e.  B )
46 limsuc 6690 . . . . . . . . . . . . 13  |-  ( Lim 
B  ->  ( x  e.  B  <->  suc  x  e.  B
) )
4746ad2antlr 731 . . . . . . . . . . . 12  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  -> 
( x  e.  B  <->  suc  x  e.  B ) )
4845, 47mpbid 213 . . . . . . . . . . 11  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  suc  x  e.  B )
49 limsuc 6690 . . . . . . . . . . . 12  |-  ( Lim 
B  ->  ( suc  x  e.  B  <->  suc  suc  x  e.  B ) )
5049ad2antlr 731 . . . . . . . . . . 11  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  -> 
( suc  x  e.  B 
<->  suc  suc  x  e.  B ) )
5148, 50mpbid 213 . . . . . . . . . 10  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  suc  suc  x  e.  B
)
52 r1tr 8255 . . . . . . . . . . . . . . 15  |-  Tr  ( R1 `  x )
53 simprr 764 . . . . . . . . . . . . . . 15  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  A  e.  ( R1 `  x ) )
54 trss 4527 . . . . . . . . . . . . . . 15  |-  ( Tr  ( R1 `  x
)  ->  ( A  e.  ( R1 `  x
)  ->  A  C_  ( R1 `  x ) ) )
5552, 53, 54mpsyl 65 . . . . . . . . . . . . . 14  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  A  C_  ( R1 `  x ) )
5655, 32sylib 199 . . . . . . . . . . . . 13  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  ~P A  C_  ~P ( R1 `  x ) )
577ad2antrr 730 . . . . . . . . . . . . . . 15  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  B  e.  dom  R1 )
58 ordtr1 5485 . . . . . . . . . . . . . . . 16  |-  ( Ord 
dom  R1  ->  ( ( x  e.  B  /\  B  e.  dom  R1 )  ->  x  e.  dom  R1 ) )
594, 58ax-mp 5 . . . . . . . . . . . . . . 15  |-  ( ( x  e.  B  /\  B  e.  dom  R1 )  ->  x  e.  dom  R1 )
6045, 57, 59syl2anc 665 . . . . . . . . . . . . . 14  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  x  e.  dom  R1 )
6160, 27syl 17 . . . . . . . . . . . . 13  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  -> 
( R1 `  suc  x )  =  ~P ( R1 `  x ) )
6256, 61sseqtr4d 3501 . . . . . . . . . . . 12  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  ~P A  C_  ( R1
`  suc  x )
)
63 fvex 5891 . . . . . . . . . . . . 13  |-  ( R1
`  suc  x )  e.  _V
6463elpw2 4588 . . . . . . . . . . . 12  |-  ( ~P A  e.  ~P ( R1 `  suc  x )  <->  ~P A  C_  ( R1
`  suc  x )
)
6562, 64sylibr 215 . . . . . . . . . . 11  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  ~P A  e.  ~P ( R1 `  suc  x
) )
6660, 25sylib 199 . . . . . . . . . . . 12  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  suc  x  e.  dom  R1 )
67 r1sucg 8248 . . . . . . . . . . . 12  |-  ( suc  x  e.  dom  R1  ->  ( R1 `  suc  suc  x )  =  ~P ( R1 `  suc  x
) )
6866, 67syl 17 . . . . . . . . . . 11  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  -> 
( R1 `  suc  suc  x )  =  ~P ( R1 `  suc  x
) )
6965, 68eleqtrrd 2510 . . . . . . . . . 10  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  ~P A  e.  ( R1 `  suc  suc  x
) )
70 fveq2 5881 . . . . . . . . . . . 12  |-  ( y  =  suc  suc  x  ->  ( R1 `  y
)  =  ( R1
`  suc  suc  x ) )
7170eleq2d 2492 . . . . . . . . . . 11  |-  ( y  =  suc  suc  x  ->  ( ~P A  e.  ( R1 `  y
)  <->  ~P A  e.  ( R1 `  suc  suc  x ) ) )
7271rspcev 3182 . . . . . . . . . 10  |-  ( ( suc  suc  x  e.  B  /\  ~P A  e.  ( R1 `  suc  suc  x ) )  ->  E. y  e.  B  ~P A  e.  ( R1 `  y ) )
7351, 69, 72syl2anc 665 . . . . . . . . 9  |-  ( ( ( A  e.  ( R1 `  B )  /\  Lim  B )  /\  ( x  e.  B  /\  A  e.  ( R1 `  x
) ) )  ->  E. y  e.  B  ~P A  e.  ( R1 `  y ) )
7444, 73rexlimddv 2918 . . . . . . . 8  |-  ( ( A  e.  ( R1
`  B )  /\  Lim  B )  ->  E. y  e.  B  ~P A  e.  ( R1 `  y
) )
75 eliun 4304 . . . . . . . 8  |-  ( ~P A  e.  U_ y  e.  B  ( R1 `  y )  <->  E. y  e.  B  ~P A  e.  ( R1 `  y
) )
7674, 75sylibr 215 . . . . . . 7  |-  ( ( A  e.  ( R1
`  B )  /\  Lim  B )  ->  ~P A  e.  U_ y  e.  B  ( R1 `  y ) )
77 r1limg 8250 . . . . . . . 8  |-  ( ( B  e.  dom  R1  /\ 
Lim  B )  -> 
( R1 `  B
)  =  U_ y  e.  B  ( R1 `  y ) )
787, 77sylan 473 . . . . . . 7  |-  ( ( A  e.  ( R1
`  B )  /\  Lim  B )  ->  ( R1 `  B )  = 
U_ y  e.  B  ( R1 `  y ) )
7976, 78eleqtrrd 2510 . . . . . 6  |-  ( ( A  e.  ( R1
`  B )  /\  Lim  B )  ->  ~P A  e.  ( R1 `  B ) )
80 trss 4527 . . . . . 6  |-  ( Tr  ( R1 `  B
)  ->  ( ~P A  e.  ( R1 `  B )  ->  ~P A  C_  ( R1 `  B ) ) )
8138, 79, 80mpsyl 65 . . . . 5  |-  ( ( A  e.  ( R1
`  B )  /\  Lim  B )  ->  ~P A  C_  ( R1 `  B ) )
8281ex 435 . . . 4  |-  ( A  e.  ( R1 `  B )  ->  ( Lim  B  ->  ~P A  C_  ( R1 `  B
) ) )
8382adantld 468 . . 3  |-  ( A  e.  ( R1 `  B )  ->  (
( B  e.  _V  /\ 
Lim  B )  ->  ~P A  C_  ( R1
`  B ) ) )
8418, 37, 833jaod 1328 . 2  |-  ( A  e.  ( R1 `  B )  ->  (
( B  =  (/)  \/ 
E. x  e.  On  B  =  suc  x  \/  ( B  e.  _V  /\ 
Lim  B ) )  ->  ~P A  C_  ( R1 `  B ) ) )
8510, 84mpd 15 1  |-  ( A  e.  ( R1 `  B )  ->  ~P A  C_  ( R1 `  B ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 187    /\ wa 370    \/ w3o 981    = wceq 1437    e. wcel 1872   E.wrex 2772   _Vcvv 3080    C_ wss 3436   (/)c0 3761   ~Pcpw 3981   U_ciun 4299   Tr wtr 4518   dom cdm 4853   Ord word 5441   Oncon0 5442   Lim wlim 5443   suc csuc 5444   Fun wfun 5595   ` cfv 5601   R1cr1 8241
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-8 1874  ax-9 1876  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2057  ax-ext 2401  ax-sep 4546  ax-nul 4555  ax-pow 4602  ax-pr 4660  ax-un 6597
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1658  df-nf 1662  df-sb 1791  df-eu 2273  df-mo 2274  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2568  df-ne 2616  df-ral 2776  df-rex 2777  df-reu 2778  df-rab 2780  df-v 3082  df-sbc 3300  df-csb 3396  df-dif 3439  df-un 3441  df-in 3443  df-ss 3450  df-pss 3452  df-nul 3762  df-if 3912  df-pw 3983  df-sn 3999  df-pr 4001  df-tp 4003  df-op 4005  df-uni 4220  df-iun 4301  df-br 4424  df-opab 4483  df-mpt 4484  df-tr 4519  df-eprel 4764  df-id 4768  df-po 4774  df-so 4775  df-fr 4812  df-we 4814  df-xp 4859  df-rel 4860  df-cnv 4861  df-co 4862  df-dm 4863  df-rn 4864  df-res 4865  df-ima 4866  df-pred 5399  df-ord 5445  df-on 5446  df-lim 5447  df-suc 5448  df-iota 5565  df-fun 5603  df-fn 5604  df-f 5605  df-f1 5606  df-fo 5607  df-f1o 5608  df-fv 5609  df-om 6707  df-wrecs 7039  df-recs 7101  df-rdg 7139  df-r1 8243
This theorem is referenced by:  r1sscl  8264
  Copyright terms: Public domain W3C validator