Theorem elsucg 4222

Description: Membership in a successor. Exercise 5 of [TakeutiZaring] p. 17. (Contributed by NM, 15-Sep-1995.)

Assertion

Ref	Expression
elsucg	⊢ (𝐴 ∈ 𝑉 → (𝐴 ∈ suc 𝐵 ↔ (𝐴 ∈ 𝐵 ∨ 𝐴 = 𝐵)))

Proof of Theorem elsucg

Step	Hyp	Ref	Expression
1		df-suc 4189	. . . 4 ⊢ suc 𝐵 = (𝐵 ∪ {𝐵})
2	1	eleq2i 2154	. . 3 ⊢ (𝐴 ∈ suc 𝐵 ↔ 𝐴 ∈ (𝐵 ∪ {𝐵}))
3		elun 3139	. . 3 ⊢ (𝐴 ∈ (𝐵 ∪ {𝐵}) ↔ (𝐴 ∈ 𝐵 ∨ 𝐴 ∈ {𝐵}))
4	2, 3	bitri 182	. 2 ⊢ (𝐴 ∈ suc 𝐵 ↔ (𝐴 ∈ 𝐵 ∨ 𝐴 ∈ {𝐵}))
5		elsng 3456	. . 3 ⊢ (𝐴 ∈ 𝑉 → (𝐴 ∈ {𝐵} ↔ 𝐴 = 𝐵))
6	5	orbi2d 739	. 2 ⊢ (𝐴 ∈ 𝑉 → ((𝐴 ∈ 𝐵 ∨ 𝐴 ∈ {𝐵}) ↔ (𝐴 ∈ 𝐵 ∨ 𝐴 = 𝐵)))
7	4, 6	syl5bb 190	1 ⊢ (𝐴 ∈ 𝑉 → (𝐴 ∈ suc 𝐵 ↔ (𝐴 ∈ 𝐵 ∨ 𝐴 = 𝐵)))

Syntax hints:   → wi 4   ↔ wb 103   ∨ wo 664   = wceq 1289   ∈ wcel 1438   ∪ cun 2995  {csn 3441  suc csuc 4183

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-io 665  ax-5 1381  ax-7 1382  ax-gen 1383  ax-ie1 1427  ax-ie2 1428  ax-8 1440  ax-10 1441  ax-11 1442  ax-i12 1443  ax-bndl 1444  ax-4 1445  ax-17 1464  ax-i9 1468  ax-ial 1472  ax-i5r 1473  ax-ext 2070

This theorem depends on definitions:  df-bi 115  df-tru 1292  df-nf 1395  df-sb 1693  df-clab 2075  df-cleq 2081  df-clel 2084  df-nfc 2217  df-v 2621  df-un 3001  df-sn 3447  df-suc 4189

This theorem is referenced by:  elsuc  4224  elelsuc  4227  sucidg  4234  onsucelsucr  4315  onsucsssucexmid  4333  suc11g  4363  nlt1pig  6879  bj-peano4  11507