Metamath Proof Explorer


Theorem hvmapffval

Description: Map from nonzero vectors to nonzero functionals in the closed kernel dual space. (Contributed by NM, 23-Mar-2015)

Ref Expression
Hypothesis hvmapval.h H=LHypK
Assertion hvmapffval KXHVMapK=wHxBaseDVecHKw0DVecHKwvBaseDVecHKwιjBaseScalarDVecHKw|tocHKwxv=t+DVecHKwjDVecHKwx

Proof

Step Hyp Ref Expression
1 hvmapval.h H=LHypK
2 elex KXKV
3 fveq2 k=KLHypk=LHypK
4 3 1 eqtr4di k=KLHypk=H
5 fveq2 k=KDVecHk=DVecHK
6 5 fveq1d k=KDVecHkw=DVecHKw
7 6 fveq2d k=KBaseDVecHkw=BaseDVecHKw
8 6 fveq2d k=K0DVecHkw=0DVecHKw
9 8 sneqd k=K0DVecHkw=0DVecHKw
10 7 9 difeq12d k=KBaseDVecHkw0DVecHkw=BaseDVecHKw0DVecHKw
11 6 fveq2d k=KScalarDVecHkw=ScalarDVecHKw
12 11 fveq2d k=KBaseScalarDVecHkw=BaseScalarDVecHKw
13 fveq2 k=KocHk=ocHK
14 13 fveq1d k=KocHkw=ocHKw
15 14 fveq1d k=KocHkwx=ocHKwx
16 6 fveq2d k=K+DVecHkw=+DVecHKw
17 eqidd k=Kt=t
18 6 fveq2d k=KDVecHkw=DVecHKw
19 18 oveqd k=KjDVecHkwx=jDVecHKwx
20 16 17 19 oveq123d k=Kt+DVecHkwjDVecHkwx=t+DVecHKwjDVecHKwx
21 20 eqeq2d k=Kv=t+DVecHkwjDVecHkwxv=t+DVecHKwjDVecHKwx
22 15 21 rexeqbidv k=KtocHkwxv=t+DVecHkwjDVecHkwxtocHKwxv=t+DVecHKwjDVecHKwx
23 12 22 riotaeqbidv k=KιjBaseScalarDVecHkw|tocHkwxv=t+DVecHkwjDVecHkwx=ιjBaseScalarDVecHKw|tocHKwxv=t+DVecHKwjDVecHKwx
24 7 23 mpteq12dv k=KvBaseDVecHkwιjBaseScalarDVecHkw|tocHkwxv=t+DVecHkwjDVecHkwx=vBaseDVecHKwιjBaseScalarDVecHKw|tocHKwxv=t+DVecHKwjDVecHKwx
25 10 24 mpteq12dv k=KxBaseDVecHkw0DVecHkwvBaseDVecHkwιjBaseScalarDVecHkw|tocHkwxv=t+DVecHkwjDVecHkwx=xBaseDVecHKw0DVecHKwvBaseDVecHKwιjBaseScalarDVecHKw|tocHKwxv=t+DVecHKwjDVecHKwx
26 4 25 mpteq12dv k=KwLHypkxBaseDVecHkw0DVecHkwvBaseDVecHkwιjBaseScalarDVecHkw|tocHkwxv=t+DVecHkwjDVecHkwx=wHxBaseDVecHKw0DVecHKwvBaseDVecHKwιjBaseScalarDVecHKw|tocHKwxv=t+DVecHKwjDVecHKwx
27 df-hvmap HVMap=kVwLHypkxBaseDVecHkw0DVecHkwvBaseDVecHkwιjBaseScalarDVecHkw|tocHkwxv=t+DVecHkwjDVecHkwx
28 26 27 1 mptfvmpt KVHVMapK=wHxBaseDVecHKw0DVecHKwvBaseDVecHKwιjBaseScalarDVecHKw|tocHKwxv=t+DVecHKwjDVecHKwx
29 2 28 syl KXHVMapK=wHxBaseDVecHKw0DVecHKwvBaseDVecHKwιjBaseScalarDVecHKw|tocHKwxv=t+DVecHKwjDVecHKwx