Theorem nnsucelsuc 6724

Description: Membership is inherited by successors. The reverse direction holds for all ordinals, as seen at onsucelsucr 4630, but the forward direction, for all ordinals, implies excluded middle as seen as onsucelsucexmid 4652. (Contributed by Jim Kingdon, 25-Aug-2019.)

Assertion

Ref	Expression
nnsucelsuc	⊢ (𝐵 ∈ ω → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))

Proof of Theorem nnsucelsuc

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

Step	Hyp	Ref	Expression
1		eleq2 2296	. . . 4 ⊢ (𝑥 = ∅ → (𝐴 ∈ 𝑥 ↔ 𝐴 ∈ ∅))
2		suceq 4523	. . . . 5 ⊢ (𝑥 = ∅ → suc 𝑥 = suc ∅)
3	2	eleq2d 2302	. . . 4 ⊢ (𝑥 = ∅ → (suc 𝐴 ∈ suc 𝑥 ↔ suc 𝐴 ∈ suc ∅))
4	1, 3	imbi12d 234	. . 3 ⊢ (𝑥 = ∅ → ((𝐴 ∈ 𝑥 → suc 𝐴 ∈ suc 𝑥) ↔ (𝐴 ∈ ∅ → suc 𝐴 ∈ suc ∅)))
5		eleq2 2296	. . . 4 ⊢ (𝑥 = 𝑦 → (𝐴 ∈ 𝑥 ↔ 𝐴 ∈ 𝑦))
6		suceq 4523	. . . . 5 ⊢ (𝑥 = 𝑦 → suc 𝑥 = suc 𝑦)
7	6	eleq2d 2302	. . . 4 ⊢ (𝑥 = 𝑦 → (suc 𝐴 ∈ suc 𝑥 ↔ suc 𝐴 ∈ suc 𝑦))
8	5, 7	imbi12d 234	. . 3 ⊢ (𝑥 = 𝑦 → ((𝐴 ∈ 𝑥 → suc 𝐴 ∈ suc 𝑥) ↔ (𝐴 ∈ 𝑦 → suc 𝐴 ∈ suc 𝑦)))
9		eleq2 2296	. . . 4 ⊢ (𝑥 = suc 𝑦 → (𝐴 ∈ 𝑥 ↔ 𝐴 ∈ suc 𝑦))
10		suceq 4523	. . . . 5 ⊢ (𝑥 = suc 𝑦 → suc 𝑥 = suc suc 𝑦)
11	10	eleq2d 2302	. . . 4 ⊢ (𝑥 = suc 𝑦 → (suc 𝐴 ∈ suc 𝑥 ↔ suc 𝐴 ∈ suc suc 𝑦))
12	9, 11	imbi12d 234	. . 3 ⊢ (𝑥 = suc 𝑦 → ((𝐴 ∈ 𝑥 → suc 𝐴 ∈ suc 𝑥) ↔ (𝐴 ∈ suc 𝑦 → suc 𝐴 ∈ suc suc 𝑦)))
13		eleq2 2296	. . . 4 ⊢ (𝑥 = 𝐵 → (𝐴 ∈ 𝑥 ↔ 𝐴 ∈ 𝐵))
14		suceq 4523	. . . . 5 ⊢ (𝑥 = 𝐵 → suc 𝑥 = suc 𝐵)
15	14	eleq2d 2302	. . . 4 ⊢ (𝑥 = 𝐵 → (suc 𝐴 ∈ suc 𝑥 ↔ suc 𝐴 ∈ suc 𝐵))
16	13, 15	imbi12d 234	. . 3 ⊢ (𝑥 = 𝐵 → ((𝐴 ∈ 𝑥 → suc 𝐴 ∈ suc 𝑥) ↔ (𝐴 ∈ 𝐵 → suc 𝐴 ∈ suc 𝐵)))
17		noel 3512	. . . 4 ⊢ ¬ 𝐴 ∈ ∅
18	17	pm2.21i 651	. . 3 ⊢ (𝐴 ∈ ∅ → suc 𝐴 ∈ suc ∅)
19		elsuci 4524	. . . . . . . 8 ⊢ (𝐴 ∈ suc 𝑦 → (𝐴 ∈ 𝑦 ∨ 𝐴 = 𝑦))
20	19	adantl 277	. . . . . . 7 ⊢ (((𝐴 ∈ 𝑦 → suc 𝐴 ∈ suc 𝑦) ∧ 𝐴 ∈ suc 𝑦) → (𝐴 ∈ 𝑦 ∨ 𝐴 = 𝑦))
21		simpl 109	. . . . . . . 8 ⊢ (((𝐴 ∈ 𝑦 → suc 𝐴 ∈ suc 𝑦) ∧ 𝐴 ∈ suc 𝑦) → (𝐴 ∈ 𝑦 → suc 𝐴 ∈ suc 𝑦))
22		suceq 4523	. . . . . . . . 9 ⊢ (𝐴 = 𝑦 → suc 𝐴 = suc 𝑦)
23	22	a1i 9	. . . . . . . 8 ⊢ (((𝐴 ∈ 𝑦 → suc 𝐴 ∈ suc 𝑦) ∧ 𝐴 ∈ suc 𝑦) → (𝐴 = 𝑦 → suc 𝐴 = suc 𝑦))
24	21, 23	orim12d 794	. . . . . . 7 ⊢ (((𝐴 ∈ 𝑦 → suc 𝐴 ∈ suc 𝑦) ∧ 𝐴 ∈ suc 𝑦) → ((𝐴 ∈ 𝑦 ∨ 𝐴 = 𝑦) → (suc 𝐴 ∈ suc 𝑦 ∨ suc 𝐴 = suc 𝑦)))
25	20, 24	mpd 13	. . . . . 6 ⊢ (((𝐴 ∈ 𝑦 → suc 𝐴 ∈ suc 𝑦) ∧ 𝐴 ∈ suc 𝑦) → (suc 𝐴 ∈ suc 𝑦 ∨ suc 𝐴 = suc 𝑦))
26		vex 2816	. . . . . . . 8 ⊢ 𝑦 ∈ V
27	26	sucex 4621	. . . . . . 7 ⊢ suc 𝑦 ∈ V
28	27	elsuc2 4528	. . . . . 6 ⊢ (suc 𝐴 ∈ suc suc 𝑦 ↔ (suc 𝐴 ∈ suc 𝑦 ∨ suc 𝐴 = suc 𝑦))
29	25, 28	sylibr 134	. . . . 5 ⊢ (((𝐴 ∈ 𝑦 → suc 𝐴 ∈ suc 𝑦) ∧ 𝐴 ∈ suc 𝑦) → suc 𝐴 ∈ suc suc 𝑦)
30	29	ex 115	. . . 4 ⊢ ((𝐴 ∈ 𝑦 → suc 𝐴 ∈ suc 𝑦) → (𝐴 ∈ suc 𝑦 → suc 𝐴 ∈ suc suc 𝑦))
31	30	a1i 9	. . 3 ⊢ (𝑦 ∈ ω → ((𝐴 ∈ 𝑦 → suc 𝐴 ∈ suc 𝑦) → (𝐴 ∈ suc 𝑦 → suc 𝐴 ∈ suc suc 𝑦)))
32	4, 8, 12, 16, 18, 31	finds 4722	. 2 ⊢ (𝐵 ∈ ω → (𝐴 ∈ 𝐵 → suc 𝐴 ∈ suc 𝐵))
33		nnon 4732	. . 3 ⊢ (𝐵 ∈ ω → 𝐵 ∈ On)
34		onsucelsucr 4630	. . 3 ⊢ (𝐵 ∈ On → (suc 𝐴 ∈ suc 𝐵 → 𝐴 ∈ 𝐵))
35	33, 34	syl 14	. 2 ⊢ (𝐵 ∈ ω → (suc 𝐴 ∈ suc 𝐵 → 𝐴 ∈ 𝐵))
36	32, 35	impbid 129	1 ⊢ (𝐵 ∈ ω → (𝐴 ∈ 𝐵 ↔ suc 𝐴 ∈ suc 𝐵))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 716   = wceq 1398   ∈ wcel 2203  ∅c0 3508  Oncon0 4484  suc csuc 4486  ωcom 4712

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-sep 4228  ax-nul 4236  ax-pow 4287  ax-pr 4322  ax-un 4554  ax-iinf 4710

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ral 2525  df-rex 2526  df-v 2815  df-dif 3213  df-un 3215  df-in 3217  df-ss 3224  df-nul 3509  df-pw 3671  df-sn 3695  df-pr 3696  df-uni 3915  df-int 3950  df-tr 4209  df-iord 4487  df-on 4489  df-suc 4492  df-iom 4713

This theorem is referenced by:  nnsucsssuc  6725  nntri3or  6726  nnsucuniel  6728  nnaordi  6741  ennnfonelemhom  13166