Step | Hyp | Ref
| Expression |
1 | | lindsrng01.r |
. . . . . . . . 9
β’ π
= (Scalarβπ) |
2 | | lindsrng01.e |
. . . . . . . . 9
β’ πΈ = (Baseβπ
) |
3 | 1, 2 | lmodsn0 20379 |
. . . . . . . 8
β’ (π β LMod β πΈ β β
) |
4 | 2 | fvexi 6860 |
. . . . . . . . . 10
β’ πΈ β V |
5 | | hasheq0 14272 |
. . . . . . . . . 10
β’ (πΈ β V β
((β―βπΈ) = 0
β πΈ =
β
)) |
6 | 4, 5 | ax-mp 5 |
. . . . . . . . 9
β’
((β―βπΈ) =
0 β πΈ =
β
) |
7 | | eqneqall 2951 |
. . . . . . . . . 10
β’ (πΈ = β
β (πΈ β β
β π linIndS π)) |
8 | 7 | com12 32 |
. . . . . . . . 9
β’ (πΈ β β
β (πΈ = β
β π linIndS π)) |
9 | 6, 8 | biimtrid 241 |
. . . . . . . 8
β’ (πΈ β β
β
((β―βπΈ) = 0
β π linIndS π)) |
10 | 3, 9 | syl 17 |
. . . . . . 7
β’ (π β LMod β
((β―βπΈ) = 0
β π linIndS π)) |
11 | 10 | adantr 482 |
. . . . . 6
β’ ((π β LMod β§ π β π« π΅) β ((β―βπΈ) = 0 β π linIndS π)) |
12 | 11 | com12 32 |
. . . . 5
β’
((β―βπΈ) =
0 β ((π β LMod
β§ π β π«
π΅) β π linIndS π)) |
13 | 1 | lmodring 20373 |
. . . . . . . . 9
β’ (π β LMod β π
β Ring) |
14 | 13 | adantr 482 |
. . . . . . . 8
β’ ((π β LMod β§ π β π« π΅) β π
β Ring) |
15 | | eqid 2733 |
. . . . . . . . 9
β’
(0gβπ
) = (0gβπ
) |
16 | 2, 15 | 0ring 20207 |
. . . . . . . 8
β’ ((π
β Ring β§
(β―βπΈ) = 1)
β πΈ =
{(0gβπ
)}) |
17 | 14, 16 | sylan 581 |
. . . . . . 7
β’ (((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1) β πΈ = {(0gβπ
)}) |
18 | | simpr 486 |
. . . . . . . . . 10
β’ ((π β LMod β§ π β π« π΅) β π β π« π΅) |
19 | 18 | adantr 482 |
. . . . . . . . 9
β’ (((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1) β π β π« π΅) |
20 | 19 | adantl 483 |
. . . . . . . 8
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β π β π« π΅) |
21 | | snex 5392 |
. . . . . . . . . . . . . 14
β’
{(0gβπ
)} β V |
22 | 19, 21 | jctil 521 |
. . . . . . . . . . . . 13
β’ (((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1) β
({(0gβπ
)}
β V β§ π β
π« π΅)) |
23 | 22 | adantl 483 |
. . . . . . . . . . . 12
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β ({(0gβπ
)} β V β§ π β π« π΅)) |
24 | | elmapg 8784 |
. . . . . . . . . . . 12
β’
(({(0gβπ
)} β V β§ π β π« π΅) β (π β ({(0gβπ
)} βm π) β π:πβΆ{(0gβπ
)})) |
25 | 23, 24 | syl 17 |
. . . . . . . . . . 11
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β (π β ({(0gβπ
)} βm π) β π:πβΆ{(0gβπ
)})) |
26 | | fvex 6859 |
. . . . . . . . . . . . . 14
β’
(0gβπ
) β V |
27 | 26 | fconst2 7158 |
. . . . . . . . . . . . 13
β’ (π:πβΆ{(0gβπ
)} β π = (π Γ {(0gβπ
)})) |
28 | | fconstmpt 5698 |
. . . . . . . . . . . . . 14
β’ (π Γ
{(0gβπ
)})
= (π₯ β π β¦
(0gβπ
)) |
29 | 28 | eqeq2i 2746 |
. . . . . . . . . . . . 13
β’ (π = (π Γ {(0gβπ
)}) β π = (π₯ β π β¦ (0gβπ
))) |
30 | 27, 29 | bitri 275 |
. . . . . . . . . . . 12
β’ (π:πβΆ{(0gβπ
)} β π = (π₯ β π β¦ (0gβπ
))) |
31 | | eqidd 2734 |
. . . . . . . . . . . . . . . 16
β’ (((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β§ π£ β π) β (π₯ β π β¦ (0gβπ
)) = (π₯ β π β¦ (0gβπ
))) |
32 | | eqidd 2734 |
. . . . . . . . . . . . . . . 16
β’ ((((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β§ π£ β π) β§ π₯ = π£) β (0gβπ
) = (0gβπ
)) |
33 | | simpr 486 |
. . . . . . . . . . . . . . . 16
β’ (((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β§ π£ β π) β π£ β π) |
34 | | fvexd 6861 |
. . . . . . . . . . . . . . . 16
β’ (((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β§ π£ β π) β (0gβπ
) β V) |
35 | 31, 32, 33, 34 | fvmptd 6959 |
. . . . . . . . . . . . . . 15
β’ (((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β§ π£ β π) β ((π₯ β π β¦ (0gβπ
))βπ£) = (0gβπ
)) |
36 | 35 | ralrimiva 3140 |
. . . . . . . . . . . . . 14
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β βπ£ β π ((π₯ β π β¦ (0gβπ
))βπ£) = (0gβπ
)) |
37 | 36 | a1d 25 |
. . . . . . . . . . . . 13
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β (((π₯ β π β¦ (0gβπ
)) finSupp
(0gβπ
)
β§ ((π₯ β π β¦
(0gβπ
))(
linC βπ)π) = (0gβπ)) β βπ£ β π ((π₯ β π β¦ (0gβπ
))βπ£) = (0gβπ
))) |
38 | | breq1 5112 |
. . . . . . . . . . . . . . 15
β’ (π = (π₯ β π β¦ (0gβπ
)) β (π finSupp (0gβπ
) β (π₯ β π β¦ (0gβπ
)) finSupp
(0gβπ
))) |
39 | | oveq1 7368 |
. . . . . . . . . . . . . . . 16
β’ (π = (π₯ β π β¦ (0gβπ
)) β (π( linC βπ)π) = ((π₯ β π β¦ (0gβπ
))( linC βπ)π)) |
40 | 39 | eqeq1d 2735 |
. . . . . . . . . . . . . . 15
β’ (π = (π₯ β π β¦ (0gβπ
)) β ((π( linC βπ)π) = (0gβπ) β ((π₯ β π β¦ (0gβπ
))( linC βπ)π) = (0gβπ))) |
41 | 38, 40 | anbi12d 632 |
. . . . . . . . . . . . . 14
β’ (π = (π₯ β π β¦ (0gβπ
)) β ((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β ((π₯ β π β¦ (0gβπ
)) finSupp
(0gβπ
)
β§ ((π₯ β π β¦
(0gβπ
))(
linC βπ)π) = (0gβπ)))) |
42 | | fveq1 6845 |
. . . . . . . . . . . . . . . 16
β’ (π = (π₯ β π β¦ (0gβπ
)) β (πβπ£) = ((π₯ β π β¦ (0gβπ
))βπ£)) |
43 | 42 | eqeq1d 2735 |
. . . . . . . . . . . . . . 15
β’ (π = (π₯ β π β¦ (0gβπ
)) β ((πβπ£) = (0gβπ
) β ((π₯ β π β¦ (0gβπ
))βπ£) = (0gβπ
))) |
44 | 43 | ralbidv 3171 |
. . . . . . . . . . . . . 14
β’ (π = (π₯ β π β¦ (0gβπ
)) β (βπ£ β π (πβπ£) = (0gβπ
) β βπ£ β π ((π₯ β π β¦ (0gβπ
))βπ£) = (0gβπ
))) |
45 | 41, 44 | imbi12d 345 |
. . . . . . . . . . . . 13
β’ (π = (π₯ β π β¦ (0gβπ
)) β (((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
)) β (((π₯ β π β¦ (0gβπ
)) finSupp
(0gβπ
)
β§ ((π₯ β π β¦
(0gβπ
))(
linC βπ)π) = (0gβπ)) β βπ£ β π ((π₯ β π β¦ (0gβπ
))βπ£) = (0gβπ
)))) |
46 | 37, 45 | syl5ibrcom 247 |
. . . . . . . . . . . 12
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β (π = (π₯ β π β¦ (0gβπ
)) β ((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
)))) |
47 | 30, 46 | biimtrid 241 |
. . . . . . . . . . 11
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β (π:πβΆ{(0gβπ
)} β ((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
)))) |
48 | 25, 47 | sylbid 239 |
. . . . . . . . . 10
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β (π β ({(0gβπ
)} βm π) β ((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
)))) |
49 | 48 | ralrimiv 3139 |
. . . . . . . . 9
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β βπ β ({(0gβπ
)} βm π)((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
))) |
50 | | oveq1 7368 |
. . . . . . . . . . 11
β’ (πΈ = {(0gβπ
)} β (πΈ βm π) = ({(0gβπ
)} βm π)) |
51 | 50 | raleqdv 3312 |
. . . . . . . . . 10
β’ (πΈ = {(0gβπ
)} β (βπ β (πΈ βm π)((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
)) β βπ β ({(0gβπ
)} βm π)((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
)))) |
52 | 51 | adantr 482 |
. . . . . . . . 9
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β (βπ β (πΈ βm π)((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
)) β βπ β ({(0gβπ
)} βm π)((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
)))) |
53 | 49, 52 | mpbird 257 |
. . . . . . . 8
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β βπ β (πΈ βm π)((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
))) |
54 | | simpl 484 |
. . . . . . . . . . 11
β’ (((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1) β (π β LMod β§ π β π« π΅)) |
55 | 54 | ancomd 463 |
. . . . . . . . . 10
β’ (((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1) β (π β π« π΅ β§ π β LMod)) |
56 | 55 | adantl 483 |
. . . . . . . . 9
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β (π β π« π΅ β§ π β LMod)) |
57 | | lindsrng01.b |
. . . . . . . . . 10
β’ π΅ = (Baseβπ) |
58 | | eqid 2733 |
. . . . . . . . . 10
β’
(0gβπ) = (0gβπ) |
59 | 57, 58, 1, 2, 15 | islininds 46617 |
. . . . . . . . 9
β’ ((π β π« π΅ β§ π β LMod) β (π linIndS π β (π β π« π΅ β§ βπ β (πΈ βm π)((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
))))) |
60 | 56, 59 | syl 17 |
. . . . . . . 8
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β (π linIndS π β (π β π« π΅ β§ βπ β (πΈ βm π)((π finSupp (0gβπ
) β§ (π( linC βπ)π) = (0gβπ)) β βπ£ β π (πβπ£) = (0gβπ
))))) |
61 | 20, 53, 60 | mpbir2and 712 |
. . . . . . 7
β’ ((πΈ = {(0gβπ
)} β§ ((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1)) β π linIndS π) |
62 | 17, 61 | mpancom 687 |
. . . . . 6
β’ (((π β LMod β§ π β π« π΅) β§ (β―βπΈ) = 1) β π linIndS π) |
63 | 62 | expcom 415 |
. . . . 5
β’
((β―βπΈ) =
1 β ((π β LMod
β§ π β π«
π΅) β π linIndS π)) |
64 | 12, 63 | jaoi 856 |
. . . 4
β’
(((β―βπΈ)
= 0 β¨ (β―βπΈ)
= 1) β ((π β LMod
β§ π β π«
π΅) β π linIndS π)) |
65 | 64 | expd 417 |
. . 3
β’
(((β―βπΈ)
= 0 β¨ (β―βπΈ)
= 1) β (π β LMod
β (π β π«
π΅ β π linIndS π))) |
66 | 65 | com12 32 |
. 2
β’ (π β LMod β
(((β―βπΈ) = 0
β¨ (β―βπΈ) = 1)
β (π β π«
π΅ β π linIndS π))) |
67 | 66 | 3imp 1112 |
1
β’ ((π β LMod β§
((β―βπΈ) = 0 β¨
(β―βπΈ) = 1)
β§ π β π«
π΅) β π linIndS π) |