Theorem setsnid 16910

Description: Value of the structure replacement function at an untouched index. (Contributed by Mario Carneiro, 1-Dec-2014.) (Revised by Mario Carneiro, 30-Apr-2015.) (Proof shortened by AV, 7-Nov-2024.)

Hypotheses

Ref	Expression
setsid.e	⊢ 𝐸 = Slot (𝐸‘ndx)
setsnid.n	⊢ (𝐸‘ndx) ≠ 𝐷

Assertion

Ref	Expression
setsnid	⊢ (𝐸‘𝑊) = (𝐸‘(𝑊 sSet ⟨𝐷, 𝐶⟩))

Proof of Theorem setsnid

Step	Hyp	Ref	Expression
1		setsid.e	. . . 4 ⊢ 𝐸 = Slot (𝐸‘ndx)
2		id 22	. . . 4 ⊢ (𝑊 ∈ V → 𝑊 ∈ V)
3	1, 2	strfvnd 16886	. . 3 ⊢ (𝑊 ∈ V → (𝐸‘𝑊) = (𝑊‘(𝐸‘ndx)))
4		ovex 7308	. . . . 5 ⊢ (𝑊 sSet ⟨𝐷, 𝐶⟩) ∈ V
5	4, 1	strfvn 16887	. . . 4 ⊢ (𝐸‘(𝑊 sSet ⟨𝐷, 𝐶⟩)) = ((𝑊 sSet ⟨𝐷, 𝐶⟩)‘(𝐸‘ndx))
6		setsres 16879	. . . . . 6 ⊢ (𝑊 ∈ V → ((𝑊 sSet ⟨𝐷, 𝐶⟩) ↾ (V ∖ {𝐷})) = (𝑊 ↾ (V ∖ {𝐷})))
7	6	fveq1d 6776	. . . . 5 ⊢ (𝑊 ∈ V → (((𝑊 sSet ⟨𝐷, 𝐶⟩) ↾ (V ∖ {𝐷}))‘(𝐸‘ndx)) = ((𝑊 ↾ (V ∖ {𝐷}))‘(𝐸‘ndx)))
8		fvex 6787	. . . . . . 7 ⊢ (𝐸‘ndx) ∈ V
9		setsnid.n	. . . . . . 7 ⊢ (𝐸‘ndx) ≠ 𝐷
10		eldifsn 4720	. . . . . . 7 ⊢ ((𝐸‘ndx) ∈ (V ∖ {𝐷}) ↔ ((𝐸‘ndx) ∈ V ∧ (𝐸‘ndx) ≠ 𝐷))
11	8, 9, 10	mpbir2an 708	. . . . . 6 ⊢ (𝐸‘ndx) ∈ (V ∖ {𝐷})
12		fvres 6793	. . . . . 6 ⊢ ((𝐸‘ndx) ∈ (V ∖ {𝐷}) → (((𝑊 sSet ⟨𝐷, 𝐶⟩) ↾ (V ∖ {𝐷}))‘(𝐸‘ndx)) = ((𝑊 sSet ⟨𝐷, 𝐶⟩)‘(𝐸‘ndx)))
13	11, 12	ax-mp 5	. . . . 5 ⊢ (((𝑊 sSet ⟨𝐷, 𝐶⟩) ↾ (V ∖ {𝐷}))‘(𝐸‘ndx)) = ((𝑊 sSet ⟨𝐷, 𝐶⟩)‘(𝐸‘ndx))
14		fvres 6793	. . . . . 6 ⊢ ((𝐸‘ndx) ∈ (V ∖ {𝐷}) → ((𝑊 ↾ (V ∖ {𝐷}))‘(𝐸‘ndx)) = (𝑊‘(𝐸‘ndx)))
15	11, 14	ax-mp 5	. . . . 5 ⊢ ((𝑊 ↾ (V ∖ {𝐷}))‘(𝐸‘ndx)) = (𝑊‘(𝐸‘ndx))
16	7, 13, 15	3eqtr3g 2801	. . . 4 ⊢ (𝑊 ∈ V → ((𝑊 sSet ⟨𝐷, 𝐶⟩)‘(𝐸‘ndx)) = (𝑊‘(𝐸‘ndx)))
17	5, 16	eqtrid 2790	. . 3 ⊢ (𝑊 ∈ V → (𝐸‘(𝑊 sSet ⟨𝐷, 𝐶⟩)) = (𝑊‘(𝐸‘ndx)))
18	3, 17	eqtr4d 2781	. 2 ⊢ (𝑊 ∈ V → (𝐸‘𝑊) = (𝐸‘(𝑊 sSet ⟨𝐷, 𝐶⟩)))
19	1	str0 16890	. . . 4 ⊢ ∅ = (𝐸‘∅)
20	19	eqcomi 2747	. . 3 ⊢ (𝐸‘∅) = ∅
21		eqid 2738	. . 3 ⊢ (𝑊 sSet ⟨𝐷, 𝐶⟩) = (𝑊 sSet ⟨𝐷, 𝐶⟩)
22		reldmsets 16866	. . 3 ⊢ Rel dom sSet
23	20, 21, 22	oveqprc 16893	. 2 ⊢ (¬ 𝑊 ∈ V → (𝐸‘𝑊) = (𝐸‘(𝑊 sSet ⟨𝐷, 𝐶⟩)))
24	18, 23	pm2.61i 182	1 ⊢ (𝐸‘𝑊) = (𝐸‘(𝑊 sSet ⟨𝐷, 𝐶⟩))

Syntax hints:   = wceq 1539   ∈ wcel 2106   ≠ wne 2943  Vcvv 3432   ∖ cdif 3884  ∅c0 4256  {csn 4561  ⟨cop 4567   ↾ cres 5591  ‘cfv 6433  (class class class)co 7275   sSet csts 16864  Slot cslot 16882  ndxcnx 16894

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-sep 5223  ax-nul 5230  ax-pr 5352  ax-un 7588

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-ral 3069  df-rex 3070  df-rab 3073  df-v 3434  df-sbc 3717  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-nul 4257  df-if 4460  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-br 5075  df-opab 5137  df-mpt 5158  df-id 5489  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-res 5601  df-iota 6391  df-fun 6435  df-fv 6441  df-ov 7278  df-oprab 7279  df-mpo 7280  df-sets 16865  df-slot 16883

This theorem is referenced by:  resseqnbas  16951  resslemOLD  16952  oppchomfval  17423  oppchomfvalOLD  17424  oppcbas  17428  oppcbasOLD  17429  rescbas  17541  rescbasOLD  17542  rescco  17545  resccoOLD  17546  rescabs  17547  rescabsOLD  17548  odubas  18009  odubasOLD  18010  setsplusg  18954  oppglemOLD  18955  mgplemOLD  19725  opprlem  19867  opprlemOLD  19868  rmodislmod  20191  rmodislmodOLD  20192  sralem  20439  sralemOLD  20440  srasca  20447  srascaOLD  20448  sravsca  20449  sravscaOLD  20450  zlmlem  20718  zlmlemOLD  20719  zlmsca  20726  znbaslem  20742  znbaslemOLD  20743  thlbas  20901  thlbasOLD  20902  thlle  20903  thlleOLD  20904  opsrbaslem  21250  opsrbaslemOLD  21251  matbas  21560  matplusg  21561  matsca  21562  matscaOLD  21563  matvsca  21564  matvscaOLD  21565  tuslem  23418  tuslemOLD  23419  setsmsbas  23628  setsmsbasOLD  23629  setsmsds  23630  setsmsdsOLD  23631  tnglem  23796  tnglemOLD  23797  tngds  23811  tngdsOLD  23812  ttgval  27236  ttgvalOLD  27237  ttglem  27238  ttglemOLD  27239  cchhllem  27254  cchhllemOLD  27255  setsvtx  27405  resvlem  31530  resvlemOLD  31531  zlmds  31912  zlmdsOLD  31913  zlmtset  31914  zlmtsetOLD  31915  hlhilslem  39952  hlhilslemOLD  39953  mnringnmulrd  41827  mnringnmulrdOLD  41828  cznrnglem  45511  cznabel  45512  cznrng  45513  prstcnidlem  46346  prstcnid  46347