Theorem nnsucelsuc 6726

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

Assertion

Ref	Expression
nnsucelsuc	|- ( B e. om -> ( A e. B <-> suc A e. suc B ) )

Proof of Theorem nnsucelsuc

Dummy variables x y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eleq2 2298	. . . 4 |- ( x = (/) -> ( A e. x <-> A e. (/) ) )
2		suceq 4525	. . . . 5 |- ( x = (/) -> suc x = suc (/) )
3	2	eleq2d 2304	. . . 4 |- ( x = (/) -> ( suc A e. suc x <-> suc A e. suc (/) ) )
4	1, 3	imbi12d 234	. . 3 |- ( x = (/) -> ( ( A e. x -> suc A e. suc x ) <-> ( A e. (/) -> suc A e. suc (/) ) ) )
5		eleq2 2298	. . . 4 |- ( x = y -> ( A e. x <-> A e. y ) )
6		suceq 4525	. . . . 5 |- ( x = y -> suc x = suc y )
7	6	eleq2d 2304	. . . 4 |- ( x = y -> ( suc A e. suc x <-> suc A e. suc y ) )
8	5, 7	imbi12d 234	. . 3 |- ( x = y -> ( ( A e. x -> suc A e. suc x ) <-> ( A e. y -> suc A e. suc y ) ) )
9		eleq2 2298	. . . 4 |- ( x = suc y -> ( A e. x <-> A e. suc y ) )
10		suceq 4525	. . . . 5 |- ( x = suc y -> suc x = suc suc y )
11	10	eleq2d 2304	. . . 4 |- ( x = suc y -> ( suc A e. suc x <-> suc A e. suc suc y ) )
12	9, 11	imbi12d 234	. . 3 |- ( x = suc y -> ( ( A e. x -> suc A e. suc x ) <-> ( A e. suc y -> suc A e. suc suc y ) ) )
13		eleq2 2298	. . . 4 |- ( x = B -> ( A e. x <-> A e. B ) )
14		suceq 4525	. . . . 5 |- ( x = B -> suc x = suc B )
15	14	eleq2d 2304	. . . 4 |- ( x = B -> ( suc A e. suc x <-> suc A e. suc B ) )
16	13, 15	imbi12d 234	. . 3 |- ( x = B -> ( ( A e. x -> suc A e. suc x ) <-> ( A e. B -> suc A e. suc B ) ) )
17		noel 3514	. . . 4 |- -. A e. (/)
18	17	pm2.21i 651	. . 3 |- ( A e. (/) -> suc A e. suc (/) )
19		elsuci 4526	. . . . . . . 8 |- ( A e. suc y -> ( A e. y \/ A = y ) )
20	19	adantl 277	. . . . . . 7 |- ( ( ( A e. y -> suc A e. suc y ) /\ A e. suc y ) -> ( A e. y \/ A = y ) )
21		simpl 109	. . . . . . . 8 |- ( ( ( A e. y -> suc A e. suc y ) /\ A e. suc y ) -> ( A e. y -> suc A e. suc y ) )
22		suceq 4525	. . . . . . . . 9 |- ( A = y -> suc A = suc y )
23	22	a1i 9	. . . . . . . 8 |- ( ( ( A e. y -> suc A e. suc y ) /\ A e. suc y ) -> ( A = y -> suc A = suc y ) )
24	21, 23	orim12d 794	. . . . . . 7 |- ( ( ( A e. y -> suc A e. suc y ) /\ A e. suc y ) -> ( ( A e. y \/ A = y ) -> ( suc A e. suc y \/ suc A = suc y ) ) )
25	20, 24	mpd 13	. . . . . 6 |- ( ( ( A e. y -> suc A e. suc y ) /\ A e. suc y ) -> ( suc A e. suc y \/ suc A = suc y ) )
26		vex 2818	. . . . . . . 8 |- y e. _V
27	26	sucex 4623	. . . . . . 7 |- suc y e. _V
28	27	elsuc2 4530	. . . . . 6 |- ( suc A e. suc suc y <-> ( suc A e. suc y \/ suc A = suc y ) )
29	25, 28	sylibr 134	. . . . 5 |- ( ( ( A e. y -> suc A e. suc y ) /\ A e. suc y ) -> suc A e. suc suc y )
30	29	ex 115	. . . 4 |- ( ( A e. y -> suc A e. suc y ) -> ( A e. suc y -> suc A e. suc suc y ) )
31	30	a1i 9	. . 3 |- ( y e. om -> ( ( A e. y -> suc A e. suc y ) -> ( A e. suc y -> suc A e. suc suc y ) ) )
32	4, 8, 12, 16, 18, 31	finds 4724	. 2 |- ( B e. om -> ( A e. B -> suc A e. suc B ) )
33		nnon 4734	. . 3 |- ( B e. om -> B e. On )
34		onsucelsucr 4632	. . 3 |- ( B e. On -> ( suc A e. suc B -> A e. B ) )
35	33, 34	syl 14	. 2 |- ( B e. om -> ( suc A e. suc B -> A e. B ) )
36	32, 35	impbid 129	1 |- ( B e. om -> ( A e. B <-> suc A e. suc B ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 716   = wceq 1398   e. wcel 2205   (/)c0 3510   Oncon0 4486   suc csuc 4488   omcom 4714

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 2207  ax-14 2208  ax-ext 2216  ax-sep 4230  ax-nul 4238  ax-pow 4289  ax-pr 4324  ax-un 4556  ax-iinf 4712

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-ral 2527  df-rex 2528  df-v 2817  df-dif 3215  df-un 3217  df-in 3219  df-ss 3226  df-nul 3511  df-pw 3673  df-sn 3697  df-pr 3698  df-uni 3917  df-int 3952  df-tr 4211  df-iord 4489  df-on 4491  df-suc 4494  df-iom 4715

This theorem is referenced by:  nnsucsssuc  6727  nntri3or  6728  nnsucuniel  6730  nnaordi  6743  ennnfonelemhom  13183