Metamath Proof Explorer


Theorem poslubdg

Description: Properties which determine the least upper bound in a poset. (Contributed by Stefan O'Rear, 31-Jan-2015)

Ref Expression
Hypotheses poslubdg.l ˙ = K
poslubdg.b φ B = Base K
poslubdg.u φ U = lub K
poslubdg.k φ K Poset
poslubdg.s φ S B
poslubdg.t φ T B
poslubdg.ub φ x S x ˙ T
poslubdg.le φ y B x S x ˙ y T ˙ y
Assertion poslubdg φ U S = T

Proof

Step Hyp Ref Expression
1 poslubdg.l ˙ = K
2 poslubdg.b φ B = Base K
3 poslubdg.u φ U = lub K
4 poslubdg.k φ K Poset
5 poslubdg.s φ S B
6 poslubdg.t φ T B
7 poslubdg.ub φ x S x ˙ T
8 poslubdg.le φ y B x S x ˙ y T ˙ y
9 3 fveq1d φ U S = lub K S
10 eqid Base K = Base K
11 eqid lub K = lub K
12 5 2 sseqtrd φ S Base K
13 6 2 eleqtrd φ T Base K
14 2 eleq2d φ y B y Base K
15 14 biimpar φ y Base K y B
16 15 3adant3 φ y Base K x S x ˙ y y B
17 16 8 syld3an2 φ y Base K x S x ˙ y T ˙ y
18 1 10 11 4 12 13 7 17 poslubd φ lub K S = T
19 9 18 eqtrd φ U S = T