Theorem cbvmpt 4210

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 1577	. . . 4 |- F/ w ( x e. A /\ z = B )
2		nfv 1577	. . . . 5 |- F/ x w e. A
3		nfs1v 1995	. . . . 5 |- F/ x [ w / x ] z = B
4	2, 3	nfan 1614	. . . 4 |- F/ x ( w e. A /\ [ w / x ] z = B )
5		eleq1 2297	. . . . 5 |- ( x = w -> ( x e. A <-> w e. A ) )
6		sbequ12 1820	. . . . 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 4188	. . 3 |- { <. x , z >. | ( x e. A /\ z = B ) } = { <. w , z >. | ( w e. A /\ [ w / x ] z = B ) }
9		nfv 1577	. . . . 5 |- F/ y w e. A
10		cbvmpt.1	. . . . . . 7 |- F/_ y B
11	10	nfeq2 2398	. . . . . 6 |- F/ y z = B
12	11	nfsb 2002	. . . . 5 |- F/ y [ w / x ] z = B
13	9, 12	nfan 1614	. . . 4 |- F/ y ( w e. A /\ [ w / x ] z = B )
14		nfv 1577	. . . 4 |- F/ w ( y e. A /\ z = C )
15		eleq1 2297	. . . . 5 |- ( w = y -> ( w e. A <-> y e. A ) )
16		sbequ 1889	. . . . . 6 |- ( w = y -> ( [ w / x ] z = B <-> [ y / x ] z = B ) )
17		cbvmpt.2	. . . . . . . 8 |- F/_ x C
18	17	nfeq2 2398	. . . . . . 7 |- F/ x z = C
19		cbvmpt.3	. . . . . . . 8 |- ( x = y -> B = C )
20	19	eqeq2d 2246	. . . . . . 7 |- ( x = y -> ( z = B <-> z = C ) )
21	18, 20	sbie 1840	. . . . . 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 4188	. . 3 |- { <. w , z >. | ( w e. A /\ [ w / x ] z = B ) } = { <. y , z >. | ( y e. A /\ z = C ) }
25	8, 24	eqtri 2255	. 2 |- { <. x , z >. | ( x e. A /\ z = B ) } = { <. y , z >. | ( y e. A /\ z = C ) }
26		df-mpt 4178	. 2 |- ( x e. A |-> B ) = { <. x , z >. | ( x e. A /\ z = B ) }
27		df-mpt 4178	. 2 |- ( y e. A |-> C ) = { <. y , z >. | ( y e. A /\ z = C ) }
28	25, 26, 27	3eqtr4i 2265	1 |- ( x e. A |-> B ) = ( y e. A |-> C )

Syntax hints:   -> wi 4   /\ wa 104   = wceq 1398   [wsb 1811   e. wcel 2205   F/_wnfc 2373   {copab 4175   |-> cmpt 4176

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 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-ext 2216

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-v 2817  df-un 3218  df-sn 3700  df-pr 3701  df-op 3703  df-opab 4177  df-mpt 4178

This theorem is referenced by:  cbvmptv  4211  dffn5imf  5737  fvmpts  5760  fvmpt2  5766  mptfvex  5768  fmptcof  5849  fmptcos  5850  fliftfuns  5977  offval2  6291  qliftfuns  6866  cc2  7597  summodclem2a  12092  zsumdc  12095  fsum3cvg2  12105  cbvprod  12269  zproddc  12290  fprodseq  12294  pcmptdvds  13068  gsumfzconstf  14095  cnmpt1t  15276  fsumcncntop  15558  limcmpted  15654  dvmptfsum  15716