Step | Hyp | Ref
| Expression |
1 | | lincresunit.g |
. . . . 5
β’ πΊ = (π β (π β {π}) β¦ ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ ))) |
2 | | fveq2 6891 |
. . . . . 6
β’ (π = π§ β (πΉβπ ) = (πΉβπ§)) |
3 | 2 | oveq2d 7428 |
. . . . 5
β’ (π = π§ β ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ )) = ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§))) |
4 | | simpr3 1195 |
. . . . 5
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β π§ β (π β {π})) |
5 | | ovexd 7447 |
. . . . 5
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§)) β V) |
6 | 1, 3, 4, 5 | fvmptd3 7021 |
. . . 4
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β (πΊβπ§) = ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§))) |
7 | 6 | oveq1d 7427 |
. . 3
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β ((πΊβπ§)( Β·π
βπ)π§) = (((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§))( Β·π
βπ)π§)) |
8 | 7 | oveq2d 7428 |
. 2
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β ((πβ(πΉβπ))( Β·π
βπ)((πΊβπ§)( Β·π
βπ)π§)) = ((πβ(πΉβπ))( Β·π
βπ)(((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§))( Β·π
βπ)π§))) |
9 | | simp2 1136 |
. . . 4
β’ ((π β π« π΅ β§ π β LMod β§ π β π) β π β LMod) |
10 | 9 | adantr 480 |
. . 3
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β π β LMod) |
11 | | lincresunit.r |
. . . . . 6
β’ π
= (Scalarβπ) |
12 | 11 | lmodfgrp 20624 |
. . . . 5
β’ (π β LMod β π
β Grp) |
13 | 12 | 3ad2ant2 1133 |
. . . 4
β’ ((π β π« π΅ β§ π β LMod β§ π β π) β π
β Grp) |
14 | | lincresunit.e |
. . . . . 6
β’ πΈ = (Baseβπ
) |
15 | | lincresunit.u |
. . . . . 6
β’ π = (Unitβπ
) |
16 | 14, 15 | unitcl 20267 |
. . . . 5
β’ ((πΉβπ) β π β (πΉβπ) β πΈ) |
17 | 16 | 3ad2ant2 1133 |
. . . 4
β’ ((πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π})) β (πΉβπ) β πΈ) |
18 | | lincresunit.n |
. . . . 5
β’ π = (invgβπ
) |
19 | 14, 18 | grpinvcl 18909 |
. . . 4
β’ ((π
β Grp β§ (πΉβπ) β πΈ) β (πβ(πΉβπ)) β πΈ) |
20 | 13, 17, 19 | syl2an 595 |
. . 3
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β (πβ(πΉβπ)) β πΈ) |
21 | | 3simpa 1147 |
. . . . 5
β’ ((πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π})) β (πΉ β (πΈ βm π) β§ (πΉβπ) β π)) |
22 | 21 | anim2i 616 |
. . . 4
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β ((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π))) |
23 | | eldifi 4126 |
. . . . . 6
β’ (π§ β (π β {π}) β π§ β π) |
24 | 23 | 3ad2ant3 1134 |
. . . . 5
β’ ((πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π})) β π§ β π) |
25 | 24 | adantl 481 |
. . . 4
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β π§ β π) |
26 | | lincresunit.b |
. . . . 5
β’ π΅ = (Baseβπ) |
27 | | lincresunit.0 |
. . . . 5
β’ 0 =
(0gβπ
) |
28 | | lincresunit.z |
. . . . 5
β’ π = (0gβπ) |
29 | | lincresunit.i |
. . . . 5
β’ πΌ = (invrβπ
) |
30 | | lincresunit.t |
. . . . 5
β’ Β· =
(.rβπ
) |
31 | 26, 11, 14, 15, 27, 28, 18, 29, 30, 1 | lincresunitlem2 47245 |
. . . 4
β’ ((((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π)) β§ π§ β π) β ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§)) β πΈ) |
32 | 22, 25, 31 | syl2anc 583 |
. . 3
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§)) β πΈ) |
33 | | elpwi 4609 |
. . . . . . . . 9
β’ (π β π« π΅ β π β π΅) |
34 | 33 | sseld 3981 |
. . . . . . . 8
β’ (π β π« π΅ β (π§ β π β π§ β π΅)) |
35 | 23, 34 | syl5com 31 |
. . . . . . 7
β’ (π§ β (π β {π}) β (π β π« π΅ β π§ β π΅)) |
36 | 35 | 3ad2ant3 1134 |
. . . . . 6
β’ ((πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π})) β (π β π« π΅ β π§ β π΅)) |
37 | 36 | com12 32 |
. . . . 5
β’ (π β π« π΅ β ((πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π})) β π§ β π΅)) |
38 | 37 | 3ad2ant1 1132 |
. . . 4
β’ ((π β π« π΅ β§ π β LMod β§ π β π) β ((πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π})) β π§ β π΅)) |
39 | 38 | imp 406 |
. . 3
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β π§ β π΅) |
40 | | eqid 2731 |
. . . . 5
β’ (
Β·π βπ) = ( Β·π
βπ) |
41 | 26, 11, 40, 14, 30 | lmodvsass 20642 |
. . . 4
β’ ((π β LMod β§ ((πβ(πΉβπ)) β πΈ β§ ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§)) β πΈ β§ π§ β π΅)) β (((πβ(πΉβπ)) Β· ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§)))( Β·π
βπ)π§) = ((πβ(πΉβπ))( Β·π
βπ)(((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§))( Β·π
βπ)π§))) |
42 | 41 | eqcomd 2737 |
. . 3
β’ ((π β LMod β§ ((πβ(πΉβπ)) β πΈ β§ ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§)) β πΈ β§ π§ β π΅)) β ((πβ(πΉβπ))( Β·π
βπ)(((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§))( Β·π
βπ)π§)) = (((πβ(πΉβπ)) Β· ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§)))( Β·π
βπ)π§)) |
43 | 10, 20, 32, 39, 42 | syl13anc 1371 |
. 2
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β ((πβ(πΉβπ))( Β·π
βπ)(((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§))( Β·π
βπ)π§)) = (((πβ(πΉβπ)) Β· ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§)))( Β·π
βπ)π§)) |
44 | 11 | lmodring 20623 |
. . . . . 6
β’ (π β LMod β π
β Ring) |
45 | 44 | 3ad2ant2 1133 |
. . . . 5
β’ ((π β π« π΅ β§ π β LMod β§ π β π) β π
β Ring) |
46 | 45 | adantr 480 |
. . . 4
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β π
β Ring) |
47 | | elmapi 8847 |
. . . . . . 7
β’ (πΉ β (πΈ βm π) β πΉ:πβΆπΈ) |
48 | | ffvelcdm 7083 |
. . . . . . 7
β’ ((πΉ:πβΆπΈ β§ π§ β π) β (πΉβπ§) β πΈ) |
49 | 47, 23, 48 | syl2an 595 |
. . . . . 6
β’ ((πΉ β (πΈ βm π) β§ π§ β (π β {π})) β (πΉβπ§) β πΈ) |
50 | 49 | 3adant2 1130 |
. . . . 5
β’ ((πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π})) β (πΉβπ§) β πΈ) |
51 | 50 | adantl 481 |
. . . 4
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β (πΉβπ§) β πΈ) |
52 | | simp2 1136 |
. . . . 5
β’ ((πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π})) β (πΉβπ) β π) |
53 | 52 | adantl 481 |
. . . 4
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β (πΉβπ) β π) |
54 | 14, 15, 18, 29, 30 | invginvrid 47132 |
. . . 4
β’ ((π
β Ring β§ (πΉβπ§) β πΈ β§ (πΉβπ) β π) β ((πβ(πΉβπ)) Β· ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§))) = (πΉβπ§)) |
55 | 46, 51, 53, 54 | syl3anc 1370 |
. . 3
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β ((πβ(πΉβπ)) Β· ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§))) = (πΉβπ§)) |
56 | 55 | oveq1d 7427 |
. 2
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β (((πβ(πΉβπ)) Β· ((πΌβ(πβ(πΉβπ))) Β· (πΉβπ§)))( Β·π
βπ)π§) = ((πΉβπ§)( Β·π
βπ)π§)) |
57 | 8, 43, 56 | 3eqtrd 2775 |
1
β’ (((π β π« π΅ β§ π β LMod β§ π β π) β§ (πΉ β (πΈ βm π) β§ (πΉβπ) β π β§ π§ β (π β {π}))) β ((πβ(πΉβπ))( Β·π
βπ)((πΊβπ§)( Β·π
βπ)π§)) = ((πΉβπ§)( Β·π
βπ)π§)) |