Metamath Proof Explorer


Theorem lubprlem

Description: Lemma for lubprdm and lubpr . (Contributed by Zhi Wang, 26-Sep-2024)

Ref Expression
Hypotheses lubpr.k ⊢ φ → K ∈ Poset
lubpr.b ⊢ B = Base K
lubpr.x ⊢ φ → X ∈ B
lubpr.y ⊢ φ → Y ∈ B
lubpr.l ⊢ ≤ ˙ = ≤ K
lubpr.c ⊢ φ → X ≤ ˙ Y
lubpr.s ⊢ φ → S = X Y
lubpr.u ⊢ U = lub ⁡ K
Assertion lubprlem ⊢ φ → S ∈ dom ⁡ U ∧ U ⁡ S = Y

Proof

Step Hyp Ref Expression
1 lubpr.k ⊢ φ → K ∈ Poset
2 lubpr.b ⊢ B = Base K
3 lubpr.x ⊢ φ → X ∈ B
4 lubpr.y ⊢ φ → Y ∈ B
5 lubpr.l ⊢ ≤ ˙ = ≤ K
6 lubpr.c ⊢ φ → X ≤ ˙ Y
7 lubpr.s ⊢ φ → S = X Y
8 lubpr.u ⊢ U = lub ⁡ K
9 breq1 ⊢ z = X → z ≤ ˙ Y ↔ X ≤ ˙ Y
10 9 3 6 elrabd ⊢ φ → X ∈ z ∈ B | z ≤ ˙ Y
11 breq1 ⊢ z = Y → z ≤ ˙ Y ↔ Y ≤ ˙ Y
12 2 5 posref ⊢ K ∈ Poset ∧ Y ∈ B → Y ≤ ˙ Y
13 1 4 12 syl2anc ⊢ φ → Y ≤ ˙ Y
14 11 4 13 elrabd ⊢ φ → Y ∈ z ∈ B | z ≤ ˙ Y
15 10 14 prssd ⊢ φ → X Y ⊆ z ∈ B | z ≤ ˙ Y
16 2 5 8 1 4 lublecl ⊢ φ → z ∈ B | z ≤ ˙ Y ∈ dom ⁡ U
17 2 5 8 1 4 lubid ⊢ φ → U ⁡ z ∈ B | z ≤ ˙ Y = Y
18 prid2g ⊢ Y ∈ B → Y ∈ X Y
19 4 18 syl ⊢ φ → Y ∈ X Y
20 17 19 eqeltrd ⊢ φ → U ⁡ z ∈ B | z ≤ ˙ Y ∈ X Y
21 1 15 8 16 20 lubsscl ⊢ φ → X Y ∈ dom ⁡ U ∧ U ⁡ X Y = U ⁡ z ∈ B | z ≤ ˙ Y
22 21 simpld ⊢ φ → X Y ∈ dom ⁡ U
23 7 22 eqeltrd ⊢ φ → S ∈ dom ⁡ U
24 7 fveq2d ⊢ φ → U ⁡ S = U ⁡ X Y
25 21 simprd ⊢ φ → U ⁡ X Y = U ⁡ z ∈ B | z ≤ ˙ Y
26 24 25 17 3eqtrd ⊢ φ → U ⁡ S = Y
27 23 26 jca ⊢ φ → S ∈ dom ⁡ U ∧ U ⁡ S = Y