Theorem setsslid 13263

Description: Value of the structure replacement function at a replaced index. (Contributed by Mario Carneiro, 1-Dec-2014.) (Revised by Jim Kingdon, 24-Jan-2023.)

Hypothesis

Ref	Expression
setsslid.e	|- ( E = Slot ( E ` ndx ) /\ ( E ` ndx ) e. NN )

Assertion

Ref	Expression
setsslid	|- ( ( W e. A /\ C e. V ) -> C = ( E ` ( W sSet <. ( E ` ndx ) , C >. ) ) )

Proof of Theorem setsslid

Step	Hyp	Ref	Expression
1		setsslid.e	. . . . 5 |- ( E = Slot ( E ` ndx ) /\ ( E ` ndx ) e. NN )
2	1	simpri 113	. . . 4 |- ( E ` ndx ) e. NN
3		setsvala 13243	. . . 4 |- ( ( W e. A /\ ( E ` ndx ) e. NN /\ C e. V ) -> ( W sSet <. ( E ` ndx ) , C >. ) = ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) )
4	2, 3	mp3an2 1362	. . 3 |- ( ( W e. A /\ C e. V ) -> ( W sSet <. ( E ` ndx ) , C >. ) = ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) )
5	4	fveq2d 5674	. 2 |- ( ( W e. A /\ C e. V ) -> ( E ` ( W sSet <. ( E ` ndx ) , C >. ) ) = ( E ` ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) ) )
6	1	simpli 111	. . 3 |- E = Slot ( E ` ndx )
7		resexg 5078	. . . 4 |- ( W e. A -> ( W |` ( _V \ { ( E ` ndx ) } ) ) e. _V )
8		simpr 110	. . . . . 6 |- ( ( W e. A /\ C e. V ) -> C e. V )
9		opexg 4344	. . . . . 6 |- ( ( ( E ` ndx ) e. NN /\ C e. V ) -> <. ( E ` ndx ) , C >. e. _V )
10	2, 8, 9	sylancr 414	. . . . 5 |- ( ( W e. A /\ C e. V ) -> <. ( E ` ndx ) , C >. e. _V )
11		snexg 4297	. . . . 5 |- ( <. ( E ` ndx ) , C >. e. _V -> { <. ( E ` ndx ) , C >. } e. _V )
12	10, 11	syl 14	. . . 4 |- ( ( W e. A /\ C e. V ) -> { <. ( E ` ndx ) , C >. } e. _V )
13		unexg 4564	. . . 4 |- ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) e. _V /\ { <. ( E ` ndx ) , C >. } e. _V ) -> ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) e. _V )
14	7, 12, 13	syl2an2r 599	. . 3 |- ( ( W e. A /\ C e. V ) -> ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) e. _V )
15	2	a1i 9	. . 3 |- ( ( W e. A /\ C e. V ) -> ( E ` ndx ) e. NN )
16	6, 14, 15	strnfvnd 13232	. 2 |- ( ( W e. A /\ C e. V ) -> ( E ` ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) ) = ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) ` ( E ` ndx ) ) )
17		snidg 3718	. . . . 5 |- ( ( E ` ndx ) e. NN -> ( E ` ndx ) e. { ( E ` ndx ) } )
18		fvres 5694	. . . . 5 |- ( ( E ` ndx ) e. { ( E ` ndx ) } -> ( ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) |` { ( E ` ndx ) } ) ` ( E ` ndx ) ) = ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) ` ( E ` ndx ) ) )
19	2, 17, 18	mp2b 8	. . . 4 |- ( ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) |` { ( E ` ndx ) } ) ` ( E ` ndx ) ) = ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) ` ( E ` ndx ) )
20		resres 5050	. . . . . . . . 9 |- ( ( W |` ( _V \ { ( E ` ndx ) } ) ) |` { ( E ` ndx ) } ) = ( W |` ( ( _V \ { ( E ` ndx ) } ) i^i { ( E ` ndx ) } ) )
21		incom 3411	. . . . . . . . . . . 12 |- ( ( _V \ { ( E ` ndx ) } ) i^i { ( E ` ndx ) } ) = ( { ( E ` ndx ) } i^i ( _V \ { ( E ` ndx ) } ) )
22		disjdif 3581	. . . . . . . . . . . 12 |- ( { ( E ` ndx ) } i^i ( _V \ { ( E ` ndx ) } ) ) = (/)
23	21, 22	eqtri 2253	. . . . . . . . . . 11 |- ( ( _V \ { ( E ` ndx ) } ) i^i { ( E ` ndx ) } ) = (/)
24	23	reseq2i 5035	. . . . . . . . . 10 |- ( W |` ( ( _V \ { ( E ` ndx ) } ) i^i { ( E ` ndx ) } ) ) = ( W |` (/) )
25		res0 5042	. . . . . . . . . 10 |- ( W |` (/) ) = (/)
26	24, 25	eqtri 2253	. . . . . . . . 9 |- ( W |` ( ( _V \ { ( E ` ndx ) } ) i^i { ( E ` ndx ) } ) ) = (/)
27	20, 26	eqtri 2253	. . . . . . . 8 |- ( ( W |` ( _V \ { ( E ` ndx ) } ) ) |` { ( E ` ndx ) } ) = (/)
28	27	a1i 9	. . . . . . 7 |- ( ( W e. A /\ C e. V ) -> ( ( W |` ( _V \ { ( E ` ndx ) } ) ) |` { ( E ` ndx ) } ) = (/) )
29	2	elexi 2826	. . . . . . . . . 10 |- ( E ` ndx ) e. _V
30	8	elexd 2827	. . . . . . . . . 10 |- ( ( W e. A /\ C e. V ) -> C e. _V )
31		opelxpi 4781	. . . . . . . . . 10 |- ( ( ( E ` ndx ) e. _V /\ C e. _V ) -> <. ( E ` ndx ) , C >. e. ( _V X. _V ) )
32	29, 30, 31	sylancr 414	. . . . . . . . 9 |- ( ( W e. A /\ C e. V ) -> <. ( E ` ndx ) , C >. e. ( _V X. _V ) )
33		relsng 4853	. . . . . . . . . 10 |- ( <. ( E ` ndx ) , C >. e. _V -> ( Rel { <. ( E ` ndx ) , C >. } <-> <. ( E ` ndx ) , C >. e. ( _V X. _V ) ) )
34	10, 33	syl 14	. . . . . . . . 9 |- ( ( W e. A /\ C e. V ) -> ( Rel { <. ( E ` ndx ) , C >. } <-> <. ( E ` ndx ) , C >. e. ( _V X. _V ) ) )
35	32, 34	mpbird 167	. . . . . . . 8 |- ( ( W e. A /\ C e. V ) -> Rel { <. ( E ` ndx ) , C >. } )
36		dmsnopg 5234	. . . . . . . . . 10 |- ( C e. V -> dom { <. ( E ` ndx ) , C >. } = { ( E ` ndx ) } )
37	36	adantl 277	. . . . . . . . 9 |- ( ( W e. A /\ C e. V ) -> dom { <. ( E ` ndx ) , C >. } = { ( E ` ndx ) } )
38		eqimss 3292	. . . . . . . . 9 |- ( dom { <. ( E ` ndx ) , C >. } = { ( E ` ndx ) } -> dom { <. ( E ` ndx ) , C >. } C_ { ( E ` ndx ) } )
39	37, 38	syl 14	. . . . . . . 8 |- ( ( W e. A /\ C e. V ) -> dom { <. ( E ` ndx ) , C >. } C_ { ( E ` ndx ) } )
40		relssres 5076	. . . . . . . 8 |- ( ( Rel { <. ( E ` ndx ) , C >. } /\ dom { <. ( E ` ndx ) , C >. } C_ { ( E ` ndx ) } ) -> ( { <. ( E ` ndx ) , C >. } |` { ( E ` ndx ) } ) = { <. ( E ` ndx ) , C >. } )
41	35, 39, 40	syl2anc 411	. . . . . . 7 |- ( ( W e. A /\ C e. V ) -> ( { <. ( E ` ndx ) , C >. } |` { ( E ` ndx ) } ) = { <. ( E ` ndx ) , C >. } )
42	28, 41	uneq12d 3374	. . . . . 6 |- ( ( W e. A /\ C e. V ) -> ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) |` { ( E ` ndx ) } ) u. ( { <. ( E ` ndx ) , C >. } |` { ( E ` ndx ) } ) ) = ( (/) u. { <. ( E ` ndx ) , C >. } ) )
43		resundir 5052	. . . . . 6 |- ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) |` { ( E ` ndx ) } ) = ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) |` { ( E ` ndx ) } ) u. ( { <. ( E ` ndx ) , C >. } |` { ( E ` ndx ) } ) )
44		un0 3542	. . . . . . 7 |- ( { <. ( E ` ndx ) , C >. } u. (/) ) = { <. ( E ` ndx ) , C >. }
45		uncom 3363	. . . . . . 7 |- ( { <. ( E ` ndx ) , C >. } u. (/) ) = ( (/) u. { <. ( E ` ndx ) , C >. } )
46	44, 45	eqtr3i 2255	. . . . . 6 |- { <. ( E ` ndx ) , C >. } = ( (/) u. { <. ( E ` ndx ) , C >. } )
47	42, 43, 46	3eqtr4g 2290	. . . . 5 |- ( ( W e. A /\ C e. V ) -> ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) |` { ( E ` ndx ) } ) = { <. ( E ` ndx ) , C >. } )
48	47	fveq1d 5672	. . . 4 |- ( ( W e. A /\ C e. V ) -> ( ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) |` { ( E ` ndx ) } ) ` ( E ` ndx ) ) = ( { <. ( E ` ndx ) , C >. } ` ( E ` ndx ) ) )
49	19, 48	eqtr3id 2279	. . 3 |- ( ( W e. A /\ C e. V ) -> ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) ` ( E ` ndx ) ) = ( { <. ( E ` ndx ) , C >. } ` ( E ` ndx ) ) )
50		fvsng 5880	. . . 4 |- ( ( ( E ` ndx ) e. NN /\ C e. V ) -> ( { <. ( E ` ndx ) , C >. } ` ( E ` ndx ) ) = C )
51	2, 8, 50	sylancr 414	. . 3 |- ( ( W e. A /\ C e. V ) -> ( { <. ( E ` ndx ) , C >. } ` ( E ` ndx ) ) = C )
52	49, 51	eqtrd 2265	. 2 |- ( ( W e. A /\ C e. V ) -> ( ( ( W |` ( _V \ { ( E ` ndx ) } ) ) u. { <. ( E ` ndx ) , C >. } ) ` ( E ` ndx ) ) = C )
53	5, 16, 52	3eqtrrd 2270	1 |- ( ( W e. A /\ C e. V ) -> C = ( E ` ( W sSet <. ( E ` ndx ) , C >. ) ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1398   e. wcel 2203   _Vcvv 2813   \ cdif 3208   u. cun 3209   i^i cin 3210   C_ wss 3211   (/)c0 3508   {csn 3689   <.cop 3692   X. cxp 4747   dom cdm 4749   |` cres 4751   Rel wrel 4754   ` cfv 5352  (class class class)co 6050   NNcn 9237   ndxcnx 13209   sSet csts 13210  Slot cslot 13211

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-in1 619  ax-in2 620  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-13 2205  ax-14 2206  ax-ext 2214  ax-sep 4228  ax-pow 4287  ax-pr 4322  ax-un 4554  ax-setind 4659

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-ral 2525  df-rex 2526  df-rab 2529  df-v 2815  df-sbc 3043  df-dif 3213  df-un 3215  df-in 3217  df-ss 3224  df-nul 3509  df-pw 3671  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-br 4110  df-opab 4172  df-mpt 4173  df-id 4414  df-xp 4755  df-rel 4756  df-cnv 4757  df-co 4758  df-dm 4759  df-rn 4760  df-res 4761  df-iota 5312  df-fun 5354  df-fv 5360  df-ov 6053  df-oprab 6054  df-mpo 6055  df-slot 13216  df-sets 13219

This theorem is referenced by:  ressbasd  13280  mgpplusgg  14068  opprmulfvalg  14214  rmodislmod  14499  srascag  14590  sravscag  14591  sraipg  14592  zlmsca  14780  zlmvscag  14781  znle  14785  setsmstsetg  15346  setsiedg  16047