Theorem nntri3or 6546

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 2257	. . . . 5 |- ( x = B -> ( A e. x <-> A e. B ) )
2		eqeq2 2203	. . . . 5 |- ( x = B -> ( A = x <-> A = B ) )
3		eleq1 2256	. . . . 5 |- ( x = B -> ( x e. A <-> B e. A ) )
4	1, 2, 3	3orbi123d 1322	. . . 4 |- ( x = B -> ( ( A e. x \/ A = x \/ x e. A ) <-> ( A e. B \/ A = B \/ B e. A ) ) )
5	4	imbi2d 230	. . 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 2257	. . . . 5 |- ( x = (/) -> ( A e. x <-> A e. (/) ) )
7		eqeq2 2203	. . . . 5 |- ( x = (/) -> ( A = x <-> A = (/) ) )
8		eleq1 2256	. . . . 5 |- ( x = (/) -> ( x e. A <-> (/) e. A ) )
9	6, 7, 8	3orbi123d 1322	. . . 4 |- ( x = (/) -> ( ( A e. x \/ A = x \/ x e. A ) <-> ( A e. (/) \/ A = (/) \/ (/) e. A ) ) )
10		eleq2 2257	. . . . 5 |- ( x = y -> ( A e. x <-> A e. y ) )
11		eqeq2 2203	. . . . 5 |- ( x = y -> ( A = x <-> A = y ) )
12		eleq1 2256	. . . . 5 |- ( x = y -> ( x e. A <-> y e. A ) )
13	10, 11, 12	3orbi123d 1322	. . . 4 |- ( x = y -> ( ( A e. x \/ A = x \/ x e. A ) <-> ( A e. y \/ A = y \/ y e. A ) ) )
14		eleq2 2257	. . . . 5 |- ( x = suc y -> ( A e. x <-> A e. suc y ) )
15		eqeq2 2203	. . . . 5 |- ( x = suc y -> ( A = x <-> A = suc y ) )
16		eleq1 2256	. . . . 5 |- ( x = suc y -> ( x e. A <-> suc y e. A ) )
17	14, 15, 16	3orbi123d 1322	. . . 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 4651	. . . . 5 |- ( A e. om -> ( A = (/) \/ (/) e. A ) )
19		olc 712	. . . . . 6 |- ( ( A = (/) \/ (/) e. A ) -> ( A e. (/) \/ ( A = (/) \/ (/) e. A ) ) )
20		3orass 983	. . . . . 6 |- ( ( A e. (/) \/ A = (/) \/ (/) e. A ) <-> ( A e. (/) \/ ( A = (/) \/ (/) e. A ) ) )
21	19, 20	sylibr 134	. . . . 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 981	. . . . . 6 |- ( ( A e. y \/ A = y \/ y e. A ) <-> ( ( A e. y \/ A = y ) \/ y e. A ) )
24		elex 2771	. . . . . . . 8 |- ( y e. om -> y e. _V )
25		elsuc2g 4436	. . . . . . . . 9 |- ( y e. _V -> ( A e. suc y <-> ( A e. y \/ A = y ) ) )
26		3mix1 1168	. . . . . . . . 9 |- ( A e. suc y -> ( A e. suc y \/ A = suc y \/ suc y e. A ) )
27	25, 26	biimtrrdi 164	. . . . . . . 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 6544	. . . . . . . . 9 |- ( A e. om -> ( y e. A <-> suc y e. suc A ) )
30		elsuci 4434	. . . . . . . . 9 |- ( suc y e. suc A -> ( suc y e. A \/ suc y = A ) )
31	29, 30	biimtrdi 163	. . . . . . . 8 |- ( A e. om -> ( y e. A -> ( suc y e. A \/ suc y = A ) ) )
32		eqcom 2195	. . . . . . . . . . . . 13 |- ( suc y = A <-> A = suc y )
33	32	orbi2i 763	. . . . . . . . . . . 12 |- ( ( suc y e. A \/ suc y = A ) <-> ( suc y e. A \/ A = suc y ) )
34	33	biimpi 120	. . . . . . . . . . 11 |- ( ( suc y e. A \/ suc y = A ) -> ( suc y e. A \/ A = suc y ) )
35	34	orcomd 730	. . . . . . . . . 10 |- ( ( suc y e. A \/ suc y = A ) -> ( A = suc y \/ suc y e. A ) )
36	35	olcd 735	. . . . . . . . 9 |- ( ( suc y e. A \/ suc y = A ) -> ( A e. suc y \/ ( A = suc y \/ suc y e. A ) ) )
37		3orass 983	. . . . . . . . 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 134	. . . . . . . 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 720	. . . . . 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	biimtrid 152	. . . . 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 115	. . . 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 4633	. . 3 |- ( x e. om -> ( A e. om -> ( A e. x \/ A = x \/ x e. A ) ) )
44	5, 43	vtoclga 2826	. 2 |- ( B e. om -> ( A e. om -> ( A e. B \/ A = B \/ B e. A ) ) )
45	44	impcom 125	1 |- ( ( A e. om /\ B e. om ) -> ( A e. B \/ A = B \/ B e. A ) )

Syntax hints:   -> wi 4   /\ wa 104   \/ wo 709   \/ w3o 979   = wceq 1364   e. wcel 2164   _Vcvv 2760   (/)c0 3446   suc csuc 4396   omcom 4622

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 4147  ax-nul 4155  ax-pow 4203  ax-pr 4238  ax-un 4464  ax-iinf 4620

This theorem depends on definitions:  df-bi 117  df-3or 981  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-ral 2477  df-rex 2478  df-v 2762  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-nul 3447  df-pw 3603  df-sn 3624  df-pr 3625  df-uni 3836  df-int 3871  df-tr 4128  df-iord 4397  df-on 4399  df-suc 4402  df-iom 4623

This theorem is referenced by:  nntri2  6547  nntri1  6549  nntri3  6550  nntri2or2  6551  nndceq  6552  nndcel  6553  nnsseleq  6554  nntr2  6556  nnawordex  6582  nnwetri  6972  nnnninfeq  7187  ltsopi  7380  pitri3or  7382  frec2uzlt2d  10475  nninfctlemfo  12177  ennnfonelemk  12557  ennnfonelemex  12571