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

Theorem ordsucelsuc 6639
Description: Membership is inherited by successors. Generalization of Exercise 9 of [TakeutiZaring] p. 42. (Contributed by NM, 22-Jun-1998.) (Proof shortened by Andrew Salmon, 12-Aug-2011.)
Assertion
Ref Expression
ordsucelsuc  |-  ( Ord 
B  ->  ( A  e.  B  <->  suc  A  e.  suc  B ) )

Proof of Theorem ordsucelsuc
StepHypRef Expression
1 simpl 455 . . 3  |-  ( ( Ord  B  /\  A  e.  B )  ->  Ord  B )
2 ordelord 5431 . . 3  |-  ( ( Ord  B  /\  A  e.  B )  ->  Ord  A )
31, 2jca 530 . 2  |-  ( ( Ord  B  /\  A  e.  B )  ->  ( Ord  B  /\  Ord  A
) )
4 simpl 455 . . 3  |-  ( ( Ord  B  /\  suc  A  e.  suc  B )  ->  Ord  B )
5 ordsuc 6631 . . . 4  |-  ( Ord 
B  <->  Ord  suc  B )
6 ordelord 5431 . . . . 5  |-  ( ( Ord  suc  B  /\  suc  A  e.  suc  B
)  ->  Ord  suc  A
)
7 ordsuc 6631 . . . . 5  |-  ( Ord 
A  <->  Ord  suc  A )
86, 7sylibr 212 . . . 4  |-  ( ( Ord  suc  B  /\  suc  A  e.  suc  B
)  ->  Ord  A )
95, 8sylanb 470 . . 3  |-  ( ( Ord  B  /\  suc  A  e.  suc  B )  ->  Ord  A )
104, 9jca 530 . 2  |-  ( ( Ord  B  /\  suc  A  e.  suc  B )  ->  ( Ord  B  /\  Ord  A ) )
11 ordsseleq 5438 . . . . . . . 8  |-  ( ( Ord  suc  A  /\  Ord  B )  ->  ( suc  A  C_  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
127, 11sylanb 470 . . . . . . 7  |-  ( ( Ord  A  /\  Ord  B )  ->  ( suc  A 
C_  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
1312ancoms 451 . . . . . 6  |-  ( ( Ord  B  /\  Ord  A )  ->  ( suc  A 
C_  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
1413adantl 464 . . . . 5  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( suc  A  C_  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
15 ordsucss 6635 . . . . . . 7  |-  ( Ord 
B  ->  ( A  e.  B  ->  suc  A  C_  B ) )
1615ad2antrl 726 . . . . . 6  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( A  e.  B  ->  suc 
A  C_  B )
)
17 sucssel 5501 . . . . . . 7  |-  ( A  e.  _V  ->  ( suc  A  C_  B  ->  A  e.  B ) )
1817adantr 463 . . . . . 6  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( suc  A  C_  B  ->  A  e.  B ) )
1916, 18impbid 191 . . . . 5  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( A  e.  B  <->  suc  A  C_  B ) )
20 sucexb 6626 . . . . . . 7  |-  ( A  e.  _V  <->  suc  A  e. 
_V )
21 elsucg 5476 . . . . . . 7  |-  ( suc 
A  e.  _V  ->  ( suc  A  e.  suc  B  <-> 
( suc  A  e.  B  \/  suc  A  =  B ) ) )
2220, 21sylbi 195 . . . . . 6  |-  ( A  e.  _V  ->  ( suc  A  e.  suc  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
2322adantr 463 . . . . 5  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( suc  A  e.  suc  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
2414, 19, 233bitr4d 285 . . . 4  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( A  e.  B  <->  suc  A  e. 
suc  B ) )
2524ex 432 . . 3  |-  ( A  e.  _V  ->  (
( Ord  B  /\  Ord  A )  ->  ( A  e.  B  <->  suc  A  e. 
suc  B ) ) )
26 elex 3067 . . . . 5  |-  ( A  e.  B  ->  A  e.  _V )
27 elex 3067 . . . . . 6  |-  ( suc 
A  e.  suc  B  ->  suc  A  e.  _V )
2827, 20sylibr 212 . . . . 5  |-  ( suc 
A  e.  suc  B  ->  A  e.  _V )
2926, 28pm5.21ni 350 . . . 4  |-  ( -.  A  e.  _V  ->  ( A  e.  B  <->  suc  A  e. 
suc  B ) )
3029a1d 25 . . 3  |-  ( -.  A  e.  _V  ->  ( ( Ord  B  /\  Ord  A )  ->  ( A  e.  B  <->  suc  A  e. 
suc  B ) ) )
3125, 30pm2.61i 164 . 2  |-  ( ( Ord  B  /\  Ord  A )  ->  ( A  e.  B  <->  suc  A  e.  suc  B ) )
323, 10, 31pm5.21nd 901 1  |-  ( Ord 
B  ->  ( A  e.  B  <->  suc  A  e.  suc  B ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    \/ wo 366    /\ wa 367    = wceq 1405    e. wcel 1842   _Vcvv 3058    C_ wss 3413   Ord word 5408   suc csuc 5411
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1639  ax-4 1652  ax-5 1725  ax-6 1771  ax-7 1814  ax-8 1844  ax-9 1846  ax-10 1861  ax-11 1866  ax-12 1878  ax-13 2026  ax-ext 2380  ax-sep 4516  ax-nul 4524  ax-pr 4629  ax-un 6573
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 975  df-3an 976  df-tru 1408  df-ex 1634  df-nf 1638  df-sb 1764  df-eu 2242  df-mo 2243  df-clab 2388  df-cleq 2394  df-clel 2397  df-nfc 2552  df-ne 2600  df-ral 2758  df-rex 2759  df-rab 2762  df-v 3060  df-sbc 3277  df-dif 3416  df-un 3418  df-in 3420  df-ss 3427  df-pss 3429  df-nul 3738  df-if 3885  df-sn 3972  df-pr 3974  df-tp 3976  df-op 3978  df-uni 4191  df-br 4395  df-opab 4453  df-tr 4489  df-eprel 4733  df-po 4743  df-so 4744  df-fr 4781  df-we 4783  df-ord 5412  df-on 5413  df-suc 5415
This theorem is referenced by:  ordsucsssuc  6640  oalimcl  7245  omlimcl  7263  pssnn  7772  cantnflt  8122  cantnfp1lem3  8130  cantnfltOLD  8152  cantnfp1lem3OLD  8156  r1pw  8294  r1pwALT  8295  rankelpr  8322  rankelop  8323  rankxplim3  8330  infpssrlem4  8717  axdc3lem2  8862  axdc3lem4  8864  grur1a  9226  bnj570  29277  bnj1001  29330
  Copyright terms: Public domain W3C validator