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