Step | Hyp | Ref
| Expression |
1 | | islbs5.b |
. . 3
β’ π΅ = (Baseβπ) |
2 | | eqid 2732 |
. . 3
β’
(BaseβπΉ) =
(BaseβπΉ) |
3 | | islbs5.r |
. . 3
β’ π = (Scalarβπ) |
4 | | islbs5.t |
. . 3
β’ Β· = (
Β·π βπ) |
5 | | islbs5.z |
. . 3
β’ π = (0gβπ) |
6 | | islbs5.y |
. . 3
β’ 0 =
(0gβπ) |
7 | | islbs5.n |
. . 3
β’ π = (LSpanβπ) |
8 | | islbs5.w |
. . 3
β’ (π β π β LMod) |
9 | | islbs5.s |
. . 3
β’ (π β π β NzRing) |
10 | | islbs5.i |
. . 3
β’ (π β πΌ β π) |
11 | | islbs5.f |
. . 3
β’ (π β πΉ:πΌβ1-1βπ΅) |
12 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11 | lindflbs 32483 |
. 2
β’ (π β (ran πΉ β (LBasisβπ) β (πΉ LIndF π β§ (πβran πΉ) = π΅))) |
13 | | f1f 6784 |
. . . . . 6
β’ (πΉ:πΌβ1-1βπ΅ β πΉ:πΌβΆπ΅) |
14 | 11, 13 | syl 17 |
. . . . 5
β’ (π β πΉ:πΌβΆπ΅) |
15 | | eqid 2732 |
. . . . . 6
β’
(Baseβ(π
freeLMod πΌ)) =
(Baseβ(π freeLMod
πΌ)) |
16 | 1, 3, 4, 5, 6, 15 | islindf4 21384 |
. . . . 5
β’ ((π β LMod β§ πΌ β π β§ πΉ:πΌβΆπ΅) β (πΉ LIndF π β βπ β (Baseβ(π freeLMod πΌ))((π Ξ£g (π βf Β· πΉ)) = π β π = (πΌ Γ { 0 })))) |
17 | 8, 10, 14, 16 | syl3anc 1371 |
. . . 4
β’ (π β (πΉ LIndF π β βπ β (Baseβ(π freeLMod πΌ))((π Ξ£g (π βf Β· πΉ)) = π β π = (πΌ Γ { 0 })))) |
18 | 9 | elexd 3494 |
. . . . . . . 8
β’ (π β π β V) |
19 | | eqid 2732 |
. . . . . . . . 9
β’ (π freeLMod πΌ) = (π freeLMod πΌ) |
20 | | islbs5.k |
. . . . . . . . 9
β’ πΎ = (Baseβπ) |
21 | 19, 20, 6, 15 | frlmelbas 21302 |
. . . . . . . 8
β’ ((π β V β§ πΌ β π) β (π β (Baseβ(π freeLMod πΌ)) β (π β (πΎ βm πΌ) β§ π finSupp 0 ))) |
22 | 18, 10, 21 | syl2anc 584 |
. . . . . . 7
β’ (π β (π β (Baseβ(π freeLMod πΌ)) β (π β (πΎ βm πΌ) β§ π finSupp 0 ))) |
23 | 22 | imbi1d 341 |
. . . . . 6
β’ (π β ((π β (Baseβ(π freeLMod πΌ)) β ((π Ξ£g (π βf Β· πΉ)) = π β π = (πΌ Γ { 0 }))) β ((π β (πΎ βm πΌ) β§ π finSupp 0 ) β ((π Ξ£g
(π βf
Β·
πΉ)) = π β π = (πΌ Γ { 0 }))))) |
24 | | impexp 451 |
. . . . . . 7
β’ (((π β (πΎ βm πΌ) β§ π finSupp 0 ) β ((π Ξ£g
(π βf
Β·
πΉ)) = π β π = (πΌ Γ { 0 }))) β (π β (πΎ βm πΌ) β (π finSupp 0 β ((π Ξ£g (π βf Β· πΉ)) = π β π = (πΌ Γ { 0 }))))) |
25 | | impexp 451 |
. . . . . . . . . 10
β’ (((π finSupp 0 β§ (π Ξ£g (π βf Β· πΉ)) = π) β π = (πΌ Γ { 0 })) β (π finSupp 0 β ((π Ξ£g (π βf Β· πΉ)) = π β π = (πΌ Γ { 0 })))) |
26 | 25 | a1i 11 |
. . . . . . . . 9
β’ (π β (((π finSupp 0 β§ (π Ξ£g (π βf Β· πΉ)) = π) β π = (πΌ Γ { 0 })) β (π finSupp 0 β ((π Ξ£g (π βf Β· πΉ)) = π β π = (πΌ Γ { 0 }))))) |
27 | 26 | bicomd 222 |
. . . . . . . 8
β’ (π β ((π finSupp 0 β ((π Ξ£g (π βf Β· πΉ)) = π β π = (πΌ Γ { 0 }))) β ((π finSupp 0 β§ (π Ξ£g (π βf Β· πΉ)) = π) β π = (πΌ Γ { 0 })))) |
28 | 27 | imbi2d 340 |
. . . . . . 7
β’ (π β ((π β (πΎ βm πΌ) β (π finSupp 0 β ((π Ξ£g (π βf Β· πΉ)) = π β π = (πΌ Γ { 0 })))) β (π β (πΎ βm πΌ) β ((π finSupp 0 β§ (π Ξ£g (π βf Β· πΉ)) = π) β π = (πΌ Γ { 0 }))))) |
29 | 24, 28 | bitrid 282 |
. . . . . 6
β’ (π β (((π β (πΎ βm πΌ) β§ π finSupp 0 ) β ((π Ξ£g
(π βf
Β·
πΉ)) = π β π = (πΌ Γ { 0 }))) β (π β (πΎ βm πΌ) β ((π finSupp 0 β§ (π Ξ£g (π βf Β· πΉ)) = π) β π = (πΌ Γ { 0 }))))) |
30 | 23, 29 | bitrd 278 |
. . . . 5
β’ (π β ((π β (Baseβ(π freeLMod πΌ)) β ((π Ξ£g (π βf Β· πΉ)) = π β π = (πΌ Γ { 0 }))) β (π β (πΎ βm πΌ) β ((π finSupp 0 β§ (π Ξ£g (π βf Β· πΉ)) = π) β π = (πΌ Γ { 0 }))))) |
31 | 30 | ralbidv2 3173 |
. . . 4
β’ (π β (βπ β (Baseβ(π freeLMod πΌ))((π Ξ£g (π βf Β· πΉ)) = π β π = (πΌ Γ { 0 })) β βπ β (πΎ βm πΌ)((π finSupp 0 β§ (π Ξ£g (π βf Β· πΉ)) = π) β π = (πΌ Γ { 0 })))) |
32 | 17, 31 | bitrd 278 |
. . 3
β’ (π β (πΉ LIndF π β βπ β (πΎ βm πΌ)((π finSupp 0 β§ (π Ξ£g (π βf Β· πΉ)) = π) β π = (πΌ Γ { 0 })))) |
33 | 32 | anbi1d 630 |
. 2
β’ (π β ((πΉ LIndF π β§ (πβran πΉ) = π΅) β (βπ β (πΎ βm πΌ)((π finSupp 0 β§ (π Ξ£g (π βf Β· πΉ)) = π) β π = (πΌ Γ { 0 })) β§ (πβran πΉ) = π΅))) |
34 | 12, 33 | bitrd 278 |
1
β’ (π β (ran πΉ β (LBasisβπ) β (βπ β (πΎ βm πΌ)((π finSupp 0 β§ (π Ξ£g (π βf Β· πΉ)) = π) β π = (πΌ Γ { 0 })) β§ (πβran πΉ) = π΅))) |