Step |
Hyp |
Ref |
Expression |
1 |
|
hgmapval.h |
|- H = ( LHyp ` K ) |
2 |
|
elex |
|- ( K e. X -> K e. _V ) |
3 |
|
fveq2 |
|- ( k = K -> ( LHyp ` k ) = ( LHyp ` K ) ) |
4 |
3 1
|
eqtr4di |
|- ( k = K -> ( LHyp ` k ) = H ) |
5 |
|
fveq2 |
|- ( k = K -> ( DVecH ` k ) = ( DVecH ` K ) ) |
6 |
5
|
fveq1d |
|- ( k = K -> ( ( DVecH ` k ) ` w ) = ( ( DVecH ` K ) ` w ) ) |
7 |
|
fveq2 |
|- ( k = K -> ( HDMap ` k ) = ( HDMap ` K ) ) |
8 |
7
|
fveq1d |
|- ( k = K -> ( ( HDMap ` k ) ` w ) = ( ( HDMap ` K ) ` w ) ) |
9 |
|
fveq2 |
|- ( k = K -> ( LCDual ` k ) = ( LCDual ` K ) ) |
10 |
9
|
fveq1d |
|- ( k = K -> ( ( LCDual ` k ) ` w ) = ( ( LCDual ` K ) ` w ) ) |
11 |
10
|
fveq2d |
|- ( k = K -> ( .s ` ( ( LCDual ` k ) ` w ) ) = ( .s ` ( ( LCDual ` K ) ` w ) ) ) |
12 |
11
|
oveqd |
|- ( k = K -> ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) |
13 |
12
|
eqeq2d |
|- ( k = K -> ( ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) <-> ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) |
14 |
13
|
ralbidv |
|- ( k = K -> ( A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) <-> A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) |
15 |
14
|
riotabidv |
|- ( k = K -> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) ) = ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) |
16 |
15
|
mpteq2dv |
|- ( k = K -> ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) ) ) = ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) ) |
17 |
16
|
eleq2d |
|- ( k = K -> ( a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) ) ) <-> a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) ) ) |
18 |
8 17
|
sbceqbid |
|- ( k = K -> ( [. ( ( HDMap ` k ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) ) ) <-> [. ( ( HDMap ` K ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) ) ) |
19 |
18
|
sbcbidv |
|- ( k = K -> ( [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` k ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) ) ) <-> [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` K ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) ) ) |
20 |
6 19
|
sbceqbid |
|- ( k = K -> ( [. ( ( DVecH ` k ) ` w ) / u ]. [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` k ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) ) ) <-> [. ( ( DVecH ` K ) ` w ) / u ]. [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` K ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) ) ) |
21 |
20
|
abbidv |
|- ( k = K -> { a | [. ( ( DVecH ` k ) ` w ) / u ]. [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` k ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) ) ) } = { a | [. ( ( DVecH ` K ) ` w ) / u ]. [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` K ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) } ) |
22 |
4 21
|
mpteq12dv |
|- ( k = K -> ( w e. ( LHyp ` k ) |-> { a | [. ( ( DVecH ` k ) ` w ) / u ]. [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` k ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) ) ) } ) = ( w e. H |-> { a | [. ( ( DVecH ` K ) ` w ) / u ]. [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` K ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) } ) ) |
23 |
|
df-hgmap |
|- HGMap = ( k e. _V |-> ( w e. ( LHyp ` k ) |-> { a | [. ( ( DVecH ` k ) ` w ) / u ]. [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` k ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` k ) ` w ) ) ( m ` v ) ) ) ) } ) ) |
24 |
22 23 1
|
mptfvmpt |
|- ( K e. _V -> ( HGMap ` K ) = ( w e. H |-> { a | [. ( ( DVecH ` K ) ` w ) / u ]. [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` K ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) } ) ) |
25 |
2 24
|
syl |
|- ( K e. X -> ( HGMap ` K ) = ( w e. H |-> { a | [. ( ( DVecH ` K ) ` w ) / u ]. [. ( Base ` ( Scalar ` u ) ) / b ]. [. ( ( HDMap ` K ) ` w ) / m ]. a e. ( x e. b |-> ( iota_ y e. b A. v e. ( Base ` u ) ( m ` ( x ( .s ` u ) v ) ) = ( y ( .s ` ( ( LCDual ` K ) ` w ) ) ( m ` v ) ) ) ) } ) ) |