Metamath Proof Explorer


Theorem fiinfg

Description: Lemma showing existence and closure of infimum of a finite set. (Contributed by AV, 6-Oct-2020)

Ref Expression
Assertion fiinfg ⊢ R Or A ∧ A ∈ Fin ∧ A ≠ ∅ → ∃ x ∈ A ∀ y ∈ A ¬ y R x ∧ ∀ y ∈ A x R y → ∃ z ∈ A z R y

Proof

Step Hyp Ref Expression
1 fiming ⊢ R Or A ∧ A ∈ Fin ∧ A ≠ ∅ → ∃ x ∈ A ∀ y ∈ A x ≠ y → x R y
2 equcom ⊢ x = y ↔ y = x
3 sotrieq2 ⊢ R Or A ∧ y ∈ A ∧ x ∈ A → y = x ↔ ¬ y R x ∧ ¬ x R y
4 3 ancom2s ⊢ R Or A ∧ x ∈ A ∧ y ∈ A → y = x ↔ ¬ y R x ∧ ¬ x R y
5 2 4 bitrid ⊢ R Or A ∧ x ∈ A ∧ y ∈ A → x = y ↔ ¬ y R x ∧ ¬ x R y
6 5 simprbda ⊢ R Or A ∧ x ∈ A ∧ y ∈ A ∧ x = y → ¬ y R x
7 6 ex ⊢ R Or A ∧ x ∈ A ∧ y ∈ A → x = y → ¬ y R x
8 7 anassrs ⊢ R Or A ∧ x ∈ A ∧ y ∈ A → x = y → ¬ y R x
9 8 a1dd ⊢ R Or A ∧ x ∈ A ∧ y ∈ A → x = y → x ≠ y → x R y → ¬ y R x
10 pm2.27 ⊢ x ≠ y → x ≠ y → x R y → x R y
11 soasym ⊢ R Or A ∧ x ∈ A ∧ y ∈ A → x R y → ¬ y R x
12 11 anassrs ⊢ R Or A ∧ x ∈ A ∧ y ∈ A → x R y → ¬ y R x
13 10 12 syl9r ⊢ R Or A ∧ x ∈ A ∧ y ∈ A → x ≠ y → x ≠ y → x R y → ¬ y R x
14 9 13 pm2.61dne ⊢ R Or A ∧ x ∈ A ∧ y ∈ A → x ≠ y → x R y → ¬ y R x
15 14 ralimdva ⊢ R Or A ∧ x ∈ A → ∀ y ∈ A x ≠ y → x R y → ∀ y ∈ A ¬ y R x
16 breq1 ⊢ z = x → z R y ↔ x R y
17 16 rspcev ⊢ x ∈ A ∧ x R y → ∃ z ∈ A z R y
18 17 ex ⊢ x ∈ A → x R y → ∃ z ∈ A z R y
19 18 ralrimivw ⊢ x ∈ A → ∀ y ∈ A x R y → ∃ z ∈ A z R y
20 19 adantl ⊢ R Or A ∧ x ∈ A → ∀ y ∈ A x R y → ∃ z ∈ A z R y
21 15 20 jctird ⊢ R Or A ∧ x ∈ A → ∀ y ∈ A x ≠ y → x R y → ∀ y ∈ A ¬ y R x ∧ ∀ y ∈ A x R y → ∃ z ∈ A z R y
22 21 reximdva ⊢ R Or A → ∃ x ∈ A ∀ y ∈ A x ≠ y → x R y → ∃ x ∈ A ∀ y ∈ A ¬ y R x ∧ ∀ y ∈ A x R y → ∃ z ∈ A z R y
23 22 3ad2ant1 ⊢ R Or A ∧ A ∈ Fin ∧ A ≠ ∅ → ∃ x ∈ A ∀ y ∈ A x ≠ y → x R y → ∃ x ∈ A ∀ y ∈ A ¬ y R x ∧ ∀ y ∈ A x R y → ∃ z ∈ A z R y
24 1 23 mpd ⊢ R Or A ∧ A ∈ Fin ∧ A ≠ ∅ → ∃ x ∈ A ∀ y ∈ A ¬ y R x ∧ ∀ y ∈ A x R y → ∃ z ∈ A z R y