Theorem so 2864

Description: Deduce strict ordering from its properties.

Hypothesis

Ref	Expression
so.1	|- ((x e. A /\ y e. A /\ z e. A) -> ((xRy <-> -. (x = y \/ yRx)) /\ ((xRy /\ yRz) -> xRz)))

Assertion

Ref	Expression
so	|- R Or A

Distinct variable groups:   x,y,z,R   x,A,y,z

Proof of Theorem so

Step	Hyp	Ref	Expression
1		eqid 1475	. . . . 5 |- x = x
2	1	orci 270	. . . 4 |- (x = x \/ xRx)
3		eleq1 1534	. . . . . . 7 |- (y = x -> (y e. A <-> x e. A))
4	3	anbi2d 616	. . . . . 6 |- (y = x -> ((x e. A /\ y e. A) <-> (x e. A /\ x e. A)))
5		eqeq2 1484	. . . . . . . 8 |- (y = x -> (x = y <-> x = x))
6		breq1 2622	. . . . . . . 8 |- (y = x -> (yRx <-> xRx))
7	5, 6	orbi12d 627	. . . . . . 7 |- (y = x -> ((x = y \/ yRx) <-> (x = x \/ xRx)))
8		breq2 2623	. . . . . . . 8 |- (y = x -> (xRy <-> xRx))
9	8	negbid 611	. . . . . . 7 |- (y = x -> (-. xRy <-> -. xRx))
10	7, 9	bibi12d 629	. . . . . 6 |- (y = x -> (((x = y \/ yRx) <-> -. xRy) <-> ((x = x \/ xRx) <-> -. xRx)))
11	4, 10	imbi12d 626	. . . . 5 |- (y = x -> (((x e. A /\ y e. A) -> ((x = y \/ yRx) <-> -. xRy)) <-> ((x e. A /\ x e. A) -> ((x = x \/ xRx) <-> -. xRx))))
12		eleq1 1534	. . . . . . . . . 10 |- (z = y -> (z e. A <-> y e. A))
13	12	3anbi3d 899	. . . . . . . . 9 |- (z = y -> ((x e. A /\ y e. A /\ z e. A) <-> (x e. A /\ y e. A /\ y e. A)))
14	13	imbi1d 613	. . . . . . . 8 |- (z = y -> (((x e. A /\ y e. A /\ z e. A) -> (xRy <-> -. (x = y \/ yRx))) <-> ((x e. A /\ y e. A /\ y e. A) -> (xRy <-> -. (x = y \/ yRx)))))
15		so.1	. . . . . . . . 9 |- ((x e. A /\ y e. A /\ z e. A) -> ((xRy <-> -. (x = y \/ yRx)) /\ ((xRy /\ yRz) -> xRz)))
16	15	pm3.26d 321	. . . . . . . 8 |- ((x e. A /\ y e. A /\ z e. A) -> (xRy <-> -. (x = y \/ yRx)))
17	14, 16	chvarv 1327	. . . . . . 7 |- ((x e. A /\ y e. A /\ y e. A) -> (xRy <-> -. (x = y \/ yRx)))
18	17	3anidm23 884	. . . . . 6 |- ((x e. A /\ y e. A) -> (xRy <-> -. (x = y \/ yRx)))
19	18	con2bid 526	. . . . 5 |- ((x e. A /\ y e. A) -> ((x = y \/ yRx) <-> -. xRy))
20	11, 19	chvarv 1327	. . . 4 |- ((x e. A /\ x e. A) -> ((x = x \/ xRx) <-> -. xRx))
21	2, 20	mpbii 193	. . 3 |- ((x e. A /\ x e. A) -> -. xRx)
22	21	anidms 434	. 2 |- (x e. A -> -. xRx)
23	15	pm3.27d 325	. 2 |- ((x e. A /\ y e. A /\ z e. A) -> ((xRy /\ yRz) -> xRz))
24	19	biimprd 154	. . 3 |- ((x e. A /\ y e. A) -> (-. xRy -> (x = y \/ yRx)))
25		3orass 778	. . . 4 |- ((xRy \/ x = y \/ yRx) <-> (xRy \/ (x = y \/ yRx)))
26		df-or 224	. . . 4 |- ((xRy \/ (x = y \/ yRx)) <-> (-. xRy -> (x = y \/ yRx)))
27	25, 26	bitr 173	. . 3 |- ((xRy \/ x = y \/ yRx) <-> (-. xRy -> (x = y \/ yRx)))
28	24, 27	sylibr 200	. 2 |- ((x e. A /\ y e. A) -> (xRy \/ x = y \/ yRx))
29	22, 23, 28	itlso 2863	1 |- R Or A

Syntax hints:  -. wn 2   -> wi 3   <-> wb 146   \/ wo 222   /\ wa 223   \/ w3o 774   /\ w3a 775   = wceq 956   e. wcel 958   class class class wbr 2619   Or wor 2839

This theorem is referenced by:  ltsopi 5016  ltsopq 5075  ltsosr 5203  ltsor 5261  ltso 5512  xrltso 5554

This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 962  ax-gen 963  ax-8 964  ax-10 966  ax-12 968  ax-17 971  ax-4 973  ax-5o 975  ax-6o 978  ax-9o 1123  ax-10o 1140  ax-16 1210  ax-11o 1218  ax-ext 1459

This theorem depends on definitions:  df-bi 147  df-or 224  df-an 225  df-3or 776  df-3an 777  df-ex 981  df-sb 1172  df-clab 1464  df-cleq 1469  df-clel 1472  df-ral 1649  df-v 1812  df-un 2050  df-sn 2412  df-pr 2413  df-op 2416  df-br 2620  df-po 2840  df-so 2850

Copyright terms: Public domain