Theorem setsslid 13091

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	⊢ (𝐸 = Slot (𝐸‘ndx) ∧ (𝐸‘ndx) ∈ ℕ)

Assertion

Ref	Expression
setsslid	⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → 𝐶 = (𝐸‘(𝑊 sSet ⟨(𝐸‘ndx), 𝐶⟩)))

Proof of Theorem setsslid

Step	Hyp	Ref	Expression
1		setsslid.e	. . . . 5 ⊢ (𝐸 = Slot (𝐸‘ndx) ∧ (𝐸‘ndx) ∈ ℕ)
2	1	simpri 113	. . . 4 ⊢ (𝐸‘ndx) ∈ ℕ
3		setsvala 13071	. . . 4 ⊢ ((𝑊 ∈ 𝐴 ∧ (𝐸‘ndx) ∈ ℕ ∧ 𝐶 ∈ 𝑉) → (𝑊 sSet ⟨(𝐸‘ndx), 𝐶⟩) = ((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩}))
4	2, 3	mp3an2 1359	. . 3 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → (𝑊 sSet ⟨(𝐸‘ndx), 𝐶⟩) = ((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩}))
5	4	fveq2d 5633	. 2 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → (𝐸‘(𝑊 sSet ⟨(𝐸‘ndx), 𝐶⟩)) = (𝐸‘((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩})))
6	1	simpli 111	. . 3 ⊢ 𝐸 = Slot (𝐸‘ndx)
7		resexg 5045	. . . 4 ⊢ (𝑊 ∈ 𝐴 → (𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∈ V)
8		simpr 110	. . . . . 6 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → 𝐶 ∈ 𝑉)
9		opexg 4314	. . . . . 6 ⊢ (((𝐸‘ndx) ∈ ℕ ∧ 𝐶 ∈ 𝑉) → ⟨(𝐸‘ndx), 𝐶⟩ ∈ V)
10	2, 8, 9	sylancr 414	. . . . 5 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → ⟨(𝐸‘ndx), 𝐶⟩ ∈ V)
11		snexg 4268	. . . . 5 ⊢ (⟨(𝐸‘ndx), 𝐶⟩ ∈ V → {⟨(𝐸‘ndx), 𝐶⟩} ∈ V)
12	10, 11	syl 14	. . . 4 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → {⟨(𝐸‘ndx), 𝐶⟩} ∈ V)
13		unexg 4534	. . . 4 ⊢ (((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∈ V ∧ {⟨(𝐸‘ndx), 𝐶⟩} ∈ V) → ((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩}) ∈ V)
14	7, 12, 13	syl2an2r 597	. . 3 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → ((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩}) ∈ V)
15	2	a1i 9	. . 3 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → (𝐸‘ndx) ∈ ℕ)
16	6, 14, 15	strnfvnd 13060	. 2 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → (𝐸‘((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩})) = (((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩})‘(𝐸‘ndx)))
17		snidg 3695	. . . . 5 ⊢ ((𝐸‘ndx) ∈ ℕ → (𝐸‘ndx) ∈ {(𝐸‘ndx)})
18		fvres 5653	. . . . 5 ⊢ ((𝐸‘ndx) ∈ {(𝐸‘ndx)} → ((((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩}) ↾ {(𝐸‘ndx)})‘(𝐸‘ndx)) = (((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩})‘(𝐸‘ndx)))
19	2, 17, 18	mp2b 8	. . . 4 ⊢ ((((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩}) ↾ {(𝐸‘ndx)})‘(𝐸‘ndx)) = (((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩})‘(𝐸‘ndx))
20		resres 5017	. . . . . . . . 9 ⊢ ((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ↾ {(𝐸‘ndx)}) = (𝑊 ↾ ((V ∖ {(𝐸‘ndx)}) ∩ {(𝐸‘ndx)}))
21		incom 3396	. . . . . . . . . . . 12 ⊢ ((V ∖ {(𝐸‘ndx)}) ∩ {(𝐸‘ndx)}) = ({(𝐸‘ndx)} ∩ (V ∖ {(𝐸‘ndx)}))
22		disjdif 3564	. . . . . . . . . . . 12 ⊢ ({(𝐸‘ndx)} ∩ (V ∖ {(𝐸‘ndx)})) = ∅
23	21, 22	eqtri 2250	. . . . . . . . . . 11 ⊢ ((V ∖ {(𝐸‘ndx)}) ∩ {(𝐸‘ndx)}) = ∅
24	23	reseq2i 5002	. . . . . . . . . 10 ⊢ (𝑊 ↾ ((V ∖ {(𝐸‘ndx)}) ∩ {(𝐸‘ndx)})) = (𝑊 ↾ ∅)
25		res0 5009	. . . . . . . . . 10 ⊢ (𝑊 ↾ ∅) = ∅
26	24, 25	eqtri 2250	. . . . . . . . 9 ⊢ (𝑊 ↾ ((V ∖ {(𝐸‘ndx)}) ∩ {(𝐸‘ndx)})) = ∅
27	20, 26	eqtri 2250	. . . . . . . 8 ⊢ ((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ↾ {(𝐸‘ndx)}) = ∅
28	27	a1i 9	. . . . . . 7 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → ((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ↾ {(𝐸‘ndx)}) = ∅)
29	2	elexi 2812	. . . . . . . . . 10 ⊢ (𝐸‘ndx) ∈ V
30	8	elexd 2813	. . . . . . . . . 10 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → 𝐶 ∈ V)
31		opelxpi 4751	. . . . . . . . . 10 ⊢ (((𝐸‘ndx) ∈ V ∧ 𝐶 ∈ V) → ⟨(𝐸‘ndx), 𝐶⟩ ∈ (V × V))
32	29, 30, 31	sylancr 414	. . . . . . . . 9 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → ⟨(𝐸‘ndx), 𝐶⟩ ∈ (V × V))
33		relsng 4822	. . . . . . . . . 10 ⊢ (⟨(𝐸‘ndx), 𝐶⟩ ∈ V → (Rel {⟨(𝐸‘ndx), 𝐶⟩} ↔ ⟨(𝐸‘ndx), 𝐶⟩ ∈ (V × V)))
34	10, 33	syl 14	. . . . . . . . 9 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → (Rel {⟨(𝐸‘ndx), 𝐶⟩} ↔ ⟨(𝐸‘ndx), 𝐶⟩ ∈ (V × V)))
35	32, 34	mpbird 167	. . . . . . . 8 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → Rel {⟨(𝐸‘ndx), 𝐶⟩})
36		dmsnopg 5200	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝑉 → dom {⟨(𝐸‘ndx), 𝐶⟩} = {(𝐸‘ndx)})
37	36	adantl 277	. . . . . . . . 9 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → dom {⟨(𝐸‘ndx), 𝐶⟩} = {(𝐸‘ndx)})
38		eqimss 3278	. . . . . . . . 9 ⊢ (dom {⟨(𝐸‘ndx), 𝐶⟩} = {(𝐸‘ndx)} → dom {⟨(𝐸‘ndx), 𝐶⟩} ⊆ {(𝐸‘ndx)})
39	37, 38	syl 14	. . . . . . . 8 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → dom {⟨(𝐸‘ndx), 𝐶⟩} ⊆ {(𝐸‘ndx)})
40		relssres 5043	. . . . . . . 8 ⊢ ((Rel {⟨(𝐸‘ndx), 𝐶⟩} ∧ dom {⟨(𝐸‘ndx), 𝐶⟩} ⊆ {(𝐸‘ndx)}) → ({⟨(𝐸‘ndx), 𝐶⟩} ↾ {(𝐸‘ndx)}) = {⟨(𝐸‘ndx), 𝐶⟩})
41	35, 39, 40	syl2anc 411	. . . . . . 7 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → ({⟨(𝐸‘ndx), 𝐶⟩} ↾ {(𝐸‘ndx)}) = {⟨(𝐸‘ndx), 𝐶⟩})
42	28, 41	uneq12d 3359	. . . . . 6 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → (((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ↾ {(𝐸‘ndx)}) ∪ ({⟨(𝐸‘ndx), 𝐶⟩} ↾ {(𝐸‘ndx)})) = (∅ ∪ {⟨(𝐸‘ndx), 𝐶⟩}))
43		resundir 5019	. . . . . 6 ⊢ (((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩}) ↾ {(𝐸‘ndx)}) = (((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ↾ {(𝐸‘ndx)}) ∪ ({⟨(𝐸‘ndx), 𝐶⟩} ↾ {(𝐸‘ndx)}))
44		un0 3525	. . . . . . 7 ⊢ ({⟨(𝐸‘ndx), 𝐶⟩} ∪ ∅) = {⟨(𝐸‘ndx), 𝐶⟩}
45		uncom 3348	. . . . . . 7 ⊢ ({⟨(𝐸‘ndx), 𝐶⟩} ∪ ∅) = (∅ ∪ {⟨(𝐸‘ndx), 𝐶⟩})
46	44, 45	eqtr3i 2252	. . . . . 6 ⊢ {⟨(𝐸‘ndx), 𝐶⟩} = (∅ ∪ {⟨(𝐸‘ndx), 𝐶⟩})
47	42, 43, 46	3eqtr4g 2287	. . . . 5 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → (((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩}) ↾ {(𝐸‘ndx)}) = {⟨(𝐸‘ndx), 𝐶⟩})
48	47	fveq1d 5631	. . . 4 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → ((((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩}) ↾ {(𝐸‘ndx)})‘(𝐸‘ndx)) = ({⟨(𝐸‘ndx), 𝐶⟩}‘(𝐸‘ndx)))
49	19, 48	eqtr3id 2276	. . 3 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → (((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩})‘(𝐸‘ndx)) = ({⟨(𝐸‘ndx), 𝐶⟩}‘(𝐸‘ndx)))
50		fvsng 5839	. . . 4 ⊢ (((𝐸‘ndx) ∈ ℕ ∧ 𝐶 ∈ 𝑉) → ({⟨(𝐸‘ndx), 𝐶⟩}‘(𝐸‘ndx)) = 𝐶)
51	2, 8, 50	sylancr 414	. . 3 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → ({⟨(𝐸‘ndx), 𝐶⟩}‘(𝐸‘ndx)) = 𝐶)
52	49, 51	eqtrd 2262	. 2 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → (((𝑊 ↾ (V ∖ {(𝐸‘ndx)})) ∪ {⟨(𝐸‘ndx), 𝐶⟩})‘(𝐸‘ndx)) = 𝐶)
53	5, 16, 52	3eqtrrd 2267	1 ⊢ ((𝑊 ∈ 𝐴 ∧ 𝐶 ∈ 𝑉) → 𝐶 = (𝐸‘(𝑊 sSet ⟨(𝐸‘ndx), 𝐶⟩)))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1395   ∈ wcel 2200  Vcvv 2799   ∖ cdif 3194   ∪ cun 3195   ∩ cin 3196   ⊆ wss 3197  ∅c0 3491  {csn 3666  ⟨cop 3669   × cxp 4717  dom cdm 4719   ↾ cres 4721  Rel wrel 4724  ‘cfv 5318  (class class class)co 6007  ℕcn 9118  ndxcnx 13037   sSet csts 13038  Slot cslot 13039

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 4202  ax-pow 4258  ax-pr 4293  ax-un 4524  ax-setind 4629

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 3889  df-br 4084  df-opab 4146  df-mpt 4147  df-id 4384  df-xp 4725  df-rel 4726  df-cnv 4727  df-co 4728  df-dm 4729  df-rn 4730  df-res 4731  df-iota 5278  df-fun 5320  df-fv 5326  df-ov 6010  df-oprab 6011  df-mpo 6012  df-slot 13044  df-sets 13047

This theorem is referenced by:  ressbasd  13108  mgpplusgg  13895  opprmulfvalg  14041  rmodislmod  14323  srascag  14414  sravscag  14415  sraipg  14416  zlmsca  14604  zlmvscag  14605  znle  14609  setsmstsetg  15163  setsiedg  15861