Theorem ordsucelsuc 7819

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 488	. . 3 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ 𝐵) → Ord 𝐵)
2		ordelord 6379	. . 3 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ 𝐵) → Ord 𝐴)
3	1, 2	jca 521	. 2 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ 𝐵) → (Ord 𝐵 ∧ Ord 𝐴))
4		simpl 488	. . 3 ⊢ ((Ord 𝐵 ∧ suc 𝐴 ∈ suc 𝐵) → Ord 𝐵)
5		ordsuc 7811	. . . 4 ⊢ (Ord 𝐵 ↔ Ord suc 𝐵)
6		ordelord 6379	. . . . 5 ⊢ ((Ord suc 𝐵 ∧ suc 𝐴 ∈ suc 𝐵) → Ord suc 𝐴)
7		ordsuc 7811	. . . . 5 ⊢ (Ord 𝐴 ↔ Ord suc 𝐴)
8	6, 7	sylibr 237	. . . 4 ⊢ ((Ord suc 𝐵 ∧ suc 𝐴 ∈ suc 𝐵) → Ord 𝐴)
9	5, 8	sylanb 593	. . 3 ⊢ ((Ord 𝐵 ∧ suc 𝐴 ∈ suc 𝐵) → Ord 𝐴)
10	4, 9	jca 521	. 2 ⊢ ((Ord 𝐵 ∧ suc 𝐴 ∈ suc 𝐵) → (Ord 𝐵 ∧ Ord 𝐴))
11		ordsseleq 6387	. . . . . . . 8 ⊢ ((Ord suc 𝐴 ∧ Ord 𝐵) → (suc 𝐴 ⊆ 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
12	7, 11	sylanb 593	. . . . . . 7 ⊢ ((Ord 𝐴 ∧ Ord 𝐵) → (suc 𝐴 ⊆ 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
13	12	ancoms 464	. . . . . 6 ⊢ ((Ord 𝐵 ∧ Ord 𝐴) → (suc 𝐴 ⊆ 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
14	13	adantl 487	. . . . 5 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (suc 𝐴 ⊆ 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
15		ordsucss 7815	. . . . . . 7 ⊢ (Ord 𝐵 → (𝐴 ∈ 𝐵 → suc 𝐴 ⊆ 𝐵))
16	15	ad2antrl 741	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (𝐴 ∈ 𝐵 → suc 𝐴 ⊆ 𝐵))
17		sucssel 6455	. . . . . . 7 ⊢ (𝐴 ∈ V → (suc 𝐴 ⊆ 𝐵 → 𝐴 ∈ 𝐵))
18	17	adantr 486	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (suc 𝐴 ⊆ 𝐵 → 𝐴 ∈ 𝐵))
19	16, 18	impbid 215	. . . . 5 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ⊆ 𝐵))
20		sucexb 7804	. . . . . . 7 ⊢ (𝐴 ∈ V ↔ suc 𝐴 ∈ V)
21		elsucg 6428	. . . . . . 7 ⊢ (suc 𝐴 ∈ V → (suc 𝐴 ∈ suc 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
22	20, 21	sylbi 220	. . . . . 6 ⊢ (𝐴 ∈ V → (suc 𝐴 ∈ suc 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
23	22	adantr 486	. . . . 5 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (suc 𝐴 ∈ suc 𝐵 ↔ (suc 𝐴 ∈ 𝐵 ∨ suc 𝐴 = 𝐵)))
24	14, 19, 23	3bitr4d 314	. . . 4 ⊢ ((𝐴 ∈ V ∧ (Ord 𝐵 ∧ Ord 𝐴)) → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))
25	24	ex 418	. . 3 ⊢ (𝐴 ∈ V → ((Ord 𝐵 ∧ Ord 𝐴) → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵)))
26		elex 3471	. . . . 5 ⊢ (𝐴 ∈ 𝐵 → 𝐴 ∈ V)
27		elex 3471	. . . . . 6 ⊢ (suc 𝐴 ∈ suc 𝐵 → suc 𝐴 ∈ V)
28	27, 20	sylibr 237	. . . . 5 ⊢ (suc 𝐴 ∈ suc 𝐵 → 𝐴 ∈ V)
29	26, 28	pm5.21ni 380	. . . 4 ⊢ (¬ 𝐴 ∈ V → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))
30	29	a1d 26	. . 3 ⊢ (¬ 𝐴 ∈ V → ((Ord 𝐵 ∧ Ord 𝐴) → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵)))
31	25, 30	pm2.61i 184	. 2 ⊢ ((Ord 𝐵 ∧ Ord 𝐴) → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))
32	3, 10, 31	pm5.21nd 814	1 ⊢ (Ord 𝐵 → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1570   ∈ wcel 2145  Vcvv 3450   ⊆ wss 3899  Ord word 6356  suc csuc 6359

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-ext 2732  ax-sep 5251  ax-pr 5398  ax-un 7737

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-sb 2100  df-clab 2739  df-cleq 2752  df-clel 2835  df-ne 2956  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-tr 5213  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-ord 6360  df-on 6361  df-suc 6363

This theorem is used by:  ordsucsssuc  7820  omsucelsucb  8450  oalimcl  8550  omlimcl  8568  pssnn  9166  cantnflt  9654  cantnfp1lem3  9662  ttrcltr  9698  ttrclss  9702  ttrclselem2  9708  r1pw  9830  r1pwALT  9831  rankelpr  9858  rankelop  9859  rankxplim3  9866  infpssrlem4  10311  axdc3lem2  10456  axdc3lem4  10458  grur1a  10831  nosupno  27942  noinfno  27957  bnj570  35417  bnj1001  35471  fineqvnttrclselem3  35652  mh-inf3f1  37163