Theorem ordsucelsuc 7843

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 𝐵 → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))

Proof of Theorem ordsucelsuc

Step	Hyp	Ref	Expression
1		simpl 482	. . 3 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ 𝐵) → Ord 𝐵)
2		ordelord 6405	. . 3 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ 𝐵) → Ord 𝐴)
3	1, 2	jca 511	. 2 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ 𝐵) → (Ord 𝐵 ∧ Ord 𝐴))
4		simpl 482	. . 3 ⊢ ((Ord 𝐵 ∧ suc 𝐴 ∈ suc 𝐵) → Ord 𝐵)
5		ordsuc 7834	. . . 4 ⊢ (Ord 𝐵 ↔ Ord suc 𝐵)
6		ordelord 6405	. . . . 5 ⊢ ((Ord suc 𝐵 ∧ suc 𝐴 ∈ suc 𝐵) → Ord suc 𝐴)
7		ordsuc 7834	. . . . 5 ⊢ (Ord 𝐴 ↔ Ord suc 𝐴)
8	6, 7	sylibr 234	. . . 4 ⊢ ((Ord suc 𝐵 ∧ suc 𝐴 ∈ suc 𝐵) → Ord 𝐴)
9	5, 8	sylanb 581	. . 3 ⊢ ((Ord 𝐵 ∧ suc 𝐴 ∈ suc 𝐵) → Ord 𝐴)
10	4, 9	jca 511	. 2 ⊢ ((Ord 𝐵 ∧ suc 𝐴 ∈ suc 𝐵) → (Ord 𝐵 ∧ Ord 𝐴))
11		ordsseleq 6412	. . . . . . . 8 ⊢ ((Ord suc 𝐴 ∧ Ord 𝐵) → (suc 𝐴 ⊆ 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
12	7, 11	sylanb 581	. . . . . . 7 ⊢ ((Ord 𝐴 ∧ Ord 𝐵) → (suc 𝐴 ⊆ 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
13	12	ancoms 458	. . . . . 6 ⊢ ((Ord 𝐵 ∧ Ord 𝐴) → (suc 𝐴 ⊆ 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
14	13	adantl 481	. . . . 5 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (suc 𝐴 ⊆ 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
15		ordsucss 7839	. . . . . . 7 ⊢ (Ord 𝐵 → (𝐴 ∈ 𝐵 → suc 𝐴 ⊆ 𝐵))
16	15	ad2antrl 728	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (𝐴 ∈ 𝐵 → suc 𝐴 ⊆ 𝐵))
17		sucssel 6478	. . . . . . 7 ⊢ (𝐴 ∈ V → (suc 𝐴 ⊆ 𝐵 → 𝐴 ∈ 𝐵))
18	17	adantr 480	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (suc 𝐴 ⊆ 𝐵 → 𝐴 ∈ 𝐵))
19	16, 18	impbid 212	. . . . 5 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ⊆ 𝐵))
20		sucexb 7825	. . . . . . 7 ⊢ (𝐴 ∈ V ↔ suc 𝐴 ∈ V)
21		elsucg 6451	. . . . . . 7 ⊢ (suc 𝐴 ∈ V → (suc 𝐴 ∈ suc 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
22	20, 21	sylbi 217	. . . . . 6 ⊢ (𝐴 ∈ V → (suc 𝐴 ∈ suc 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
23	22	adantr 480	. . . . 5 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (suc 𝐴 ∈ suc 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
24	14, 19, 23	3bitr4d 311	. . . 4 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))
25	24	ex 412	. . 3 ⊢ (𝐴 ∈ V → ((Ord 𝐵 ∧ Ord 𝐴) → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵)))
26		elex 3500	. . . . 5 ⊢ (𝐴 ∈ 𝐵 → 𝐴 ∈ V)
27		elex 3500	. . . . . 6 ⊢ (suc 𝐴 ∈ suc 𝐵 → suc 𝐴 ∈ V)
28	27, 20	sylibr 234	. . . . 5 ⊢ (suc 𝐴 ∈ suc 𝐵 → 𝐴 ∈ V)
29	26, 28	pm5.21ni 377	. . . 4 ⊢ (¬ 𝐴 ∈ V → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))
30	29	a1d 25	. . 3 ⊢ (¬ 𝐴 ∈ V → ((Ord 𝐵 ∧ Ord 𝐴) → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵)))
31	25, 30	pm2.61i 182	. 2 ⊢ ((Ord 𝐵 ∧ Ord 𝐴) → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))
32	3, 10, 31	pm5.21nd 801	1 ⊢ (Ord 𝐵 → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1539   ∈ wcel 2107  Vcvv 3479   ⊆ wss 3950  Ord word 6382  suc csuc 6385

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-ext 2707  ax-sep 5295  ax-nul 5305  ax-pr 5431  ax-un 7756

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-sb 2064  df-clab 2714  df-cleq 2728  df-clel 2815  df-ne 2940  df-ral 3061  df-rex 3070  df-rab 3436  df-v 3481  df-dif 3953  df-un 3955  df-in 3957  df-ss 3967  df-pss 3970  df-nul 4333  df-if 4525  df-pw 4601  df-sn 4626  df-pr 4628  df-op 4632  df-uni 4907  df-br 5143  df-opab 5205  df-tr 5259  df-eprel 5583  df-po 5591  df-so 5592  df-fr 5636  df-we 5638  df-ord 6386  df-on 6387  df-suc 6389

This theorem is referenced by:  ordsucsssuc  7844  omsucelsucb  8499  oalimcl  8599  omlimcl  8617  pssnn  9209  cantnflt  9713  cantnfp1lem3  9721  ttrcltr  9757  ttrclss  9761  ttrclselem2  9767  r1pw  9886  r1pwALT  9887  rankelpr  9914  rankelop  9915  rankxplim3  9922  infpssrlem4  10347  axdc3lem2  10492  axdc3lem4  10494  grur1a  10860  nosupno  27749  noinfno  27764  bnj570  34920  bnj1001  34974