Theorem suctr 5846

Description: The successor of a transitive class is transitive. (Contributed by Alan Sare, 11-Apr-2009.) (Proof shortened by JJ, 24-Sep-2021.)

Assertion

Ref	Expression
suctr	⊢ (Tr 𝐴 → Tr suc 𝐴)

Proof of Theorem suctr

Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elsuci 5829	. . . . . 6 ⊢ (𝑦 ∈ suc 𝐴 → (𝑦 ∈ 𝐴 ∨ 𝑦 = 𝐴))
2		trel 4792	. . . . . . . 8 ⊢ (Tr 𝐴 → ((𝑧 ∈ 𝑦 ∧ 𝑦 ∈ 𝐴) → 𝑧 ∈ 𝐴))
3	2	expdimp 452	. . . . . . 7 ⊢ ((Tr 𝐴 ∧ 𝑧 ∈ 𝑦) → (𝑦 ∈ 𝐴 → 𝑧 ∈ 𝐴))
4		eleq2 2719	. . . . . . . . 9 ⊢ (𝑦 = 𝐴 → (𝑧 ∈ 𝑦 ↔ 𝑧 ∈ 𝐴))
5	4	biimpcd 239	. . . . . . . 8 ⊢ (𝑧 ∈ 𝑦 → (𝑦 = 𝐴 → 𝑧 ∈ 𝐴))
6	5	adantl 481	. . . . . . 7 ⊢ ((Tr 𝐴 ∧ 𝑧 ∈ 𝑦) → (𝑦 = 𝐴 → 𝑧 ∈ 𝐴))
7	3, 6	jaod 394	. . . . . 6 ⊢ ((Tr 𝐴 ∧ 𝑧 ∈ 𝑦) → ((𝑦 ∈ 𝐴 ∨ 𝑦 = 𝐴) → 𝑧 ∈ 𝐴))
8	1, 7	syl5 34	. . . . 5 ⊢ ((Tr 𝐴 ∧ 𝑧 ∈ 𝑦) → (𝑦 ∈ suc 𝐴 → 𝑧 ∈ 𝐴))
9	8	expimpd 628	. . . 4 ⊢ (Tr 𝐴 → ((𝑧 ∈ 𝑦 ∧ 𝑦 ∈ suc 𝐴) → 𝑧 ∈ 𝐴))
10		elelsuc 5835	. . . 4 ⊢ (𝑧 ∈ 𝐴 → 𝑧 ∈ suc 𝐴)
11	9, 10	syl6 35	. . 3 ⊢ (Tr 𝐴 → ((𝑧 ∈ 𝑦 ∧ 𝑦 ∈ suc 𝐴) → 𝑧 ∈ suc 𝐴))
12	11	alrimivv 1896	. 2 ⊢ (Tr 𝐴 → ∀𝑧∀𝑦((𝑧 ∈ 𝑦 ∧ 𝑦 ∈ suc 𝐴) → 𝑧 ∈ suc 𝐴))
13		dftr2 4787	. 2 ⊢ (Tr suc 𝐴 ↔ ∀𝑧∀𝑦((𝑧 ∈ 𝑦 ∧ 𝑦 ∈ suc 𝐴) → 𝑧 ∈ suc 𝐴))
14	12, 13	sylibr 224	1 ⊢ (Tr 𝐴 → Tr suc 𝐴)

Syntax hints:   → wi 4   ∨ wo 382   ∧ wa 383  ∀wal 1521   = wceq 1523   ∈ wcel 2030  Tr wtr 4785  suc csuc 5763

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631

This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-tru 1526  df-ex 1745  df-nf 1750  df-sb 1938  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-v 3233  df-un 3612  df-in 3614  df-ss 3621  df-sn 4211  df-uni 4469  df-tr 4786  df-suc 5767

This theorem is referenced by:  dfon2lem3  31814  dfon2lem7  31818  dford3lem2  37911