Theorem relop 5716

Description: A necessary and sufficient condition for a Kuratowski ordered pair to be a relation. Compare with relsnopg 5671. (Contributed by NM, 3-Jun-2008.) (Avoid depending on this detail.)

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 5557	. 2 ⊢ (Rel ⟨𝐴, 𝐵⟩ ↔ ⟨𝐴, 𝐵⟩ ⊆ (V × V))
2		dfss2 3955	. . . . 5 ⊢ (⟨𝐴, 𝐵⟩ ⊆ (V × V) ↔ ∀𝑧(𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)))
3		relop.1	. . . . . . . . . 10 ⊢ 𝐴 ∈ V
4		relop.2	. . . . . . . . . 10 ⊢ 𝐵 ∈ V
5	3, 4	elop 5352	. . . . . . . . 9 ⊢ (𝑧 ∈ ⟨𝐴, 𝐵⟩ ↔ (𝑧 = {𝐴} ∨ 𝑧 = {𝐴, 𝐵}))
6		elvv 5621	. . . . . . . . 9 ⊢ (𝑧 ∈ (V × V) ↔ ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)
7	5, 6	imbi12i 353	. . . . . . . 8 ⊢ ((𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)) ↔ ((𝑧 = {𝐴} ∨ 𝑧 = {𝐴, 𝐵}) → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩))
8		jaob 958	. . . . . . . 8 ⊢ (((𝑧 = {𝐴} ∨ 𝑧 = {𝐴, 𝐵}) → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ↔ ((𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ (𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
9	7, 8	bitri 277	. . . . . . 7 ⊢ ((𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)) ↔ ((𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ (𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
10	9	albii 1816	. . . . . 6 ⊢ (∀𝑧(𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)) ↔ ∀𝑧((𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ (𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
11		19.26 1867	. . . . . 6 ⊢ (∀𝑧((𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ (𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)) ↔ (∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ ∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
12	10, 11	bitri 277	. . . . 5 ⊢ (∀𝑧(𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)) ↔ (∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ ∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
13	2, 12	bitri 277	. . . 4 ⊢ (⟨𝐴, 𝐵⟩ ⊆ (V × V) ↔ (∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ ∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)))
14		snex 5324	. . . . . . 7 ⊢ {𝐴} ∈ V
15		eqeq1 2825	. . . . . . . 8 ⊢ (𝑧 = {𝐴} → (𝑧 = {𝐴} ↔ {𝐴} = {𝐴}))
16		eqeq1 2825	. . . . . . . . . 10 ⊢ (𝑧 = {𝐴} → (𝑧 = ⟨𝑥, 𝑦⟩ ↔ {𝐴} = ⟨𝑥, 𝑦⟩))
17		eqcom 2828	. . . . . . . . . . 11 ⊢ ({𝐴} = ⟨𝑥, 𝑦⟩ ↔ ⟨𝑥, 𝑦⟩ = {𝐴})
18		vex 3498	. . . . . . . . . . . 12 ⊢ 𝑥 ∈ V
19		vex 3498	. . . . . . . . . . . 12 ⊢ 𝑦 ∈ V
20	18, 19	opeqsn 5387	. . . . . . . . . . 11 ⊢ (⟨𝑥, 𝑦⟩ = {𝐴} ↔ (𝑥 = 𝑦 ∧ 𝐴 = {𝑥}))
21	17, 20	bitri 277	. . . . . . . . . 10 ⊢ ({𝐴} = ⟨𝑥, 𝑦⟩ ↔ (𝑥 = 𝑦 ∧ 𝐴 = {𝑥}))
22	16, 21	syl6bb 289	. . . . . . . . 9 ⊢ (𝑧 = {𝐴} → (𝑧 = ⟨𝑥, 𝑦⟩ ↔ (𝑥 = 𝑦 ∧ 𝐴 = {𝑥})))
23	22	2exbidv 1921	. . . . . . . 8 ⊢ (𝑧 = {𝐴} → (∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩ ↔ ∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥})))
24	15, 23	imbi12d 347	. . . . . . 7 ⊢ (𝑧 = {𝐴} → ((𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ↔ ({𝐴} = {𝐴} → ∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥}))))
25	14, 24	spcv 3606	. . . . . 6 ⊢ (∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) → ({𝐴} = {𝐴} → ∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥})))
26		sneq 4571	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → {𝑤} = {𝑥})
27	26	eqeq2d 2832	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → (𝐴 = {𝑤} ↔ 𝐴 = {𝑥}))
28	27	cbvexvw 2040	. . . . . . 7 ⊢ (∃𝑤 𝐴 = {𝑤} ↔ ∃𝑥 𝐴 = {𝑥})
29		ax6evr 2018	. . . . . . . . 9 ⊢ ∃𝑦 𝑥 = 𝑦
30		19.41v 1946	. . . . . . . . 9 ⊢ (∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥}) ↔ (∃𝑦 𝑥 = 𝑦 ∧ 𝐴 = {𝑥}))
31	29, 30	mpbiran 707	. . . . . . . 8 ⊢ (∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥}) ↔ 𝐴 = {𝑥})
32	31	exbii 1844	. . . . . . 7 ⊢ (∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥}) ↔ ∃𝑥 𝐴 = {𝑥})
33		eqid 2821	. . . . . . . 8 ⊢ {𝐴} = {𝐴}
34	33	a1bi 365	. . . . . . 7 ⊢ (∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥}) ↔ ({𝐴} = {𝐴} → ∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥})))
35	28, 32, 34	3bitr2ri 302	. . . . . 6 ⊢ (({𝐴} = {𝐴} → ∃𝑥∃𝑦(𝑥 = 𝑦 ∧ 𝐴 = {𝑥})) ↔ ∃𝑤 𝐴 = {𝑤})
36	25, 35	sylib 220	. . . . 5 ⊢ (∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) → ∃𝑤 𝐴 = {𝑤})
37		eqid 2821	. . . . . 6 ⊢ {𝐴, 𝐵} = {𝐴, 𝐵}
38		prex 5325	. . . . . . 7 ⊢ {𝐴, 𝐵} ∈ V
39		eqeq1 2825	. . . . . . . 8 ⊢ (𝑧 = {𝐴, 𝐵} → (𝑧 = {𝐴, 𝐵} ↔ {𝐴, 𝐵} = {𝐴, 𝐵}))
40		eqeq1 2825	. . . . . . . . 9 ⊢ (𝑧 = {𝐴, 𝐵} → (𝑧 = ⟨𝑥, 𝑦⟩ ↔ {𝐴, 𝐵} = ⟨𝑥, 𝑦⟩))
41	40	2exbidv 1921	. . . . . . . 8 ⊢ (𝑧 = {𝐴, 𝐵} → (∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩ ↔ ∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩))
42	39, 41	imbi12d 347	. . . . . . 7 ⊢ (𝑧 = {𝐴, 𝐵} → ((𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ↔ ({𝐴, 𝐵} = {𝐴, 𝐵} → ∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩)))
43	38, 42	spcv 3606	. . . . . 6 ⊢ (∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) → ({𝐴, 𝐵} = {𝐴, 𝐵} → ∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩))
44	37, 43	mpi 20	. . . . 5 ⊢ (∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) → ∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩)
45		eqcom 2828	. . . . . . . . . 10 ⊢ ({𝐴, 𝐵} = ⟨𝑥, 𝑦⟩ ↔ ⟨𝑥, 𝑦⟩ = {𝐴, 𝐵})
46	18, 19, 3, 4	opeqpr 5388	. . . . . . . . . 10 ⊢ (⟨𝑥, 𝑦⟩ = {𝐴, 𝐵} ↔ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∨ (𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥})))
47	45, 46	bitri 277	. . . . . . . . 9 ⊢ ({𝐴, 𝐵} = ⟨𝑥, 𝑦⟩ ↔ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∨ (𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥})))
48		idd 24	. . . . . . . . . 10 ⊢ (𝐴 = {𝑤} → ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
49		eqtr2 2842	. . . . . . . . . . . . . 14 ⊢ ((𝐴 = {𝑥, 𝑦} ∧ 𝐴 = {𝑤}) → {𝑥, 𝑦} = {𝑤})
50	18, 19	preqsn 4786	. . . . . . . . . . . . . . 15 ⊢ ({𝑥, 𝑦} = {𝑤} ↔ (𝑥 = 𝑦 ∧ 𝑦 = 𝑤))
51	50	simplbi 500	. . . . . . . . . . . . . 14 ⊢ ({𝑥, 𝑦} = {𝑤} → 𝑥 = 𝑦)
52	49, 51	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐴 = {𝑥, 𝑦} ∧ 𝐴 = {𝑤}) → 𝑥 = 𝑦)
53		dfsn2 4574	. . . . . . . . . . . . . . . . . . . 20 ⊢ {𝑥} = {𝑥, 𝑥}
54		preq2 4664	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑦 → {𝑥, 𝑥} = {𝑥, 𝑦})
55	53, 54	syl5req 2869	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑦 → {𝑥, 𝑦} = {𝑥})
56	55	eqeq2d 2832	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑦 → (𝐴 = {𝑥, 𝑦} ↔ 𝐴 = {𝑥}))
57	53, 54	syl5eq 2868	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑦 → {𝑥} = {𝑥, 𝑦})
58	57	eqeq2d 2832	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑦 → (𝐵 = {𝑥} ↔ 𝐵 = {𝑥, 𝑦}))
59	56, 58	anbi12d 632	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑦 → ((𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥}) ↔ (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
60	59	biimpd 231	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑦 → ((𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥}) → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
61	60	expd 418	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑦 → (𝐴 = {𝑥, 𝑦} → (𝐵 = {𝑥} → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))))
62	61	com12 32	. . . . . . . . . . . . . 14 ⊢ (𝐴 = {𝑥, 𝑦} → (𝑥 = 𝑦 → (𝐵 = {𝑥} → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))))
63	62	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝐴 = {𝑥, 𝑦} ∧ 𝐴 = {𝑤}) → (𝑥 = 𝑦 → (𝐵 = {𝑥} → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))))
64	52, 63	mpd 15	. . . . . . . . . . . 12 ⊢ ((𝐴 = {𝑥, 𝑦} ∧ 𝐴 = {𝑤}) → (𝐵 = {𝑥} → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
65	64	expcom 416	. . . . . . . . . . 11 ⊢ (𝐴 = {𝑤} → (𝐴 = {𝑥, 𝑦} → (𝐵 = {𝑥} → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))))
66	65	impd 413	. . . . . . . . . 10 ⊢ (𝐴 = {𝑤} → ((𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥}) → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
67	48, 66	jaod 855	. . . . . . . . 9 ⊢ (𝐴 = {𝑤} → (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∨ (𝐴 = {𝑥, 𝑦} ∧ 𝐵 = {𝑥})) → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
68	47, 67	syl5bi 244	. . . . . . . 8 ⊢ (𝐴 = {𝑤} → ({𝐴, 𝐵} = ⟨𝑥, 𝑦⟩ → (𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
69	68	2eximdv 1916	. . . . . . 7 ⊢ (𝐴 = {𝑤} → (∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩ → ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
70	69	exlimiv 1927	. . . . . 6 ⊢ (∃𝑤 𝐴 = {𝑤} → (∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩ → ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦})))
71	70	imp 409	. . . . 5 ⊢ ((∃𝑤 𝐴 = {𝑤} ∧ ∃𝑥∃𝑦{𝐴, 𝐵} = ⟨𝑥, 𝑦⟩) → ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))
72	36, 44, 71	syl2an 597	. . . 4 ⊢ ((∀𝑧(𝑧 = {𝐴} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩) ∧ ∀𝑧(𝑧 = {𝐴, 𝐵} → ∃𝑥∃𝑦 𝑧 = ⟨𝑥, 𝑦⟩)) → ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))
73	13, 72	sylbi 219	. . 3 ⊢ (⟨𝐴, 𝐵⟩ ⊆ (V × V) → ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))
74		simpr 487	. . . . . . . . . . 11 ⊢ ((𝐴 = {𝑥} ∧ 𝑧 = {𝐴}) → 𝑧 = {𝐴})
75		equid 2015	. . . . . . . . . . . . . 14 ⊢ 𝑥 = 𝑥
76	75	jctl 526	. . . . . . . . . . . . 13 ⊢ (𝐴 = {𝑥} → (𝑥 = 𝑥 ∧ 𝐴 = {𝑥}))
77	18, 18	opeqsn 5387	. . . . . . . . . . . . 13 ⊢ (⟨𝑥, 𝑥⟩ = {𝐴} ↔ (𝑥 = 𝑥 ∧ 𝐴 = {𝑥}))
78	76, 77	sylibr 236	. . . . . . . . . . . 12 ⊢ (𝐴 = {𝑥} → ⟨𝑥, 𝑥⟩ = {𝐴})
79	78	adantr 483	. . . . . . . . . . 11 ⊢ ((𝐴 = {𝑥} ∧ 𝑧 = {𝐴}) → ⟨𝑥, 𝑥⟩ = {𝐴})
80	74, 79	eqtr4d 2859	. . . . . . . . . 10 ⊢ ((𝐴 = {𝑥} ∧ 𝑧 = {𝐴}) → 𝑧 = ⟨𝑥, 𝑥⟩)
81		opeq12 4799	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑥 ∧ 𝑣 = 𝑥) → ⟨𝑤, 𝑣⟩ = ⟨𝑥, 𝑥⟩)
82	81	eqeq2d 2832	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑥 ∧ 𝑣 = 𝑥) → (𝑧 = ⟨𝑤, 𝑣⟩ ↔ 𝑧 = ⟨𝑥, 𝑥⟩))
83	18, 18, 82	spc2ev 3608	. . . . . . . . . 10 ⊢ (𝑧 = ⟨𝑥, 𝑥⟩ → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
84	80, 83	syl 17	. . . . . . . . 9 ⊢ ((𝐴 = {𝑥} ∧ 𝑧 = {𝐴}) → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
85	84	adantlr 713	. . . . . . . 8 ⊢ (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∧ 𝑧 = {𝐴}) → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
86		preq12 4665	. . . . . . . . . . . 12 ⊢ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → {𝐴, 𝐵} = {{𝑥}, {𝑥, 𝑦}})
87	86	eqeq2d 2832	. . . . . . . . . . 11 ⊢ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → (𝑧 = {𝐴, 𝐵} ↔ 𝑧 = {{𝑥}, {𝑥, 𝑦}}))
88	87	biimpa 479	. . . . . . . . . 10 ⊢ (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∧ 𝑧 = {𝐴, 𝐵}) → 𝑧 = {{𝑥}, {𝑥, 𝑦}})
89	18, 19	dfop 4796	. . . . . . . . . 10 ⊢ ⟨𝑥, 𝑦⟩ = {{𝑥}, {𝑥, 𝑦}}
90	88, 89	syl6eqr 2874	. . . . . . . . 9 ⊢ (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∧ 𝑧 = {𝐴, 𝐵}) → 𝑧 = ⟨𝑥, 𝑦⟩)
91		opeq12 4799	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑥 ∧ 𝑣 = 𝑦) → ⟨𝑤, 𝑣⟩ = ⟨𝑥, 𝑦⟩)
92	91	eqeq2d 2832	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑥 ∧ 𝑣 = 𝑦) → (𝑧 = ⟨𝑤, 𝑣⟩ ↔ 𝑧 = ⟨𝑥, 𝑦⟩))
93	18, 19, 92	spc2ev 3608	. . . . . . . . 9 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
94	90, 93	syl 17	. . . . . . . 8 ⊢ (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∧ 𝑧 = {𝐴, 𝐵}) → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
95	85, 94	jaodan 954	. . . . . . 7 ⊢ (((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) ∧ (𝑧 = {𝐴} ∨ 𝑧 = {𝐴, 𝐵})) → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
96	95	ex 415	. . . . . 6 ⊢ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → ((𝑧 = {𝐴} ∨ 𝑧 = {𝐴, 𝐵}) → ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩))
97		elvv 5621	. . . . . 6 ⊢ (𝑧 ∈ (V × V) ↔ ∃𝑤∃𝑣 𝑧 = ⟨𝑤, 𝑣⟩)
98	96, 5, 97	3imtr4g 298	. . . . 5 ⊢ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → (𝑧 ∈ ⟨𝐴, 𝐵⟩ → 𝑧 ∈ (V × V)))
99	98	ssrdv 3973	. . . 4 ⊢ ((𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → ⟨𝐴, 𝐵⟩ ⊆ (V × V))
100	99	exlimivv 1929	. . 3 ⊢ (∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}) → ⟨𝐴, 𝐵⟩ ⊆ (V × V))
101	73, 100	impbii 211	. 2 ⊢ (⟨𝐴, 𝐵⟩ ⊆ (V × V) ↔ ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))
102	1, 101	bitri 277	1 ⊢ (Rel ⟨𝐴, 𝐵⟩ ↔ ∃𝑥∃𝑦(𝐴 = {𝑥} ∧ 𝐵 = {𝑥, 𝑦}))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∨ wo 843  ∀wal 1531   = wceq 1533  ∃wex 1776   ∈ wcel 2110  Vcvv 3495   ⊆ wss 3936  {csn 4561  {cpr 4563  ⟨cop 4567   × cxp 5548  Rel wrel 5555

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2156  ax-12 2172  ax-ext 2793  ax-sep 5196  ax-nul 5203  ax-pr 5322

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-rab 3147  df-v 3497  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-sn 4562  df-pr 4564  df-op 4568  df-opab 5122  df-xp 5556  df-rel 5557

This theorem is referenced by:  funopg  6384