| Step | Hyp | Ref
| Expression |
| 1 | | simpl 486 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → 𝑀 ∈ LMod) |
| 2 | | linc0scn0.s |
. . . . . . . . 9
⊢ 𝑆 = (Scalar‘𝑀) |
| 3 | 2 | lmodring 20915 |
. . . . . . . 8
⊢ (𝑀 ∈ LMod → 𝑆 ∈ Ring) |
| 4 | 2 | eqcomi 2770 |
. . . . . . . . . . 11
⊢
(Scalar‘𝑀) =
𝑆 |
| 5 | 4 | fveq2i 6866 |
. . . . . . . . . 10
⊢
(Base‘(Scalar‘𝑀)) = (Base‘𝑆) |
| 6 | | linc0scn0.1 |
. . . . . . . . . 10
⊢ 1 =
(1r‘𝑆) |
| 7 | 5, 6 | ringidcl 20294 |
. . . . . . . . 9
⊢ (𝑆 ∈ Ring → 1 ∈
(Base‘(Scalar‘𝑀))) |
| 8 | | linc0scn0.0 |
. . . . . . . . . 10
⊢ 0 =
(0g‘𝑆) |
| 9 | 5, 8 | ring0cl 20296 |
. . . . . . . . 9
⊢ (𝑆 ∈ Ring → 0 ∈
(Base‘(Scalar‘𝑀))) |
| 10 | 7, 9 | jca 519 |
. . . . . . . 8
⊢ (𝑆 ∈ Ring → ( 1 ∈
(Base‘(Scalar‘𝑀)) ∧ 0 ∈
(Base‘(Scalar‘𝑀)))) |
| 11 | 3, 10 | syl 17 |
. . . . . . 7
⊢ (𝑀 ∈ LMod → ( 1 ∈
(Base‘(Scalar‘𝑀)) ∧ 0 ∈
(Base‘(Scalar‘𝑀)))) |
| 12 | 11 | ad2antrr 736 |
. . . . . 6
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑥 ∈ 𝑉) → ( 1 ∈
(Base‘(Scalar‘𝑀)) ∧ 0 ∈
(Base‘(Scalar‘𝑀)))) |
| 13 | | ifcl 4525 |
. . . . . 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 7091 |
. . . 4
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → 𝐹:𝑉⟶(Base‘(Scalar‘𝑀))) |
| 17 | | fvex 6876 |
. . . . . 6
⊢
(Base‘(Scalar‘𝑀)) ∈ V |
| 18 | 17 | a1i 11 |
. . . . 5
⊢ (𝑀 ∈ LMod →
(Base‘(Scalar‘𝑀)) ∈ V) |
| 19 | | elmapg 8816 |
. . . . 5
⊢
(((Base‘(Scalar‘𝑀)) ∈ V ∧ 𝑉 ∈ 𝒫 𝐵) → (𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑m 𝑉) ↔ 𝐹:𝑉⟶(Base‘(Scalar‘𝑀)))) |
| 20 | 18, 19 | sylan 589 |
. . . 4
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑m 𝑉) ↔ 𝐹:𝑉⟶(Base‘(Scalar‘𝑀)))) |
| 21 | 16, 20 | mpbird 259 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → 𝐹 ∈ ((Base‘(Scalar‘𝑀)) ↑m 𝑉)) |
| 22 | | linc0scn0.b |
. . . . . 6
⊢ 𝐵 = (Base‘𝑀) |
| 23 | 22 | pweqi 4570 |
. . . . 5
⊢ 𝒫
𝐵 = 𝒫
(Base‘𝑀) |
| 24 | 23 | eleq2i 2853 |
. . . 4
⊢ (𝑉 ∈ 𝒫 𝐵 ↔ 𝑉 ∈ 𝒫 (Base‘𝑀)) |
| 25 | 24 | bilani 508 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → 𝑉 ∈ 𝒫 (Base‘𝑀)) |
| 26 | | lincval 48995 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ 𝐹 ∈
((Base‘(Scalar‘𝑀)) ↑m 𝑉) ∧ 𝑉 ∈ 𝒫 (Base‘𝑀)) → (𝐹( linC ‘𝑀)𝑉) = (𝑀 Σg (𝑣 ∈ 𝑉 ↦ ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣)))) |
| 27 | 1, 21, 25, 26 | syl3anc 1389 |
. 2
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝐹( linC ‘𝑀)𝑉) = (𝑀 Σg (𝑣 ∈ 𝑉 ↦ ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣)))) |
| 28 | | simpr 488 |
. . . . . . 7
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → 𝑣 ∈ 𝑉) |
| 29 | 6 | fvexi 6877 |
. . . . . . . 8
⊢ 1 ∈
V |
| 30 | 8 | fvexi 6877 |
. . . . . . . 8
⊢ 0 ∈
V |
| 31 | 29, 30 | ifex 4530 |
. . . . . . 7
⊢ if(𝑣 = 𝑍, 1 , 0 ) ∈
V |
| 32 | | eqeq1 2765 |
. . . . . . . . 9
⊢ (𝑥 = 𝑣 → (𝑥 = 𝑍 ↔ 𝑣 = 𝑍)) |
| 33 | 32 | ifbid 4503 |
. . . . . . . 8
⊢ (𝑥 = 𝑣 → if(𝑥 = 𝑍, 1 , 0 ) = if(𝑣 = 𝑍, 1 , 0 )) |
| 34 | 33, 15 | fvmptg 6969 |
. . . . . . 7
⊢ ((𝑣 ∈ 𝑉 ∧ if(𝑣 = 𝑍, 1 , 0 ) ∈ V) → (𝐹‘𝑣) = if(𝑣 = 𝑍, 1 , 0 )) |
| 35 | 28, 31, 34 | sylancl 595 |
. . . . . 6
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → (𝐹‘𝑣) = if(𝑣 = 𝑍, 1 , 0 )) |
| 36 | 35 | oveq1d 7407 |
. . . . 5
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣) = (if(𝑣 = 𝑍, 1 , 0 )(
·𝑠 ‘𝑀)𝑣)) |
| 37 | | ovif 7490 |
. . . . . 6
⊢ (if(𝑣 = 𝑍, 1 , 0 )(
·𝑠 ‘𝑀)𝑣) = if(𝑣 = 𝑍, ( 1 (
·𝑠 ‘𝑀)𝑣), ( 0 (
·𝑠 ‘𝑀)𝑣)) |
| 38 | 37 | a1i 11 |
. . . . 5
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → (if(𝑣 = 𝑍, 1 , 0 )(
·𝑠 ‘𝑀)𝑣) = if(𝑣 = 𝑍, ( 1 (
·𝑠 ‘𝑀)𝑣), ( 0 (
·𝑠 ‘𝑀)𝑣))) |
| 39 | | oveq2 7400 |
. . . . . . . 8
⊢ (𝑣 = 𝑍 → ( 1 (
·𝑠 ‘𝑀)𝑣) = ( 1 (
·𝑠 ‘𝑀)𝑍)) |
| 40 | 39 | adantl 485 |
. . . . . . 7
⊢ ((((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) ∧ 𝑣 = 𝑍) → ( 1 (
·𝑠 ‘𝑀)𝑣) = ( 1 (
·𝑠 ‘𝑀)𝑍)) |
| 41 | | eqid 2761 |
. . . . . . . . . . . 12
⊢
(Base‘𝑆) =
(Base‘𝑆) |
| 42 | 2, 41, 6 | lmod1cl 20936 |
. . . . . . . . . . 11
⊢ (𝑀 ∈ LMod → 1 ∈
(Base‘𝑆)) |
| 43 | 42 | ancli 556 |
. . . . . . . . . 10
⊢ (𝑀 ∈ LMod → (𝑀 ∈ LMod ∧ 1 ∈
(Base‘𝑆))) |
| 44 | 43 | adantr 484 |
. . . . . . . . 9
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑀 ∈ LMod ∧ 1 ∈ (Base‘𝑆))) |
| 45 | 44 | ad2antrr 736 |
. . . . . . . 8
⊢ ((((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) ∧ 𝑣 = 𝑍) → (𝑀 ∈ LMod ∧ 1 ∈ (Base‘𝑆))) |
| 46 | | eqid 2761 |
. . . . . . . . 9
⊢ (
·𝑠 ‘𝑀) = ( ·𝑠
‘𝑀) |
| 47 | | linc0scn0.z |
. . . . . . . . 9
⊢ 𝑍 = (0g‘𝑀) |
| 48 | 2, 46, 41, 47 | lmodvs0 20943 |
. . . . . . . 8
⊢ ((𝑀 ∈ LMod ∧ 1 ∈
(Base‘𝑆)) → (
1 (
·𝑠 ‘𝑀)𝑍) = 𝑍) |
| 49 | 45, 48 | syl 17 |
. . . . . . 7
⊢ ((((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) ∧ 𝑣 = 𝑍) → ( 1 (
·𝑠 ‘𝑀)𝑍) = 𝑍) |
| 50 | 40, 49 | eqtrd 2796 |
. . . . . 6
⊢ ((((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) ∧ 𝑣 = 𝑍) → ( 1 (
·𝑠 ‘𝑀)𝑣) = 𝑍) |
| 51 | 1 | adantr 484 |
. . . . . . . 8
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → 𝑀 ∈ LMod) |
| 52 | | elelpwi 4564 |
. . . . . . . . . . 11
⊢ ((𝑣 ∈ 𝑉 ∧ 𝑉 ∈ 𝒫 𝐵) → 𝑣 ∈ 𝐵) |
| 53 | 52 | expcom 417 |
. . . . . . . . . 10
⊢ (𝑉 ∈ 𝒫 𝐵 → (𝑣 ∈ 𝑉 → 𝑣 ∈ 𝐵)) |
| 54 | 53 | adantl 485 |
. . . . . . . . 9
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑣 ∈ 𝑉 → 𝑣 ∈ 𝐵)) |
| 55 | 54 | imp 410 |
. . . . . . . 8
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → 𝑣 ∈ 𝐵) |
| 56 | 22, 2, 46, 8, 47 | lmod0vs 20942 |
. . . . . . . 8
⊢ ((𝑀 ∈ LMod ∧ 𝑣 ∈ 𝐵) → ( 0 (
·𝑠 ‘𝑀)𝑣) = 𝑍) |
| 57 | 51, 55, 56 | syl2anc 593 |
. . . . . . 7
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → ( 0 (
·𝑠 ‘𝑀)𝑣) = 𝑍) |
| 58 | 57 | adantr 484 |
. . . . . 6
⊢ ((((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) ∧ ¬ 𝑣 = 𝑍) → ( 0 (
·𝑠 ‘𝑀)𝑣) = 𝑍) |
| 59 | 50, 58 | ifeqda 4516 |
. . . . 5
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → if(𝑣 = 𝑍, ( 1 (
·𝑠 ‘𝑀)𝑣), ( 0 (
·𝑠 ‘𝑀)𝑣)) = 𝑍) |
| 60 | 36, 38, 59 | 3eqtrd 2800 |
. . . 4
⊢ (((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) ∧ 𝑣 ∈ 𝑉) → ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣) = 𝑍) |
| 61 | 60 | mpteq2dva 5192 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑣 ∈ 𝑉 ↦ ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣)) = (𝑣 ∈ 𝑉 ↦ 𝑍)) |
| 62 | 61 | oveq2d 7408 |
. 2
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑀 Σg (𝑣 ∈ 𝑉 ↦ ((𝐹‘𝑣)( ·𝑠
‘𝑀)𝑣))) = (𝑀 Σg (𝑣 ∈ 𝑉 ↦ 𝑍))) |
| 63 | | lmodgrp 20914 |
. . . 4
⊢ (𝑀 ∈ LMod → 𝑀 ∈ Grp) |
| 64 | 63 | grpmndd 18971 |
. . 3
⊢ (𝑀 ∈ LMod → 𝑀 ∈ Mnd) |
| 65 | 47 | gsumz 18853 |
. . 3
⊢ ((𝑀 ∈ Mnd ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑀 Σg (𝑣 ∈ 𝑉 ↦ 𝑍)) = 𝑍) |
| 66 | 64, 65 | sylan 589 |
. 2
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝑀 Σg (𝑣 ∈ 𝑉 ↦ 𝑍)) = 𝑍) |
| 67 | 27, 62, 66 | 3eqtrd 2800 |
1
⊢ ((𝑀 ∈ LMod ∧ 𝑉 ∈ 𝒫 𝐵) → (𝐹( linC ‘𝑀)𝑉) = 𝑍) |