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 imbitrrdi ⊢ 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 biimtrid ⊢ 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 imbitrrdi ⊢ 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 biimtrid ⊢ 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 biimtrid ⊢ 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