Theorem fsn 5806

Description: A function maps a singleton to a singleton iff it is the singleton of an ordered pair. (Contributed by NM, 10-Dec-2003.)

Hypotheses

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

Assertion

Ref	Expression
fsn	⊢ (𝐹:{𝐴}⟶{𝐵} ↔ 𝐹 = {⟨𝐴, 𝐵⟩})

Proof of Theorem fsn

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		opelf 5495	. . . . . . . 8 ⊢ ((𝐹:{𝐴}⟶{𝐵} ∧ ⟨𝑥, 𝑦⟩ ∈ 𝐹) → (𝑥 ∈ {𝐴} ∧ 𝑦 ∈ {𝐵}))
2		velsn 3683	. . . . . . . . 9 ⊢ (𝑥 ∈ {𝐴} ↔ 𝑥 = 𝐴)
3		velsn 3683	. . . . . . . . 9 ⊢ (𝑦 ∈ {𝐵} ↔ 𝑦 = 𝐵)
4	2, 3	anbi12i 460	. . . . . . . 8 ⊢ ((𝑥 ∈ {𝐴} ∧ 𝑦 ∈ {𝐵}) ↔ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵))
5	1, 4	sylib 122	. . . . . . 7 ⊢ ((𝐹:{𝐴}⟶{𝐵} ∧ ⟨𝑥, 𝑦⟩ ∈ 𝐹) → (𝑥 = 𝐴 ∧ 𝑦 = 𝐵))
6	5	ex 115	. . . . . 6 ⊢ (𝐹:{𝐴}⟶{𝐵} → (⟨𝑥, 𝑦⟩ ∈ 𝐹 → (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)))
7		fsn.1	. . . . . . . . . 10 ⊢ 𝐴 ∈ V
8	7	snid 3697	. . . . . . . . 9 ⊢ 𝐴 ∈ {𝐴}
9		feu 5507	. . . . . . . . 9 ⊢ ((𝐹:{𝐴}⟶{𝐵} ∧ 𝐴 ∈ {𝐴}) → ∃!𝑦 ∈ {𝐵}⟨𝐴, 𝑦⟩ ∈ 𝐹)
10	8, 9	mpan2 425	. . . . . . . 8 ⊢ (𝐹:{𝐴}⟶{𝐵} → ∃!𝑦 ∈ {𝐵}⟨𝐴, 𝑦⟩ ∈ 𝐹)
11	3	anbi1i 458	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ {𝐵} ∧ ⟨𝐴, 𝑦⟩ ∈ 𝐹) ↔ (𝑦 = 𝐵 ∧ ⟨𝐴, 𝑦⟩ ∈ 𝐹))
12		opeq2 3857	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝐵 → ⟨𝐴, 𝑦⟩ = ⟨𝐴, 𝐵⟩)
13	12	eleq1d 2298	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐵 → (⟨𝐴, 𝑦⟩ ∈ 𝐹 ↔ ⟨𝐴, 𝐵⟩ ∈ 𝐹))
14	13	pm5.32i 454	. . . . . . . . . . . 12 ⊢ ((𝑦 = 𝐵 ∧ ⟨𝐴, 𝑦⟩ ∈ 𝐹) ↔ (𝑦 = 𝐵 ∧ ⟨𝐴, 𝐵⟩ ∈ 𝐹))
15		ancom 266	. . . . . . . . . . . 12 ⊢ ((⟨𝐴, 𝐵⟩ ∈ 𝐹 ∧ 𝑦 = 𝐵) ↔ (𝑦 = 𝐵 ∧ ⟨𝐴, 𝐵⟩ ∈ 𝐹))
16	14, 15	bitr4i 187	. . . . . . . . . . 11 ⊢ ((𝑦 = 𝐵 ∧ ⟨𝐴, 𝑦⟩ ∈ 𝐹) ↔ (⟨𝐴, 𝐵⟩ ∈ 𝐹 ∧ 𝑦 = 𝐵))
17	11, 16	bitr2i 185	. . . . . . . . . 10 ⊢ ((⟨𝐴, 𝐵⟩ ∈ 𝐹 ∧ 𝑦 = 𝐵) ↔ (𝑦 ∈ {𝐵} ∧ ⟨𝐴, 𝑦⟩ ∈ 𝐹))
18	17	eubii 2086	. . . . . . . . 9 ⊢ (∃!𝑦(⟨𝐴, 𝐵⟩ ∈ 𝐹 ∧ 𝑦 = 𝐵) ↔ ∃!𝑦(𝑦 ∈ {𝐵} ∧ ⟨𝐴, 𝑦⟩ ∈ 𝐹))
19		fsn.2	. . . . . . . . . . . 12 ⊢ 𝐵 ∈ V
20	19	eueq1 2975	. . . . . . . . . . 11 ⊢ ∃!𝑦 𝑦 = 𝐵
21	20	biantru 302	. . . . . . . . . 10 ⊢ (⟨𝐴, 𝐵⟩ ∈ 𝐹 ↔ (⟨𝐴, 𝐵⟩ ∈ 𝐹 ∧ ∃!𝑦 𝑦 = 𝐵))
22		euanv 2135	. . . . . . . . . 10 ⊢ (∃!𝑦(⟨𝐴, 𝐵⟩ ∈ 𝐹 ∧ 𝑦 = 𝐵) ↔ (⟨𝐴, 𝐵⟩ ∈ 𝐹 ∧ ∃!𝑦 𝑦 = 𝐵))
23	21, 22	bitr4i 187	. . . . . . . . 9 ⊢ (⟨𝐴, 𝐵⟩ ∈ 𝐹 ↔ ∃!𝑦(⟨𝐴, 𝐵⟩ ∈ 𝐹 ∧ 𝑦 = 𝐵))
24		df-reu 2515	. . . . . . . . 9 ⊢ (∃!𝑦 ∈ {𝐵}⟨𝐴, 𝑦⟩ ∈ 𝐹 ↔ ∃!𝑦(𝑦 ∈ {𝐵} ∧ ⟨𝐴, 𝑦⟩ ∈ 𝐹))
25	18, 23, 24	3bitr4i 212	. . . . . . . 8 ⊢ (⟨𝐴, 𝐵⟩ ∈ 𝐹 ↔ ∃!𝑦 ∈ {𝐵}⟨𝐴, 𝑦⟩ ∈ 𝐹)
26	10, 25	sylibr 134	. . . . . . 7 ⊢ (𝐹:{𝐴}⟶{𝐵} → ⟨𝐴, 𝐵⟩ ∈ 𝐹)
27		opeq12 3858	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩)
28	27	eleq1d 2298	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (⟨𝑥, 𝑦⟩ ∈ 𝐹 ↔ ⟨𝐴, 𝐵⟩ ∈ 𝐹))
29	26, 28	syl5ibrcom 157	. . . . . 6 ⊢ (𝐹:{𝐴}⟶{𝐵} → ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⟨𝑥, 𝑦⟩ ∈ 𝐹))
30	6, 29	impbid 129	. . . . 5 ⊢ (𝐹:{𝐴}⟶{𝐵} → (⟨𝑥, 𝑦⟩ ∈ 𝐹 ↔ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)))
31		vex 2802	. . . . . . . 8 ⊢ 𝑥 ∈ V
32		vex 2802	. . . . . . . 8 ⊢ 𝑦 ∈ V
33	31, 32	opex 4314	. . . . . . 7 ⊢ ⟨𝑥, 𝑦⟩ ∈ V
34	33	elsn 3682	. . . . . 6 ⊢ (⟨𝑥, 𝑦⟩ ∈ {⟨𝐴, 𝐵⟩} ↔ ⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩)
35	7, 19	opth2 4325	. . . . . 6 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩ ↔ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵))
36	34, 35	bitr2i 185	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) ↔ ⟨𝑥, 𝑦⟩ ∈ {⟨𝐴, 𝐵⟩})
37	30, 36	bitrdi 196	. . . 4 ⊢ (𝐹:{𝐴}⟶{𝐵} → (⟨𝑥, 𝑦⟩ ∈ 𝐹 ↔ ⟨𝑥, 𝑦⟩ ∈ {⟨𝐴, 𝐵⟩}))
38	37	alrimivv 1921	. . 3 ⊢ (𝐹:{𝐴}⟶{𝐵} → ∀𝑥∀𝑦(⟨𝑥, 𝑦⟩ ∈ 𝐹 ↔ ⟨𝑥, 𝑦⟩ ∈ {⟨𝐴, 𝐵⟩}))
39		frel 5477	. . . 4 ⊢ (𝐹:{𝐴}⟶{𝐵} → Rel 𝐹)
40	7, 19	relsnop 4824	. . . 4 ⊢ Rel {⟨𝐴, 𝐵⟩}
41		eqrel 4807	. . . 4 ⊢ ((Rel 𝐹 ∧ Rel {⟨𝐴, 𝐵⟩}) → (𝐹 = {⟨𝐴, 𝐵⟩} ↔ ∀𝑥∀𝑦(⟨𝑥, 𝑦⟩ ∈ 𝐹 ↔ ⟨𝑥, 𝑦⟩ ∈ {⟨𝐴, 𝐵⟩})))
42	39, 40, 41	sylancl 413	. . 3 ⊢ (𝐹:{𝐴}⟶{𝐵} → (𝐹 = {⟨𝐴, 𝐵⟩} ↔ ∀𝑥∀𝑦(⟨𝑥, 𝑦⟩ ∈ 𝐹 ↔ ⟨𝑥, 𝑦⟩ ∈ {⟨𝐴, 𝐵⟩})))
43	38, 42	mpbird 167	. 2 ⊢ (𝐹:{𝐴}⟶{𝐵} → 𝐹 = {⟨𝐴, 𝐵⟩})
44	7, 19	f1osn 5612	. . . 4 ⊢ {⟨𝐴, 𝐵⟩}:{𝐴}–1-1-onto→{𝐵}
45		f1oeq1 5559	. . . 4 ⊢ (𝐹 = {⟨𝐴, 𝐵⟩} → (𝐹:{𝐴}–1-1-onto→{𝐵} ↔ {⟨𝐴, 𝐵⟩}:{𝐴}–1-1-onto→{𝐵}))
46	44, 45	mpbiri 168	. . 3 ⊢ (𝐹 = {⟨𝐴, 𝐵⟩} → 𝐹:{𝐴}–1-1-onto→{𝐵})
47		f1of 5571	. . 3 ⊢ (𝐹:{𝐴}–1-1-onto→{𝐵} → 𝐹:{𝐴}⟶{𝐵})
48	46, 47	syl 14	. 2 ⊢ (𝐹 = {⟨𝐴, 𝐵⟩} → 𝐹:{𝐴}⟶{𝐵})
49	43, 48	impbii 126	1 ⊢ (𝐹:{𝐴}⟶{𝐵} ↔ 𝐹 = {⟨𝐴, 𝐵⟩})

Syntax hints:   ∧ wa 104   ↔ wb 105  ∀wal 1393   = wceq 1395  ∃!weu 2077   ∈ wcel 2200  ∃!wreu 2510  Vcvv 2799  {csn 3666  ⟨cop 3669  Rel wrel 4723  ⟶wf 5313  –1-1-onto→wf1o 5316

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-14 2203  ax-ext 2211  ax-sep 4201  ax-pow 4257  ax-pr 4292

This theorem depends on definitions:  df-bi 117  df-3an 1004  df-tru 1398  df-nf 1507  df-sb 1809  df-eu 2080  df-mo 2081  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ral 2513  df-rex 2514  df-reu 2515  df-v 2801  df-un 3201  df-in 3203  df-ss 3210  df-pw 3651  df-sn 3672  df-pr 3673  df-op 3675  df-br 4083  df-opab 4145  df-id 4383  df-xp 4724  df-rel 4725  df-cnv 4726  df-co 4727  df-dm 4728  df-rn 4729  df-fun 5319  df-fn 5320  df-f 5321  df-f1 5322  df-fo 5323  df-f1o 5324

This theorem is referenced by:  fsng  5807  mapsn  6835