Theorem suctr 6449

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 6430	. . . . . 6 ⊢ (𝑦 ∈ suc 𝐴 → (𝑦 ∈ 𝐴 ∨ 𝑦 = 𝐴))
2		trel 5268	. . . . . . . 8 ⊢ (Tr 𝐴 → ((𝑧 ∈ 𝑦 ∧ 𝑦 ∈ 𝐴) → 𝑧 ∈ 𝐴))
3	2	expdimp 452	. . . . . . 7 ⊢ ((Tr 𝐴 ∧ 𝑧 ∈ 𝑦) → (𝑦 ∈ 𝐴 → 𝑧 ∈ 𝐴))
4		eleq2 2817	. . . . . . . . 9 ⊢ (𝑦 = 𝐴 → (𝑧 ∈ 𝑦 ↔ 𝑧 ∈ 𝐴))
5	4	biimpcd 248	. . . . . . . 8 ⊢ (𝑧 ∈ 𝑦 → (𝑦 = 𝐴 → 𝑧 ∈ 𝐴))
6	5	adantl 481	. . . . . . 7 ⊢ ((Tr 𝐴 ∧ 𝑧 ∈ 𝑦) → (𝑦 = 𝐴 → 𝑧 ∈ 𝐴))
7	3, 6	jaod 858	. . . . . 6 ⊢ ((Tr 𝐴 ∧ 𝑧 ∈ 𝑦) → ((𝑦 ∈ 𝐴 ∨ 𝑦 = 𝐴) → 𝑧 ∈ 𝐴))
8	1, 7	syl5 34	. . . . 5 ⊢ ((Tr 𝐴 ∧ 𝑧 ∈ 𝑦) → (𝑦 ∈ suc 𝐴 → 𝑧 ∈ 𝐴))
9	8	expimpd 453	. . . 4 ⊢ (Tr 𝐴 → ((𝑧 ∈ 𝑦 ∧ 𝑦 ∈ suc 𝐴) → 𝑧 ∈ 𝐴))
10		elelsuc 6436	. . . 4 ⊢ (𝑧 ∈ 𝐴 → 𝑧 ∈ suc 𝐴)
11	9, 10	syl6 35	. . 3 ⊢ (Tr 𝐴 → ((𝑧 ∈ 𝑦 ∧ 𝑦 ∈ suc 𝐴) → 𝑧 ∈ suc 𝐴))
12	11	alrimivv 1924	. 2 ⊢ (Tr 𝐴 → ∀𝑧∀𝑦((𝑧 ∈ 𝑦 ∧ 𝑦 ∈ suc 𝐴) → 𝑧 ∈ suc 𝐴))
13		dftr2 5261	. 2 ⊢ (Tr suc 𝐴 ↔ ∀𝑧∀𝑦((𝑧 ∈ 𝑦 ∧ 𝑦 ∈ suc 𝐴) → 𝑧 ∈ suc 𝐴))
14	12, 13	sylibr 233	1 ⊢ (Tr 𝐴 → Tr suc 𝐴)

Syntax hints:   → wi 4   ∧ wa 395   ∨ wo 846  ∀wal 1532   = wceq 1534   ∈ wcel 2099  Tr wtr 5259  suc csuc 6365

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-ext 2698

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-tru 1537  df-ex 1775  df-sb 2061  df-clab 2705  df-cleq 2719  df-clel 2805  df-v 3471  df-un 3949  df-in 3951  df-ss 3961  df-sn 4625  df-uni 4904  df-tr 5260  df-suc 6369

This theorem is referenced by:  ordsuci  7805  dfon2lem3  35371  dfon2lem7  35375  dford3lem2  42420