Metamath Proof Explorer


Theorem lubprlem

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

Ref Expression
Hypotheses lubpr.k φKPoset
lubpr.b B=BaseK
lubpr.x φXB
lubpr.y φYB
lubpr.l ˙=K
lubpr.c φX˙Y
lubpr.s φS=XY
lubpr.u U=lubK
Assertion lubprlem φSdomUUS=Y

Proof

Step Hyp Ref Expression
1 lubpr.k φKPoset
2 lubpr.b B=BaseK
3 lubpr.x φXB
4 lubpr.y φYB
5 lubpr.l ˙=K
6 lubpr.c φX˙Y
7 lubpr.s φS=XY
8 lubpr.u U=lubK
9 breq1 z=Xz˙YX˙Y
10 9 3 6 elrabd φXzB|z˙Y
11 breq1 z=Yz˙YY˙Y
12 2 5 posref KPosetYBY˙Y
13 1 4 12 syl2anc φY˙Y
14 11 4 13 elrabd φYzB|z˙Y
15 10 14 prssd φXYzB|z˙Y
16 2 5 8 1 4 lublecl φzB|z˙YdomU
17 2 5 8 1 4 lubid φUzB|z˙Y=Y
18 prid2g YBYXY
19 4 18 syl φYXY
20 17 19 eqeltrd φUzB|z˙YXY
21 1 15 8 16 20 lubsscl φXYdomUUXY=UzB|z˙Y
22 21 simpld φXYdomU
23 7 22 eqeltrd φSdomU
24 7 fveq2d φUS=UXY
25 21 simprd φUXY=UzB|z˙Y
26 24 25 17 3eqtrd φUS=Y
27 23 26 jca φSdomUUS=Y