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

Theorem r1tr 7448
Description: The cumulative hierarchy of sets is transitive. Lemma 7T of [Enderton] p. 202. (Contributed by NM, 8-Sep-2003.) (Revised by Mario Carneiro, 16-Nov-2014.)
Assertion
Ref Expression
r1tr  |-  Tr  ( R1 `  A )

Proof of Theorem r1tr
Dummy variables  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 r1funlim 7438 . . . . . 6  |-  ( Fun 
R1  /\  Lim  dom  R1 )
21simpri 448 . . . . 5  |-  Lim  dom  R1
3 limord 4451 . . . . 5  |-  ( Lim 
dom  R1  ->  Ord  dom  R1 )
4 ordsson 4581 . . . . 5  |-  ( Ord 
dom  R1  ->  dom  R1  C_  On )
52, 3, 4mp2b 9 . . . 4  |-  dom  R1  C_  On
65sseli 3176 . . 3  |-  ( A  e.  dom  R1  ->  A  e.  On )
7 fveq2 5525 . . . . . 6  |-  ( x  =  (/)  ->  ( R1
`  x )  =  ( R1 `  (/) ) )
8 r10 7440 . . . . . 6  |-  ( R1
`  (/) )  =  (/)
97, 8syl6eq 2331 . . . . 5  |-  ( x  =  (/)  ->  ( R1
`  x )  =  (/) )
10 treq 4119 . . . . 5  |-  ( ( R1 `  x )  =  (/)  ->  ( Tr  ( R1 `  x
)  <->  Tr  (/) ) )
119, 10syl 15 . . . 4  |-  ( x  =  (/)  ->  ( Tr  ( R1 `  x
)  <->  Tr  (/) ) )
12 fveq2 5525 . . . . 5  |-  ( x  =  y  ->  ( R1 `  x )  =  ( R1 `  y
) )
13 treq 4119 . . . . 5  |-  ( ( R1 `  x )  =  ( R1 `  y )  ->  ( Tr  ( R1 `  x
)  <->  Tr  ( R1 `  y ) ) )
1412, 13syl 15 . . . 4  |-  ( x  =  y  ->  ( Tr  ( R1 `  x
)  <->  Tr  ( R1 `  y ) ) )
15 fveq2 5525 . . . . 5  |-  ( x  =  suc  y  -> 
( R1 `  x
)  =  ( R1
`  suc  y )
)
16 treq 4119 . . . . 5  |-  ( ( R1 `  x )  =  ( R1 `  suc  y )  ->  ( Tr  ( R1 `  x
)  <->  Tr  ( R1 ` 
suc  y ) ) )
1715, 16syl 15 . . . 4  |-  ( x  =  suc  y  -> 
( Tr  ( R1
`  x )  <->  Tr  ( R1 `  suc  y ) ) )
18 fveq2 5525 . . . . 5  |-  ( x  =  A  ->  ( R1 `  x )  =  ( R1 `  A
) )
19 treq 4119 . . . . 5  |-  ( ( R1 `  x )  =  ( R1 `  A )  ->  ( Tr  ( R1 `  x
)  <->  Tr  ( R1 `  A ) ) )
2018, 19syl 15 . . . 4  |-  ( x  =  A  ->  ( Tr  ( R1 `  x
)  <->  Tr  ( R1 `  A ) ) )
21 tr0 4124 . . . 4  |-  Tr  (/)
22 limsuc 4640 . . . . . . . 8  |-  ( Lim 
dom  R1  ->  ( y  e.  dom  R1  <->  suc  y  e. 
dom  R1 ) )
232, 22ax-mp 8 . . . . . . 7  |-  ( y  e.  dom  R1  <->  suc  y  e. 
dom  R1 )
24 simpr 447 . . . . . . . . 9  |-  ( ( y  e.  On  /\  Tr  ( R1 `  y
) )  ->  Tr  ( R1 `  y ) )
25 pwtr 4226 . . . . . . . . 9  |-  ( Tr  ( R1 `  y
)  <->  Tr  ~P ( R1 `  y ) )
2624, 25sylib 188 . . . . . . . 8  |-  ( ( y  e.  On  /\  Tr  ( R1 `  y
) )  ->  Tr  ~P ( R1 `  y
) )
27 r1sucg 7441 . . . . . . . . 9  |-  ( y  e.  dom  R1  ->  ( R1 `  suc  y
)  =  ~P ( R1 `  y ) )
28 treq 4119 . . . . . . . . 9  |-  ( ( R1 `  suc  y
)  =  ~P ( R1 `  y )  -> 
( Tr  ( R1
`  suc  y )  <->  Tr 
~P ( R1 `  y ) ) )
2927, 28syl 15 . . . . . . . 8  |-  ( y  e.  dom  R1  ->  ( Tr  ( R1 `  suc  y )  <->  Tr  ~P ( R1 `  y ) ) )
3026, 29syl5ibrcom 213 . . . . . . 7  |-  ( ( y  e.  On  /\  Tr  ( R1 `  y
) )  ->  (
y  e.  dom  R1  ->  Tr  ( R1 `  suc  y ) ) )
3123, 30syl5bir 209 . . . . . 6  |-  ( ( y  e.  On  /\  Tr  ( R1 `  y
) )  ->  ( suc  y  e.  dom  R1 
->  Tr  ( R1 `  suc  y ) ) )
32 ndmfv 5552 . . . . . . . 8  |-  ( -. 
suc  y  e.  dom  R1 
->  ( R1 `  suc  y )  =  (/) )
33 treq 4119 . . . . . . . 8  |-  ( ( R1 `  suc  y
)  =  (/)  ->  ( Tr  ( R1 `  suc  y )  <->  Tr  (/) ) )
3432, 33syl 15 . . . . . . 7  |-  ( -. 
suc  y  e.  dom  R1 
->  ( Tr  ( R1
`  suc  y )  <->  Tr  (/) ) )
3521, 34mpbiri 224 . . . . . 6  |-  ( -. 
suc  y  e.  dom  R1 
->  Tr  ( R1 `  suc  y ) )
3631, 35pm2.61d1 151 . . . . 5  |-  ( ( y  e.  On  /\  Tr  ( R1 `  y
) )  ->  Tr  ( R1 `  suc  y
) )
3736ex 423 . . . 4  |-  ( y  e.  On  ->  ( Tr  ( R1 `  y
)  ->  Tr  ( R1 `  suc  y ) ) )
38 triun 4126 . . . . . . . 8  |-  ( A. y  e.  x  Tr  ( R1 `  y )  ->  Tr  U_ y  e.  x  ( R1 `  y ) )
39 r1limg 7443 . . . . . . . . . 10  |-  ( ( x  e.  dom  R1  /\ 
Lim  x )  -> 
( R1 `  x
)  =  U_ y  e.  x  ( R1 `  y ) )
4039ancoms 439 . . . . . . . . 9  |-  ( ( Lim  x  /\  x  e.  dom  R1 )  -> 
( R1 `  x
)  =  U_ y  e.  x  ( R1 `  y ) )
41 treq 4119 . . . . . . . . 9  |-  ( ( R1 `  x )  =  U_ y  e.  x  ( R1 `  y )  ->  ( Tr  ( R1 `  x
)  <->  Tr  U_ y  e.  x  ( R1 `  y ) ) )
4240, 41syl 15 . . . . . . . 8  |-  ( ( Lim  x  /\  x  e.  dom  R1 )  -> 
( Tr  ( R1
`  x )  <->  Tr  U_ y  e.  x  ( R1 `  y ) ) )
4338, 42syl5ibr 212 . . . . . . 7  |-  ( ( Lim  x  /\  x  e.  dom  R1 )  -> 
( A. y  e.  x  Tr  ( R1
`  y )  ->  Tr  ( R1 `  x
) ) )
4443impancom 427 . . . . . 6  |-  ( ( Lim  x  /\  A. y  e.  x  Tr  ( R1 `  y ) )  ->  ( x  e.  dom  R1  ->  Tr  ( R1 `  x ) ) )
45 ndmfv 5552 . . . . . . . 8  |-  ( -.  x  e.  dom  R1  ->  ( R1 `  x
)  =  (/) )
4645, 10syl 15 . . . . . . 7  |-  ( -.  x  e.  dom  R1  ->  ( Tr  ( R1
`  x )  <->  Tr  (/) ) )
4721, 46mpbiri 224 . . . . . 6  |-  ( -.  x  e.  dom  R1  ->  Tr  ( R1 `  x ) )
4844, 47pm2.61d1 151 . . . . 5  |-  ( ( Lim  x  /\  A. y  e.  x  Tr  ( R1 `  y ) )  ->  Tr  ( R1 `  x ) )
4948ex 423 . . . 4  |-  ( Lim  x  ->  ( A. y  e.  x  Tr  ( R1 `  y )  ->  Tr  ( R1 `  x ) ) )
5011, 14, 17, 20, 21, 37, 49tfinds 4650 . . 3  |-  ( A  e.  On  ->  Tr  ( R1 `  A ) )
516, 50syl 15 . 2  |-  ( A  e.  dom  R1  ->  Tr  ( R1 `  A
) )
52 ndmfv 5552 . . . 4  |-  ( -.  A  e.  dom  R1  ->  ( R1 `  A
)  =  (/) )
53 treq 4119 . . . 4  |-  ( ( R1 `  A )  =  (/)  ->  ( Tr  ( R1 `  A
)  <->  Tr  (/) ) )
5452, 53syl 15 . . 3  |-  ( -.  A  e.  dom  R1  ->  ( Tr  ( R1
`  A )  <->  Tr  (/) ) )
5521, 54mpbiri 224 . 2  |-  ( -.  A  e.  dom  R1  ->  Tr  ( R1 `  A ) )
5651, 55pm2.61i 156 1  |-  Tr  ( R1 `  A )
Colors of variables: wff set class
Syntax hints:   -. wn 3    <-> wb 176    /\ wa 358    = wceq 1623    e. wcel 1684   A.wral 2543    C_ wss 3152   (/)c0 3455   ~Pcpw 3625   U_ciun 3905   Tr wtr 4113   Ord word 4391   Oncon0 4392   Lim wlim 4393   suc csuc 4394   dom cdm 4689   Fun wfun 5249   ` cfv 5255   R1cr1 7434
This theorem is referenced by:  r1tr2  7449  r1ordg  7450  r1ord3g  7451  r1ord2  7453  r1sssuc  7455  r1pwss  7456  r1val1  7458  rankwflemb  7465  r1elwf  7468  r1elssi  7477  uniwf  7491  tcrank  7554  ackbij2lem3  7867  r1limwun  8358  tskr1om2  8390
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1533  ax-5 1544  ax-17 1603  ax-9 1635  ax-8 1643  ax-13 1686  ax-14 1688  ax-6 1703  ax-7 1708  ax-11 1715  ax-12 1866  ax-ext 2264  ax-sep 4141  ax-nul 4149  ax-pow 4188  ax-pr 4214  ax-un 4512
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1310  df-ex 1529  df-nf 1532  df-sb 1630  df-eu 2147  df-mo 2148  df-clab 2270  df-cleq 2276  df-clel 2279  df-nfc 2408  df-ne 2448  df-ral 2548  df-rex 2549  df-reu 2550  df-rab 2552  df-v 2790  df-sbc 2992  df-csb 3082  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-pss 3168  df-nul 3456  df-if 3566  df-pw 3627  df-sn 3646  df-pr 3647  df-tp 3648  df-op 3649  df-uni 3828  df-iun 3907  df-br 4024  df-opab 4078  df-mpt 4079  df-tr 4114  df-eprel 4305  df-id 4309  df-po 4314  df-so 4315  df-fr 4352  df-we 4354  df-ord 4395  df-on 4396  df-lim 4397  df-suc 4398  df-om 4657  df-xp 4695  df-rel 4696  df-cnv 4697  df-co 4698  df-dm 4699  df-rn 4700  df-res 4701  df-ima 4702  df-iota 5219  df-fun 5257  df-fn 5258  df-f 5259  df-f1 5260  df-fo 5261  df-f1o 5262  df-fv 5263  df-recs 6388  df-rdg 6423  df-r1 7436
  Copyright terms: Public domain W3C validator