Theorem lincresunit3lem2 48605

Description: Lemma 2 for lincresunit3 48606. (Contributed by AV, 18-May-2019.) (Proof shortened by AV, 30-Jul-2019.)

Hypotheses

Ref	Expression
lincresunit.b	⊢ 𝐵 = (Base‘𝑀)
lincresunit.r	⊢ 𝑅 = (Scalar‘𝑀)
lincresunit.e	⊢ 𝐸 = (Base‘𝑅)
lincresunit.u	⊢ 𝑈 = (Unit‘𝑅)
lincresunit.0	⊢ 0 = (0g‘𝑅)
lincresunit.z	⊢ 𝑍 = (0g‘𝑀)
lincresunit.n	⊢ 𝑁 = (invg‘𝑅)
lincresunit.i	⊢ 𝐼 = (invr‘𝑅)
lincresunit.t	⊢ · = (.r‘𝑅)
lincresunit.g	⊢ 𝐺 = (𝑠 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑠)))

Assertion

Ref	Expression
lincresunit3lem2	⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → ((𝑁‘(𝐹‘𝑋))( ·𝑠 ‘𝑀)(𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)))) = ((𝐹 ↾ (𝑆 ∖ {𝑋}))( linC ‘𝑀)(𝑆 ∖ {𝑋})))

Distinct variable groups:   𝐵,𝑠   𝐸,𝑠   𝐹,𝑠   𝑀,𝑠   𝑆,𝑠   𝑋,𝑠   𝑈,𝑠   𝐼,𝑠   𝑁,𝑠   · ,𝑠   𝑧,𝑠,𝐵   𝑧,𝐸   𝑧,𝐹   𝑧,𝐺   𝑧,𝑀   𝑧,𝑁   𝑧,𝑅   𝑧,𝑆   𝑧,𝑈   𝑧,𝑋   𝑧,𝑍   0 ,𝑠,𝑧

Allowed substitution hints:   𝑅(𝑠)   · (𝑧)   𝐺(𝑠)   𝐼(𝑧)   𝑍(𝑠)

Proof of Theorem lincresunit3lem2

Step	Hyp	Ref	Expression
1		simpl2 1193	. . 3 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → 𝑀 ∈ LMod)
2		lincresunit.e	. . . . . . . . . 10 ⊢ 𝐸 = (Base‘𝑅)
3		lincresunit.r	. . . . . . . . . . 11 ⊢ 𝑅 = (Scalar‘𝑀)
4	3	fveq2i 6831	. . . . . . . . . 10 ⊢ (Base‘𝑅) = (Base‘(Scalar‘𝑀))
5	2, 4	eqtri 2756	. . . . . . . . 9 ⊢ 𝐸 = (Base‘(Scalar‘𝑀))
6	5	oveq1i 7362	. . . . . . . 8 ⊢ (𝐸 ↑m 𝑆) = ((Base‘(Scalar‘𝑀)) ↑m 𝑆)
7	6	eleq2i 2825	. . . . . . 7 ⊢ (𝐹 ∈ (𝐸 ↑m 𝑆) ↔ 𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑m 𝑆))
8	7	biimpi 216	. . . . . 6 ⊢ (𝐹 ∈ (𝐸 ↑m 𝑆) → 𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑m 𝑆))
9	8	3ad2ant1 1133	. . . . 5 ⊢ ((𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 ) → 𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑m 𝑆))
10	9	adantl 481	. . . 4 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → 𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑m 𝑆))
11		difssd 4086	. . . 4 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑆 ∖ {𝑋}) ⊆ 𝑆)
12		elmapssres 8797	. . . 4 ⊢ ((𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑m 𝑆) ∧ (𝑆 ∖ {𝑋}) ⊆ 𝑆) → (𝐹 ↾ (𝑆 ∖ {𝑋})) ∈ ((Base‘(Scalar‘𝑀)) ↑m (𝑆 ∖ {𝑋})))
13	10, 11, 12	syl2anc 584	. . 3 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝐹 ↾ (𝑆 ∖ {𝑋})) ∈ ((Base‘(Scalar‘𝑀)) ↑m (𝑆 ∖ {𝑋})))
14		elpwi 4556	. . . . . . . 8 ⊢ (𝑆 ∈ 𝒫 (Base‘𝑀) → 𝑆 ⊆ (Base‘𝑀))
15	14	ssdifssd 4096	. . . . . . 7 ⊢ (𝑆 ∈ 𝒫 (Base‘𝑀) → (𝑆 ∖ {𝑋}) ⊆ (Base‘𝑀))
16		difexg 5269	. . . . . . . 8 ⊢ (𝑆 ∈ 𝒫 (Base‘𝑀) → (𝑆 ∖ {𝑋}) ∈ V)
17		elpwg 4552	. . . . . . . 8 ⊢ ((𝑆 ∖ {𝑋}) ∈ V → ((𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀) ↔ (𝑆 ∖ {𝑋}) ⊆ (Base‘𝑀)))
18	16, 17	syl 17	. . . . . . 7 ⊢ (𝑆 ∈ 𝒫 (Base‘𝑀) → ((𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀) ↔ (𝑆 ∖ {𝑋}) ⊆ (Base‘𝑀)))
19	15, 18	mpbird 257	. . . . . 6 ⊢ (𝑆 ∈ 𝒫 (Base‘𝑀) → (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀))
20		lincresunit.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝑀)
21	20	pweqi 4565	. . . . . 6 ⊢ 𝒫 𝐵 = 𝒫 (Base‘𝑀)
22	19, 21	eleq2s 2851	. . . . 5 ⊢ (𝑆 ∈ 𝒫 𝐵 → (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀))
23	22	3ad2ant1 1133	. . . 4 ⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀))
24	23	adantr 480	. . 3 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀))
25		lincval 48534	. . 3 ⊢ ((𝑀 ∈ LMod ∧ (𝐹 ↾ (𝑆 ∖ {𝑋})) ∈ ((Base‘(Scalar‘𝑀)) ↑m (𝑆 ∖ {𝑋})) ∧ (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀)) → ((𝐹 ↾ (𝑆 ∖ {𝑋}))( linC ‘𝑀)(𝑆 ∖ {𝑋})) = (𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠 ‘𝑀)𝑧))))
26	1, 13, 24, 25	syl3anc 1373	. 2 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → ((𝐹 ↾ (𝑆 ∖ {𝑋}))( linC ‘𝑀)(𝑆 ∖ {𝑋})) = (𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠 ‘𝑀)𝑧))))
27		simpll 766	. . . . . 6 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆))
28		simplr1 1216	. . . . . 6 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → 𝐹 ∈ (𝐸 ↑m 𝑆))
29		simplr2 1217	. . . . . 6 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐹‘𝑋) ∈ 𝑈)
30		simpr 484	. . . . . 6 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → 𝑧 ∈ (𝑆 ∖ {𝑋}))
31		lincresunit.u	. . . . . . 7 ⊢ 𝑈 = (Unit‘𝑅)
32		lincresunit.0	. . . . . . 7 ⊢ 0 = (0g‘𝑅)
33		lincresunit.z	. . . . . . 7 ⊢ 𝑍 = (0g‘𝑀)
34		lincresunit.n	. . . . . . 7 ⊢ 𝑁 = (invg‘𝑅)
35		lincresunit.i	. . . . . . 7 ⊢ 𝐼 = (invr‘𝑅)
36		lincresunit.t	. . . . . . 7 ⊢ · = (.r‘𝑅)
37		lincresunit.g	. . . . . . 7 ⊢ 𝐺 = (𝑠 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑠)))
38	20, 3, 2, 31, 32, 33, 34, 35, 36, 37	lincresunit3lem1 48604	. . . . . 6 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → ((𝑁‘(𝐹‘𝑋))( ·𝑠 ‘𝑀)((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)) = ((𝐹‘𝑧)( ·𝑠 ‘𝑀)𝑧))
39	27, 28, 29, 30, 38	syl13anc 1374	. . . . 5 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → ((𝑁‘(𝐹‘𝑋))( ·𝑠 ‘𝑀)((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)) = ((𝐹‘𝑧)( ·𝑠 ‘𝑀)𝑧))
40		fvres 6847	. . . . . . . 8 ⊢ (𝑧 ∈ (𝑆 ∖ {𝑋}) → ((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧) = (𝐹‘𝑧))
41	40	adantl 481	. . . . . . 7 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → ((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧) = (𝐹‘𝑧))
42	41	eqcomd 2739	. . . . . 6 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐹‘𝑧) = ((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧))
43	42	oveq1d 7367	. . . . 5 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → ((𝐹‘𝑧)( ·𝑠 ‘𝑀)𝑧) = (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠 ‘𝑀)𝑧))
44	39, 43	eqtrd 2768	. . . 4 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → ((𝑁‘(𝐹‘𝑋))( ·𝑠 ‘𝑀)((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)) = (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠 ‘𝑀)𝑧))
45	44	mpteq2dva 5186	. . 3 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝑁‘(𝐹‘𝑋))( ·𝑠 ‘𝑀)((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧))) = (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠 ‘𝑀)𝑧)))
46	45	oveq2d 7368	. 2 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝑁‘(𝐹‘𝑋))( ·𝑠 ‘𝑀)((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)))) = (𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠 ‘𝑀)𝑧))))
47		eqid 2733	. . 3 ⊢ (+g‘𝑀) = (+g‘𝑀)
48		eqid 2733	. . 3 ⊢ ( ·𝑠 ‘𝑀) = ( ·𝑠 ‘𝑀)
49		difexg 5269	. . . . 5 ⊢ (𝑆 ∈ 𝒫 𝐵 → (𝑆 ∖ {𝑋}) ∈ V)
50	49	3ad2ant1 1133	. . . 4 ⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → (𝑆 ∖ {𝑋}) ∈ V)
51	50	adantr 480	. . 3 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑆 ∖ {𝑋}) ∈ V)
52	3	lmodfgrp 20804	. . . . . . 7 ⊢ (𝑀 ∈ LMod → 𝑅 ∈ Grp)
53	52	3ad2ant2 1134	. . . . . 6 ⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → 𝑅 ∈ Grp)
54	53	adantr 480	. . . . 5 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ 𝐹 ∈ (𝐸 ↑m 𝑆)) → 𝑅 ∈ Grp)
55		elmapi 8779	. . . . . . 7 ⊢ (𝐹 ∈ (𝐸 ↑m 𝑆) → 𝐹:𝑆⟶𝐸)
56		ffvelcdm 7020	. . . . . . . . 9 ⊢ ((𝐹:𝑆⟶𝐸 ∧ 𝑋 ∈ 𝑆) → (𝐹‘𝑋) ∈ 𝐸)
57	56	expcom 413	. . . . . . . 8 ⊢ (𝑋 ∈ 𝑆 → (𝐹:𝑆⟶𝐸 → (𝐹‘𝑋) ∈ 𝐸))
58	57	3ad2ant3 1135	. . . . . . 7 ⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → (𝐹:𝑆⟶𝐸 → (𝐹‘𝑋) ∈ 𝐸))
59	55, 58	syl5com 31	. . . . . 6 ⊢ (𝐹 ∈ (𝐸 ↑m 𝑆) → ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → (𝐹‘𝑋) ∈ 𝐸))
60	59	impcom 407	. . . . 5 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ 𝐹 ∈ (𝐸 ↑m 𝑆)) → (𝐹‘𝑋) ∈ 𝐸)
61	2, 34	grpinvcl 18902	. . . . 5 ⊢ ((𝑅 ∈ Grp ∧ (𝐹‘𝑋) ∈ 𝐸) → (𝑁‘(𝐹‘𝑋)) ∈ 𝐸)
62	54, 60, 61	syl2anc 584	. . . 4 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ 𝐹 ∈ (𝐸 ↑m 𝑆)) → (𝑁‘(𝐹‘𝑋)) ∈ 𝐸)
63	62	3ad2antr1 1189	. . 3 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑁‘(𝐹‘𝑋)) ∈ 𝐸)
64	1	adantr 480	. . . 4 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → 𝑀 ∈ LMod)
65	20, 3, 2, 31, 32, 33, 34, 35, 36, 37	lincresunit1 48602	. . . . . . 7 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈)) → 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋})))
66	65	3adantr3 1172	. . . . . 6 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋})))
67		elmapi 8779	. . . . . 6 ⊢ (𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋})) → 𝐺:(𝑆 ∖ {𝑋})⟶𝐸)
68		ffvelcdm 7020	. . . . . . 7 ⊢ ((𝐺:(𝑆 ∖ {𝑋})⟶𝐸 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐺‘𝑧) ∈ 𝐸)
69	68	ex 412	. . . . . 6 ⊢ (𝐺:(𝑆 ∖ {𝑋})⟶𝐸 → (𝑧 ∈ (𝑆 ∖ {𝑋}) → (𝐺‘𝑧) ∈ 𝐸))
70	66, 67, 69	3syl 18	. . . . 5 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑧 ∈ (𝑆 ∖ {𝑋}) → (𝐺‘𝑧) ∈ 𝐸))
71	70	imp 406	. . . 4 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐺‘𝑧) ∈ 𝐸)
72		elpwi 4556	. . . . . . . 8 ⊢ (𝑆 ∈ 𝒫 𝐵 → 𝑆 ⊆ 𝐵)
73		eldifi 4080	. . . . . . . . 9 ⊢ (𝑧 ∈ (𝑆 ∖ {𝑋}) → 𝑧 ∈ 𝑆)
74		ssel2 3925	. . . . . . . . . 10 ⊢ ((𝑆 ⊆ 𝐵 ∧ 𝑧 ∈ 𝑆) → 𝑧 ∈ 𝐵)
75	74	expcom 413	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝑆 → (𝑆 ⊆ 𝐵 → 𝑧 ∈ 𝐵))
76	73, 75	syl 17	. . . . . . . 8 ⊢ (𝑧 ∈ (𝑆 ∖ {𝑋}) → (𝑆 ⊆ 𝐵 → 𝑧 ∈ 𝐵))
77	72, 76	syl5com 31	. . . . . . 7 ⊢ (𝑆 ∈ 𝒫 𝐵 → (𝑧 ∈ (𝑆 ∖ {𝑋}) → 𝑧 ∈ 𝐵))
78	77	3ad2ant1 1133	. . . . . 6 ⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → (𝑧 ∈ (𝑆 ∖ {𝑋}) → 𝑧 ∈ 𝐵))
79	78	adantr 480	. . . . 5 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑧 ∈ (𝑆 ∖ {𝑋}) → 𝑧 ∈ 𝐵))
80	79	imp 406	. . . 4 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → 𝑧 ∈ 𝐵)
81	20, 3, 48, 2	lmodvscl 20813	. . . 4 ⊢ ((𝑀 ∈ LMod ∧ (𝐺‘𝑧) ∈ 𝐸 ∧ 𝑧 ∈ 𝐵) → ((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧) ∈ 𝐵)
82	64, 71, 80, 81	syl3anc 1373	. . 3 ⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → ((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧) ∈ 𝐵)
83		simp2 1137	. . . . . 6 ⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → 𝑀 ∈ LMod)
84	83, 23	jca 511	. . . . 5 ⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → (𝑀 ∈ LMod ∧ (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀)))
85	84	adantr 480	. . . 4 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑀 ∈ LMod ∧ (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀)))
86	20, 3, 2, 31, 32, 33, 34, 35, 36, 37	lincresunit2 48603	. . . . 5 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → 𝐺 finSupp 0 )
87	86, 32	breqtrdi 5134	. . . 4 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → 𝐺 finSupp (0g‘𝑅))
88	3, 2	scmfsupp 48499	. . . . 5 ⊢ (((𝑀 ∈ LMod ∧ (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀)) ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋})) ∧ 𝐺 finSupp (0g‘𝑅)) → (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)) finSupp (0g‘𝑀))
89	88, 33	breqtrrdi 5135	. . . 4 ⊢ (((𝑀 ∈ LMod ∧ (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀)) ∧ 𝐺 ∈ (𝐸 ↑m (𝑆 ∖ {𝑋})) ∧ 𝐺 finSupp (0g‘𝑅)) → (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)) finSupp 𝑍)
90	85, 66, 87, 89	syl3anc 1373	. . 3 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)) finSupp 𝑍)
91	20, 3, 2, 33, 47, 48, 1, 51, 63, 82, 90	gsumvsmul 20861	. 2 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → (𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝑁‘(𝐹‘𝑋))( ·𝑠 ‘𝑀)((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)))) = ((𝑁‘(𝐹‘𝑋))( ·𝑠 ‘𝑀)(𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)))))
92	26, 46, 91	3eqtr2rd 2775	1 ⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑m 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝐹 finSupp 0 )) → ((𝑁‘(𝐹‘𝑋))( ·𝑠 ‘𝑀)(𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺‘𝑧)( ·𝑠 ‘𝑀)𝑧)))) = ((𝐹 ↾ (𝑆 ∖ {𝑋}))( linC ‘𝑀)(𝑆 ∖ {𝑋})))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1541   ∈ wcel 2113  Vcvv 3437   ∖ cdif 3895   ⊆ wss 3898  𝒫 cpw 4549  {csn 4575   class class class wbr 5093   ↦ cmpt 5174   ↾ cres 5621  ⟶wf 6482  ‘cfv 6486  (class class class)co 7352   ↑_m cmap 8756   finSupp cfsupp 9252  Basecbs 17122  +_gcplusg 17163  ._rcmulr 17164  Scalarcsca 17166   ·_𝑠 cvsca 17167  0_gc0g 17345   Σ_g cgsu 17346  Grpcgrp 18848  inv_gcminusg 18849  Unitcui 20275  inv_rcinvr 20307  LModclmod 20795   linC clinc 48529

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5219  ax-sep 5236  ax-nul 5246  ax-pow 5305  ax-pr 5372  ax-un 7674  ax-cnex 11069  ax-resscn 11070  ax-1cn 11071  ax-icn 11072  ax-addcl 11073  ax-addrcl 11074  ax-mulcl 11075  ax-mulrcl 11076  ax-mulcom 11077  ax-addass 11078  ax-mulass 11079  ax-distr 11080  ax-i2m1 11081  ax-1ne0 11082  ax-1rid 11083  ax-rnegex 11084  ax-rrecex 11085  ax-cnre 11086  ax-pre-lttri 11087  ax-pre-lttrn 11088  ax-pre-ltadd 11089  ax-pre-mulgt0 11090

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-nel 3034  df-ral 3049  df-rex 3058  df-rmo 3347  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4283  df-if 4475  df-pw 4551  df-sn 4576  df-pr 4578  df-op 4582  df-uni 4859  df-int 4898  df-iun 4943  df-br 5094  df-opab 5156  df-mpt 5175  df-tr 5201  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-se 5573  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-isom 6495  df-riota 7309  df-ov 7355  df-oprab 7356  df-mpo 7357  df-om 7803  df-1st 7927  df-2nd 7928  df-supp 8097  df-tpos 8162  df-frecs 8217  df-wrecs 8248  df-recs 8297  df-rdg 8335  df-1o 8391  df-er 8628  df-map 8758  df-en 8876  df-dom 8877  df-sdom 8878  df-fin 8879  df-fsupp 9253  df-oi 9403  df-card 9839  df-pnf 11155  df-mnf 11156  df-xr 11157  df-ltxr 11158  df-le 11159  df-sub 11353  df-neg 11354  df-nn 12133  df-2 12195  df-3 12196  df-n0 12389  df-z 12476  df-uz 12739  df-fz 13410  df-fzo 13557  df-seq 13911  df-hash 14240  df-sets 17077  df-slot 17095  df-ndx 17107  df-base 17123  df-ress 17144  df-plusg 17176  df-mulr 17177  df-0g 17347  df-gsum 17348  df-mgm 18550  df-sgrp 18629  df-mnd 18645  df-mhm 18693  df-grp 18851  df-minusg 18852  df-ghm 19127  df-cntz 19231  df-cmn 19696  df-abl 19697  df-mgp 20061  df-rng 20073  df-ur 20102  df-ring 20155  df-oppr 20257  df-dvdsr 20277  df-unit 20278  df-invr 20308  df-lmod 20797  df-linc 48531

This theorem is referenced by:  lincresunit3  48606