Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  lincresunit3lem2 Structured version   Visualization version   GIF version

Theorem lincresunit3lem2 42870
Description: Lemma 2 for lincresunit3 42871. (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 ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → ((𝑁‘(𝐹𝑋))( ·𝑠𝑀)(𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺𝑧)( ·𝑠𝑀)𝑧)))) = ((𝐹 ↾ (𝑆 ∖ {𝑋}))( linC ‘𝑀)(𝑆 ∖ {𝑋})))
Distinct variable groups:   𝐵,𝑠   𝐸,𝑠   𝐹,𝑠   𝑀,𝑠   𝑆,𝑠   𝑋,𝑠   𝑈,𝑠   𝐼,𝑠   𝑁,𝑠   · ,𝑠   𝑧,𝑠,𝐵   𝑧,𝐸   𝑧,𝐹   𝑧,𝐺   𝑧,𝑀   𝑧,𝑁   𝑧,𝑅   𝑧,𝑆   𝑧,𝑈   𝑧,𝑋   𝑧,𝑍   0 ,𝑠,𝑧
Allowed substitution hints:   𝑅(𝑠)   · (𝑧)   𝐺(𝑠)   𝐼(𝑧)   𝑍(𝑠)

Proof of Theorem lincresunit3lem2
StepHypRef Expression
1 simpl2 1244 . . 3 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → 𝑀 ∈ LMod)
2 lincresunit.e . . . . . . . . . 10 𝐸 = (Base‘𝑅)
3 lincresunit.r . . . . . . . . . . 11 𝑅 = (Scalar‘𝑀)
43fveq2i 6378 . . . . . . . . . 10 (Base‘𝑅) = (Base‘(Scalar‘𝑀))
52, 4eqtri 2787 . . . . . . . . 9 𝐸 = (Base‘(Scalar‘𝑀))
65oveq1i 6852 . . . . . . . 8 (𝐸𝑚 𝑆) = ((Base‘(Scalar‘𝑀)) ↑𝑚 𝑆)
76eleq2i 2836 . . . . . . 7 (𝐹 ∈ (𝐸𝑚 𝑆) ↔ 𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 𝑆))
87biimpi 207 . . . . . 6 (𝐹 ∈ (𝐸𝑚 𝑆) → 𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 𝑆))
983ad2ant1 1163 . . . . 5 ((𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 ) → 𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 𝑆))
109adantl 473 . . . 4 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → 𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 𝑆))
11 difssd 3900 . . . 4 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑆 ∖ {𝑋}) ⊆ 𝑆)
12 elmapssres 8085 . . . 4 ((𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 𝑆) ∧ (𝑆 ∖ {𝑋}) ⊆ 𝑆) → (𝐹 ↾ (𝑆 ∖ {𝑋})) ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 (𝑆 ∖ {𝑋})))
1310, 11, 12syl2anc 579 . . 3 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝐹 ↾ (𝑆 ∖ {𝑋})) ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 (𝑆 ∖ {𝑋})))
14 elpwi 4325 . . . . . . . 8 (𝑆 ∈ 𝒫 (Base‘𝑀) → 𝑆 ⊆ (Base‘𝑀))
1514ssdifssd 3910 . . . . . . 7 (𝑆 ∈ 𝒫 (Base‘𝑀) → (𝑆 ∖ {𝑋}) ⊆ (Base‘𝑀))
16 difexg 4969 . . . . . . . 8 (𝑆 ∈ 𝒫 (Base‘𝑀) → (𝑆 ∖ {𝑋}) ∈ V)
17 elpwg 4323 . . . . . . . 8 ((𝑆 ∖ {𝑋}) ∈ V → ((𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀) ↔ (𝑆 ∖ {𝑋}) ⊆ (Base‘𝑀)))
1816, 17syl 17 . . . . . . 7 (𝑆 ∈ 𝒫 (Base‘𝑀) → ((𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀) ↔ (𝑆 ∖ {𝑋}) ⊆ (Base‘𝑀)))
1915, 18mpbird 248 . . . . . 6 (𝑆 ∈ 𝒫 (Base‘𝑀) → (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀))
20 lincresunit.b . . . . . . 7 𝐵 = (Base‘𝑀)
2120pweqi 4319 . . . . . 6 𝒫 𝐵 = 𝒫 (Base‘𝑀)
2219, 21eleq2s 2862 . . . . 5 (𝑆 ∈ 𝒫 𝐵 → (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀))
23223ad2ant1 1163 . . . 4 ((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) → (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀))
2423adantr 472 . . 3 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀))
25 lincval 42799 . . 3 ((𝑀 ∈ LMod ∧ (𝐹 ↾ (𝑆 ∖ {𝑋})) ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 (𝑆 ∖ {𝑋})) ∧ (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀)) → ((𝐹 ↾ (𝑆 ∖ {𝑋}))( linC ‘𝑀)(𝑆 ∖ {𝑋})) = (𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠𝑀)𝑧))))
261, 13, 24, 25syl3anc 1490 . 2 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → ((𝐹 ↾ (𝑆 ∖ {𝑋}))( linC ‘𝑀)(𝑆 ∖ {𝑋})) = (𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠𝑀)𝑧))))
27 simpll 783 . . . . . 6 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆))
28 simplr1 1275 . . . . . 6 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → 𝐹 ∈ (𝐸𝑚 𝑆))
29 simplr2 1277 . . . . . 6 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐹𝑋) ∈ 𝑈)
30 simpr 477 . . . . . 6 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 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 𝐺 = (𝑠 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐼‘(𝑁‘(𝐹𝑋))) · (𝐹𝑠)))
3820, 3, 2, 31, 32, 33, 34, 35, 36, 37lincresunit3lem1 42869 . . . . . 6 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝑧 ∈ (𝑆 ∖ {𝑋}))) → ((𝑁‘(𝐹𝑋))( ·𝑠𝑀)((𝐺𝑧)( ·𝑠𝑀)𝑧)) = ((𝐹𝑧)( ·𝑠𝑀)𝑧))
3927, 28, 29, 30, 38syl13anc 1491 . . . . 5 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → ((𝑁‘(𝐹𝑋))( ·𝑠𝑀)((𝐺𝑧)( ·𝑠𝑀)𝑧)) = ((𝐹𝑧)( ·𝑠𝑀)𝑧))
40 fvres 6394 . . . . . . . 8 (𝑧 ∈ (𝑆 ∖ {𝑋}) → ((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧) = (𝐹𝑧))
4140adantl 473 . . . . . . 7 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → ((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧) = (𝐹𝑧))
4241eqcomd 2771 . . . . . 6 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐹𝑧) = ((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧))
4342oveq1d 6857 . . . . 5 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → ((𝐹𝑧)( ·𝑠𝑀)𝑧) = (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠𝑀)𝑧))
4439, 43eqtrd 2799 . . . 4 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → ((𝑁‘(𝐹𝑋))( ·𝑠𝑀)((𝐺𝑧)( ·𝑠𝑀)𝑧)) = (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠𝑀)𝑧))
4544mpteq2dva 4903 . . 3 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝑁‘(𝐹𝑋))( ·𝑠𝑀)((𝐺𝑧)( ·𝑠𝑀)𝑧))) = (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠𝑀)𝑧)))
4645oveq2d 6858 . 2 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝑁‘(𝐹𝑋))( ·𝑠𝑀)((𝐺𝑧)( ·𝑠𝑀)𝑧)))) = (𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ (((𝐹 ↾ (𝑆 ∖ {𝑋}))‘𝑧)( ·𝑠𝑀)𝑧))))
47 eqid 2765 . . 3 (+g𝑀) = (+g𝑀)
48 eqid 2765 . . 3 ( ·𝑠𝑀) = ( ·𝑠𝑀)
49 difexg 4969 . . . . 5 (𝑆 ∈ 𝒫 𝐵 → (𝑆 ∖ {𝑋}) ∈ V)
50493ad2ant1 1163 . . . 4 ((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) → (𝑆 ∖ {𝑋}) ∈ V)
5150adantr 472 . . 3 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑆 ∖ {𝑋}) ∈ V)
523lmodfgrp 19141 . . . . . . 7 (𝑀 ∈ LMod → 𝑅 ∈ Grp)
53523ad2ant2 1164 . . . . . 6 ((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) → 𝑅 ∈ Grp)
5453adantr 472 . . . . 5 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ 𝐹 ∈ (𝐸𝑚 𝑆)) → 𝑅 ∈ Grp)
55 elmapi 8082 . . . . . . 7 (𝐹 ∈ (𝐸𝑚 𝑆) → 𝐹:𝑆𝐸)
56 ffvelrn 6547 . . . . . . . . 9 ((𝐹:𝑆𝐸𝑋𝑆) → (𝐹𝑋) ∈ 𝐸)
5756expcom 402 . . . . . . . 8 (𝑋𝑆 → (𝐹:𝑆𝐸 → (𝐹𝑋) ∈ 𝐸))
58573ad2ant3 1165 . . . . . . 7 ((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) → (𝐹:𝑆𝐸 → (𝐹𝑋) ∈ 𝐸))
5955, 58syl5com 31 . . . . . 6 (𝐹 ∈ (𝐸𝑚 𝑆) → ((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) → (𝐹𝑋) ∈ 𝐸))
6059impcom 396 . . . . 5 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ 𝐹 ∈ (𝐸𝑚 𝑆)) → (𝐹𝑋) ∈ 𝐸)
612, 34grpinvcl 17736 . . . . 5 ((𝑅 ∈ Grp ∧ (𝐹𝑋) ∈ 𝐸) → (𝑁‘(𝐹𝑋)) ∈ 𝐸)
6254, 60, 61syl2anc 579 . . . 4 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ 𝐹 ∈ (𝐸𝑚 𝑆)) → (𝑁‘(𝐹𝑋)) ∈ 𝐸)
63623ad2antr1 1239 . . 3 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑁‘(𝐹𝑋)) ∈ 𝐸)
641adantr 472 . . . 4 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → 𝑀 ∈ LMod)
6520, 3, 2, 31, 32, 33, 34, 35, 36, 37lincresunit1 42867 . . . . . . 7 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈)) → 𝐺 ∈ (𝐸𝑚 (𝑆 ∖ {𝑋})))
66653adantr3 1212 . . . . . 6 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → 𝐺 ∈ (𝐸𝑚 (𝑆 ∖ {𝑋})))
67 elmapi 8082 . . . . . 6 (𝐺 ∈ (𝐸𝑚 (𝑆 ∖ {𝑋})) → 𝐺:(𝑆 ∖ {𝑋})⟶𝐸)
68 ffvelrn 6547 . . . . . . 7 ((𝐺:(𝑆 ∖ {𝑋})⟶𝐸𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐺𝑧) ∈ 𝐸)
6968ex 401 . . . . . 6 (𝐺:(𝑆 ∖ {𝑋})⟶𝐸 → (𝑧 ∈ (𝑆 ∖ {𝑋}) → (𝐺𝑧) ∈ 𝐸))
7066, 67, 693syl 18 . . . . 5 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑧 ∈ (𝑆 ∖ {𝑋}) → (𝐺𝑧) ∈ 𝐸))
7170imp 395 . . . 4 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐺𝑧) ∈ 𝐸)
72 elpwi 4325 . . . . . . . 8 (𝑆 ∈ 𝒫 𝐵𝑆𝐵)
73 eldifi 3894 . . . . . . . . 9 (𝑧 ∈ (𝑆 ∖ {𝑋}) → 𝑧𝑆)
74 ssel2 3756 . . . . . . . . . 10 ((𝑆𝐵𝑧𝑆) → 𝑧𝐵)
7574expcom 402 . . . . . . . . 9 (𝑧𝑆 → (𝑆𝐵𝑧𝐵))
7673, 75syl 17 . . . . . . . 8 (𝑧 ∈ (𝑆 ∖ {𝑋}) → (𝑆𝐵𝑧𝐵))
7772, 76syl5com 31 . . . . . . 7 (𝑆 ∈ 𝒫 𝐵 → (𝑧 ∈ (𝑆 ∖ {𝑋}) → 𝑧𝐵))
78773ad2ant1 1163 . . . . . 6 ((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) → (𝑧 ∈ (𝑆 ∖ {𝑋}) → 𝑧𝐵))
7978adantr 472 . . . . 5 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑧 ∈ (𝑆 ∖ {𝑋}) → 𝑧𝐵))
8079imp 395 . . . 4 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → 𝑧𝐵)
8120, 3, 48, 2lmodvscl 19149 . . . 4 ((𝑀 ∈ LMod ∧ (𝐺𝑧) ∈ 𝐸𝑧𝐵) → ((𝐺𝑧)( ·𝑠𝑀)𝑧) ∈ 𝐵)
8264, 71, 80, 81syl3anc 1490 . . 3 ((((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → ((𝐺𝑧)( ·𝑠𝑀)𝑧) ∈ 𝐵)
83 simp2 1167 . . . . . 6 ((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) → 𝑀 ∈ LMod)
8483, 23jca 507 . . . . 5 ((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) → (𝑀 ∈ LMod ∧ (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀)))
8584adantr 472 . . . 4 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑀 ∈ LMod ∧ (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀)))
8620, 3, 2, 31, 32, 33, 34, 35, 36, 37lincresunit2 42868 . . . . 5 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → 𝐺 finSupp 0 )
8786, 32syl6breq 4850 . . . 4 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → 𝐺 finSupp (0g𝑅))
883, 2scmfsupp 42760 . . . . 5 (((𝑀 ∈ LMod ∧ (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀)) ∧ 𝐺 ∈ (𝐸𝑚 (𝑆 ∖ {𝑋})) ∧ 𝐺 finSupp (0g𝑅)) → (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺𝑧)( ·𝑠𝑀)𝑧)) finSupp (0g𝑀))
8988, 33syl6breqr 4851 . . . 4 (((𝑀 ∈ LMod ∧ (𝑆 ∖ {𝑋}) ∈ 𝒫 (Base‘𝑀)) ∧ 𝐺 ∈ (𝐸𝑚 (𝑆 ∖ {𝑋})) ∧ 𝐺 finSupp (0g𝑅)) → (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺𝑧)( ·𝑠𝑀)𝑧)) finSupp 𝑍)
9085, 66, 87, 89syl3anc 1490 . . 3 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺𝑧)( ·𝑠𝑀)𝑧)) finSupp 𝑍)
9120, 3, 2, 33, 47, 48, 1, 51, 63, 82, 90gsumvsmul 19196 . 2 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → (𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝑁‘(𝐹𝑋))( ·𝑠𝑀)((𝐺𝑧)( ·𝑠𝑀)𝑧)))) = ((𝑁‘(𝐹𝑋))( ·𝑠𝑀)(𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺𝑧)( ·𝑠𝑀)𝑧)))))
9226, 46, 913eqtr2rd 2806 1 (((𝑆 ∈ 𝒫 𝐵𝑀 ∈ LMod ∧ 𝑋𝑆) ∧ (𝐹 ∈ (𝐸𝑚 𝑆) ∧ (𝐹𝑋) ∈ 𝑈𝐹 finSupp 0 )) → ((𝑁‘(𝐹𝑋))( ·𝑠𝑀)(𝑀 Σg (𝑧 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐺𝑧)( ·𝑠𝑀)𝑧)))) = ((𝐹 ↾ (𝑆 ∖ {𝑋}))( linC ‘𝑀)(𝑆 ∖ {𝑋})))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 197  wa 384  w3a 1107   = wceq 1652  wcel 2155  Vcvv 3350  cdif 3729  wss 3732  𝒫 cpw 4315  {csn 4334   class class class wbr 4809  cmpt 4888  cres 5279  wf 6064  cfv 6068  (class class class)co 6842  𝑚 cmap 8060   finSupp cfsupp 8482  Basecbs 16132  +gcplusg 16216  .rcmulr 16217  Scalarcsca 16219   ·𝑠 cvsca 16220  0gc0g 16368   Σg cgsu 16369  Grpcgrp 17691  invgcminusg 17692  Unitcui 18906  invrcinvr 18938  LModclmod 19132   linC clinc 42794
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4930  ax-sep 4941  ax-nul 4949  ax-pow 5001  ax-pr 5062  ax-un 7147  ax-cnex 10245  ax-resscn 10246  ax-1cn 10247  ax-icn 10248  ax-addcl 10249  ax-addrcl 10250  ax-mulcl 10251  ax-mulrcl 10252  ax-mulcom 10253  ax-addass 10254  ax-mulass 10255  ax-distr 10256  ax-i2m1 10257  ax-1ne0 10258  ax-1rid 10259  ax-rnegex 10260  ax-rrecex 10261  ax-cnre 10262  ax-pre-lttri 10263  ax-pre-lttrn 10264  ax-pre-ltadd 10265  ax-pre-mulgt0 10266
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3597  df-csb 3692  df-dif 3735  df-un 3737  df-in 3739  df-ss 3746  df-pss 3748  df-nul 4080  df-if 4244  df-pw 4317  df-sn 4335  df-pr 4337  df-tp 4339  df-op 4341  df-uni 4595  df-int 4634  df-iun 4678  df-br 4810  df-opab 4872  df-mpt 4889  df-tr 4912  df-id 5185  df-eprel 5190  df-po 5198  df-so 5199  df-fr 5236  df-se 5237  df-we 5238  df-xp 5283  df-rel 5284  df-cnv 5285  df-co 5286  df-dm 5287  df-rn 5288  df-res 5289  df-ima 5290  df-pred 5865  df-ord 5911  df-on 5912  df-lim 5913  df-suc 5914  df-iota 6031  df-fun 6070  df-fn 6071  df-f 6072  df-f1 6073  df-fo 6074  df-f1o 6075  df-fv 6076  df-isom 6077  df-riota 6803  df-ov 6845  df-oprab 6846  df-mpt2 6847  df-om 7264  df-1st 7366  df-2nd 7367  df-supp 7498  df-tpos 7555  df-wrecs 7610  df-recs 7672  df-rdg 7710  df-1o 7764  df-oadd 7768  df-er 7947  df-map 8062  df-en 8161  df-dom 8162  df-sdom 8163  df-fin 8164  df-fsupp 8483  df-oi 8622  df-card 9016  df-pnf 10330  df-mnf 10331  df-xr 10332  df-ltxr 10333  df-le 10334  df-sub 10522  df-neg 10523  df-nn 11275  df-2 11335  df-3 11336  df-n0 11539  df-z 11625  df-uz 11887  df-fz 12534  df-fzo 12674  df-seq 13009  df-hash 13322  df-ndx 16135  df-slot 16136  df-base 16138  df-sets 16139  df-ress 16140  df-plusg 16229  df-mulr 16230  df-0g 16370  df-gsum 16371  df-mgm 17510  df-sgrp 17552  df-mnd 17563  df-mhm 17603  df-grp 17694  df-minusg 17695  df-ghm 17924  df-cntz 18015  df-cmn 18461  df-abl 18462  df-mgp 18757  df-ur 18769  df-ring 18816  df-oppr 18890  df-dvdsr 18908  df-unit 18909  df-invr 18939  df-lmod 19134  df-linc 42796
This theorem is referenced by:  lincresunit3  42871
  Copyright terms: Public domain W3C validator