Metamath Proof Explorer


Theorem elfilspd

Description: Simplified version of ellspd when the spanning set is finite: all linear combinations are then acceptable. (Contributed by Stefan O'Rear, 7-Feb-2015) (Proof shortened by AV, 21-Jul-2019)

Ref Expression
Hypotheses ellspd.n โŠข ๐‘ = ( LSpan โ€˜ ๐‘€ )
ellspd.v โŠข ๐ต = ( Base โ€˜ ๐‘€ )
ellspd.k โŠข ๐พ = ( Base โ€˜ ๐‘† )
ellspd.s โŠข ๐‘† = ( Scalar โ€˜ ๐‘€ )
ellspd.z โŠข 0 = ( 0g โ€˜ ๐‘† )
ellspd.t โŠข ยท = ( ยท๐‘  โ€˜ ๐‘€ )
elfilspd.f โŠข ( ๐œ‘ โ†’ ๐น : ๐ผ โŸถ ๐ต )
elfilspd.m โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ LMod )
elfilspd.i โŠข ( ๐œ‘ โ†’ ๐ผ โˆˆ Fin )
Assertion elfilspd ( ๐œ‘ โ†’ ( ๐‘‹ โˆˆ ( ๐‘ โ€˜ ( ๐น โ€œ ๐ผ ) ) โ†” โˆƒ ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) ๐‘‹ = ( ๐‘€ ฮฃg ( ๐‘“ โˆ˜f ยท ๐น ) ) ) )

Proof

Step Hyp Ref Expression
1 ellspd.n โŠข ๐‘ = ( LSpan โ€˜ ๐‘€ )
2 ellspd.v โŠข ๐ต = ( Base โ€˜ ๐‘€ )
3 ellspd.k โŠข ๐พ = ( Base โ€˜ ๐‘† )
4 ellspd.s โŠข ๐‘† = ( Scalar โ€˜ ๐‘€ )
5 ellspd.z โŠข 0 = ( 0g โ€˜ ๐‘† )
6 ellspd.t โŠข ยท = ( ยท๐‘  โ€˜ ๐‘€ )
7 elfilspd.f โŠข ( ๐œ‘ โ†’ ๐น : ๐ผ โŸถ ๐ต )
8 elfilspd.m โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ LMod )
9 elfilspd.i โŠข ( ๐œ‘ โ†’ ๐ผ โˆˆ Fin )
10 1 2 3 4 5 6 7 8 9 ellspd โŠข ( ๐œ‘ โ†’ ( ๐‘‹ โˆˆ ( ๐‘ โ€˜ ( ๐น โ€œ ๐ผ ) ) โ†” โˆƒ ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) ( ๐‘“ finSupp 0 โˆง ๐‘‹ = ( ๐‘€ ฮฃg ( ๐‘“ โˆ˜f ยท ๐น ) ) ) ) )
11 elmapi โŠข ( ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) โ†’ ๐‘“ : ๐ผ โŸถ ๐พ )
12 11 adantl โŠข ( ( ๐œ‘ โˆง ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) ) โ†’ ๐‘“ : ๐ผ โŸถ ๐พ )
13 9 adantr โŠข ( ( ๐œ‘ โˆง ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) ) โ†’ ๐ผ โˆˆ Fin )
14 5 fvexi โŠข 0 โˆˆ V
15 14 a1i โŠข ( ( ๐œ‘ โˆง ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) ) โ†’ 0 โˆˆ V )
16 12 13 15 fdmfifsupp โŠข ( ( ๐œ‘ โˆง ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) ) โ†’ ๐‘“ finSupp 0 )
17 16 biantrurd โŠข ( ( ๐œ‘ โˆง ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) ) โ†’ ( ๐‘‹ = ( ๐‘€ ฮฃg ( ๐‘“ โˆ˜f ยท ๐น ) ) โ†” ( ๐‘“ finSupp 0 โˆง ๐‘‹ = ( ๐‘€ ฮฃg ( ๐‘“ โˆ˜f ยท ๐น ) ) ) ) )
18 17 rexbidva โŠข ( ๐œ‘ โ†’ ( โˆƒ ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) ๐‘‹ = ( ๐‘€ ฮฃg ( ๐‘“ โˆ˜f ยท ๐น ) ) โ†” โˆƒ ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) ( ๐‘“ finSupp 0 โˆง ๐‘‹ = ( ๐‘€ ฮฃg ( ๐‘“ โˆ˜f ยท ๐น ) ) ) ) )
19 10 18 bitr4d โŠข ( ๐œ‘ โ†’ ( ๐‘‹ โˆˆ ( ๐‘ โ€˜ ( ๐น โ€œ ๐ผ ) ) โ†” โˆƒ ๐‘“ โˆˆ ( ๐พ โ†‘m ๐ผ ) ๐‘‹ = ( ๐‘€ ฮฃg ( ๐‘“ โˆ˜f ยท ๐น ) ) ) )