Theorem nntri3or 6397

Description: Trichotomy for natural numbers. (Contributed by Jim Kingdon, 25-Aug-2019.)

Assertion

Ref	Expression
nntri3or	|- ( ( A e. om /\ B e. om ) -> ( A e. B \/ A = B \/ B e. A ) )

Proof of Theorem nntri3or

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

Step	Hyp	Ref	Expression
1		eleq2 2204	. . . . 5 |- ( x = B -> ( A e. x <-> A e. B ) )
2		eqeq2 2150	. . . . 5 |- ( x = B -> ( A = x <-> A = B ) )
3		eleq1 2203	. . . . 5 |- ( x = B -> ( x e. A <-> B e. A ) )
4	1, 2, 3	3orbi123d 1290	. . . 4 |- ( x = B -> ( ( A e. x \/ A = x \/ x e. A ) <-> ( A e. B \/ A = B \/ B e. A ) ) )
5	4	imbi2d 229	. . 3 |- ( x = B -> ( ( A e. om -> ( A e. x \/ A = x \/ x e. A ) ) <-> ( A e. om -> ( A e. B \/ A = B \/ B e. A ) ) ) )
6		eleq2 2204	. . . . 5 |- ( x = (/) -> ( A e. x <-> A e. (/) ) )
7		eqeq2 2150	. . . . 5 |- ( x = (/) -> ( A = x <-> A = (/) ) )
8		eleq1 2203	. . . . 5 |- ( x = (/) -> ( x e. A <-> (/) e. A ) )
9	6, 7, 8	3orbi123d 1290	. . . 4 |- ( x = (/) -> ( ( A e. x \/ A = x \/ x e. A ) <-> ( A e. (/) \/ A = (/) \/ (/) e. A ) ) )
10		eleq2 2204	. . . . 5 |- ( x = y -> ( A e. x <-> A e. y ) )
11		eqeq2 2150	. . . . 5 |- ( x = y -> ( A = x <-> A = y ) )
12		eleq1 2203	. . . . 5 |- ( x = y -> ( x e. A <-> y e. A ) )
13	10, 11, 12	3orbi123d 1290	. . . 4 |- ( x = y -> ( ( A e. x \/ A = x \/ x e. A ) <-> ( A e. y \/ A = y \/ y e. A ) ) )
14		eleq2 2204	. . . . 5 |- ( x = suc y -> ( A e. x <-> A e. suc y ) )
15		eqeq2 2150	. . . . 5 |- ( x = suc y -> ( A = x <-> A = suc y ) )
16		eleq1 2203	. . . . 5 |- ( x = suc y -> ( x e. A <-> suc y e. A ) )
17	14, 15, 16	3orbi123d 1290	. . . 4 |- ( x = suc y -> ( ( A e. x \/ A = x \/ x e. A ) <-> ( A e. suc y \/ A = suc y \/ suc y e. A ) ) )
18		0elnn 4540	. . . . 5 |- ( A e. om -> ( A = (/) \/ (/) e. A ) )
19		olc 701	. . . . . 6 |- ( ( A = (/) \/ (/) e. A ) -> ( A e. (/) \/ ( A = (/) \/ (/) e. A ) ) )
20		3orass 966	. . . . . 6 |- ( ( A e. (/) \/ A = (/) \/ (/) e. A ) <-> ( A e. (/) \/ ( A = (/) \/ (/) e. A ) ) )
21	19, 20	sylibr 133	. . . . 5 |- ( ( A = (/) \/ (/) e. A ) -> ( A e. (/) \/ A = (/) \/ (/) e. A ) )
22	18, 21	syl 14	. . . 4 |- ( A e. om -> ( A e. (/) \/ A = (/) \/ (/) e. A ) )
23		df-3or 964	. . . . . 6 |- ( ( A e. y \/ A = y \/ y e. A ) <-> ( ( A e. y \/ A = y ) \/ y e. A ) )
24		elex 2700	. . . . . . . 8 |- ( y e. om -> y e. _V )
25		elsuc2g 4335	. . . . . . . . 9 |- ( y e. _V -> ( A e. suc y <-> ( A e. y \/ A = y ) ) )
26		3mix1 1151	. . . . . . . . 9 |- ( A e. suc y -> ( A e. suc y \/ A = suc y \/ suc y e. A ) )
27	25, 26	syl6bir 163	. . . . . . . 8 |- ( y e. _V -> ( ( A e. y \/ A = y ) -> ( A e. suc y \/ A = suc y \/ suc y e. A ) ) )
28	24, 27	syl 14	. . . . . . 7 |- ( y e. om -> ( ( A e. y \/ A = y ) -> ( A e. suc y \/ A = suc y \/ suc y e. A ) ) )
29		nnsucelsuc 6395	. . . . . . . . 9 |- ( A e. om -> ( y e. A <-> suc y e. suc A ) )
30		elsuci 4333	. . . . . . . . 9 |- ( suc y e. suc A -> ( suc y e. A \/ suc y = A ) )
31	29, 30	syl6bi 162	. . . . . . . 8 |- ( A e. om -> ( y e. A -> ( suc y e. A \/ suc y = A ) ) )
32		eqcom 2142	. . . . . . . . . . . . 13 |- ( suc y = A <-> A = suc y )
33	32	orbi2i 752	. . . . . . . . . . . 12 |- ( ( suc y e. A \/ suc y = A ) <-> ( suc y e. A \/ A = suc y ) )
34	33	biimpi 119	. . . . . . . . . . 11 |- ( ( suc y e. A \/ suc y = A ) -> ( suc y e. A \/ A = suc y ) )
35	34	orcomd 719	. . . . . . . . . 10 |- ( ( suc y e. A \/ suc y = A ) -> ( A = suc y \/ suc y e. A ) )
36	35	olcd 724	. . . . . . . . 9 |- ( ( suc y e. A \/ suc y = A ) -> ( A e. suc y \/ ( A = suc y \/ suc y e. A ) ) )
37		3orass 966	. . . . . . . . 9 |- ( ( A e. suc y \/ A = suc y \/ suc y e. A ) <-> ( A e. suc y \/ ( A = suc y \/ suc y e. A ) ) )
38	36, 37	sylibr 133	. . . . . . . 8 |- ( ( suc y e. A \/ suc y = A ) -> ( A e. suc y \/ A = suc y \/ suc y e. A ) )
39	31, 38	syl6 33	. . . . . . 7 |- ( A e. om -> ( y e. A -> ( A e. suc y \/ A = suc y \/ suc y e. A ) ) )
40	28, 39	jaao 709	. . . . . 6 |- ( ( y e. om /\ A e. om ) -> ( ( ( A e. y \/ A = y ) \/ y e. A ) -> ( A e. suc y \/ A = suc y \/ suc y e. A ) ) )
41	23, 40	syl5bi 151	. . . . 5 |- ( ( y e. om /\ A e. om ) -> ( ( A e. y \/ A = y \/ y e. A ) -> ( A e. suc y \/ A = suc y \/ suc y e. A ) ) )
42	41	ex 114	. . . 4 |- ( y e. om -> ( A e. om -> ( ( A e. y \/ A = y \/ y e. A ) -> ( A e. suc y \/ A = suc y \/ suc y e. A ) ) ) )
43	9, 13, 17, 22, 42	finds2 4523	. . 3 |- ( x e. om -> ( A e. om -> ( A e. x \/ A = x \/ x e. A ) ) )
44	5, 43	vtoclga 2755	. 2 |- ( B e. om -> ( A e. om -> ( A e. B \/ A = B \/ B e. A ) ) )
45	44	impcom 124	1 |- ( ( A e. om /\ B e. om ) -> ( A e. B \/ A = B \/ B e. A ) )

Syntax hints:   -> wi 4   /\ wa 103   \/ wo 698   \/ w3o 962   = wceq 1332   e. wcel 1481   _Vcvv 2689   (/)c0 3368   suc csuc 4295   omcom 4512

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1424  ax-7 1425  ax-gen 1426  ax-ie1 1470  ax-ie2 1471  ax-8 1483  ax-10 1484  ax-11 1485  ax-i12 1486  ax-bndl 1487  ax-4 1488  ax-13 1492  ax-14 1493  ax-17 1507  ax-i9 1511  ax-ial 1515  ax-i5r 1516  ax-ext 2122  ax-sep 4054  ax-nul 4062  ax-pow 4106  ax-pr 4139  ax-un 4363  ax-iinf 4510

This theorem depends on definitions:  df-bi 116  df-3or 964  df-3an 965  df-tru 1335  df-nf 1438  df-sb 1737  df-clab 2127  df-cleq 2133  df-clel 2136  df-nfc 2271  df-ral 2422  df-rex 2423  df-v 2691  df-dif 3078  df-un 3080  df-in 3082  df-ss 3089  df-nul 3369  df-pw 3517  df-sn 3538  df-pr 3539  df-uni 3745  df-int 3780  df-tr 4035  df-iord 4296  df-on 4298  df-suc 4301  df-iom 4513

This theorem is referenced by:  nntri2  6398  nntri1  6400  nntri3  6401  nntri2or2  6402  nndceq  6403  nndcel  6404  nnsseleq  6405  nntr2  6407  nnawordex  6432  nnwetri  6812  ltsopi  7152  pitri3or  7154  frec2uzlt2d  10208  ennnfonelemk  11949  ennnfonelemex  11963  nninfalllemn  13377