Theorem lincext2 48946

Description: Property 2 of an extension of a linear combination. (Contributed by AV, 20-Apr-2019.) (Revised by AV, 30-Jul-2019.)

Hypotheses

Ref	Expression
lincext.b	⊢ 𝐵 = (Base‘𝑀)
lincext.r	⊢ 𝑅 = (Scalar‘𝑀)
lincext.e	⊢ 𝐸 = (Base‘𝑅)
lincext.0	⊢ 0 = (0g‘𝑅)
lincext.z	⊢ 𝑍 = (0g‘𝑀)
lincext.n	⊢ 𝑁 = (invg‘𝑅)
lincext.f	⊢ 𝐹 = (𝑧 ∈ 𝑆 ↦ if(𝑧 = 𝑋, (𝑁‘𝑌), (𝐺‘𝑧)))

Assertion

Ref	Expression
lincext2	⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → 𝐹 finSupp 0 )

Distinct variable groups:   𝑧,𝐵   𝑧,𝐸   𝑧,𝐺   𝑧,𝑀   𝑧,𝑆   𝑧,𝑋   𝑧,𝑌

Allowed substitution hints:   𝑅(𝑧)   𝐹(𝑧)   𝑁(𝑧)   0 (𝑧)   𝑍(𝑧)

Proof of Theorem lincext2

Step	Hyp	Ref	Expression
1		fvex 6848	. . . . . 6 ⊢ (𝑁‘𝑌) ∈ V
2		fvex 6848	. . . . . 6 ⊢ (𝐺‘𝑧) ∈ V
3	1, 2	ifex 4518	. . . . 5 ⊢ if(𝑧 = 𝑋, (𝑁‘𝑌), (𝐺‘𝑧)) ∈ V
4		lincext.f	. . . . 5 ⊢ 𝐹 = (𝑧 ∈ 𝑆 ↦ if(𝑧 = 𝑋, (𝑁‘𝑌), (𝐺‘𝑧)))
5	3, 4	dmmpti 6637	. . . 4 ⊢ dom 𝐹 = 𝑆
6	5	difeq1i 4063	. . 3 ⊢ (dom 𝐹 ∖ (𝑆 ∖ {𝑋})) = (𝑆 ∖ (𝑆 ∖ {𝑋}))
7		snssi 4752	. . . . . . 7 ⊢ (𝑋 ∈ 𝑆 → {𝑋} ⊆ 𝑆)
8	7	3ad2ant2 1135	. . . . . 6 ⊢ ((𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) → {𝑋} ⊆ 𝑆)
9	8	3ad2ant2 1135	. . . . 5 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → {𝑋} ⊆ 𝑆)
10		dfss4 4210	. . . . 5 ⊢ ({𝑋} ⊆ 𝑆 ↔ (𝑆 ∖ (𝑆 ∖ {𝑋})) = {𝑋})
11	9, 10	sylib 218	. . . 4 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → (𝑆 ∖ (𝑆 ∖ {𝑋})) = {𝑋})
12		snfi 8984	. . . 4 ⊢ {𝑋} ∈ Fin
13	11, 12	eqeltrdi 2845	. . 3 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → (𝑆 ∖ (𝑆 ∖ {𝑋})) ∈ Fin)
14	6, 13	eqeltrid 2841	. 2 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → (dom 𝐹 ∖ (𝑆 ∖ {𝑋})) ∈ Fin)
15		lincext.b	. . . 4 ⊢ 𝐵 = (Base‘𝑀)
16		lincext.r	. . . 4 ⊢ 𝑅 = (Scalar‘𝑀)
17		lincext.e	. . . 4 ⊢ 𝐸 = (Base‘𝑅)
18		lincext.0	. . . 4 ⊢ 0 = (0g‘𝑅)
19		lincext.z	. . . 4 ⊢ 𝑍 = (0g‘𝑀)
20		lincext.n	. . . 4 ⊢ 𝑁 = (invg‘𝑅)
21	15, 16, 17, 18, 19, 20, 4	lincext1 48945	. . 3 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋})))) → 𝐹 ∈ (𝐸 ↑m 𝑆))
22	21	3adant3 1133	. 2 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → 𝐹 ∈ (𝐸 ↑m 𝑆))
23		elmapfun 8807	. . 3 ⊢ (𝐹 ∈ (𝐸 ↑m 𝑆) → Fun 𝐹)
24	22, 23	syl 17	. 2 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → Fun 𝐹)
25		elmapi 8790	. . . . 5 ⊢ (𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋})) → 𝐺:(𝑆 ∖ {𝑋})⟶𝐸)
26	4	fdmdifeqresdif 48833	. . . . 5 ⊢ (𝐺:(𝑆 ∖ {𝑋})⟶𝐸 → 𝐺 = (𝐹 ↾ (𝑆 ∖ {𝑋})))
27	25, 26	syl 17	. . . 4 ⊢ (𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋})) → 𝐺 = (𝐹 ↾ (𝑆 ∖ {𝑋})))
28	27	3ad2ant3 1136	. . 3 ⊢ ((𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) → 𝐺 = (𝐹 ↾ (𝑆 ∖ {𝑋})))
29	28	3ad2ant2 1135	. 2 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → 𝐺 = (𝐹 ↾ (𝑆 ∖ {𝑋})))
30		simp3 1139	. 2 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → 𝐺 finSupp 0 )
31	18	fvexi 6849	. . 3 ⊢ 0 ∈ V
32	31	a1i 11	. 2 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → 0 ∈ V)
33	14, 22, 24, 29, 30, 32	resfsupp 9303	1 ⊢ (((𝑀 ∈ LMod ∧ 𝑆 ∈ 𝒫 𝐵) ∧ (𝑌 ∈ 𝐸 ∧ 𝑋 ∈ 𝑆 ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋}))) ∧ 𝐺 finSupp 0 ) → 𝐹 finSupp 0 )

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  Vcvv 3430   ∖ cdif 3887   ⊆ wss 3890  ifcif 4467  𝒫 cpw 4542  {csn 4568   class class class wbr 5086   ↦ cmpt 5167  dom cdm 5625   ↾ cres 5627  Fun wfun 6487  ⟶wf 6489  ‘cfv 6493  (class class class)co 7361   ↑_m cmap 8767  Fincfn 8887   finSupp cfsupp 9268  Basecbs 17173  Scalarcsca 17217  0_gc0g 17396  inv_gcminusg 18904  LModclmod 20849

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5232  ax-nul 5242  ax-pow 5303  ax-pr 5371  ax-un 7683

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7318  df-ov 7364  df-oprab 7365  df-mpo 7366  df-om 7812  df-1st 7936  df-2nd 7937  df-supp 8105  df-1o 8399  df-map 8769  df-en 8888  df-fin 8891  df-fsupp 9269  df-0g 17398  df-mgm 18602  df-sgrp 18681  df-mnd 18697  df-grp 18906  df-minusg 18907  df-ring 20210  df-lmod 20851

This theorem is referenced by:  lincext3  48947  lindslinindsimp1  48948  islindeps2  48974