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