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

Theorem ordsucelsuc 4504
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 445 . . 3  |-  ( ( Ord  B  /\  A  e.  B )  ->  Ord  B )
2 ordelord 4307 . . 3  |-  ( ( Ord  B  /\  A  e.  B )  ->  Ord  A )
31, 2jca 520 . 2  |-  ( ( Ord  B  /\  A  e.  B )  ->  ( Ord  B  /\  Ord  A
) )
4 simpl 445 . . 3  |-  ( ( Ord  B  /\  suc  A  e.  suc  B )  ->  Ord  B )
5 ordsuc 4496 . . . 4  |-  ( Ord 
B  <->  Ord  suc  B )
6 ordelord 4307 . . . . 5  |-  ( ( Ord  suc  B  /\  suc  A  e.  suc  B
)  ->  Ord  suc  A
)
7 ordsuc 4496 . . . . 5  |-  ( Ord 
A  <->  Ord  suc  A )
86, 7sylibr 205 . . . 4  |-  ( ( Ord  suc  B  /\  suc  A  e.  suc  B
)  ->  Ord  A )
95, 8sylanb 460 . . 3  |-  ( ( Ord  B  /\  suc  A  e.  suc  B )  ->  Ord  A )
104, 9jca 520 . 2  |-  ( ( Ord  B  /\  suc  A  e.  suc  B )  ->  ( Ord  B  /\  Ord  A ) )
11 ordsseleq 4314 . . . . . . . 8  |-  ( ( Ord  suc  A  /\  Ord  B )  ->  ( suc  A  C_  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
127, 11sylanb 460 . . . . . . 7  |-  ( ( Ord  A  /\  Ord  B )  ->  ( suc  A 
C_  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
1312ancoms 441 . . . . . 6  |-  ( ( Ord  B  /\  Ord  A )  ->  ( suc  A 
C_  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
1413adantl 454 . . . . 5  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( suc  A  C_  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
15 ordsucss 4500 . . . . . . 7  |-  ( Ord 
B  ->  ( A  e.  B  ->  suc  A  C_  B ) )
1615ad2antrl 711 . . . . . 6  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( A  e.  B  ->  suc 
A  C_  B )
)
17 sucssel 4378 . . . . . . 7  |-  ( A  e.  _V  ->  ( suc  A  C_  B  ->  A  e.  B ) )
1817adantr 453 . . . . . 6  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( suc  A  C_  B  ->  A  e.  B ) )
1916, 18impbid 185 . . . . 5  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( A  e.  B  <->  suc  A  C_  B ) )
20 sucexb 4491 . . . . . . 7  |-  ( A  e.  _V  <->  suc  A  e. 
_V )
21 elsucg 4352 . . . . . . 7  |-  ( suc 
A  e.  _V  ->  ( suc  A  e.  suc  B  <-> 
( suc  A  e.  B  \/  suc  A  =  B ) ) )
2220, 21sylbi 189 . . . . . 6  |-  ( A  e.  _V  ->  ( suc  A  e.  suc  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
2322adantr 453 . . . . 5  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( suc  A  e.  suc  B  <->  ( suc  A  e.  B  \/  suc  A  =  B ) ) )
2414, 19, 233bitr4d 278 . . . 4  |-  ( ( A  e.  _V  /\  ( Ord  B  /\  Ord  A ) )  ->  ( A  e.  B  <->  suc  A  e. 
suc  B ) )
2524ex 425 . . 3  |-  ( A  e.  _V  ->  (
( Ord  B  /\  Ord  A )  ->  ( A  e.  B  <->  suc  A  e. 
suc  B ) ) )
26 elex 2735 . . . . 5  |-  ( A  e.  B  ->  A  e.  _V )
27 elex 2735 . . . . . 6  |-  ( suc 
A  e.  suc  B  ->  suc  A  e.  _V )
2827, 20sylibr 205 . . . . 5  |-  ( suc 
A  e.  suc  B  ->  A  e.  _V )
2926, 28pm5.21ni 343 . . . 4  |-  ( -.  A  e.  _V  ->  ( A  e.  B  <->  suc  A  e. 
suc  B ) )
3029a1d 24 . . 3  |-  ( -.  A  e.  _V  ->  ( ( Ord  B  /\  Ord  A )  ->  ( A  e.  B  <->  suc  A  e. 
suc  B ) ) )
3125, 30pm2.61i 158 . 2  |-  ( ( Ord  B  /\  Ord  A )  ->  ( A  e.  B  <->  suc  A  e.  suc  B ) )
323, 10, 31pm5.21nd 873 1  |-  ( Ord 
B  ->  ( A  e.  B  <->  suc  A  e.  suc  B ) )
Colors of variables: wff set class
Syntax hints:   -. wn 5    -> wi 6    <-> wb 178    \/ wo 359    /\ wa 360    = wceq 1619    e. wcel 1621   _Vcvv 2727    C_ wss 3078   Ord word 4284   suc csuc 4287
This theorem is referenced by:  ordsucsssuc  4505  oalimcl  6444  omlimcl  6462  pssnn  6966  cantnflt  7257  cantnfp1lem3  7266  r1pw  7401  r1pwOLD  7402  rankelpr  7429  rankelop  7430  rankxplim3  7435  infpssrlem4  7816  axdc3lem2  7961  axdc3lem4  7963  grur1a  8321  tartarmap  25054  bnj570  27626  bnj1001  27679
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-5 1533  ax-6 1534  ax-7 1535  ax-gen 1536  ax-8 1623  ax-11 1624  ax-13 1625  ax-14 1626  ax-17 1628  ax-12o 1664  ax-10 1678  ax-9 1684  ax-4 1692  ax-16 1926  ax-ext 2234  ax-sep 4038  ax-nul 4046  ax-pr 4108  ax-un 4403
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 940  df-3an 941  df-tru 1315  df-ex 1538  df-nf 1540  df-sb 1883  df-eu 2118  df-mo 2119  df-clab 2240  df-cleq 2246  df-clel 2249  df-nfc 2374  df-ne 2414  df-ral 2513  df-rex 2514  df-rab 2516  df-v 2729  df-sbc 2922  df-dif 3081  df-un 3083  df-in 3085  df-ss 3089  df-pss 3091  df-nul 3363  df-if 3471  df-sn 3550  df-pr 3551  df-tp 3552  df-op 3553  df-uni 3728  df-br 3921  df-opab 3975  df-tr 4011  df-eprel 4198  df-po 4207  df-so 4208  df-fr 4245  df-we 4247  df-ord 4288  df-on 4289  df-suc 4291
  Copyright terms: Public domain W3C validator