Theorem fnressn 7164

Description: A function restricted to a singleton. (Contributed by NM, 9-Oct-2004.)

Assertion

Ref	Expression
fnressn	⊢ ((𝐹 Fn 𝐴 ∧ 𝐵 ∈ 𝐴) → (𝐹 ↾ {𝐵}) = {⟨𝐵, (𝐹‘𝐵)⟩})

Proof of Theorem fnressn

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		sneq 4633	. . . . . 6 ⊢ (𝑥 = 𝐵 → {𝑥} = {𝐵})
2	1	reseq2d 5981	. . . . 5 ⊢ (𝑥 = 𝐵 → (𝐹 ↾ {𝑥}) = (𝐹 ↾ {𝐵}))
3		fveq2 6893	. . . . . . 7 ⊢ (𝑥 = 𝐵 → (𝐹‘𝑥) = (𝐹‘𝐵))
4		opeq12 4873	. . . . . . 7 ⊢ ((𝑥 = 𝐵 ∧ (𝐹‘𝑥) = (𝐹‘𝐵)) → ⟨𝑥, (𝐹‘𝑥)⟩ = ⟨𝐵, (𝐹‘𝐵)⟩)
5	3, 4	mpdan 685	. . . . . 6 ⊢ (𝑥 = 𝐵 → ⟨𝑥, (𝐹‘𝑥)⟩ = ⟨𝐵, (𝐹‘𝐵)⟩)
6	5	sneqd 4635	. . . . 5 ⊢ (𝑥 = 𝐵 → {⟨𝑥, (𝐹‘𝑥)⟩} = {⟨𝐵, (𝐹‘𝐵)⟩})
7	2, 6	eqeq12d 2742	. . . 4 ⊢ (𝑥 = 𝐵 → ((𝐹 ↾ {𝑥}) = {⟨𝑥, (𝐹‘𝑥)⟩} ↔ (𝐹 ↾ {𝐵}) = {⟨𝐵, (𝐹‘𝐵)⟩}))
8	7	imbi2d 339	. . 3 ⊢ (𝑥 = 𝐵 → ((𝐹 Fn 𝐴 → (𝐹 ↾ {𝑥}) = {⟨𝑥, (𝐹‘𝑥)⟩}) ↔ (𝐹 Fn 𝐴 → (𝐹 ↾ {𝐵}) = {⟨𝐵, (𝐹‘𝐵)⟩})))
9		vex 3466	. . . . . . 7 ⊢ 𝑥 ∈ V
10	9	snss 4784	. . . . . 6 ⊢ (𝑥 ∈ 𝐴 ↔ {𝑥} ⊆ 𝐴)
11		fnssres 6676	. . . . . 6 ⊢ ((𝐹 Fn 𝐴 ∧ {𝑥} ⊆ 𝐴) → (𝐹 ↾ {𝑥}) Fn {𝑥})
12	10, 11	sylan2b 592	. . . . 5 ⊢ ((𝐹 Fn 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝐹 ↾ {𝑥}) Fn {𝑥})
13		dffn2 6722	. . . . . 6 ⊢ ((𝐹 ↾ {𝑥}) Fn {𝑥} ↔ (𝐹 ↾ {𝑥}):{𝑥}⟶V)
14	9	fsn2 7142	. . . . . 6 ⊢ ((𝐹 ↾ {𝑥}):{𝑥}⟶V ↔ (((𝐹 ↾ {𝑥})‘𝑥) ∈ V ∧ (𝐹 ↾ {𝑥}) = {⟨𝑥, ((𝐹 ↾ {𝑥})‘𝑥)⟩}))
15		fvex 6906	. . . . . . . 8 ⊢ ((𝐹 ↾ {𝑥})‘𝑥) ∈ V
16	15	biantrur 529	. . . . . . 7 ⊢ ((𝐹 ↾ {𝑥}) = {⟨𝑥, ((𝐹 ↾ {𝑥})‘𝑥)⟩} ↔ (((𝐹 ↾ {𝑥})‘𝑥) ∈ V ∧ (𝐹 ↾ {𝑥}) = {⟨𝑥, ((𝐹 ↾ {𝑥})‘𝑥)⟩}))
17		vsnid 4660	. . . . . . . . . . 11 ⊢ 𝑥 ∈ {𝑥}
18		fvres 6912	. . . . . . . . . . 11 ⊢ (𝑥 ∈ {𝑥} → ((𝐹 ↾ {𝑥})‘𝑥) = (𝐹‘𝑥))
19	17, 18	ax-mp 5	. . . . . . . . . 10 ⊢ ((𝐹 ↾ {𝑥})‘𝑥) = (𝐹‘𝑥)
20	19	opeq2i 4875	. . . . . . . . 9 ⊢ ⟨𝑥, ((𝐹 ↾ {𝑥})‘𝑥)⟩ = ⟨𝑥, (𝐹‘𝑥)⟩
21	20	sneqi 4634	. . . . . . . 8 ⊢ {⟨𝑥, ((𝐹 ↾ {𝑥})‘𝑥)⟩} = {⟨𝑥, (𝐹‘𝑥)⟩}
22	21	eqeq2i 2739	. . . . . . 7 ⊢ ((𝐹 ↾ {𝑥}) = {⟨𝑥, ((𝐹 ↾ {𝑥})‘𝑥)⟩} ↔ (𝐹 ↾ {𝑥}) = {⟨𝑥, (𝐹‘𝑥)⟩})
23	16, 22	bitr3i 276	. . . . . 6 ⊢ ((((𝐹 ↾ {𝑥})‘𝑥) ∈ V ∧ (𝐹 ↾ {𝑥}) = {⟨𝑥, ((𝐹 ↾ {𝑥})‘𝑥)⟩}) ↔ (𝐹 ↾ {𝑥}) = {⟨𝑥, (𝐹‘𝑥)⟩})
24	13, 14, 23	3bitri 296	. . . . 5 ⊢ ((𝐹 ↾ {𝑥}) Fn {𝑥} ↔ (𝐹 ↾ {𝑥}) = {⟨𝑥, (𝐹‘𝑥)⟩})
25	12, 24	sylib 217	. . . 4 ⊢ ((𝐹 Fn 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝐹 ↾ {𝑥}) = {⟨𝑥, (𝐹‘𝑥)⟩})
26	25	expcom 412	. . 3 ⊢ (𝑥 ∈ 𝐴 → (𝐹 Fn 𝐴 → (𝐹 ↾ {𝑥}) = {⟨𝑥, (𝐹‘𝑥)⟩}))
27	8, 26	vtoclga 3557	. 2 ⊢ (𝐵 ∈ 𝐴 → (𝐹 Fn 𝐴 → (𝐹 ↾ {𝐵}) = {⟨𝐵, (𝐹‘𝐵)⟩}))
28	27	impcom 406	1 ⊢ ((𝐹 Fn 𝐴 ∧ 𝐵 ∈ 𝐴) → (𝐹 ↾ {𝐵}) = {⟨𝐵, (𝐹‘𝐵)⟩})

Syntax hints:   → wi 4   ∧ wa 394   = wceq 1534   ∈ wcel 2099  Vcvv 3462   ⊆ wss 3946  {csn 4623  ⟨cop 4629   ↾ cres 5676   Fn wfn 6541  ⟶wf 6542  ‘cfv 6546

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-12 2167  ax-ext 2697  ax-sep 5296  ax-nul 5303  ax-pr 5425

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-ne 2931  df-ral 3052  df-rex 3061  df-reu 3365  df-rab 3420  df-v 3464  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-nul 4323  df-if 4524  df-sn 4624  df-pr 4626  df-op 4630  df-uni 4906  df-br 5146  df-opab 5208  df-id 5572  df-xp 5680  df-rel 5681  df-cnv 5682  df-co 5683  df-dm 5684  df-rn 5685  df-res 5686  df-ima 5687  df-iota 6498  df-fun 6548  df-fn 6549  df-f 6550  df-f1 6551  df-fo 6552  df-f1o 6553  df-fv 6554

This theorem is referenced by:  funressn  7165  fressnfv  7166  fnsnsplit  7190  canthp1lem2  10687  fseq1p1m1  13623  resunimafz0  14457  dprd2da  20038  dmdprdpr  20045  dprdpr  20046  dpjlem  20047  pgpfaclem1  20077  islindf4  21832  xpstopnlem1  23801  ptcmpfi  23805  nosupbnd2lem1  27742  noinfbnd2lem1  27757  gsumhashmul  32929  subfacp1lem5  35025  cvmliftlem10  35135  poimirlem9  37343