Step | Hyp | Ref
| Expression |
1 | | simpl 472 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → 𝑀 ∈ LMod) |
2 | | linc0scn0.s |
. . . . . . . . 9
⊢ 𝑆 = (Scalar‘𝑀) |
3 | 2 | lmodring 18694 |
. . . . . . . 8
⊢ (𝑀 ∈ LMod → 𝑆 ∈ Ring) |
4 | 2 | eqcomi 2619 |
. . . . . . . . . . 11
⊢
(Scalar‘𝑀) =
𝑆 |
5 | 4 | fveq2i 6106 |
. . . . . . . . . 10
⊢
(Base‘(Scalar‘𝑀)) = (Base‘𝑆) |
6 | | linc0scn0.1 |
. . . . . . . . . 10
⊢ 1 =
(1r‘𝑆) |
7 | 5, 6 | ringidcl 18391 |
. . . . . . . . 9
⊢ (𝑆 ∈ Ring → 1 ∈
(Base‘(Scalar‘𝑀))) |
8 | | linc0scn0.0 |
. . . . . . . . . 10
⊢ 0 =
(0g‘𝑆) |
9 | 5, 8 | ring0cl 18392 |
. . . . . . . . 9
⊢ (𝑆 ∈ Ring → 0 ∈
(Base‘(Scalar‘𝑀))) |
10 | 7, 9 | jca 553 |
. . . . . . . 8
⊢ (𝑆 ∈ Ring → ( 1 ∈
(Base‘(Scalar‘𝑀)) ∧ 0 ∈
(Base‘(Scalar‘𝑀)))) |
11 | 3, 10 | syl 17 |
. . . . . . 7
⊢ (𝑀 ∈ LMod → ( 1 ∈
(Base‘(Scalar‘𝑀)) ∧ 0 ∈
(Base‘(Scalar‘𝑀)))) |
12 | 11 | ad2antrr 758 |
. . . . . 6
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑥 ∈ 𝑉) → ( 1 ∈
(Base‘(Scalar‘𝑀)) ∧ 0 ∈
(Base‘(Scalar‘𝑀)))) |
13 | | ifcl 4080 |
. . . . . 6
⊢ (( 1 ∈
(Base‘(Scalar‘𝑀)) ∧ 0 ∈
(Base‘(Scalar‘𝑀))) → if(𝑥 = 𝑍, 1 , 0 ) ∈
(Base‘(Scalar‘𝑀))) |
14 | 12, 13 | syl 17 |
. . . . 5
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑥 ∈ 𝑉) → if(𝑥 = 𝑍, 1 , 0 ) ∈
(Base‘(Scalar‘𝑀))) |
15 | | linc0scn0.f |
. . . . 5
⊢ 𝐹 = (𝑥 ∈ 𝑉 ↦ if(𝑥 = 𝑍, 1 , 0 )) |
16 | 14, 15 | fmptd 6292 |
. . . 4
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → 𝐹:𝑉⟶(Base‘(Scalar‘𝑀))) |
17 | | fvex 6113 |
. . . . . 6
⊢
(Base‘(Scalar‘𝑀)) ∈ V |
18 | 17 | a1i 11 |
. . . . 5
⊢ (𝑀 ∈ LMod →
(Base‘(Scalar‘𝑀)) ∈ V) |
19 | | elmapg 7757 |
. . . . 5
⊢
(((Base‘(Scalar‘𝑀)) ∈ V ∧ 𝑉 ∈ 𝒫 𝐵) → (𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚
𝑉) ↔ 𝐹:𝑉⟶(Base‘(Scalar‘𝑀)))) |
20 | 18, 19 | sylan 487 |
. . . 4
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚
𝑉) ↔ 𝐹:𝑉⟶(Base‘(Scalar‘𝑀)))) |
21 | 16, 20 | mpbird 246 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → 𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚
𝑉)) |
22 | | linc0scn0.b |
. . . . . . 7
⊢ 𝐵 = (Base‘𝑀) |
23 | 22 | pweqi 4112 |
. . . . . 6
⊢ 𝒫
𝐵 = 𝒫
(Base‘𝑀) |
24 | 23 | eleq2i 2680 |
. . . . 5
⊢ (𝑉 ∈ 𝒫 𝐵 ↔ 𝑉 ∈ 𝒫 (Base‘𝑀)) |
25 | 24 | biimpi 205 |
. . . 4
⊢ (𝑉 ∈ 𝒫 𝐵 → 𝑉 ∈ 𝒫 (Base‘𝑀)) |
26 | 25 | adantl 481 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → 𝑉 ∈ 𝒫 (Base‘𝑀)) |
27 | | lincval 41992 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ 𝐹 ∈
((Base‘(Scalar‘𝑀)) ↑𝑚 𝑉) ∧ 𝑉 ∈ 𝒫 (Base‘𝑀)) → (𝐹( linC ‘𝑀)𝑉) = (𝑀 Σg (𝑣 ∈ 𝑉 ↦ ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣)))) |
28 | 1, 21, 26, 27 | syl3anc 1318 |
. 2
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝐹( linC ‘𝑀)𝑉) = (𝑀 Σg (𝑣 ∈ 𝑉 ↦ ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣)))) |
29 | | simpr 476 |
. . . . . . 7
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → 𝑣 ∈ 𝑉) |
30 | | fvex 6113 |
. . . . . . . . 9
⊢
(1r‘𝑆) ∈ V |
31 | 6, 30 | eqeltri 2684 |
. . . . . . . 8
⊢ 1 ∈
V |
32 | | fvex 6113 |
. . . . . . . . 9
⊢
(0g‘𝑆) ∈ V |
33 | 8, 32 | eqeltri 2684 |
. . . . . . . 8
⊢ 0 ∈
V |
34 | 31, 33 | ifex 4106 |
. . . . . . 7
⊢ if(𝑣 = 𝑍, 1 , 0 ) ∈
V |
35 | | eqeq1 2614 |
. . . . . . . . 9
⊢ (𝑥 = 𝑣 → (𝑥 = 𝑍 ↔ 𝑣 = 𝑍)) |
36 | 35 | ifbid 4058 |
. . . . . . . 8
⊢ (𝑥 = 𝑣 → if(𝑥 = 𝑍, 1 , 0 ) = if(𝑣 = 𝑍, 1 , 0 )) |
37 | 36, 15 | fvmptg 6189 |
. . . . . . 7
⊢ ((𝑣 ∈ 𝑉 ∧ if(𝑣 = 𝑍, 1 , 0 ) ∈ V) → (𝐹‘𝑣) = if(𝑣 = 𝑍, 1 , 0 )) |
38 | 29, 34, 37 | sylancl 693 |
. . . . . 6
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → (𝐹‘𝑣) = if(𝑣 = 𝑍, 1 , 0 )) |
39 | 38 | oveq1d 6564 |
. . . . 5
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣) = (if(𝑣 = 𝑍, 1 , 0 )(
·𝑠 ‘𝑀)𝑣)) |
40 | | ovif 6635 |
. . . . . 6
⊢ (if(𝑣 = 𝑍, 1 , 0 )(
·𝑠 ‘𝑀)𝑣) = if(𝑣 = 𝑍, ( 1 (
·𝑠 ‘𝑀)𝑣), ( 0 (
·𝑠 ‘𝑀)𝑣)) |
41 | 40 | a1i 11 |
. . . . 5
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → (if(𝑣 = 𝑍, 1 , 0 )(
·𝑠 ‘𝑀)𝑣) = if(𝑣 = 𝑍, ( 1 (
·𝑠 ‘𝑀)𝑣), ( 0 (
·𝑠 ‘𝑀)𝑣))) |
42 | | oveq2 6557 |
. . . . . . . 8
⊢ (𝑣 = 𝑍 → ( 1 (
·𝑠 ‘𝑀)𝑣) = ( 1 (
·𝑠 ‘𝑀)𝑍)) |
43 | 42 | adantl 481 |
. . . . . . 7
⊢ ((((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) ∧ 𝑣 = 𝑍) → ( 1 (
·𝑠 ‘𝑀)𝑣) = ( 1 (
·𝑠 ‘𝑀)𝑍)) |
44 | | eqid 2610 |
. . . . . . . . . . . 12
⊢
(Base‘𝑆) =
(Base‘𝑆) |
45 | 2, 44, 6 | lmod1cl 18713 |
. . . . . . . . . . 11
⊢ (𝑀 ∈ LMod → 1 ∈
(Base‘𝑆)) |
46 | 45 | ancli 572 |
. . . . . . . . . 10
⊢ (𝑀 ∈ LMod → (𝑀 ∈ LMod ∧ 1 ∈
(Base‘𝑆))) |
47 | 46 | adantr 480 |
. . . . . . . . 9
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑀 ∈ LMod ∧ 1 ∈ (Base‘𝑆))) |
48 | 47 | ad2antrr 758 |
. . . . . . . 8
⊢ ((((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) ∧ 𝑣 = 𝑍) → (𝑀 ∈ LMod ∧ 1 ∈ (Base‘𝑆))) |
49 | | eqid 2610 |
. . . . . . . . 9
⊢ (
·𝑠 ‘𝑀) = ( ·𝑠
‘𝑀) |
50 | | linc0scn0.z |
. . . . . . . . 9
⊢ 𝑍 = (0g‘𝑀) |
51 | 2, 49, 44, 50 | lmodvs0 18720 |
. . . . . . . 8
⊢ ((𝑀 ∈ LMod ∧ 1 ∈
(Base‘𝑆)) → (
1 (
·𝑠 ‘𝑀)𝑍) = 𝑍) |
52 | 48, 51 | syl 17 |
. . . . . . 7
⊢ ((((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) ∧ 𝑣 = 𝑍) → ( 1 (
·𝑠 ‘𝑀)𝑍) = 𝑍) |
53 | 43, 52 | eqtrd 2644 |
. . . . . 6
⊢ ((((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) ∧ 𝑣 = 𝑍) → ( 1 (
·𝑠 ‘𝑀)𝑣) = 𝑍) |
54 | 1 | adantr 480 |
. . . . . . . 8
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → 𝑀 ∈ LMod) |
55 | | elelpwi 4119 |
. . . . . . . . . . 11
⊢ ((𝑣 ∈ 𝑉 ∧ 𝑉 ∈ 𝒫 𝐵) → 𝑣 ∈ 𝐵) |
56 | 55 | expcom 450 |
. . . . . . . . . 10
⊢ (𝑉 ∈ 𝒫 𝐵 → (𝑣 ∈ 𝑉 → 𝑣 ∈ 𝐵)) |
57 | 56 | adantl 481 |
. . . . . . . . 9
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑣 ∈ 𝑉 → 𝑣 ∈ 𝐵)) |
58 | 57 | imp 444 |
. . . . . . . 8
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → 𝑣 ∈ 𝐵) |
59 | 22, 2, 49, 8, 50 | lmod0vs 18719 |
. . . . . . . 8
⊢ ((𝑀 ∈ LMod ∧ 𝑣 ∈ 𝐵) → ( 0 (
·𝑠 ‘𝑀)𝑣) = 𝑍) |
60 | 54, 58, 59 | syl2anc 691 |
. . . . . . 7
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → ( 0 (
·𝑠 ‘𝑀)𝑣) = 𝑍) |
61 | 60 | adantr 480 |
. . . . . 6
⊢ ((((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) ∧ ¬ 𝑣 = 𝑍) → ( 0 (
·𝑠 ‘𝑀)𝑣) = 𝑍) |
62 | 53, 61 | ifeqda 4071 |
. . . . 5
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → if(𝑣 = 𝑍, ( 1 (
·𝑠 ‘𝑀)𝑣), ( 0 (
·𝑠 ‘𝑀)𝑣)) = 𝑍) |
63 | 39, 41, 62 | 3eqtrd 2648 |
. . . 4
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣) = 𝑍) |
64 | 63 | mpteq2dva 4672 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑣 ∈ 𝑉 ↦ ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣)) = (𝑣 ∈ 𝑉 ↦ 𝑍)) |
65 | 64 | oveq2d 6565 |
. 2
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑀 Σg (𝑣 ∈ 𝑉 ↦ ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣))) = (𝑀 Σg (𝑣 ∈ 𝑉 ↦ 𝑍))) |
66 | | lmodgrp 18693 |
. . . 4
⊢ (𝑀 ∈ LMod → 𝑀 ∈ Grp) |
67 | | grpmnd 17252 |
. . . 4
⊢ (𝑀 ∈ Grp → 𝑀 ∈ Mnd) |
68 | 66, 67 | syl 17 |
. . 3
⊢ (𝑀 ∈ LMod → 𝑀 ∈ Mnd) |
69 | 50 | gsumz 17197 |
. . 3
⊢ ((𝑀 ∈ Mnd ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑀 Σg (𝑣 ∈ 𝑉 ↦ 𝑍)) = 𝑍) |
70 | 68, 69 | sylan 487 |
. 2
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑀 Σg (𝑣 ∈ 𝑉 ↦ 𝑍)) = 𝑍) |
71 | 28, 65, 70 | 3eqtrd 2648 |
1
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝐹( linC ‘𝑀)𝑉) = 𝑍) |