Theorem cbvmpt 4128

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 1542	. . . 4 |- F/ w ( x e. A /\ z = B )
2		nfv 1542	. . . . 5 |- F/ x w e. A
3		nfs1v 1958	. . . . 5 |- F/ x [ w / x ] z = B
4	2, 3	nfan 1579	. . . 4 |- F/ x ( w e. A /\ [ w / x ] z = B )
5		eleq1 2259	. . . . 5 |- ( x = w -> ( x e. A <-> w e. A ) )
6		sbequ12 1785	. . . . 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 4106	. . 3 |- { <. x , z >. | ( x e. A /\ z = B ) } = { <. w , z >. | ( w e. A /\ [ w / x ] z = B ) }
9		nfv 1542	. . . . 5 |- F/ y w e. A
10		cbvmpt.1	. . . . . . 7 |- F/_ y B
11	10	nfeq2 2351	. . . . . 6 |- F/ y z = B
12	11	nfsb 1965	. . . . 5 |- F/ y [ w / x ] z = B
13	9, 12	nfan 1579	. . . 4 |- F/ y ( w e. A /\ [ w / x ] z = B )
14		nfv 1542	. . . 4 |- F/ w ( y e. A /\ z = C )
15		eleq1 2259	. . . . 5 |- ( w = y -> ( w e. A <-> y e. A ) )
16		sbequ 1854	. . . . . 6 |- ( w = y -> ( [ w / x ] z = B <-> [ y / x ] z = B ) )
17		cbvmpt.2	. . . . . . . 8 |- F/_ x C
18	17	nfeq2 2351	. . . . . . 7 |- F/ x z = C
19		cbvmpt.3	. . . . . . . 8 |- ( x = y -> B = C )
20	19	eqeq2d 2208	. . . . . . 7 |- ( x = y -> ( z = B <-> z = C ) )
21	18, 20	sbie 1805	. . . . . 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 4106	. . 3 |- { <. w , z >. | ( w e. A /\ [ w / x ] z = B ) } = { <. y , z >. | ( y e. A /\ z = C ) }
25	8, 24	eqtri 2217	. 2 |- { <. x , z >. | ( x e. A /\ z = B ) } = { <. y , z >. | ( y e. A /\ z = C ) }
26		df-mpt 4096	. 2 |- ( x e. A |-> B ) = { <. x , z >. | ( x e. A /\ z = B ) }
27		df-mpt 4096	. 2 |- ( y e. A |-> C ) = { <. y , z >. | ( y e. A /\ z = C ) }
28	25, 26, 27	3eqtr4i 2227	1 |- ( x e. A |-> B ) = ( y e. A |-> C )

Syntax hints:   -> wi 4   /\ wa 104   = wceq 1364   [wsb 1776   e. wcel 2167   F/_wnfc 2326   {copab 4093   |-> cmpt 4094

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 710  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-ext 2178

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-nf 1475  df-sb 1777  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-v 2765  df-un 3161  df-sn 3628  df-pr 3629  df-op 3631  df-opab 4095  df-mpt 4096

This theorem is referenced by:  cbvmptv  4129  dffn5imf  5616  fvmpts  5639  fvmpt2  5645  mptfvex  5647  fmptcof  5729  fmptcos  5730  fliftfuns  5845  offval2  6151  qliftfuns  6678  cc2  7334  summodclem2a  11546  zsumdc  11549  fsum3cvg2  11559  cbvprod  11723  zproddc  11744  fprodseq  11748  pcmptdvds  12514  gsumfzconstf  13472  cnmpt1t  14521  fsumcncntop  14803  limcmpted  14899  dvmptfsum  14961