Metamath Proof Explorer


Theorem supmo

Description: Any class B has at most one supremum in A (where R is interpreted as 'less than'). (Contributed by NM, 5-May-1999) (Revised by Mario Carneiro, 24-Dec-2016)

Ref Expression
Hypothesis supmo.1 φ R Or A
Assertion supmo φ * x A y B ¬ x R y y A y R x z B y R z

Proof

Step Hyp Ref Expression
1 supmo.1 φ R Or A
2 ancom y B ¬ x R y y B ¬ w R y y B ¬ w R y y B ¬ x R y
3 2 anbi2ci y B ¬ x R y y B ¬ w R y y A y R w z B y R z y A y R x z B y R z y A y R w z B y R z y A y R x z B y R z y B ¬ w R y y B ¬ x R y
4 an42 y B ¬ x R y y A y R x z B y R z y B ¬ w R y y A y R w z B y R z y B ¬ x R y y B ¬ w R y y A y R w z B y R z y A y R x z B y R z
5 an42 y A y R w z B y R z y B ¬ x R y y A y R x z B y R z y B ¬ w R y y A y R w z B y R z y A y R x z B y R z y B ¬ w R y y B ¬ x R y
6 3 4 5 3bitr4i y B ¬ x R y y A y R x z B y R z y B ¬ w R y y A y R w z B y R z y A y R w z B y R z y B ¬ x R y y A y R x z B y R z y B ¬ w R y
7 ralnex y B ¬ x R y ¬ y B x R y
8 breq1 y = x y R w x R w
9 breq1 y = x y R z x R z
10 9 rexbidv y = x z B y R z z B x R z
11 8 10 imbi12d y = x y R w z B y R z x R w z B x R z
12 11 rspcva x A y A y R w z B y R z x R w z B x R z
13 breq2 y = z x R y x R z
14 13 cbvrexvw y B x R y z B x R z
15 12 14 syl6ibr x A y A y R w z B y R z x R w y B x R y
16 15 con3d x A y A y R w z B y R z ¬ y B x R y ¬ x R w
17 7 16 syl5bi x A y A y R w z B y R z y B ¬ x R y ¬ x R w
18 17 expimpd x A y A y R w z B y R z y B ¬ x R y ¬ x R w
19 18 ad2antrl R Or A x A w A y A y R w z B y R z y B ¬ x R y ¬ x R w
20 ralnex y B ¬ w R y ¬ y B w R y
21 breq1 y = w y R x w R x
22 breq1 y = w y R z w R z
23 22 rexbidv y = w z B y R z z B w R z
24 21 23 imbi12d y = w y R x z B y R z w R x z B w R z
25 24 rspcva w A y A y R x z B y R z w R x z B w R z
26 breq2 y = z w R y w R z
27 26 cbvrexvw y B w R y z B w R z
28 25 27 syl6ibr w A y A y R x z B y R z w R x y B w R y
29 28 con3d w A y A y R x z B y R z ¬ y B w R y ¬ w R x
30 20 29 syl5bi w A y A y R x z B y R z y B ¬ w R y ¬ w R x
31 30 expimpd w A y A y R x z B y R z y B ¬ w R y ¬ w R x
32 31 ad2antll R Or A x A w A y A y R x z B y R z y B ¬ w R y ¬ w R x
33 19 32 anim12d R Or A x A w A y A y R w z B y R z y B ¬ x R y y A y R x z B y R z y B ¬ w R y ¬ x R w ¬ w R x
34 6 33 syl5bi R Or A x A w A y B ¬ x R y y A y R x z B y R z y B ¬ w R y y A y R w z B y R z ¬ x R w ¬ w R x
35 sotrieq2 R Or A x A w A x = w ¬ x R w ¬ w R x
36 34 35 sylibrd R Or A x A w A y B ¬ x R y y A y R x z B y R z y B ¬ w R y y A y R w z B y R z x = w
37 36 ralrimivva R Or A x A w A y B ¬ x R y y A y R x z B y R z y B ¬ w R y y A y R w z B y R z x = w
38 1 37 syl φ x A w A y B ¬ x R y y A y R x z B y R z y B ¬ w R y y A y R w z B y R z x = w
39 breq1 x = w x R y w R y
40 39 notbid x = w ¬ x R y ¬ w R y
41 40 ralbidv x = w y B ¬ x R y y B ¬ w R y
42 breq2 x = w y R x y R w
43 42 imbi1d x = w y R x z B y R z y R w z B y R z
44 43 ralbidv x = w y A y R x z B y R z y A y R w z B y R z
45 41 44 anbi12d x = w y B ¬ x R y y A y R x z B y R z y B ¬ w R y y A y R w z B y R z
46 45 rmo4 * x A y B ¬ x R y y A y R x z B y R z x A w A y B ¬ x R y y A y R x z B y R z y B ¬ w R y y A y R w z B y R z x = w
47 38 46 sylibr φ * x A y B ¬ x R y y A y R x z B y R z