Theorem relop 5704

Description: A necessary and sufficient condition for a Kuratowski ordered pair to be a relation. (Contributed by NM, 3-Jun-2008.) A relation is a class of ordered pairs, so the fact that an ordered pair may sometimes be itself a relation is an "accident" depending on the specific encoding of ordered pairs as classes (in set.mm, the Kuratowski encoding). A more meaningful statement is relsnopg 5658, as funsng 6409 is to funop 6942. (New usage is discouraged.)

Hypotheses

Ref	Expression
relop.1	⊢ 𝐴 ∈ V
relop.2	⊢ 𝐵 ∈ V

Assertion

Ref	Expression
relop	⊢ (Rel ⟨𝐴, 𝐵⟩ ↔ ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐵,𝑦

Proof of Theorem relop

Dummy variables 𝑤 𝑣 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-rel 5543	. 2 ⊢ (Rel ⟨𝐴, 𝐵⟩ ↔ ⟨𝐴, 𝐵⟩ ⊆ (V × V))
2		dfss2 3873	. . . . 5 ⊢ (⟨𝐴, 𝐵⟩ ⊆ (V × V) ↔ ∀𝑧(𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)))
3		relop.1	. . . . . . . . . 10 ⊢ 𝐴 ∈ V
4		relop.2	. . . . . . . . . 10 ⊢ 𝐵 ∈ V
5	3, 4	elop 5336	. . . . . . . . 9 ⊢ (𝑧 ∈ ⟨𝐴, 𝐵⟩ ↔ (𝑧 = {𝐴} ∨ 𝑧 = {𝐴, 𝐵}))
6		elvv 5608	. . . . . . . . 9 ⊢ (𝑧 ∈ (V × V) ↔ ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)
7	5, 6	imbi12i 354	. . . . . . . 8 ⊢ ((𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)) ↔ ((𝑧 = {𝐴} ∨ 𝑧 = {𝐴, 𝐵}) → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩))
8		jaob 962	. . . . . . . 8 ⊢ (((𝑧 = {𝐴} ∨ 𝑧 = {𝐴, 𝐵}) → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ↔ ((𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ (𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
9	7, 8	bitri 278	. . . . . . 7 ⊢ ((𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)) ↔ ((𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ (𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
10	9	albii 1827	. . . . . 6 ⊢ (∀𝑧(𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)) ↔ ∀𝑧((𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ (𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
11		19.26 1878	. . . . . 6 ⊢ (∀𝑧((𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ (𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)) ↔ (∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ ∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
12	10, 11	bitri 278	. . . . 5 ⊢ (∀𝑧(𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)) ↔ (∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ ∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
13	2, 12	bitri 278	. . . 4 ⊢ (⟨𝐴, 𝐵⟩ ⊆ (V × V) ↔ (∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ ∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
14		snex 5309	. . . . . . 7 ⊢ {𝐴} ∈ V
15		eqeq1 2740	. . . . . . . 8 ⊢ (𝑧 = {𝐴} → (𝑧 = {𝐴} ↔ {𝐴} = {𝐴}))
16		eqeq1 2740	. . . . . . . . . 10 ⊢ (𝑧 = {𝐴} → (𝑧 = ⟨𝑥, 𝑦⟩ ↔ {𝐴} = ⟨𝑥, 𝑦⟩))
17		eqcom 2743	. . . . . . . . . . 11 ⊢ ({𝐴} = ⟨𝑥, 𝑦⟩ ↔ ⟨𝑥, 𝑦⟩ = {𝐴})
18		vex 3402	. . . . . . . . . . . 12 ⊢ 𝑥 ∈ V
19		vex 3402	. . . . . . . . . . . 12 ⊢ 𝑦 ∈ V
20	18, 19	opeqsn 5372	. . . . . . . . . . 11 ⊢ (⟨𝑥, 𝑦⟩ = {𝐴} ↔ (𝑥 = 𝑦 ∧ 𝐴 = {𝑥}))
21	17, 20	bitri 278	. . . . . . . . . 10 ⊢ ({𝐴} = ⟨𝑥, 𝑦⟩ ↔ (𝑥 = 𝑦 ∧ 𝐴 = {𝑥}))
22	16, 21	bitrdi 290	. . . . . . . . 9 ⊢ (𝑧 = {𝐴} → (𝑧 = ⟨𝑥, 𝑦⟩ ↔ (𝑥 = 𝑦 ∧ 𝐴 = {𝑥})))
23	22	2exbidv 1932	. . . . . . . 8 ⊢ (𝑧 = {𝐴} → (∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩ ↔ ∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥})))
24	15, 23	imbi12d 348	. . . . . . 7 ⊢ (𝑧 = {𝐴} → ((𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ↔ ({𝐴} = {𝐴} → ∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥}))))
25	14, 24	spcv 3510	. . . . . 6 ⊢ (∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) → ({𝐴} = {𝐴} → ∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥})))
26		sneq 4537	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → {𝑤} = {𝑥})
27	26	eqeq2d 2747	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → (𝐴 = {𝑤} ↔ 𝐴 = {𝑥}))
28	27	cbvexvw 2047	. . . . . . 7 ⊢ (∃𝑤 𝐴 = {𝑤} ↔ ∃𝑥 𝐴 = {𝑥})
29		ax6evr 2025	. . . . . . . . 9 ⊢ ∃𝑦 𝑥 = 𝑦
30		19.41v 1958	. . . . . . . . 9 ⊢ (∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥}) ↔ (∃𝑦 𝑥 = 𝑦 ∧ 𝐴 = {𝑥}))
31	29, 30	mpbiran 709	. . . . . . . 8 ⊢ (∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥}) ↔ 𝐴 = {𝑥})
32	31	exbii 1855	. . . . . . 7 ⊢ (∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥}) ↔ ∃𝑥 𝐴 = {𝑥})
33		eqid 2736	. . . . . . . 8 ⊢ {𝐴} = {𝐴}
34	33	a1bi 366	. . . . . . 7 ⊢ (∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥}) ↔ ({𝐴} = {𝐴} → ∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥})))
35	28, 32, 34	3bitr2ri 303	. . . . . 6 ⊢ (({𝐴} = {𝐴} → ∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥})) ↔ ∃𝑤 𝐴 = {𝑤})
36	25, 35	sylib 221	. . . . 5 ⊢ (∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) → ∃𝑤 𝐴 = {𝑤})
37		eqid 2736	. . . . . 6 ⊢ {𝐴, 𝐵} = {𝐴, 𝐵}
38		prex 5310	. . . . . . 7 ⊢ {𝐴, 𝐵} ∈ V
39		eqeq1 2740	. . . . . . . 8 ⊢ (𝑧 = {𝐴, 𝐵} → (𝑧 = {𝐴, 𝐵} ↔ {𝐴, 𝐵} = {𝐴, 𝐵}))
40		eqeq1 2740	. . . . . . . . 9 ⊢ (𝑧 = {𝐴, 𝐵} → (𝑧 = ⟨𝑥, 𝑦⟩ ↔ {𝐴, 𝐵} = ⟨𝑥, 𝑦⟩))
41	40	2exbidv 1932	. . . . . . . 8 ⊢ (𝑧 = {𝐴, 𝐵} → (∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩ ↔ ∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩))
42	39, 41	imbi12d 348	. . . . . . 7 ⊢ (𝑧 = {𝐴, 𝐵} → ((𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ↔ ({𝐴, 𝐵} = {𝐴, 𝐵} → ∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩)))
43	38, 42	spcv 3510	. . . . . 6 ⊢ (∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) → ({𝐴, 𝐵} = {𝐴, 𝐵} → ∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩))
44	37, 43	mpi 20	. . . . 5 ⊢ (∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) → ∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩)
45		eqcom 2743	. . . . . . . . . 10 ⊢ ({𝐴, 𝐵} = ⟨𝑥, 𝑦⟩ ↔ ⟨𝑥, 𝑦⟩ = {𝐴, 𝐵})
46	18, 19, 3, 4	opeqpr 5373	. . . . . . . . . 10 ⊢ (⟨𝑥, 𝑦⟩ = {𝐴, 𝐵} ↔ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∨ (𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥})))
47	45, 46	bitri 278	. . . . . . . . 9 ⊢ ({𝐴, 𝐵} = ⟨𝑥, 𝑦⟩ ↔ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∨ (𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥})))
48		idd 24	. . . . . . . . . 10 ⊢ (𝐴 = {𝑤} → ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
49		eqtr2 2757	. . . . . . . . . . . . . 14 ⊢ ((𝐴 = {𝑥, 𝑦} ∧ 𝐴 = {𝑤}) → {𝑥, 𝑦} = {𝑤})
50	18, 19	preqsn 4758	. . . . . . . . . . . . . . 15 ⊢ ({𝑥, 𝑦} = {𝑤} ↔ (𝑥 = 𝑦 ∧ 𝑦 = 𝑤))
51	50	simplbi 501	. . . . . . . . . . . . . 14 ⊢ ({𝑥, 𝑦} = {𝑤} → 𝑥 = 𝑦)
52	49, 51	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐴 = {𝑥, 𝑦} ∧ 𝐴 = {𝑤}) → 𝑥 = 𝑦)
53		dfsn2 4540	. . . . . . . . . . . . . . . . . . . 20 ⊢ {𝑥} = {𝑥, 𝑥}
54		preq2 4636	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑦 → {𝑥, 𝑥} = {𝑥, 𝑦})
55	53, 54	eqtr2id 2784	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑦 → {𝑥, 𝑦} = {𝑥})
56	55	eqeq2d 2747	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑦 → (𝐴 = {𝑥, 𝑦} ↔ 𝐴 = {𝑥}))
57	53, 54	syl5eq 2783	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑦 → {𝑥} = {𝑥, 𝑦})
58	57	eqeq2d 2747	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑦 → (𝐵 = {𝑥} ↔ 𝐵 = {𝑥, 𝑦}))
59	56, 58	anbi12d 634	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑦 → ((𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥}) ↔ (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
60	59	biimpd 232	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑦 → ((𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥}) → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
61	60	expd 419	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑦 → (𝐴 = {𝑥, 𝑦} → (𝐵 = {𝑥} → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))))
62	61	com12 32	. . . . . . . . . . . . . 14 ⊢ (𝐴 = {𝑥, 𝑦} → (𝑥 = 𝑦 → (𝐵 = {𝑥} → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))))
63	62	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝐴 = {𝑥, 𝑦} ∧ 𝐴 = {𝑤}) → (𝑥 = 𝑦 → (𝐵 = {𝑥} → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))))
64	52, 63	mpd 15	. . . . . . . . . . . 12 ⊢ ((𝐴 = {𝑥, 𝑦} ∧ 𝐴 = {𝑤}) → (𝐵 = {𝑥} → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
65	64	expcom 417	. . . . . . . . . . 11 ⊢ (𝐴 = {𝑤} → (𝐴 = {𝑥, 𝑦} → (𝐵 = {𝑥} → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))))
66	65	impd 414	. . . . . . . . . 10 ⊢ (𝐴 = {𝑤} → ((𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥}) → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
67	48, 66	jaod 859	. . . . . . . . 9 ⊢ (𝐴 = {𝑤} → (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∨ (𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥})) → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
68	47, 67	syl5bi 245	. . . . . . . 8 ⊢ (𝐴 = {𝑤} → ({𝐴, 𝐵} = ⟨𝑥, 𝑦⟩ → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
69	68	2eximdv 1927	. . . . . . 7 ⊢ (𝐴 = {𝑤} → (∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩ → ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
70	69	exlimiv 1938	. . . . . 6 ⊢ (∃𝑤 𝐴 = {𝑤} → (∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩ → ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
71	70	imp 410	. . . . 5 ⊢ ((∃𝑤 𝐴 = {𝑤} ∧ ∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩) → ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))
72	36, 44, 71	syl2an 599	. . . 4 ⊢ ((∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ ∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)) → ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))
73	13, 72	sylbi 220	. . 3 ⊢ (⟨𝐴, 𝐵⟩ ⊆ (V × V) → ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))
74		simpr 488	. . . . . . . . . . 11 ⊢ ((𝐴 = {𝑥} ∧ 𝑧 = {𝐴}) → 𝑧 = {𝐴})
75		equid 2022	. . . . . . . . . . . . . 14 ⊢ 𝑥 = 𝑥
76	75	jctl 527	. . . . . . . . . . . . 13 ⊢ (𝐴 = {𝑥} → (𝑥 = 𝑥 ∧ 𝐴 = {𝑥}))
77	18, 18	opeqsn 5372	. . . . . . . . . . . . 13 ⊢ (⟨𝑥, 𝑥⟩ = {𝐴} ↔ (𝑥 = 𝑥 ∧ 𝐴 = {𝑥}))
78	76, 77	sylibr 237	. . . . . . . . . . . 12 ⊢ (𝐴 = {𝑥} → ⟨𝑥, 𝑥⟩ = {𝐴})
79	78	adantr 484	. . . . . . . . . . 11 ⊢ ((𝐴 = {𝑥} ∧ 𝑧 = {𝐴}) → ⟨𝑥, 𝑥⟩ = {𝐴})
80	74, 79	eqtr4d 2774	. . . . . . . . . 10 ⊢ ((𝐴 = {𝑥} ∧ 𝑧 = {𝐴}) → 𝑧 = ⟨𝑥, 𝑥⟩)
81		opeq12 4772	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑥 ∧ 𝑣 = 𝑥) → ⟨𝑤, 𝑣⟩ = ⟨𝑥, 𝑥⟩)
82	81	eqeq2d 2747	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑥 ∧ 𝑣 = 𝑥) → (𝑧 = ⟨𝑤, 𝑣⟩ ↔ 𝑧 = ⟨𝑥, 𝑥⟩))
83	18, 18, 82	spc2ev 3512	. . . . . . . . . 10 ⊢ (𝑧 = ⟨𝑥, 𝑥⟩ → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
84	80, 83	syl 17	. . . . . . . . 9 ⊢ ((𝐴 = {𝑥} ∧ 𝑧 = {𝐴}) → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
85	84	adantlr 715	. . . . . . . 8 ⊢ (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∧ 𝑧 = {𝐴}) → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
86		preq12 4637	. . . . . . . . . . . 12 ⊢ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → {𝐴, 𝐵} = {{𝑥}, {𝑥, 𝑦}})
87	86	eqeq2d 2747	. . . . . . . . . . 11 ⊢ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → (𝑧 = {𝐴, 𝐵} ↔ 𝑧 = {{𝑥}, {𝑥, 𝑦}}))
88	87	biimpa 480	. . . . . . . . . 10 ⊢ (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∧ 𝑧 = {𝐴, 𝐵}) → 𝑧 = {{𝑥}, {𝑥, 𝑦}})
89	18, 19	dfop 4769	. . . . . . . . . 10 ⊢ ⟨𝑥, 𝑦⟩ = {{𝑥}, {𝑥, 𝑦}}
90	88, 89	eqtr4di 2789	. . . . . . . . 9 ⊢ (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∧ 𝑧 = {𝐴, 𝐵}) → 𝑧 = ⟨𝑥, 𝑦⟩)
91		opeq12 4772	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑥 ∧ 𝑣 = 𝑦) → ⟨𝑤, 𝑣⟩ = ⟨𝑥, 𝑦⟩)
92	91	eqeq2d 2747	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑥 ∧ 𝑣 = 𝑦) → (𝑧 = ⟨𝑤, 𝑣⟩ ↔ 𝑧 = ⟨𝑥, 𝑦⟩))
93	18, 19, 92	spc2ev 3512	. . . . . . . . 9 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
94	90, 93	syl 17	. . . . . . . 8 ⊢ (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∧ 𝑧 = {𝐴, 𝐵}) → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
95	85, 94	jaodan 958	. . . . . . 7 ⊢ (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∧ (𝑧 = {𝐴} ∨ 𝑧 = {𝐴, 𝐵})) → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
96	95	ex 416	. . . . . 6 ⊢ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → ((𝑧 = {𝐴} ∨ 𝑧 = {𝐴, 𝐵}) → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩))
97		elvv 5608	. . . . . 6 ⊢ (𝑧 ∈ (V × V) ↔ ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
98	96, 5, 97	3imtr4g 299	. . . . 5 ⊢ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → (𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)))
99	98	ssrdv 3893	. . . 4 ⊢ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → ⟨𝐴, 𝐵⟩ ⊆ (V × V))
100	99	exlimivv 1940	. . 3 ⊢ (∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → ⟨𝐴, 𝐵⟩ ⊆ (V × V))
101	73, 100	impbii 212	. 2 ⊢ (⟨𝐴, 𝐵⟩ ⊆ (V × V) ↔ ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))
102	1, 101	bitri 278	1 ⊢ (Rel ⟨𝐴, 𝐵⟩ ↔ ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   ∨ wo 847  ∀wal 1541   = wceq 1543  ∃wex 1787   ∈ wcel 2112  Vcvv 3398   ⊆ wss 3853  {csn 4527  {cpr 4529  ⟨cop 4533   × cxp 5534  Rel wrel 5541

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2018  ax-8 2114  ax-9 2122  ax-ext 2708  ax-sep 5177  ax-nul 5184  ax-pr 5307

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-sb 2073  df-clab 2715  df-cleq 2728  df-clel 2809  df-ne 2933  df-rab 3060  df-v 3400  df-dif 3856  df-un 3858  df-in 3860  df-ss 3870  df-nul 4224  df-if 4426  df-sn 4528  df-pr 4530  df-op 4534  df-opab 5102  df-xp 5542  df-rel 5543

This theorem is referenced by:  funopg  6392