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