Metamath Proof Explorer


Theorem joindmss

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

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

Proof

Step Hyp Ref Expression
1 joindmss.b B = Base K
2 joindmss.j ˙ = join K
3 joindmss.k φ K V
4 relopab Rel x y | x y dom lub K
5 eqid lub K = lub K
6 5 2 joindm K V dom ˙ = x y | x y dom lub K
7 3 6 syl φ dom ˙ = x y | x y dom lub K
8 7 releqd φ Rel dom ˙ Rel x y | x y dom lub 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 joindef φ x y dom ˙ x y dom lub K
15 eqid K = K
16 3 adantr φ x y dom lub K K V
17 simpr φ x y dom lub K x y dom lub K
18 1 15 5 16 17 lubelss φ x y dom lub K x y B
19 18 ex φ x y dom lub 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 lub K x y B × B
24 14 23 sylbid φ x y dom ˙ x y B × B
25 9 24 relssdv φ dom ˙ B × B