Theorem nnsucsssuc 6547

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

Assertion

Ref	Expression
nnsucsssuc	⊢ ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (𝐴 ⊆ 𝐵 ↔ suc 𝐴 ⊆ suc 𝐵))

Proof of Theorem nnsucsssuc

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

Step	Hyp	Ref	Expression
1		sseq1 3203	. . . . . 6 ⊢ (𝑥 = 𝐴 → (𝑥 ⊆ 𝐵 ↔ 𝐴 ⊆ 𝐵))
2		suceq 4434	. . . . . . 7 ⊢ (𝑥 = 𝐴 → suc 𝑥 = suc 𝐴)
3	2	sseq1d 3209	. . . . . 6 ⊢ (𝑥 = 𝐴 → (suc 𝑥 ⊆ suc 𝐵 ↔ suc 𝐴 ⊆ suc 𝐵))
4	1, 3	imbi12d 234	. . . . 5 ⊢ (𝑥 = 𝐴 → ((𝑥 ⊆ 𝐵 → suc 𝑥 ⊆ suc 𝐵) ↔ (𝐴 ⊆ 𝐵 → suc 𝐴 ⊆ suc 𝐵)))
5	4	imbi2d 230	. . . 4 ⊢ (𝑥 = 𝐴 → ((𝐵 ∈ ω → (𝑥 ⊆ 𝐵 → suc 𝑥 ⊆ suc 𝐵)) ↔ (𝐵 ∈ ω → (𝐴 ⊆ 𝐵 → suc 𝐴 ⊆ suc 𝐵))))
6		sseq1 3203	. . . . . 6 ⊢ (𝑥 = ∅ → (𝑥 ⊆ 𝐵 ↔ ∅ ⊆ 𝐵))
7		suceq 4434	. . . . . . 7 ⊢ (𝑥 = ∅ → suc 𝑥 = suc ∅)
8	7	sseq1d 3209	. . . . . 6 ⊢ (𝑥 = ∅ → (suc 𝑥 ⊆ suc 𝐵 ↔ suc ∅ ⊆ suc 𝐵))
9	6, 8	imbi12d 234	. . . . 5 ⊢ (𝑥 = ∅ → ((𝑥 ⊆ 𝐵 → suc 𝑥 ⊆ suc 𝐵) ↔ (∅ ⊆ 𝐵 → suc ∅ ⊆ suc 𝐵)))
10		sseq1 3203	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑥 ⊆ 𝐵 ↔ 𝑦 ⊆ 𝐵))
11		suceq 4434	. . . . . . 7 ⊢ (𝑥 = 𝑦 → suc 𝑥 = suc 𝑦)
12	11	sseq1d 3209	. . . . . 6 ⊢ (𝑥 = 𝑦 → (suc 𝑥 ⊆ suc 𝐵 ↔ suc 𝑦 ⊆ suc 𝐵))
13	10, 12	imbi12d 234	. . . . 5 ⊢ (𝑥 = 𝑦 → ((𝑥 ⊆ 𝐵 → suc 𝑥 ⊆ suc 𝐵) ↔ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵)))
14		sseq1 3203	. . . . . 6 ⊢ (𝑥 = suc 𝑦 → (𝑥 ⊆ 𝐵 ↔ suc 𝑦 ⊆ 𝐵))
15		suceq 4434	. . . . . . 7 ⊢ (𝑥 = suc 𝑦 → suc 𝑥 = suc suc 𝑦)
16	15	sseq1d 3209	. . . . . 6 ⊢ (𝑥 = suc 𝑦 → (suc 𝑥 ⊆ suc 𝐵 ↔ suc suc 𝑦 ⊆ suc 𝐵))
17	14, 16	imbi12d 234	. . . . 5 ⊢ (𝑥 = suc 𝑦 → ((𝑥 ⊆ 𝐵 → suc 𝑥 ⊆ suc 𝐵) ↔ (suc 𝑦 ⊆ 𝐵 → suc suc 𝑦 ⊆ suc 𝐵)))
18		peano3 4629	. . . . . . . . 9 ⊢ (𝐵 ∈ ω → suc 𝐵 ≠ ∅)
19	18	neneqd 2385	. . . . . . . 8 ⊢ (𝐵 ∈ ω → ¬ suc 𝐵 = ∅)
20		peano2 4628	. . . . . . . . . 10 ⊢ (𝐵 ∈ ω → suc 𝐵 ∈ ω)
21		0elnn 4652	. . . . . . . . . 10 ⊢ (suc 𝐵 ∈ ω → (suc 𝐵 = ∅ ∨ ∅ ∈ suc 𝐵))
22	20, 21	syl 14	. . . . . . . . 9 ⊢ (𝐵 ∈ ω → (suc 𝐵 = ∅ ∨ ∅ ∈ suc 𝐵))
23	22	ord 725	. . . . . . . 8 ⊢ (𝐵 ∈ ω → (¬ suc 𝐵 = ∅ → ∅ ∈ suc 𝐵))
24	19, 23	mpd 13	. . . . . . 7 ⊢ (𝐵 ∈ ω → ∅ ∈ suc 𝐵)
25		nnord 4645	. . . . . . . 8 ⊢ (𝐵 ∈ ω → Ord 𝐵)
26		ordsucim 4533	. . . . . . . 8 ⊢ (Ord 𝐵 → Ord suc 𝐵)
27		0ex 4157	. . . . . . . . 9 ⊢ ∅ ∈ V
28		ordelsuc 4538	. . . . . . . . 9 ⊢ ((∅ ∈ V ∧ Ord suc 𝐵) → (∅ ∈ suc 𝐵 ↔ suc ∅ ⊆ suc 𝐵))
29	27, 28	mpan 424	. . . . . . . 8 ⊢ (Ord suc 𝐵 → (∅ ∈ suc 𝐵 ↔ suc ∅ ⊆ suc 𝐵))
30	25, 26, 29	3syl 17	. . . . . . 7 ⊢ (𝐵 ∈ ω → (∅ ∈ suc 𝐵 ↔ suc ∅ ⊆ suc 𝐵))
31	24, 30	mpbid 147	. . . . . 6 ⊢ (𝐵 ∈ ω → suc ∅ ⊆ suc 𝐵)
32	31	a1d 22	. . . . 5 ⊢ (𝐵 ∈ ω → (∅ ⊆ 𝐵 → suc ∅ ⊆ suc 𝐵))
33		simp3 1001	. . . . . . . . . 10 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → suc 𝑦 ⊆ 𝐵)
34		simp1l 1023	. . . . . . . . . . 11 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → 𝑦 ∈ ω)
35		simp1r 1024	. . . . . . . . . . . 12 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → 𝐵 ∈ ω)
36	35, 25	syl 14	. . . . . . . . . . 11 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → Ord 𝐵)
37		ordelsuc 4538	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ ω ∧ Ord 𝐵) → (𝑦 ∈ 𝐵 ↔ suc 𝑦 ⊆ 𝐵))
38	34, 36, 37	syl2anc 411	. . . . . . . . . 10 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → (𝑦 ∈ 𝐵 ↔ suc 𝑦 ⊆ 𝐵))
39	33, 38	mpbird 167	. . . . . . . . 9 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → 𝑦 ∈ 𝐵)
40		nnsucelsuc 6546	. . . . . . . . . 10 ⊢ (𝐵 ∈ ω → (𝑦 ∈ 𝐵 ↔ suc 𝑦 ∈ suc 𝐵))
41	35, 40	syl 14	. . . . . . . . 9 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → (𝑦 ∈ 𝐵 ↔ suc 𝑦 ∈ suc 𝐵))
42	39, 41	mpbid 147	. . . . . . . 8 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → suc 𝑦 ∈ suc 𝐵)
43		peano2 4628	. . . . . . . . . 10 ⊢ (𝑦 ∈ ω → suc 𝑦 ∈ ω)
44	34, 43	syl 14	. . . . . . . . 9 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → suc 𝑦 ∈ ω)
45	36, 26	syl 14	. . . . . . . . 9 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → Ord suc 𝐵)
46		ordelsuc 4538	. . . . . . . . 9 ⊢ ((suc 𝑦 ∈ ω ∧ Ord suc 𝐵) → (suc 𝑦 ∈ suc 𝐵 ↔ suc suc 𝑦 ⊆ suc 𝐵))
47	44, 45, 46	syl2anc 411	. . . . . . . 8 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → (suc 𝑦 ∈ suc 𝐵 ↔ suc suc 𝑦 ⊆ suc 𝐵))
48	42, 47	mpbid 147	. . . . . . 7 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) ∧ suc 𝑦 ⊆ 𝐵) → suc suc 𝑦 ⊆ suc 𝐵)
49	48	3expia 1207	. . . . . 6 ⊢ (((𝑦 ∈ ω ∧ 𝐵 ∈ ω) ∧ (𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵)) → (suc 𝑦 ⊆ 𝐵 → suc suc 𝑦 ⊆ suc 𝐵))
50	49	exp31 364	. . . . 5 ⊢ (𝑦 ∈ ω → (𝐵 ∈ ω → ((𝑦 ⊆ 𝐵 → suc 𝑦 ⊆ suc 𝐵) → (suc 𝑦 ⊆ 𝐵 → suc suc 𝑦 ⊆ suc 𝐵))))
51	9, 13, 17, 32, 50	finds2 4634	. . . 4 ⊢ (𝑥 ∈ ω → (𝐵 ∈ ω → (𝑥 ⊆ 𝐵 → suc 𝑥 ⊆ suc 𝐵)))
52	5, 51	vtoclga 2827	. . 3 ⊢ (𝐴 ∈ ω → (𝐵 ∈ ω → (𝐴 ⊆ 𝐵 → suc 𝐴 ⊆ suc 𝐵)))
53	52	imp 124	. 2 ⊢ ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (𝐴 ⊆ 𝐵 → suc 𝐴 ⊆ suc 𝐵))
54		nnon 4643	. . 3 ⊢ (𝐴 ∈ ω → 𝐴 ∈ On)
55		onsucsssucr 4542	. . 3 ⊢ ((𝐴 ∈ On ∧ Ord 𝐵) → (suc 𝐴 ⊆ suc 𝐵 → 𝐴 ⊆ 𝐵))
56	54, 25, 55	syl2an 289	. 2 ⊢ ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (suc 𝐴 ⊆ suc 𝐵 → 𝐴 ⊆ 𝐵))
57	53, 56	impbid 129	1 ⊢ ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (𝐴 ⊆ 𝐵 ↔ suc 𝐴 ⊆ suc 𝐵))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 709   ∧ w3a 980   = wceq 1364   ∈ wcel 2164  Vcvv 2760   ⊆ wss 3154  ∅c0 3447  Ord word 4394  Oncon0 4395  suc csuc 4397  ωcom 4623

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 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2166  ax-14 2167  ax-ext 2175  ax-sep 4148  ax-nul 4156  ax-pow 4204  ax-pr 4239  ax-un 4465  ax-iinf 4621

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-nf 1472  df-sb 1774  df-clab 2180  df-cleq 2186  df-clel 2189  df-nfc 2325  df-ne 2365  df-ral 2477  df-rex 2478  df-v 2762  df-dif 3156  df-un 3158  df-in 3160  df-ss 3167  df-nul 3448  df-pw 3604  df-sn 3625  df-pr 3626  df-uni 3837  df-int 3872  df-tr 4129  df-iord 4398  df-on 4400  df-suc 4403  df-iom 4624

This theorem is referenced by:  nnaword  6566  ennnfonelemk  12560  ennnfonelemkh  12572