Step | Hyp | Ref
| Expression |
1 | | simp1l 1197 |
. . 3
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β π β LMod) |
2 | | simp1r 1198 |
. . 3
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β π β π« π΅) |
3 | | simp2 1137 |
. . . 4
β’ ((π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β π β π) |
4 | 3 | 3ad2ant2 1134 |
. . 3
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β π β π) |
5 | | lincext.b |
. . . . 5
β’ π΅ = (Baseβπ) |
6 | | lincext.r |
. . . . 5
β’ π
= (Scalarβπ) |
7 | | lincext.e |
. . . . 5
β’ πΈ = (Baseβπ
) |
8 | | lincext.0 |
. . . . 5
β’ 0 =
(0gβπ
) |
9 | | lincext.z |
. . . . 5
β’ π = (0gβπ) |
10 | | lincext.n |
. . . . 5
β’ π = (invgβπ
) |
11 | | lincext.f |
. . . . 5
β’ πΉ = (π§ β π β¦ if(π§ = π, (πβπ), (πΊβπ§))) |
12 | 5, 6, 7, 8, 9, 10,
11 | lincext1 46688 |
. . . 4
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β πΉ β (πΈ βm π)) |
13 | 12 | 3adant3 1132 |
. . 3
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β πΉ β (πΈ βm π)) |
14 | 5, 6, 7, 8, 9, 10,
11 | lincext2 46689 |
. . . 4
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β πΉ finSupp 0 ) |
15 | 14 | 3adant3r 1181 |
. . 3
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β πΉ finSupp 0 ) |
16 | | elmapi 8809 |
. . . . . 6
β’ (πΊ β (πΈ βm (π β {π})) β πΊ:(π β {π})βΆπΈ) |
17 | 11 | fdmdifeqresdif 46570 |
. . . . . 6
β’ (πΊ:(π β {π})βΆπΈ β πΊ = (πΉ βΎ (π β {π}))) |
18 | 16, 17 | syl 17 |
. . . . 5
β’ (πΊ β (πΈ βm (π β {π})) β πΊ = (πΉ βΎ (π β {π}))) |
19 | 18 | 3ad2ant3 1135 |
. . . 4
β’ ((π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β πΊ = (πΉ βΎ (π β {π}))) |
20 | 19 | 3ad2ant2 1134 |
. . 3
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β πΊ = (πΉ βΎ (π β {π}))) |
21 | | eqid 2731 |
. . . 4
β’ (
Β·π βπ) = ( Β·π
βπ) |
22 | | eqid 2731 |
. . . 4
β’
(+gβπ) = (+gβπ) |
23 | 5, 6, 7, 21, 22, 8 | lincdifsn 46658 |
. . 3
β’ (((π β LMod β§ π β π« π΅ β§ π β π) β§ (πΉ β (πΈ βm π) β§ πΉ finSupp 0 ) β§ πΊ = (πΉ βΎ (π β {π}))) β (πΉ( linC βπ)π) = ((πΊ( linC βπ)(π β {π}))(+gβπ)((πΉβπ)( Β·π
βπ)π))) |
24 | 1, 2, 4, 13, 15, 20, 23 | syl321anc 1392 |
. 2
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β (πΉ( linC βπ)π) = ((πΊ( linC βπ)(π β {π}))(+gβπ)((πΉβπ)( Β·π
βπ)π))) |
25 | | oveq1 7384 |
. . . . . 6
β’ ((πΊ( linC βπ)(π β {π})) = (π( Β·π
βπ)π) β ((πΊ( linC βπ)(π β {π}))(+gβπ)((πΉβπ)( Β·π
βπ)π)) = ((π( Β·π
βπ)π)(+gβπ)((πΉβπ)( Β·π
βπ)π))) |
26 | 25 | eqcoms 2739 |
. . . . 5
β’ ((π(
Β·π βπ)π) = (πΊ( linC βπ)(π β {π})) β ((πΊ( linC βπ)(π β {π}))(+gβπ)((πΉβπ)( Β·π
βπ)π)) = ((π( Β·π
βπ)π)(+gβπ)((πΉβπ)( Β·π
βπ)π))) |
27 | 26 | adantl 482 |
. . . 4
β’ ((πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π}))) β ((πΊ( linC βπ)(π β {π}))(+gβπ)((πΉβπ)( Β·π
βπ)π)) = ((π( Β·π
βπ)π)(+gβπ)((πΉβπ)( Β·π
βπ)π))) |
28 | 27 | 3ad2ant3 1135 |
. . 3
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β ((πΊ( linC βπ)(π β {π}))(+gβπ)((πΉβπ)( Β·π
βπ)π)) = ((π( Β·π
βπ)π)(+gβπ)((πΉβπ)( Β·π
βπ)π))) |
29 | | eqid 2731 |
. . . . . . . 8
β’
(invgβπ) = (invgβπ) |
30 | | simpll 765 |
. . . . . . . 8
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β π β LMod) |
31 | | elelpwi 4590 |
. . . . . . . . . . . . 13
β’ ((π β π β§ π β π« π΅) β π β π΅) |
32 | 31 | expcom 414 |
. . . . . . . . . . . 12
β’ (π β π« π΅ β (π β π β π β π΅)) |
33 | 32 | adantl 482 |
. . . . . . . . . . 11
β’ ((π β LMod β§ π β π« π΅) β (π β π β π β π΅)) |
34 | 33 | com12 32 |
. . . . . . . . . 10
β’ (π β π β ((π β LMod β§ π β π« π΅) β π β π΅)) |
35 | 34 | 3ad2ant2 1134 |
. . . . . . . . 9
β’ ((π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β ((π β LMod β§ π β π« π΅) β π β π΅)) |
36 | 35 | impcom 408 |
. . . . . . . 8
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β π β π΅) |
37 | | simpr1 1194 |
. . . . . . . 8
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β π β πΈ) |
38 | 5, 6, 21, 29, 7, 10, 30, 36, 37 | lmodvsneg 20438 |
. . . . . . 7
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β ((invgβπ)β(π( Β·π
βπ)π)) = ((πβπ)( Β·π
βπ)π)) |
39 | | iftrue 4512 |
. . . . . . . . . 10
β’ (π§ = π β if(π§ = π, (πβπ), (πΊβπ§)) = (πβπ)) |
40 | 3 | adantl 482 |
. . . . . . . . . 10
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β π β π) |
41 | | fvexd 6877 |
. . . . . . . . . 10
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β (πβπ) β V) |
42 | 11, 39, 40, 41 | fvmptd3 6991 |
. . . . . . . . 9
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β (πΉβπ) = (πβπ)) |
43 | 42 | eqcomd 2737 |
. . . . . . . 8
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β (πβπ) = (πΉβπ)) |
44 | 43 | oveq1d 7392 |
. . . . . . 7
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β ((πβπ)( Β·π
βπ)π) = ((πΉβπ)( Β·π
βπ)π)) |
45 | 38, 44 | eqtr2d 2772 |
. . . . . 6
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β ((πΉβπ)( Β·π
βπ)π) = ((invgβπ)β(π( Β·π
βπ)π))) |
46 | 45 | oveq2d 7393 |
. . . . 5
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β ((π( Β·π
βπ)π)(+gβπ)((πΉβπ)( Β·π
βπ)π)) = ((π( Β·π
βπ)π)(+gβπ)((invgβπ)β(π( Β·π
βπ)π)))) |
47 | 5, 6, 21, 7 | lmodvscl 20411 |
. . . . . . 7
β’ ((π β LMod β§ π β πΈ β§ π β π΅) β (π( Β·π
βπ)π) β π΅) |
48 | 30, 37, 36, 47 | syl3anc 1371 |
. . . . . 6
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β (π( Β·π
βπ)π) β π΅) |
49 | 5, 22, 9, 29 | lmodvnegid 20436 |
. . . . . 6
β’ ((π β LMod β§ (π(
Β·π βπ)π) β π΅) β ((π( Β·π
βπ)π)(+gβπ)((invgβπ)β(π( Β·π
βπ)π))) = π) |
50 | 30, 48, 49 | syl2anc 584 |
. . . . 5
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β ((π( Β·π
βπ)π)(+gβπ)((invgβπ)β(π( Β·π
βπ)π))) = π) |
51 | 46, 50 | eqtrd 2771 |
. . . 4
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β ((π( Β·π
βπ)π)(+gβπ)((πΉβπ)( Β·π
βπ)π)) = π) |
52 | 51 | 3adant3 1132 |
. . 3
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β ((π( Β·π
βπ)π)(+gβπ)((πΉβπ)( Β·π
βπ)π)) = π) |
53 | 28, 52 | eqtrd 2771 |
. 2
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β ((πΊ( linC βπ)(π β {π}))(+gβπ)((πΉβπ)( Β·π
βπ)π)) = π) |
54 | 24, 53 | eqtrd 2771 |
1
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ (πΊ finSupp 0 β§ (π( Β·π
βπ)π) = (πΊ( linC βπ)(π β {π})))) β (πΉ( linC βπ)π) = π) |