Theorem cbvmpt 4184

Description: Rule to change the bound variable in a maps-to function, using implicit substitution. This version has bound-variable hypotheses in place of distinct variable conditions. (Contributed by NM, 11-Sep-2011.)

Hypotheses

Ref	Expression
cbvmpt.1	|- F/_ y B
cbvmpt.2	|- F/_ x C
cbvmpt.3	|- ( x = y -> B = C )

Assertion

Ref	Expression
cbvmpt	|- ( x e. A |-> B ) = ( y e. A |-> C )

Distinct variable groups:   x, A   y, A

Allowed substitution hints:   B( x, y)   C( x, y)

Proof of Theorem cbvmpt

Dummy variables z w are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		nfv 1576	. . . 4 |- F/ w ( x e. A /\ z = B )
2		nfv 1576	. . . . 5 |- F/ x w e. A
3		nfs1v 1992	. . . . 5 |- F/ x [ w / x ] z = B
4	2, 3	nfan 1613	. . . 4 |- F/ x ( w e. A /\ [ w / x ] z = B )
5		eleq1 2294	. . . . 5 |- ( x = w -> ( x e. A <-> w e. A ) )
6		sbequ12 1819	. . . . 5 |- ( x = w -> ( z = B <-> [ w / x ] z = B ) )
7	5, 6	anbi12d 473	. . . 4 |- ( x = w -> ( ( x e. A /\ z = B ) <-> ( w e. A /\ [ w / x ] z = B ) ) )
8	1, 4, 7	cbvopab1 4162	. . 3 |- { <. x , z >. | ( x e. A /\ z = B ) } = { <. w , z >. | ( w e. A /\ [ w / x ] z = B ) }
9		nfv 1576	. . . . 5 |- F/ y w e. A
10		cbvmpt.1	. . . . . . 7 |- F/_ y B
11	10	nfeq2 2386	. . . . . 6 |- F/ y z = B
12	11	nfsb 1999	. . . . 5 |- F/ y [ w / x ] z = B
13	9, 12	nfan 1613	. . . 4 |- F/ y ( w e. A /\ [ w / x ] z = B )
14		nfv 1576	. . . 4 |- F/ w ( y e. A /\ z = C )
15		eleq1 2294	. . . . 5 |- ( w = y -> ( w e. A <-> y e. A ) )
16		sbequ 1888	. . . . . 6 |- ( w = y -> ( [ w / x ] z = B <-> [ y / x ] z = B ) )
17		cbvmpt.2	. . . . . . . 8 |- F/_ x C
18	17	nfeq2 2386	. . . . . . 7 |- F/ x z = C
19		cbvmpt.3	. . . . . . . 8 |- ( x = y -> B = C )
20	19	eqeq2d 2243	. . . . . . 7 |- ( x = y -> ( z = B <-> z = C ) )
21	18, 20	sbie 1839	. . . . . 6 |- ( [ y / x ] z = B <-> z = C )
22	16, 21	bitrdi 196	. . . . 5 |- ( w = y -> ( [ w / x ] z = B <-> z = C ) )
23	15, 22	anbi12d 473	. . . 4 |- ( w = y -> ( ( w e. A /\ [ w / x ] z = B ) <-> ( y e. A /\ z = C ) ) )
24	13, 14, 23	cbvopab1 4162	. . 3 |- { <. w , z >. | ( w e. A /\ [ w / x ] z = B ) } = { <. y , z >. | ( y e. A /\ z = C ) }
25	8, 24	eqtri 2252	. 2 |- { <. x , z >. | ( x e. A /\ z = B ) } = { <. y , z >. | ( y e. A /\ z = C ) }
26		df-mpt 4152	. 2 |- ( x e. A |-> B ) = { <. x , z >. | ( x e. A /\ z = B ) }
27		df-mpt 4152	. 2 |- ( y e. A |-> C ) = { <. y , z >. | ( y e. A /\ z = C ) }
28	25, 26, 27	3eqtr4i 2262	1 |- ( x e. A |-> B ) = ( y e. A |-> C )

Syntax hints:   -> wi 4   /\ wa 104   = wceq 1397   [wsb 1810   e. wcel 2202   F/_wnfc 2361   {copab 4149   |-> cmpt 4150

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 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-ext 2213

This theorem depends on definitions:  df-bi 117  df-3an 1006  df-tru 1400  df-nf 1509  df-sb 1811  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-v 2804  df-un 3204  df-sn 3675  df-pr 3676  df-op 3678  df-opab 4151  df-mpt 4152

This theorem is referenced by:  cbvmptv  4185  dffn5imf  5701  fvmpts  5724  fvmpt2  5730  mptfvex  5732  fmptcof  5814  fmptcos  5815  fliftfuns  5939  offval2  6251  qliftfuns  6788  cc2  7486  summodclem2a  11960  zsumdc  11963  fsum3cvg2  11973  cbvprod  12137  zproddc  12158  fprodseq  12162  pcmptdvds  12936  gsumfzconstf  13947  cnmpt1t  15028  fsumcncntop  15310  limcmpted  15406  dvmptfsum  15468