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  5938  offval2  6250  qliftfuns  6787  cc2  7485  summodclem2a  11941  zsumdc  11944  fsum3cvg2  11954  cbvprod  12118  zproddc  12139  fprodseq  12143  pcmptdvds  12917  gsumfzconstf  13928  cnmpt1t  15008  fsumcncntop  15290  limcmpted  15386  dvmptfsum  15448