Step | Hyp | Ref
| Expression |
1 | | simp3 1139 |
. . 3
β’ ((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β π β LFinGen) |
2 | | lmhmlmod2 20636 |
. . . . 5
β’ (πΉ β (π LMHom π) β π β LMod) |
3 | 2 | 3ad2ant1 1134 |
. . . 4
β’ ((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β π β LMod) |
4 | | lmhmrnlss 20654 |
. . . . 5
β’ (πΉ β (π LMHom π) β ran πΉ β (LSubSpβπ)) |
5 | 4 | 3ad2ant1 1134 |
. . . 4
β’ ((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β ran πΉ β (LSubSpβπ)) |
6 | | lmhmfgsplit.v |
. . . . 5
β’ π = (π βΎs ran πΉ) |
7 | | eqid 2733 |
. . . . 5
β’
(LSubSpβπ) =
(LSubSpβπ) |
8 | | eqid 2733 |
. . . . 5
β’
(LSpanβπ) =
(LSpanβπ) |
9 | 6, 7, 8 | islssfg 41798 |
. . . 4
β’ ((π β LMod β§ ran πΉ β (LSubSpβπ)) β (π β LFinGen β βπ β π« ran πΉ(π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) |
10 | 3, 5, 9 | syl2anc 585 |
. . 3
β’ ((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β (π β LFinGen β βπ β π« ran πΉ(π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) |
11 | 1, 10 | mpbid 231 |
. 2
β’ ((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β βπ β π« ran πΉ(π β Fin β§ ((LSpanβπ)βπ) = ran πΉ)) |
12 | | simpl1 1192 |
. . . . 5
β’ (((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β πΉ β (π LMHom π)) |
13 | | eqid 2733 |
. . . . . 6
β’
(Baseβπ) =
(Baseβπ) |
14 | | eqid 2733 |
. . . . . 6
β’
(Baseβπ) =
(Baseβπ) |
15 | 13, 14 | lmhmf 20638 |
. . . . 5
β’ (πΉ β (π LMHom π) β πΉ:(Baseβπ)βΆ(Baseβπ)) |
16 | | ffn 6715 |
. . . . 5
β’ (πΉ:(Baseβπ)βΆ(Baseβπ) β πΉ Fn (Baseβπ)) |
17 | 12, 15, 16 | 3syl 18 |
. . . 4
β’ (((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β πΉ Fn (Baseβπ)) |
18 | | elpwi 4609 |
. . . . 5
β’ (π β π« ran πΉ β π β ran πΉ) |
19 | 18 | ad2antrl 727 |
. . . 4
β’ (((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β π β ran πΉ) |
20 | | simprrl 780 |
. . . 4
β’ (((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β π β Fin) |
21 | | fipreima 9355 |
. . . 4
β’ ((πΉ Fn (Baseβπ) β§ π β ran πΉ β§ π β Fin) β βπ β (π« (Baseβπ) β© Fin)(πΉ β π) = π) |
22 | 17, 19, 20, 21 | syl3anc 1372 |
. . 3
β’ (((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β βπ β (π« (Baseβπ) β© Fin)(πΉ β π) = π) |
23 | | eqid 2733 |
. . . . . . 7
β’
(LSubSpβπ) =
(LSubSpβπ) |
24 | | eqid 2733 |
. . . . . . 7
β’
(LSSumβπ) =
(LSSumβπ) |
25 | | lmhmfgsplit.z |
. . . . . . 7
β’ 0 =
(0gβπ) |
26 | | lmhmfgsplit.k |
. . . . . . 7
β’ πΎ = (β‘πΉ β { 0 }) |
27 | | simpll1 1213 |
. . . . . . 7
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β πΉ β (π LMHom π)) |
28 | | lmhmlmod1 20637 |
. . . . . . . . . 10
β’ (πΉ β (π LMHom π) β π β LMod) |
29 | 28 | 3ad2ant1 1134 |
. . . . . . . . 9
β’ ((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β π β LMod) |
30 | 29 | ad2antrr 725 |
. . . . . . . 8
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β π β LMod) |
31 | | inss1 4228 |
. . . . . . . . . . 11
β’
(π« (Baseβπ) β© Fin) β π«
(Baseβπ) |
32 | 31 | sseli 3978 |
. . . . . . . . . 10
β’ (π β (π«
(Baseβπ) β© Fin)
β π β π«
(Baseβπ)) |
33 | | elpwi 4609 |
. . . . . . . . . 10
β’ (π β π«
(Baseβπ) β π β (Baseβπ)) |
34 | 32, 33 | syl 17 |
. . . . . . . . 9
β’ (π β (π«
(Baseβπ) β© Fin)
β π β
(Baseβπ)) |
35 | 34 | ad2antrl 727 |
. . . . . . . 8
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β π β (Baseβπ)) |
36 | | eqid 2733 |
. . . . . . . . 9
β’
(LSpanβπ) =
(LSpanβπ) |
37 | 13, 23, 36 | lspcl 20580 |
. . . . . . . 8
β’ ((π β LMod β§ π β (Baseβπ)) β ((LSpanβπ)βπ) β (LSubSpβπ)) |
38 | 30, 35, 37 | syl2anc 585 |
. . . . . . 7
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β ((LSpanβπ)βπ) β (LSubSpβπ)) |
39 | 13, 36, 8 | lmhmlsp 20653 |
. . . . . . . . 9
β’ ((πΉ β (π LMHom π) β§ π β (Baseβπ)) β (πΉ β ((LSpanβπ)βπ)) = ((LSpanβπ)β(πΉ β π))) |
40 | 27, 35, 39 | syl2anc 585 |
. . . . . . . 8
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β (πΉ β ((LSpanβπ)βπ)) = ((LSpanβπ)β(πΉ β π))) |
41 | | fveq2 6889 |
. . . . . . . . 9
β’ ((πΉ β π) = π β ((LSpanβπ)β(πΉ β π)) = ((LSpanβπ)βπ)) |
42 | 41 | ad2antll 728 |
. . . . . . . 8
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β ((LSpanβπ)β(πΉ β π)) = ((LSpanβπ)βπ)) |
43 | | simp2rr 1244 |
. . . . . . . . 9
β’ (((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ)) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β ((LSpanβπ)βπ) = ran πΉ) |
44 | 43 | 3expa 1119 |
. . . . . . . 8
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β ((LSpanβπ)βπ) = ran πΉ) |
45 | 40, 42, 44 | 3eqtrd 2777 |
. . . . . . 7
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β (πΉ β ((LSpanβπ)βπ)) = ran πΉ) |
46 | 23, 24, 25, 26, 13, 27, 38, 45 | kercvrlsm 41811 |
. . . . . 6
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β (πΎ(LSSumβπ)((LSpanβπ)βπ)) = (Baseβπ)) |
47 | 46 | oveq2d 7422 |
. . . . 5
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β (π βΎs (πΎ(LSSumβπ)((LSpanβπ)βπ))) = (π βΎs (Baseβπ))) |
48 | 13 | ressid 17186 |
. . . . . . 7
β’ (π β LMod β (π βΎs
(Baseβπ)) = π) |
49 | 29, 48 | syl 17 |
. . . . . 6
β’ ((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β (π βΎs (Baseβπ)) = π) |
50 | 49 | ad2antrr 725 |
. . . . 5
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β (π βΎs (Baseβπ)) = π) |
51 | 47, 50 | eqtr2d 2774 |
. . . 4
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β π = (π βΎs (πΎ(LSSumβπ)((LSpanβπ)βπ)))) |
52 | | lmhmfgsplit.u |
. . . . 5
β’ π = (π βΎs πΎ) |
53 | | eqid 2733 |
. . . . 5
β’ (π βΎs
((LSpanβπ)βπ)) = (π βΎs ((LSpanβπ)βπ)) |
54 | | eqid 2733 |
. . . . 5
β’ (π βΎs (πΎ(LSSumβπ)((LSpanβπ)βπ))) = (π βΎs (πΎ(LSSumβπ)((LSpanβπ)βπ))) |
55 | 26, 25, 23 | lmhmkerlss 20655 |
. . . . . . 7
β’ (πΉ β (π LMHom π) β πΎ β (LSubSpβπ)) |
56 | 55 | 3ad2ant1 1134 |
. . . . . 6
β’ ((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β πΎ β (LSubSpβπ)) |
57 | 56 | ad2antrr 725 |
. . . . 5
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β πΎ β (LSubSpβπ)) |
58 | | simpll2 1214 |
. . . . 5
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β π β LFinGen) |
59 | | inss2 4229 |
. . . . . . . 8
β’
(π« (Baseβπ) β© Fin) β Fin |
60 | 59 | sseli 3978 |
. . . . . . 7
β’ (π β (π«
(Baseβπ) β© Fin)
β π β
Fin) |
61 | 60 | ad2antrl 727 |
. . . . . 6
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β π β Fin) |
62 | 36, 13, 53 | islssfgi 41800 |
. . . . . 6
β’ ((π β LMod β§ π β (Baseβπ) β§ π β Fin) β (π βΎs ((LSpanβπ)βπ)) β LFinGen) |
63 | 30, 35, 61, 62 | syl3anc 1372 |
. . . . 5
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β (π βΎs ((LSpanβπ)βπ)) β LFinGen) |
64 | 23, 24, 52, 53, 54, 30, 57, 38, 58, 63 | lsmfgcl 41802 |
. . . 4
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β (π βΎs (πΎ(LSSumβπ)((LSpanβπ)βπ))) β LFinGen) |
65 | 51, 64 | eqeltrd 2834 |
. . 3
β’ ((((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β§ (π β (π« (Baseβπ) β© Fin) β§ (πΉ β π) = π)) β π β LFinGen) |
66 | 22, 65 | rexlimddv 3162 |
. 2
β’ (((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β§ (π β π« ran πΉ β§ (π β Fin β§ ((LSpanβπ)βπ) = ran πΉ))) β π β LFinGen) |
67 | 11, 66 | rexlimddv 3162 |
1
β’ ((πΉ β (π LMHom π) β§ π β LFinGen β§ π β LFinGen) β π β LFinGen) |