Metamath Proof Explorer


Theorem meetdmss

Description: Subset property of domain of meet. (Contributed by NM, 12-Sep-2018)

Ref Expression
Hypotheses meetdmss.b B = Base K
meetdmss.j ˙ = meet K
meetdmss.k φ K V
Assertion meetdmss φ dom ˙ B × B

Proof

Step Hyp Ref Expression
1 meetdmss.b B = Base K
2 meetdmss.j ˙ = meet K
3 meetdmss.k φ K V
4 relopabv Rel x y | x y dom glb K
5 eqid glb K = glb K
6 5 2 meetdm K V dom ˙ = x y | x y dom glb K
7 3 6 syl φ dom ˙ = x y | x y dom glb K
8 7 releqd φ Rel dom ˙ Rel x y | x y dom glb K
9 4 8 mpbiri φ Rel dom ˙
10 vex x V
11 10 a1i φ x V
12 vex y V
13 12 a1i φ y V
14 5 2 3 11 13 meetdef φ x y dom ˙ x y dom glb K
15 eqid K = K
16 3 adantr φ x y dom glb K K V
17 simpr φ x y dom glb K x y dom glb K
18 1 15 5 16 17 glbelss φ x y dom glb K x y B
19 18 ex φ x y dom glb K x y B
20 10 12 prss x B y B x y B
21 opelxpi x B y B x y B × B
22 20 21 sylbir x y B x y B × B
23 19 22 syl6 φ x y dom glb K x y B × B
24 14 23 sylbid φ x y dom ˙ x y B × B
25 9 24 relssdv φ dom ˙ B × B