Theorem fvsnun1 6612

Description: The value of a function with one of its ordered pairs replaced, at the replaced ordered pair. See also fvsnun2 6613. (Contributed by NM, 23-Sep-2007.)

Hypotheses

Ref	Expression
fvsnun.1	⊢ 𝐴 ∈ V
fvsnun.2	⊢ 𝐵 ∈ V
fvsnun.3	⊢ 𝐺 = ({⟨𝐴, 𝐵⟩} ∪ (𝐹 ↾ (𝐶 ∖ {𝐴})))

Assertion

Ref	Expression
fvsnun1	⊢ (𝐺‘𝐴) = 𝐵

Proof of Theorem fvsnun1

Step	Hyp	Ref	Expression
1		fvsnun.3	. . . . 5 ⊢ 𝐺 = ({⟨𝐴, 𝐵⟩} ∪ (𝐹 ↾ (𝐶 ∖ {𝐴})))
2	1	reseq1i 5547	. . . 4 ⊢ (𝐺 ↾ {𝐴}) = (({⟨𝐴, 𝐵⟩} ∪ (𝐹 ↾ (𝐶 ∖ {𝐴}))) ↾ {𝐴})
3		resundir 5569	. . . . 5 ⊢ (({⟨𝐴, 𝐵⟩} ∪ (𝐹 ↾ (𝐶 ∖ {𝐴}))) ↾ {𝐴}) = (({⟨𝐴, 𝐵⟩} ↾ {𝐴}) ∪ ((𝐹 ↾ (𝐶 ∖ {𝐴})) ↾ {𝐴}))
4		incom 3948	. . . . . . . . 9 ⊢ ((𝐶 ∖ {𝐴}) ∩ {𝐴}) = ({𝐴} ∩ (𝐶 ∖ {𝐴}))
5		disjdif 4184	. . . . . . . . 9 ⊢ ({𝐴} ∩ (𝐶 ∖ {𝐴})) = ∅
6	4, 5	eqtri 2782	. . . . . . . 8 ⊢ ((𝐶 ∖ {𝐴}) ∩ {𝐴}) = ∅
7		resdisj 5721	. . . . . . . 8 ⊢ (((𝐶 ∖ {𝐴}) ∩ {𝐴}) = ∅ → ((𝐹 ↾ (𝐶 ∖ {𝐴})) ↾ {𝐴}) = ∅)
8	6, 7	ax-mp 5	. . . . . . 7 ⊢ ((𝐹 ↾ (𝐶 ∖ {𝐴})) ↾ {𝐴}) = ∅
9	8	uneq2i 3907	. . . . . 6 ⊢ (({⟨𝐴, 𝐵⟩} ↾ {𝐴}) ∪ ((𝐹 ↾ (𝐶 ∖ {𝐴})) ↾ {𝐴})) = (({⟨𝐴, 𝐵⟩} ↾ {𝐴}) ∪ ∅)
10		un0 4110	. . . . . 6 ⊢ (({⟨𝐴, 𝐵⟩} ↾ {𝐴}) ∪ ∅) = ({⟨𝐴, 𝐵⟩} ↾ {𝐴})
11	9, 10	eqtri 2782	. . . . 5 ⊢ (({⟨𝐴, 𝐵⟩} ↾ {𝐴}) ∪ ((𝐹 ↾ (𝐶 ∖ {𝐴})) ↾ {𝐴})) = ({⟨𝐴, 𝐵⟩} ↾ {𝐴})
12	3, 11	eqtri 2782	. . . 4 ⊢ (({⟨𝐴, 𝐵⟩} ∪ (𝐹 ↾ (𝐶 ∖ {𝐴}))) ↾ {𝐴}) = ({⟨𝐴, 𝐵⟩} ↾ {𝐴})
13	2, 12	eqtri 2782	. . 3 ⊢ (𝐺 ↾ {𝐴}) = ({⟨𝐴, 𝐵⟩} ↾ {𝐴})
14	13	fveq1i 6353	. 2 ⊢ ((𝐺 ↾ {𝐴})‘𝐴) = (({⟨𝐴, 𝐵⟩} ↾ {𝐴})‘𝐴)
15		fvsnun.1	. . . 4 ⊢ 𝐴 ∈ V
16	15	snid 4353	. . 3 ⊢ 𝐴 ∈ {𝐴}
17		fvres 6368	. . 3 ⊢ (𝐴 ∈ {𝐴} → ((𝐺 ↾ {𝐴})‘𝐴) = (𝐺‘𝐴))
18	16, 17	ax-mp 5	. 2 ⊢ ((𝐺 ↾ {𝐴})‘𝐴) = (𝐺‘𝐴)
19		fvres 6368	. . . 4 ⊢ (𝐴 ∈ {𝐴} → (({⟨𝐴, 𝐵⟩} ↾ {𝐴})‘𝐴) = ({⟨𝐴, 𝐵⟩}‘𝐴))
20	16, 19	ax-mp 5	. . 3 ⊢ (({⟨𝐴, 𝐵⟩} ↾ {𝐴})‘𝐴) = ({⟨𝐴, 𝐵⟩}‘𝐴)
21		fvsnun.2	. . . 4 ⊢ 𝐵 ∈ V
22	15, 21	fvsn 6610	. . 3 ⊢ ({⟨𝐴, 𝐵⟩}‘𝐴) = 𝐵
23	20, 22	eqtri 2782	. 2 ⊢ (({⟨𝐴, 𝐵⟩} ↾ {𝐴})‘𝐴) = 𝐵
24	14, 18, 23	3eqtr3i 2790	1 ⊢ (𝐺‘𝐴) = 𝐵

Syntax hints:   = wceq 1632   ∈ wcel 2139  Vcvv 3340   ∖ cdif 3712   ∪ cun 3713   ∩ cin 3714  ∅c0 4058  {csn 4321  ⟨cop 4327   ↾ cres 5268  ‘cfv 6049

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-sep 4933  ax-nul 4941  ax-pr 5055

This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1074  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ral 3055  df-rex 3056  df-rab 3059  df-v 3342  df-sbc 3577  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-nul 4059  df-if 4231  df-sn 4322  df-pr 4324  df-op 4328  df-uni 4589  df-br 4805  df-opab 4865  df-id 5174  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-res 5278  df-iota 6012  df-fun 6051  df-fv 6057

This theorem is referenced by:  fac0  13257  ruclem4  15162