Theorem setsslnid 13079

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

Hypotheses

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

Assertion

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

Proof of Theorem setsslnid

Step	Hyp	Ref	Expression
1		setsslnid.d	. . . . 5 |- D e. NN
2		setsresg 13065	. . . . 5 |- ( ( W e. A /\ D e. NN /\ C e. V ) -> ( ( W sSet <. D , C >. ) |` ( _V \ { D } ) ) = ( W |` ( _V \ { D } ) ) )
3	1, 2	mp3an2 1359	. . . 4 |- ( ( W e. A /\ C e. V ) -> ( ( W sSet <. D , C >. ) |` ( _V \ { D } ) ) = ( W |` ( _V \ { D } ) ) )
4	3	fveq1d 5628	. . 3 |- ( ( W e. A /\ C e. V ) -> ( ( ( W sSet <. D , C >. ) |` ( _V \ { D } ) ) ` ( E ` ndx ) ) = ( ( W |` ( _V \ { D } ) ) ` ( E ` ndx ) ) )
5		setsslid.e	. . . . . . 7 |- ( E = Slot ( E ` ndx ) /\ ( E ` ndx ) e. NN )
6	5	simpri 113	. . . . . 6 |- ( E ` ndx ) e. NN
7	6	elexi 2812	. . . . 5 |- ( E ` ndx ) e. _V
8		setsslnid.n	. . . . 5 |- ( E ` ndx ) =/= D
9		eldifsn 3794	. . . . 5 |- ( ( E ` ndx ) e. ( _V \ { D } ) <-> ( ( E ` ndx ) e. _V /\ ( E ` ndx ) =/= D ) )
10	7, 8, 9	mpbir2an 948	. . . 4 |- ( E ` ndx ) e. ( _V \ { D } )
11		fvres 5650	. . . 4 |- ( ( E ` ndx ) e. ( _V \ { D } ) -> ( ( ( W sSet <. D , C >. ) |` ( _V \ { D } ) ) ` ( E ` ndx ) ) = ( ( W sSet <. D , C >. ) ` ( E ` ndx ) ) )
12	10, 11	ax-mp 5	. . 3 |- ( ( ( W sSet <. D , C >. ) |` ( _V \ { D } ) ) ` ( E ` ndx ) ) = ( ( W sSet <. D , C >. ) ` ( E ` ndx ) )
13		fvres 5650	. . . 4 |- ( ( E ` ndx ) e. ( _V \ { D } ) -> ( ( W |` ( _V \ { D } ) ) ` ( E ` ndx ) ) = ( W ` ( E ` ndx ) ) )
14	10, 13	ax-mp 5	. . 3 |- ( ( W |` ( _V \ { D } ) ) ` ( E ` ndx ) ) = ( W ` ( E ` ndx ) )
15	4, 12, 14	3eqtr3g 2285	. 2 |- ( ( W e. A /\ C e. V ) -> ( ( W sSet <. D , C >. ) ` ( E ` ndx ) ) = ( W ` ( E ` ndx ) ) )
16	5	simpli 111	. . 3 |- E = Slot ( E ` ndx )
17		setsex 13059	. . . 4 |- ( ( W e. A /\ D e. NN /\ C e. V ) -> ( W sSet <. D , C >. ) e. _V )
18	1, 17	mp3an2 1359	. . 3 |- ( ( W e. A /\ C e. V ) -> ( W sSet <. D , C >. ) e. _V )
19	6	a1i 9	. . 3 |- ( ( W e. A /\ C e. V ) -> ( E ` ndx ) e. NN )
20	16, 18, 19	strnfvnd 13047	. 2 |- ( ( W e. A /\ C e. V ) -> ( E ` ( W sSet <. D , C >. ) ) = ( ( W sSet <. D , C >. ) ` ( E ` ndx ) ) )
21		simpl 109	. . 3 |- ( ( W e. A /\ C e. V ) -> W e. A )
22	16, 21, 19	strnfvnd 13047	. 2 |- ( ( W e. A /\ C e. V ) -> ( E ` W ) = ( W ` ( E ` ndx ) ) )
23	15, 20, 22	3eqtr4rd 2273	1 |- ( ( W e. A /\ C e. V ) -> ( E ` W ) = ( E ` ( W sSet <. D , C >. ) ) )

Syntax hints:   -> wi 4   /\ wa 104   = wceq 1395   e. wcel 2200   =/= wne 2400   _Vcvv 2799   \ cdif 3194   {csn 3666   <.cop 3669   |` cres 4720   ` cfv 5317  (class class class)co 6000   NNcn 9106   ndxcnx 13024   sSet csts 13025  Slot cslot 13026

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 617  ax-in2 618  ax-io 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-13 2202  ax-14 2203  ax-ext 2211  ax-sep 4201  ax-pow 4257  ax-pr 4292  ax-un 4523  ax-setind 4628

This theorem depends on definitions:  df-bi 117  df-3an 1004  df-tru 1398  df-fal 1401  df-nf 1507  df-sb 1809  df-eu 2080  df-mo 2081  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ne 2401  df-ral 2513  df-rex 2514  df-rab 2517  df-v 2801  df-sbc 3029  df-dif 3199  df-un 3201  df-in 3203  df-ss 3210  df-nul 3492  df-pw 3651  df-sn 3672  df-pr 3673  df-op 3675  df-uni 3888  df-br 4083  df-opab 4145  df-mpt 4146  df-id 4383  df-xp 4724  df-rel 4725  df-cnv 4726  df-co 4727  df-dm 4728  df-rn 4729  df-res 4730  df-iota 5277  df-fun 5319  df-fv 5325  df-ov 6003  df-oprab 6004  df-mpo 6005  df-slot 13031  df-sets 13034

This theorem is referenced by:  resseqnbasd  13101  mgpbasg  13884  mgpscag  13885  mgptsetg  13886  mgpdsg  13888  opprsllem  14032  rmodislmod  14309  sralemg  14396  srascag  14400  sravscag  14401  zlmlemg  14586  zlmsca  14590  znbaslemnn  14597  setsmsbasg  15147  setsmsdsg  15148  setsvtx  15846