Step | Hyp | Ref
| Expression |
1 | | simp-4r 782 |
. . . . . . . . 9
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) |
2 | | fveq2 6888 |
. . . . . . . . . . . 12
β’ (π’ = π£ β (πβπ’) = (πβπ£)) |
3 | | id 22 |
. . . . . . . . . . . 12
β’ (π’ = π£ β π’ = π£) |
4 | 2, 3 | oveq12d 7423 |
. . . . . . . . . . 11
β’ (π’ = π£ β ((πβπ’)( Β·π
βπ)π’) = ((πβπ£)( Β·π
βπ)π£)) |
5 | 4 | cbvmptv 5260 |
. . . . . . . . . 10
β’ (π’ β π β¦ ((πβπ’)( Β·π
βπ)π’)) = (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)) |
6 | 5 | oveq2i 7416 |
. . . . . . . . 9
β’ (π Ξ£g
(π’ β π β¦ ((πβπ’)( Β·π
βπ)π’))) = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£))) |
7 | 1, 6 | eqtr4di 2790 |
. . . . . . . 8
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π₯ = (π Ξ£g (π’ β π β¦ ((πβπ’)( Β·π
βπ)π’)))) |
8 | | simp-4r 782 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β π finSupp
(0gβ(Scalarβπ))) |
9 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β π finSupp
(0gβ(Scalarβπ))) |
10 | | simp-8l 789 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β π β LVec) |
11 | | simplr 767 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β π΅ β π½) |
12 | 11 | ad6antr 734 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β π΅ β π½) |
13 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β π β π΅) |
14 | 13 | ad6antr 734 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β π β π΅) |
15 | | simp-5r 784 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β π β ((Baseβ(Scalarβπ)) βm π)) |
16 | | fvexd 6903 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β (Baseβ(Scalarβπ)) β V) |
17 | 11, 13 | ssexd 5323 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β π β V) |
18 | 16, 17 | elmapd 8830 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β (π β ((Baseβ(Scalarβπ)) βm π) β π:πβΆ(Baseβ(Scalarβπ)))) |
19 | 18 | biimpa 477 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π β ((Baseβ(Scalarβπ)) βm π)) β π:πβΆ(Baseβ(Scalarβπ))) |
20 | 10, 12, 14, 15, 19 | syl1111anc 838 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β π:πβΆ(Baseβ(Scalarβπ))) |
21 | | simplr 767 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) |
22 | | lveclmod 20709 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (π β LVec β π β LMod) |
23 | 22 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β π β LMod) |
24 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’
(Baseβπ) =
(Baseβπ) |
25 | | lbsdiflsp0.j |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ π½ = (LBasisβπ) |
26 | 24, 25 | lbsss 20680 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ (π΅ β π½ β π΅ β (Baseβπ)) |
27 | 26 | ad2antlr 725 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β π΅ β (Baseβπ)) |
28 | 27 | ssdifssd 4141 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β (π΅ β π) β (Baseβπ)) |
29 | | lbsdiflsp0.1 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ 0 =
(0gβπ) |
30 | | lbsdiflsp0.n |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ π = (LSpanβπ) |
31 | 29, 24, 30 | 0ellsp 32470 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((π β LMod β§ (π΅ β π) β (Baseβπ)) β 0 β (πβ(π΅ β π))) |
32 | 23, 28, 31 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β 0 β (πβ(π΅ β π))) |
33 | 32 | elfvexd 6927 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β (π΅ β π) β V) |
34 | 16, 33 | elmapd 8830 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β (π β ((Baseβ(Scalarβπ)) βm (π΅ β π)) β π:(π΅ β π)βΆ(Baseβ(Scalarβπ)))) |
35 | 34 | biimpa 477 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β π:(π΅ β π)βΆ(Baseβ(Scalarβπ))) |
36 | 10, 12, 14, 21, 35 | syl1111anc 838 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β π:(π΅ β π)βΆ(Baseβ(Scalarβπ))) |
37 | | disjdif 4470 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β© (π΅ β π)) = β
|
38 | 37 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β (π β© (π΅ β π)) = β
) |
39 | 20, 36, 38 | fun2d 6752 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β (π βͺ π):(π βͺ (π΅ β π))βΆ(Baseβ(Scalarβπ))) |
40 | | undif 4480 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β π΅ β (π βͺ (π΅ β π)) = π΅) |
41 | 14, 40 | sylib 217 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β (π βͺ (π΅ β π)) = π΅) |
42 | 41 | feq2d 6700 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β ((π βͺ π):(π βͺ (π΅ β π))βΆ(Baseβ(Scalarβπ)) β (π βͺ π):π΅βΆ(Baseβ(Scalarβπ)))) |
43 | 39, 42 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β (π βͺ π):π΅βΆ(Baseβ(Scalarβπ))) |
44 | 43 | ffund 6718 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β Fun (π βͺ π)) |
45 | 44 | fsuppunbi 9380 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β ((π βͺ π) finSupp
(0gβ(Scalarβπ)) β (π finSupp
(0gβ(Scalarβπ)) β§ π finSupp
(0gβ(Scalarβπ))))) |
46 | 8, 9, 45 | mpbir2and 711 |
. . . . . . . . . . . . . . . . . . 19
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β (π βͺ π) finSupp
(0gβ(Scalarβπ))) |
47 | 46 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π βͺ π) finSupp
(0gβ(Scalarβπ))) |
48 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . 20
β’
(+gβπ) = (+gβπ) |
49 | | lmodcmn 20512 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β LMod β π β CMnd) |
50 | 22, 49 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β LVec β π β CMnd) |
51 | 50 | ad9antr 740 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π β CMnd) |
52 | 11 | ad7antr 736 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π΅ β π½) |
53 | 23 | ad8antr 738 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β π β LMod) |
54 | | elmapfn 8855 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β
((Baseβ(Scalarβπ)) βm π) β π Fn π) |
55 | 54 | ad6antlr 735 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π Fn π) |
56 | 55 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β π Fn π) |
57 | | elmapfn 8855 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β
((Baseβ(Scalarβπ)) βm (π΅ β π)) β π Fn (π΅ β π)) |
58 | 57 | ad3antlr 729 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π Fn (π΅ β π)) |
59 | 58 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β π Fn (π΅ β π)) |
60 | 37 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β (π β© (π΅ β π)) = β
) |
61 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β π’ β π) |
62 | | fvun1 6979 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π Fn π β§ π Fn (π΅ β π) β§ ((π β© (π΅ β π)) = β
β§ π’ β π)) β ((π βͺ π)βπ’) = (πβπ’)) |
63 | 56, 59, 60, 61, 62 | syl112anc 1374 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β ((π βͺ π)βπ’) = (πβπ’)) |
64 | 63 | adantlr 713 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β§ π’ β π) β ((π βͺ π)βπ’) = (πβπ’)) |
65 | 20 | ad3antrrr 728 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
((((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β§ π’ β π) β π:πβΆ(Baseβ(Scalarβπ))) |
66 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
((((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β§ π’ β π) β π’ β π) |
67 | 65, 66 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β§ π’ β π) β (πβπ’) β (Baseβ(Scalarβπ))) |
68 | 64, 67 | eqeltrd 2833 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β§ π’ β π) β ((π βͺ π)βπ’) β (Baseβ(Scalarβπ))) |
69 | 55 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β (π΅ β π)) β π Fn π) |
70 | 58 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β (π΅ β π)) β π Fn (π΅ β π)) |
71 | 37 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β (π΅ β π)) β (π β© (π΅ β π)) = β
) |
72 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β (π΅ β π)) β π’ β (π΅ β π)) |
73 | | fvun2 6980 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π Fn π β§ π Fn (π΅ β π) β§ ((π β© (π΅ β π)) = β
β§ π’ β (π΅ β π))) β ((π βͺ π)βπ’) = (πβπ’)) |
74 | 69, 70, 71, 72, 73 | syl112anc 1374 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β (π΅ β π)) β ((π βͺ π)βπ’) = (πβπ’)) |
75 | 74 | adantlr 713 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β§ π’ β (π΅ β π)) β ((π βͺ π)βπ’) = (πβπ’)) |
76 | 36 | ad3antrrr 728 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
((((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β§ π’ β (π΅ β π)) β π:(π΅ β π)βΆ(Baseβ(Scalarβπ))) |
77 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
((((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β§ π’ β (π΅ β π)) β π’ β (π΅ β π)) |
78 | 76, 77 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β§ π’ β (π΅ β π)) β (πβπ’) β (Baseβ(Scalarβπ))) |
79 | 75, 78 | eqeltrd 2833 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β§ π’ β (π΅ β π)) β ((π βͺ π)βπ’) β (Baseβ(Scalarβπ))) |
80 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β π’ β π΅) |
81 | 40 | biimpi 215 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β π΅ β (π βͺ (π΅ β π)) = π΅) |
82 | 81 | ad8antlr 739 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π βͺ (π΅ β π)) = π΅) |
83 | 82 | eqcomd 2738 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π΅ = (π βͺ (π΅ β π))) |
84 | 83 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β π΅ = (π βͺ (π΅ β π))) |
85 | 80, 84 | eleqtrd 2835 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β π’ β (π βͺ (π΅ β π))) |
86 | | elun 4147 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π’ β (π βͺ (π΅ β π)) β (π’ β π β¨ π’ β (π΅ β π))) |
87 | 85, 86 | sylib 217 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β (π’ β π β¨ π’ β (π΅ β π))) |
88 | 68, 79, 87 | mpjaodan 957 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β ((π βͺ π)βπ’) β (Baseβ(Scalarβπ))) |
89 | 27 | ad8antr 738 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β π΅ β (Baseβπ)) |
90 | 89, 80 | sseldd 3982 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β π’ β (Baseβπ)) |
91 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(Scalarβπ) =
(Scalarβπ) |
92 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (
Β·π βπ) = ( Β·π
βπ) |
93 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(Baseβ(Scalarβπ)) = (Baseβ(Scalarβπ)) |
94 | 24, 91, 92, 93 | lmodvscl 20481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β LMod β§ ((π βͺ π)βπ’) β (Baseβ(Scalarβπ)) β§ π’ β (Baseβπ)) β (((π βͺ π)βπ’)( Β·π
βπ)π’) β (Baseβπ)) |
95 | 53, 88, 90, 94 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π΅) β (((π βͺ π)βπ’)( Β·π
βπ)π’) β (Baseβπ)) |
96 | | simp-9l 791 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π β LVec) |
97 | 96, 22 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π β LMod) |
98 | | eqidd 2733 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (Scalarβπ) = (Scalarβπ)) |
99 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(0gβ(Scalarβπ)) =
(0gβ(Scalarβπ)) |
100 | 43 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π βͺ π):π΅βΆ(Baseβ(Scalarβπ))) |
101 | 100 | feqmptd 6957 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π βͺ π) = (π’ β π΅ β¦ ((π βͺ π)βπ’))) |
102 | 101, 47 | eqbrtrrd 5171 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π’ β π΅ β¦ ((π βͺ π)βπ’)) finSupp
(0gβ(Scalarβπ))) |
103 | 52, 97, 98, 24, 88, 90, 29, 99, 92, 102 | mptscmfsupp0 20529 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π’ β π΅ β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’)) finSupp 0 ) |
104 | 37 | a1i 11 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π β© (π΅ β π)) = β
) |
105 | 24, 29, 48, 51, 52, 95, 103, 104, 83 | gsumsplit2 19791 |
. . . . . . . . . . . . . . . . . . 19
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π Ξ£g (π’ β π΅ β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’))) = ((π Ξ£g (π’ β π β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’)))(+gβπ)(π Ξ£g (π’ β (π΅ β π) β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’))))) |
106 | 63 | oveq1d 7420 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β (((π βͺ π)βπ’)( Β·π
βπ)π’) = ((πβπ’)( Β·π
βπ)π’)) |
107 | 106 | mpteq2dva 5247 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π’ β π β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’)) = (π’ β π β¦ ((πβπ’)( Β·π
βπ)π’))) |
108 | 107 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π Ξ£g (π’ β π β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’))) = (π Ξ£g (π’ β π β¦ ((πβπ’)( Β·π
βπ)π’)))) |
109 | 74 | oveq1d 7420 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β (π΅ β π)) β (((π βͺ π)βπ’)( Β·π
βπ)π’) = ((πβπ’)( Β·π
βπ)π’)) |
110 | 109 | mpteq2dva 5247 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π’ β (π΅ β π) β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’)) = (π’ β (π΅ β π) β¦ ((πβπ’)( Β·π
βπ)π’))) |
111 | 110 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π Ξ£g (π’ β (π΅ β π) β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’))) = (π Ξ£g (π’ β (π΅ β π) β¦ ((πβπ’)( Β·π
βπ)π’)))) |
112 | 108, 111 | oveq12d 7423 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β ((π Ξ£g (π’ β π β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’)))(+gβπ)(π Ξ£g (π’ β (π΅ β π) β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’)))) = ((π Ξ£g (π’ β π β¦ ((πβπ’)( Β·π
βπ)π’)))(+gβπ)(π Ξ£g (π’ β (π΅ β π) β¦ ((πβπ’)( Β·π
βπ)π’))))) |
113 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) |
114 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π’ = π£ β (πβπ’) = (πβπ£)) |
115 | 114, 3 | oveq12d 7423 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π’ = π£ β ((πβπ’)( Β·π
βπ)π’) = ((πβπ£)( Β·π
βπ)π£)) |
116 | 115 | cbvmptv 5260 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π’ β (π΅ β π) β¦ ((πβπ’)( Β·π
βπ)π’)) = (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)) |
117 | 116 | oveq2i 7416 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π Ξ£g
(π’ β (π΅ β π) β¦ ((πβπ’)( Β·π
βπ)π’))) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£))) |
118 | 113, 117 | eqtr4di 2790 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β ((invgβπ)βπ₯) = (π Ξ£g (π’ β (π΅ β π) β¦ ((πβπ’)( Β·π
βπ)π’)))) |
119 | 7, 118 | oveq12d 7423 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π₯(+gβπ)((invgβπ)βπ₯)) = ((π Ξ£g (π’ β π β¦ ((πβπ’)( Β·π
βπ)π’)))(+gβπ)(π Ξ£g (π’ β (π΅ β π) β¦ ((πβπ’)( Β·π
βπ)π’))))) |
120 | | lmodgrp 20470 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β LMod β π β Grp) |
121 | 96, 22, 120 | 3syl 18 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π β Grp) |
122 | 13, 27 | sstrd 3991 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β π β (Baseβπ)) |
123 | 24, 30 | lspssv 20586 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β LMod β§ π β (Baseβπ)) β (πβπ) β (Baseβπ)) |
124 | 23, 122, 123 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β (πβπ) β (Baseβπ)) |
125 | 124 | ad7antr 736 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (πβπ) β (Baseβπ)) |
126 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β π₯ β ((πβ(π΅ β π)) β© (πβπ))) |
127 | 126 | elin2d 4198 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β π₯ β (πβπ)) |
128 | 127 | ad6antr 734 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π₯ β (πβπ)) |
129 | 125, 128 | sseldd 3982 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π₯ β (Baseβπ)) |
130 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(invgβπ) = (invgβπ) |
131 | 24, 48, 29, 130 | grprinv 18871 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β Grp β§ π₯ β (Baseβπ)) β (π₯(+gβπ)((invgβπ)βπ₯)) = 0 ) |
132 | 121, 129,
131 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π₯(+gβπ)((invgβπ)βπ₯)) = 0 ) |
133 | 112, 119,
132 | 3eqtr2d 2778 |
. . . . . . . . . . . . . . . . . . 19
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β ((π Ξ£g (π’ β π β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’)))(+gβπ)(π Ξ£g (π’ β (π΅ β π) β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’)))) = 0 ) |
134 | 105, 133 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . 18
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π Ξ£g (π’ β π΅ β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’))) = 0 ) |
135 | | breq1 5150 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = (π βͺ π) β (π finSupp
(0gβ(Scalarβπ)) β (π βͺ π) finSupp
(0gβ(Scalarβπ)))) |
136 | | fveq1 6887 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π = (π βͺ π) β (πβπ’) = ((π βͺ π)βπ’)) |
137 | 136 | oveq1d 7420 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π = (π βͺ π) β ((πβπ’)( Β·π
βπ)π’) = (((π βͺ π)βπ’)( Β·π
βπ)π’)) |
138 | 137 | mpteq2dv 5249 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π = (π βͺ π) β (π’ β π΅ β¦ ((πβπ’)( Β·π
βπ)π’)) = (π’ β π΅ β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’))) |
139 | 138 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = (π βͺ π) β (π Ξ£g (π’ β π΅ β¦ ((πβπ’)( Β·π
βπ)π’))) = (π Ξ£g (π’ β π΅ β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’)))) |
140 | 139 | eqeq1d 2734 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = (π βͺ π) β ((π Ξ£g (π’ β π΅ β¦ ((πβπ’)( Β·π
βπ)π’))) = 0 β (π Ξ£g (π’ β π΅ β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’))) = 0 )) |
141 | 135, 140 | anbi12d 631 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = (π βͺ π) β ((π finSupp
(0gβ(Scalarβπ)) β§ (π Ξ£g (π’ β π΅ β¦ ((πβπ’)( Β·π
βπ)π’))) = 0 ) β ((π βͺ π) finSupp
(0gβ(Scalarβπ)) β§ (π Ξ£g (π’ β π΅ β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’))) = 0 ))) |
142 | | eqeq1 2736 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = (π βͺ π) β (π = (π΅ Γ
{(0gβ(Scalarβπ))}) β (π βͺ π) = (π΅ Γ
{(0gβ(Scalarβπ))}))) |
143 | 141, 142 | imbi12d 344 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = (π βͺ π) β (((π finSupp
(0gβ(Scalarβπ)) β§ (π Ξ£g (π’ β π΅ β¦ ((πβπ’)( Β·π
βπ)π’))) = 0 ) β π = (π΅ Γ
{(0gβ(Scalarβπ))})) β (((π βͺ π) finSupp
(0gβ(Scalarβπ)) β§ (π Ξ£g (π’ β π΅ β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’))) = 0 ) β (π βͺ π) = (π΅ Γ
{(0gβ(Scalarβπ))})))) |
144 | 25 | lbslinds 21379 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ π½ β (LIndSβπ) |
145 | 144, 11 | sselid 3979 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β π΅ β (LIndSβπ)) |
146 | 24, 93, 91, 92, 29, 99 | islinds5 32468 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β LMod β§ π΅ β (Baseβπ)) β (π΅ β (LIndSβπ) β βπ β ((Baseβ(Scalarβπ)) βm π΅)((π finSupp
(0gβ(Scalarβπ)) β§ (π Ξ£g (π’ β π΅ β¦ ((πβπ’)( Β·π
βπ)π’))) = 0 ) β π = (π΅ Γ
{(0gβ(Scalarβπ))})))) |
147 | 146 | biimpa 477 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β LMod β§ π΅ β (Baseβπ)) β§ π΅ β (LIndSβπ)) β βπ β ((Baseβ(Scalarβπ)) βm π΅)((π finSupp
(0gβ(Scalarβπ)) β§ (π Ξ£g (π’ β π΅ β¦ ((πβπ’)( Β·π
βπ)π’))) = 0 ) β π = (π΅ Γ
{(0gβ(Scalarβπ))}))) |
148 | 23, 27, 145, 147 | syl21anc 836 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β βπ β ((Baseβ(Scalarβπ)) βm π΅)((π finSupp
(0gβ(Scalarβπ)) β§ (π Ξ£g (π’ β π΅ β¦ ((πβπ’)( Β·π
βπ)π’))) = 0 ) β π = (π΅ Γ
{(0gβ(Scalarβπ))}))) |
149 | 148 | ad7antr 736 |
. . . . . . . . . . . . . . . . . . 19
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β βπ β ((Baseβ(Scalarβπ)) βm π΅)((π finSupp
(0gβ(Scalarβπ)) β§ (π Ξ£g (π’ β π΅ β¦ ((πβπ’)( Β·π
βπ)π’))) = 0 ) β π = (π΅ Γ
{(0gβ(Scalarβπ))}))) |
150 | | fvexd 6903 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (Baseβ(Scalarβπ)) β V) |
151 | 150, 52 | elmapd 8830 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β ((π βͺ π) β ((Baseβ(Scalarβπ)) βm π΅) β (π βͺ π):π΅βΆ(Baseβ(Scalarβπ)))) |
152 | 100, 151 | mpbird 256 |
. . . . . . . . . . . . . . . . . . 19
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π βͺ π) β ((Baseβ(Scalarβπ)) βm π΅)) |
153 | 143, 149,
152 | rspcdva 3613 |
. . . . . . . . . . . . . . . . . 18
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (((π βͺ π) finSupp
(0gβ(Scalarβπ)) β§ (π Ξ£g (π’ β π΅ β¦ (((π βͺ π)βπ’)( Β·π
βπ)π’))) = 0 ) β (π βͺ π) = (π΅ Γ
{(0gβ(Scalarβπ))}))) |
154 | 47, 134, 153 | mp2and 697 |
. . . . . . . . . . . . . . . . 17
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π βͺ π) = (π΅ Γ
{(0gβ(Scalarβπ))})) |
155 | 154 | reseq1d 5978 |
. . . . . . . . . . . . . . . 16
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β ((π βͺ π) βΎ π) = ((π΅ Γ
{(0gβ(Scalarβπ))}) βΎ π)) |
156 | | fnunres1 6658 |
. . . . . . . . . . . . . . . . 17
β’ ((π Fn π β§ π Fn (π΅ β π) β§ (π β© (π΅ β π)) = β
) β ((π βͺ π) βΎ π) = π) |
157 | 55, 58, 104, 156 | syl3anc 1371 |
. . . . . . . . . . . . . . . 16
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β ((π βͺ π) βΎ π) = π) |
158 | | xpssres 6016 |
. . . . . . . . . . . . . . . . 17
β’ (π β π΅ β ((π΅ Γ
{(0gβ(Scalarβπ))}) βΎ π) = (π Γ
{(0gβ(Scalarβπ))})) |
159 | 158 | ad8antlr 739 |
. . . . . . . . . . . . . . . 16
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β ((π΅ Γ
{(0gβ(Scalarβπ))}) βΎ π) = (π Γ
{(0gβ(Scalarβπ))})) |
160 | 155, 157,
159 | 3eqtr3d 2780 |
. . . . . . . . . . . . . . 15
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π = (π Γ
{(0gβ(Scalarβπ))})) |
161 | 160 | adantr 481 |
. . . . . . . . . . . . . 14
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β π = (π Γ
{(0gβ(Scalarβπ))})) |
162 | 161 | fveq1d 6890 |
. . . . . . . . . . . . 13
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β (πβπ’) = ((π Γ
{(0gβ(Scalarβπ))})βπ’)) |
163 | | fvex 6901 |
. . . . . . . . . . . . . . 15
β’
(0gβ(Scalarβπ)) β V |
164 | 163 | fvconst2 7201 |
. . . . . . . . . . . . . 14
β’ (π’ β π β ((π Γ
{(0gβ(Scalarβπ))})βπ’) = (0gβ(Scalarβπ))) |
165 | 61, 164 | syl 17 |
. . . . . . . . . . . . 13
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β ((π Γ
{(0gβ(Scalarβπ))})βπ’) = (0gβ(Scalarβπ))) |
166 | 162, 165 | eqtrd 2772 |
. . . . . . . . . . . 12
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β (πβπ’) = (0gβ(Scalarβπ))) |
167 | 166 | oveq1d 7420 |
. . . . . . . . . . 11
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β ((πβπ’)( Β·π
βπ)π’) = ((0gβ(Scalarβπ))(
Β·π βπ)π’)) |
168 | 122 | ad8antr 738 |
. . . . . . . . . . . . 13
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β π β (Baseβπ)) |
169 | 168, 61 | sseldd 3982 |
. . . . . . . . . . . 12
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β π’ β (Baseβπ)) |
170 | 24, 91, 92, 99, 29 | lmod0vs 20497 |
. . . . . . . . . . . 12
β’ ((π β LMod β§ π’ β (Baseβπ)) β
((0gβ(Scalarβπ))( Β·π
βπ)π’) = 0 ) |
171 | 97, 169, 170 | syl2an2r 683 |
. . . . . . . . . . 11
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β
((0gβ(Scalarβπ))( Β·π
βπ)π’) = 0 ) |
172 | 167, 171 | eqtrd 2772 |
. . . . . . . . . 10
β’
(((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π’ β π) β ((πβπ’)( Β·π
βπ)π’) = 0 ) |
173 | 172 | mpteq2dva 5247 |
. . . . . . . . 9
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π’ β π β¦ ((πβπ’)( Β·π
βπ)π’)) = (π’ β π β¦ 0 )) |
174 | 173 | oveq2d 7421 |
. . . . . . . 8
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π Ξ£g (π’ β π β¦ ((πβπ’)( Β·π
βπ)π’))) = (π Ξ£g (π’ β π β¦ 0 ))) |
175 | | cmnmnd 19659 |
. . . . . . . . . 10
β’ (π β CMnd β π β Mnd) |
176 | 51, 175 | syl 17 |
. . . . . . . . 9
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π β Mnd) |
177 | 128 | elfvexd 6927 |
. . . . . . . . 9
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π β V) |
178 | 29 | gsumz 18713 |
. . . . . . . . 9
β’ ((π β Mnd β§ π β V) β (π Ξ£g
(π’ β π β¦ 0 )) = 0 ) |
179 | 176, 177,
178 | syl2anc 584 |
. . . . . . . 8
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β (π Ξ£g (π’ β π β¦ 0 )) = 0 ) |
180 | 7, 174, 179 | 3eqtrd 2776 |
. . . . . . 7
β’
((((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ π finSupp
(0gβ(Scalarβπ))) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))) β π₯ = 0 ) |
181 | 180 | anasss 467 |
. . . . . 6
β’
(((((((((π β
LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β§ π β ((Baseβ(Scalarβπ)) βm (π΅ β π))) β§ (π finSupp
(0gβ(Scalarβπ)) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£))))) β π₯ = 0 ) |
182 | | eqid 2732 |
. . . . . . . . . . . . 13
β’
(LSubSpβπ) =
(LSubSpβπ) |
183 | 24, 182, 30 | lspcl 20579 |
. . . . . . . . . . . 12
β’ ((π β LMod β§ (π΅ β π) β (Baseβπ)) β (πβ(π΅ β π)) β (LSubSpβπ)) |
184 | 23, 28, 183 | syl2anc 584 |
. . . . . . . . . . 11
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β (πβ(π΅ β π)) β (LSubSpβπ)) |
185 | 184 | adantr 481 |
. . . . . . . . . 10
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β (πβ(π΅ β π)) β (LSubSpβπ)) |
186 | 182 | lsssubg 20560 |
. . . . . . . . . 10
β’ ((π β LMod β§ (πβ(π΅ β π)) β (LSubSpβπ)) β (πβ(π΅ β π)) β (SubGrpβπ)) |
187 | 23, 185, 186 | syl2an2r 683 |
. . . . . . . . 9
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β (πβ(π΅ β π)) β (SubGrpβπ)) |
188 | 126 | elin1d 4197 |
. . . . . . . . 9
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β π₯ β (πβ(π΅ β π))) |
189 | 130 | subginvcl 19009 |
. . . . . . . . 9
β’ (((πβ(π΅ β π)) β (SubGrpβπ) β§ π₯ β (πβ(π΅ β π))) β ((invgβπ)βπ₯) β (πβ(π΅ β π))) |
190 | 187, 188,
189 | syl2anc 584 |
. . . . . . . 8
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β ((invgβπ)βπ₯) β (πβ(π΅ β π))) |
191 | 30, 24, 93, 91, 99, 92, 23, 28 | ellspds 32469 |
. . . . . . . . 9
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β (((invgβπ)βπ₯) β (πβ(π΅ β π)) β βπ β ((Baseβ(Scalarβπ)) βm (π΅ β π))(π finSupp
(0gβ(Scalarβπ)) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£)))))) |
192 | 191 | biimpa 477 |
. . . . . . . 8
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ ((invgβπ)βπ₯) β (πβ(π΅ β π))) β βπ β ((Baseβ(Scalarβπ)) βm (π΅ β π))(π finSupp
(0gβ(Scalarβπ)) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£))))) |
193 | 190, 192 | syldan 591 |
. . . . . . 7
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β βπ β ((Baseβ(Scalarβπ)) βm (π΅ β π))(π finSupp
(0gβ(Scalarβπ)) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£))))) |
194 | 193 | ad3antrrr 728 |
. . . . . 6
β’
(((((((π β LVec
β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β βπ β ((Baseβ(Scalarβπ)) βm (π΅ β π))(π finSupp
(0gβ(Scalarβπ)) β§ ((invgβπ)βπ₯) = (π Ξ£g (π£ β (π΅ β π) β¦ ((πβπ£)( Β·π
βπ)π£))))) |
195 | 181, 194 | r19.29a 3162 |
. . . . 5
β’
(((((((π β LVec
β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ π finSupp
(0gβ(Scalarβπ))) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))) β π₯ = 0 ) |
196 | 195 | anasss 467 |
. . . 4
β’
((((((π β LVec
β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β§ π β ((Baseβ(Scalarβπ)) βm π)) β§ (π finSupp
(0gβ(Scalarβπ)) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£))))) β π₯ = 0 ) |
197 | 30, 24, 93, 91, 99, 92, 23, 122 | ellspds 32469 |
. . . . . 6
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β (π₯ β (πβπ) β βπ β ((Baseβ(Scalarβπ)) βm π)(π finSupp
(0gβ(Scalarβπ)) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£)))))) |
198 | 197 | biimpa 477 |
. . . . 5
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β (πβπ)) β βπ β ((Baseβ(Scalarβπ)) βm π)(π finSupp
(0gβ(Scalarβπ)) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£))))) |
199 | 127, 198 | syldan 591 |
. . . 4
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β βπ β ((Baseβ(Scalarβπ)) βm π)(π finSupp
(0gβ(Scalarβπ)) β§ π₯ = (π Ξ£g (π£ β π β¦ ((πβπ£)( Β·π
βπ)π£))))) |
200 | 196, 199 | r19.29a 3162 |
. . 3
β’ ((((π β LVec β§ π΅ β π½) β§ π β π΅) β§ π₯ β ((πβ(π΅ β π)) β© (πβπ))) β π₯ = 0 ) |
201 | 29, 24, 30 | 0ellsp 32470 |
. . . . 5
β’ ((π β LMod β§ π β (Baseβπ)) β 0 β (πβπ)) |
202 | 23, 122, 201 | syl2anc 584 |
. . . 4
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β 0 β (πβπ)) |
203 | 32, 202 | elind 4193 |
. . 3
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β 0 β ((πβ(π΅ β π)) β© (πβπ))) |
204 | 200, 203 | eqsnd 31753 |
. 2
β’ (((π β LVec β§ π΅ β π½) β§ π β π΅) β ((πβ(π΅ β π)) β© (πβπ)) = { 0 }) |
205 | 204 | 3impa 1110 |
1
β’ ((π β LVec β§ π΅ β π½ β§ π β π΅) β ((πβ(π΅ β π)) β© (πβπ)) = { 0 }) |