Metamath Proof Explorer


Theorem infmo

Description: Any class B has at most one infimum in A (where R is interpreted as 'less than'). (Contributed by AV, 6-Oct-2020)

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

Proof

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