Metamath Proof Explorer


Theorem frinfm

Description: A subset of a well-founded set has an infimum. (Contributed by Jeff Madsen, 2-Sep-2009)

Ref Expression
Assertion frinfm ⊢ R Fr A ∧ B ∈ C ∧ B ⊆ A ∧ B ≠ ∅ → ∃ x ∈ A ∀ y ∈ B ¬ x R -1 y ∧ ∀ y ∈ A y R -1 x → ∃ z ∈ B y R -1 z

Proof

Step Hyp Ref Expression
1 fri ⊢ B ∈ C ∧ R Fr A ∧ B ⊆ A ∧ B ≠ ∅ → ∃ x ∈ B ∀ y ∈ B ¬ y R x
2 1 ancom1s ⊢ R Fr A ∧ B ∈ C ∧ B ⊆ A ∧ B ≠ ∅ → ∃ x ∈ B ∀ y ∈ B ¬ y R x
3 2 exp43 ⊢ R Fr A → B ∈ C → B ⊆ A → B ≠ ∅ → ∃ x ∈ B ∀ y ∈ B ¬ y R x
4 3 3imp2 ⊢ R Fr A ∧ B ∈ C ∧ B ⊆ A ∧ B ≠ ∅ → ∃ x ∈ B ∀ y ∈ B ¬ y R x
5 ssel2 ⊢ B ⊆ A ∧ x ∈ B → x ∈ A
6 5 adantrr ⊢ B ⊆ A ∧ x ∈ B ∧ ∀ y ∈ B ¬ y R x → x ∈ A
7 vex ⊢ x ∈ V
8 vex ⊢ y ∈ V
9 7 8 brcnv ⊢ x R -1 y ↔ y R x
10 9 biimpi ⊢ x R -1 y → y R x
11 10 con3i ⊢ ¬ y R x → ¬ x R -1 y
12 11 ralimi ⊢ ∀ y ∈ B ¬ y R x → ∀ y ∈ B ¬ x R -1 y
13 12 ad2antll ⊢ B ⊆ A ∧ x ∈ B ∧ ∀ y ∈ B ¬ y R x → ∀ y ∈ B ¬ x R -1 y
14 breq2 ⊢ z = x → y R -1 z ↔ y R -1 x
15 14 rspcev ⊢ x ∈ B ∧ y R -1 x → ∃ z ∈ B y R -1 z
16 15 ex ⊢ x ∈ B → y R -1 x → ∃ z ∈ B y R -1 z
17 16 ralrimivw ⊢ x ∈ B → ∀ y ∈ A y R -1 x → ∃ z ∈ B y R -1 z
18 17 ad2antrl ⊢ B ⊆ A ∧ x ∈ B ∧ ∀ y ∈ B ¬ y R x → ∀ y ∈ A y R -1 x → ∃ z ∈ B y R -1 z
19 6 13 18 jca32 ⊢ B ⊆ A ∧ x ∈ B ∧ ∀ y ∈ B ¬ y R x → x ∈ A ∧ ∀ y ∈ B ¬ x R -1 y ∧ ∀ y ∈ A y R -1 x → ∃ z ∈ B y R -1 z
20 19 ex ⊢ B ⊆ A → x ∈ B ∧ ∀ y ∈ B ¬ y R x → x ∈ A ∧ ∀ y ∈ B ¬ x R -1 y ∧ ∀ y ∈ A y R -1 x → ∃ z ∈ B y R -1 z
21 20 reximdv2 ⊢ B ⊆ A → ∃ x ∈ B ∀ y ∈ B ¬ y R x → ∃ x ∈ A ∀ y ∈ B ¬ x R -1 y ∧ ∀ y ∈ A y R -1 x → ∃ z ∈ B y R -1 z
22 21 adantl ⊢ R Fr A ∧ B ⊆ A → ∃ x ∈ B ∀ y ∈ B ¬ y R x → ∃ x ∈ A ∀ y ∈ B ¬ x R -1 y ∧ ∀ y ∈ A y R -1 x → ∃ z ∈ B y R -1 z
23 22 3ad2antr2 ⊢ R Fr A ∧ B ∈ C ∧ B ⊆ A ∧ B ≠ ∅ → ∃ x ∈ B ∀ y ∈ B ¬ y R x → ∃ x ∈ A ∀ y ∈ B ¬ x R -1 y ∧ ∀ y ∈ A y R -1 x → ∃ z ∈ B y R -1 z
24 4 23 mpd ⊢ R Fr A ∧ B ∈ C ∧ B ⊆ A ∧ B ≠ ∅ → ∃ x ∈ A ∀ y ∈ B ¬ x R -1 y ∧ ∀ y ∈ A y R -1 x → ∃ z ∈ B y R -1 z