prsdm

Description: Domain of the relation of a proset. (Contributed by Thierry Arnoux, 11-Sep-2015)

	Ref	Expression
Hypotheses	ordtNEW.b	$⊢ B = {Base}_{K}$
	ordtNEW.l	$⊢ \underset{˙}{\leq} = \leq_{K} \cap (B \times B)$
Assertion	prsdm	$⊢ K \in Proset \to dom \underset{˙}{\leq} = B$

Proof

Step	Hyp	Ref	Expression
1		ordtNEW.b	$⊢ B = {Base}_{K}$
2		ordtNEW.l	$⊢ \underset{˙}{\leq} = \leq_{K} \cap (B \times B)$
3	2	dmeqi	$⊢ dom \underset{˙}{\leq} = dom (\leq_{K} \cap (B \times B))$
4	3	eleq2i	$⊢ x \in dom \underset{˙}{\leq} \leftrightarrow x \in dom (\leq_{K} \cap (B \times B))$
5		vex	$⊢ x \in V$
6	5	eldm2	$⊢ x \in dom (\leq_{K} \cap (B \times B)) \leftrightarrow \exists y ⟨x, y⟩ \in (\leq_{K} \cap (B \times B))$
7		eqid	$⊢ \leq_{K} = \leq_{K}$
8	1 7	prsref	$⊢ (K \in Proset \land x \in B) \to x \leq_{K} x$
9		df-br	$⊢ x \leq_{K} x \leftrightarrow ⟨x, x⟩ \in \leq_{K}$
10	8 9	sylib	$⊢ (K \in Proset \land x \in B) \to ⟨x, x⟩ \in \leq_{K}$
11		simpr	$⊢ (K \in Proset \land x \in B) \to x \in B$
12	11 11	opelxpd	$⊢ (K \in Proset \land x \in B) \to ⟨x, x⟩ \in (B \times B)$
13	10 12	elind	$⊢ (K \in Proset \land x \in B) \to ⟨x, x⟩ \in (\leq_{K} \cap (B \times B))$
14		opeq2	$⊢ y = x \to ⟨x, y⟩ = ⟨x, x⟩$
15	14	eleq1d	$⊢ y = x \to (⟨x, y⟩ \in (\leq_{K} \cap (B \times B)) \leftrightarrow ⟨x, x⟩ \in (\leq_{K} \cap (B \times B)))$
16	5 15	spcev	$⊢ ⟨x, x⟩ \in (\leq_{K} \cap (B \times B)) \to \exists y ⟨x, y⟩ \in (\leq_{K} \cap (B \times B))$
17	13 16	syl	$⊢ (K \in Proset \land x \in B) \to \exists y ⟨x, y⟩ \in (\leq_{K} \cap (B \times B))$
18	17	ex	$⊢ K \in Proset \to (x \in B \to \exists y ⟨x, y⟩ \in (\leq_{K} \cap (B \times B)))$
19		elinel2	$⊢ ⟨x, y⟩ \in (\leq_{K} \cap (B \times B)) \to ⟨x, y⟩ \in (B \times B)$
20		opelxp1	$⊢ ⟨x, y⟩ \in (B \times B) \to x \in B$
21	19 20	syl	$⊢ ⟨x, y⟩ \in (\leq_{K} \cap (B \times B)) \to x \in B$
22	21	exlimiv	$⊢ \exists y ⟨x, y⟩ \in (\leq_{K} \cap (B \times B)) \to x \in B$
23	18 22	impbid1	$⊢ K \in Proset \to (x \in B \leftrightarrow \exists y ⟨x, y⟩ \in (\leq_{K} \cap (B \times B)))$
24	6 23	bitr4id	$⊢ K \in Proset \to (x \in dom (\leq_{K} \cap (B \times B)) \leftrightarrow x \in B)$
25	4 24	bitrid	$⊢ K \in Proset \to (x \in dom \underset{˙}{\leq} \leftrightarrow x \in B)$
26	25	eqrdv	$⊢ K \in Proset \to dom \underset{˙}{\leq} = B$

Metamath Proof Explorer

Theorem prsdm

Proof