MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  frlmphl Structured version   Visualization version   Unicode version

Theorem frlmphl 19339
Description: Conditions for a free module to be a pre-Hilbert space. (Contributed by Thierry Arnoux, 21-Jun-2019.) (Proof shortened by AV, 21-Jul-2019.)
Hypotheses
Ref Expression
frlmphl.y  |-  Y  =  ( R freeLMod  I )
frlmphl.b  |-  B  =  ( Base `  R
)
frlmphl.t  |-  .x.  =  ( .r `  R )
frlmphl.v  |-  V  =  ( Base `  Y
)
frlmphl.j  |-  .,  =  ( .i `  Y )
frlmphl.o  |-  O  =  ( 0g `  Y
)
frlmphl.0  |-  .0.  =  ( 0g `  R )
frlmphl.s  |-  .*  =  ( *r `  R )
frlmphl.f  |-  ( ph  ->  R  e. Field )
frlmphl.m  |-  ( (
ph  /\  g  e.  V  /\  ( g  .,  g )  =  .0.  )  ->  g  =  O )
frlmphl.u  |-  ( (
ph  /\  x  e.  B )  ->  (  .*  `  x )  =  x )
frlmphl.i  |-  ( ph  ->  I  e.  W )
Assertion
Ref Expression
frlmphl  |-  ( ph  ->  Y  e.  PreHil )
Distinct variable groups:    B, g, x    g, I, x    R, g, x    g, V, x   
g, W, x    .x. , g, x    g, Y, x    .0. , g, x    ph, g, x    ., , g, x    g, O   
x,  .*
Allowed substitution hints:    .* ( g)    O( x)

Proof of Theorem frlmphl
Dummy variables  f 
e  h  i  y  z  k are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 frlmphl.v . . 3  |-  V  =  ( Base `  Y
)
21a1i 11 . 2  |-  ( ph  ->  V  =  ( Base `  Y ) )
3 eqidd 2452 . 2  |-  ( ph  ->  ( +g  `  Y
)  =  ( +g  `  Y ) )
4 eqidd 2452 . 2  |-  ( ph  ->  ( .s `  Y
)  =  ( .s
`  Y ) )
5 frlmphl.j . . 3  |-  .,  =  ( .i `  Y )
65a1i 11 . 2  |-  ( ph  ->  .,  =  ( .i
`  Y ) )
7 frlmphl.o . . 3  |-  O  =  ( 0g `  Y
)
87a1i 11 . 2  |-  ( ph  ->  O  =  ( 0g
`  Y ) )
9 frlmphl.f . . . . 5  |-  ( ph  ->  R  e. Field )
10 isfld 17984 . . . . 5  |-  ( R  e. Field 
<->  ( R  e.  DivRing  /\  R  e.  CRing ) )
119, 10sylib 200 . . . 4  |-  ( ph  ->  ( R  e.  DivRing  /\  R  e.  CRing ) )
1211simpld 461 . . 3  |-  ( ph  ->  R  e.  DivRing )
13 frlmphl.i . . 3  |-  ( ph  ->  I  e.  W )
14 frlmphl.y . . . 4  |-  Y  =  ( R freeLMod  I )
1514frlmsca 19316 . . 3  |-  ( ( R  e.  DivRing  /\  I  e.  W )  ->  R  =  (Scalar `  Y )
)
1612, 13, 15syl2anc 667 . 2  |-  ( ph  ->  R  =  (Scalar `  Y ) )
17 frlmphl.b . . 3  |-  B  =  ( Base `  R
)
1817a1i 11 . 2  |-  ( ph  ->  B  =  ( Base `  R ) )
19 eqidd 2452 . 2  |-  ( ph  ->  ( +g  `  R
)  =  ( +g  `  R ) )
20 frlmphl.t . . 3  |-  .x.  =  ( .r `  R )
2120a1i 11 . 2  |-  ( ph  ->  .x.  =  ( .r
`  R ) )
22 frlmphl.s . . 3  |-  .*  =  ( *r `  R )
2322a1i 11 . 2  |-  ( ph  ->  .*  =  ( *r `  R ) )
24 frlmphl.0 . . 3  |-  .0.  =  ( 0g `  R )
2524a1i 11 . 2  |-  ( ph  ->  .0.  =  ( 0g
`  R ) )
26 drngring 17982 . . . . 5  |-  ( R  e.  DivRing  ->  R  e.  Ring )
2712, 26syl 17 . . . 4  |-  ( ph  ->  R  e.  Ring )
2814frlmlmod 19312 . . . 4  |-  ( ( R  e.  Ring  /\  I  e.  W )  ->  Y  e.  LMod )
2927, 13, 28syl2anc 667 . . 3  |-  ( ph  ->  Y  e.  LMod )
3016, 12eqeltrrd 2530 . . 3  |-  ( ph  ->  (Scalar `  Y )  e.  DivRing )
31 eqid 2451 . . . 4  |-  (Scalar `  Y )  =  (Scalar `  Y )
3231islvec 18327 . . 3  |-  ( Y  e.  LVec  <->  ( Y  e. 
LMod  /\  (Scalar `  Y
)  e.  DivRing ) )
3329, 30, 32sylanbrc 670 . 2  |-  ( ph  ->  Y  e.  LVec )
3411simprd 465 . . 3  |-  ( ph  ->  R  e.  CRing )
35 frlmphl.u . . 3  |-  ( (
ph  /\  x  e.  B )  ->  (  .*  `  x )  =  x )
3617, 22, 34, 35idsrngd 18090 . 2  |-  ( ph  ->  R  e.  *Ring )
37133ad2ant1 1029 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  I  e.  W )
38273ad2ant1 1029 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  R  e.  Ring )
39 simp2 1009 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  g  e.  V )
40 simp3 1010 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  h  e.  V )
4114, 17, 20, 1, 5frlmipval 19337 . . . . 5  |-  ( ( ( I  e.  W  /\  R  e.  Ring )  /\  ( g  e.  V  /\  h  e.  V ) )  -> 
( g  .,  h
)  =  ( R 
gsumg  ( g  oF  .x.  h ) ) )
4237, 38, 39, 40, 41syl22anc 1269 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( g  .,  h )  =  ( R  gsumg  ( g  oF  .x.  h ) ) )
4314, 17, 1frlmbasmap 19322 . . . . . . . . 9  |-  ( ( I  e.  W  /\  g  e.  V )  ->  g  e.  ( B  ^m  I ) )
4437, 39, 43syl2anc 667 . . . . . . . 8  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  g  e.  ( B  ^m  I ) )
45 elmapi 7493 . . . . . . . 8  |-  ( g  e.  ( B  ^m  I )  ->  g : I --> B )
4644, 45syl 17 . . . . . . 7  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  g :
I --> B )
47 ffn 5728 . . . . . . 7  |-  ( g : I --> B  -> 
g  Fn  I )
4846, 47syl 17 . . . . . 6  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  g  Fn  I )
4914, 17, 1frlmbasmap 19322 . . . . . . . . 9  |-  ( ( I  e.  W  /\  h  e.  V )  ->  h  e.  ( B  ^m  I ) )
5037, 40, 49syl2anc 667 . . . . . . . 8  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  h  e.  ( B  ^m  I ) )
51 elmapi 7493 . . . . . . . 8  |-  ( h  e.  ( B  ^m  I )  ->  h : I --> B )
5250, 51syl 17 . . . . . . 7  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  h :
I --> B )
53 ffn 5728 . . . . . . 7  |-  ( h : I --> B  ->  h  Fn  I )
5452, 53syl 17 . . . . . 6  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  h  Fn  I )
55 inidm 3641 . . . . . 6  |-  ( I  i^i  I )  =  I
56 eqidd 2452 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
g `  x )  =  ( g `  x ) )
57 eqidd 2452 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
h `  x )  =  ( h `  x ) )
5848, 54, 37, 37, 55, 56, 57offval 6538 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( g  oF  .x.  h )  =  ( x  e.  I  |->  ( ( g `
 x )  .x.  ( h `  x
) ) ) )
5958oveq2d 6306 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( R  gsumg  ( g  oF  .x.  h ) )  =  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
h `  x )
) ) ) )
6042, 59eqtrd 2485 . . 3  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( g  .,  h )  =  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
h `  x )
) ) ) )
61 ringcmn 17811 . . . . . 6  |-  ( R  e.  Ring  ->  R  e. CMnd
)
6227, 61syl 17 . . . . 5  |-  ( ph  ->  R  e. CMnd )
63623ad2ant1 1029 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  R  e. CMnd )
6438adantr 467 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  R  e.  Ring )
6546ffvelrnda 6022 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
g `  x )  e.  B )
6652ffvelrnda 6022 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
h `  x )  e.  B )
6717, 20ringcl 17794 . . . . . 6  |-  ( ( R  e.  Ring  /\  (
g `  x )  e.  B  /\  (
h `  x )  e.  B )  ->  (
( g `  x
)  .x.  ( h `  x ) )  e.  B )
6864, 65, 66, 67syl3anc 1268 . . . . 5  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
( g `  x
)  .x.  ( h `  x ) )  e.  B )
69 eqid 2451 . . . . 5  |-  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( h `  x ) ) )  =  ( x  e.  I  |->  ( ( g `
 x )  .x.  ( h `  x
) ) )
7068, 69fmptd 6046 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( h `  x ) ) ) : I --> B )
71 frlmphl.m . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  ( g  .,  g )  =  .0.  )  ->  g  =  O )
7214, 17, 20, 1, 5, 7, 24, 22, 9, 71, 35, 13frlmphllem 19338 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( h `  x ) ) ) finSupp  .0.  )
7317, 24, 63, 37, 70, 72gsumcl 17549 . . 3  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x
)  .x.  ( h `  x ) ) ) )  e.  B )
7460, 73eqeltrd 2529 . 2  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( g  .,  h )  e.  B
)
75 eqid 2451 . . . 4  |-  ( +g  `  R )  =  ( +g  `  R )
76623ad2ant1 1029 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  R  e. CMnd )
77133ad2ant1 1029 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  I  e.  W )
78273ad2ant1 1029 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  R  e.  Ring )
7978adantr 467 . . . . 5  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  R  e.  Ring )
80 simp2 1009 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
k  e.  B )
8180adantr 467 . . . . 5  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  k  e.  B )
82 simp31 1044 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
g  e.  V )
8377, 82, 43syl2anc 667 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
g  e.  ( B  ^m  I ) )
8483, 45syl 17 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
g : I --> B )
8584ffvelrnda 6022 . . . . . 6  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
g `  x )  e.  B )
86 simp33 1046 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
i  e.  V )
8714, 17, 1frlmbasmap 19322 . . . . . . . . 9  |-  ( ( I  e.  W  /\  i  e.  V )  ->  i  e.  ( B  ^m  I ) )
8877, 86, 87syl2anc 667 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
i  e.  ( B  ^m  I ) )
89 elmapi 7493 . . . . . . . 8  |-  ( i  e.  ( B  ^m  I )  ->  i : I --> B )
9088, 89syl 17 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
i : I --> B )
9190ffvelrnda 6022 . . . . . 6  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
i `  x )  e.  B )
9217, 20ringcl 17794 . . . . . 6  |-  ( ( R  e.  Ring  /\  (
g `  x )  e.  B  /\  (
i `  x )  e.  B )  ->  (
( g `  x
)  .x.  ( i `  x ) )  e.  B )
9379, 85, 91, 92syl3anc 1268 . . . . 5  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( g `  x
)  .x.  ( i `  x ) )  e.  B )
9417, 20ringcl 17794 . . . . 5  |-  ( ( R  e.  Ring  /\  k  e.  B  /\  (
( g `  x
)  .x.  ( i `  x ) )  e.  B )  ->  (
k  .x.  ( (
g `  x )  .x.  ( i `  x
) ) )  e.  B )
9579, 81, 93, 94syl3anc 1268 . . . 4  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
k  .x.  ( (
g `  x )  .x.  ( i `  x
) ) )  e.  B )
96 simp32 1045 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  h  e.  V )
9777, 96, 49syl2anc 667 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  h  e.  ( B  ^m  I ) )
9897, 51syl 17 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  h : I --> B )
9998ffvelrnda 6022 . . . . 5  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
h `  x )  e.  B )
10017, 20ringcl 17794 . . . . 5  |-  ( ( R  e.  Ring  /\  (
h `  x )  e.  B  /\  (
i `  x )  e.  B )  ->  (
( h `  x
)  .x.  ( i `  x ) )  e.  B )
10179, 99, 91, 100syl3anc 1268 . . . 4  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( h `  x
)  .x.  ( i `  x ) )  e.  B )
102 eqidd 2452 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( x  e.  I  |->  ( k  .x.  (
( g `  x
)  .x.  ( i `  x ) ) ) )  =  ( x  e.  I  |->  ( k 
.x.  ( ( g `
 x )  .x.  ( i `  x
) ) ) ) )
103 eqidd 2452 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( x  e.  I  |->  ( ( h `  x )  .x.  (
i `  x )
) )  =  ( x  e.  I  |->  ( ( h `  x
)  .x.  ( i `  x ) ) ) )
104 fveq2 5865 . . . . . . . . 9  |-  ( x  =  y  ->  (
g `  x )  =  ( g `  y ) )
105104oveq2d 6306 . . . . . . . 8  |-  ( x  =  y  ->  (
k  .x.  ( g `  x ) )  =  ( k  .x.  (
g `  y )
) )
106105cbvmptv 4495 . . . . . . 7  |-  ( x  e.  I  |->  ( k 
.x.  ( g `  x ) ) )  =  ( y  e.  I  |->  ( k  .x.  ( g `  y
) ) )
107106oveq1i 6300 . . . . . 6  |-  ( ( x  e.  I  |->  ( k  .x.  ( g `
 x ) ) )  oF  .x.  i )  =  ( ( y  e.  I  |->  ( k  .x.  (
g `  y )
) )  oF  .x.  i )
10817, 20ringcl 17794 . . . . . . . . . . . 12  |-  ( ( R  e.  Ring  /\  k  e.  B  /\  (
g `  x )  e.  B )  ->  (
k  .x.  ( g `  x ) )  e.  B )
10979, 81, 85, 108syl3anc 1268 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
k  .x.  ( g `  x ) )  e.  B )
110 eqid 2451 . . . . . . . . . . 11  |-  ( x  e.  I  |->  ( k 
.x.  ( g `  x ) ) )  =  ( x  e.  I  |->  ( k  .x.  ( g `  x
) ) )
111109, 110fmptd 6046 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( x  e.  I  |->  ( k  .x.  (
g `  x )
) ) : I --> B )
112 ffn 5728 . . . . . . . . . 10  |-  ( ( x  e.  I  |->  ( k  .x.  ( g `
 x ) ) ) : I --> B  -> 
( x  e.  I  |->  ( k  .x.  (
g `  x )
) )  Fn  I
)
113111, 112syl 17 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( x  e.  I  |->  ( k  .x.  (
g `  x )
) )  Fn  I
)
114106fneq1i 5670 . . . . . . . . 9  |-  ( ( x  e.  I  |->  ( k  .x.  ( g `
 x ) ) )  Fn  I  <->  ( y  e.  I  |->  ( k 
.x.  ( g `  y ) ) )  Fn  I )
115113, 114sylib 200 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( y  e.  I  |->  ( k  .x.  (
g `  y )
) )  Fn  I
)
116 ffn 5728 . . . . . . . . 9  |-  ( i : I --> B  -> 
i  Fn  I )
11790, 116syl 17 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
i  Fn  I )
118 eqidd 2452 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
y  e.  I  |->  ( k  .x.  ( g `
 y ) ) )  =  ( y  e.  I  |->  ( k 
.x.  ( g `  y ) ) ) )
119 simpr 463 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V
) )  /\  x  e.  I )  /\  y  =  x )  ->  y  =  x )
120119fveq2d 5869 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V
) )  /\  x  e.  I )  /\  y  =  x )  ->  (
g `  y )  =  ( g `  x ) )
121120oveq2d 6306 . . . . . . . . 9  |-  ( ( ( ( ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V
) )  /\  x  e.  I )  /\  y  =  x )  ->  (
k  .x.  ( g `  y ) )  =  ( k  .x.  (
g `  x )
) )
122 simpr 463 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  x  e.  I )
123 ovex 6318 . . . . . . . . . 10  |-  ( k 
.x.  ( g `  x ) )  e. 
_V
124123a1i 11 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
k  .x.  ( g `  x ) )  e. 
_V )
125118, 121, 122, 124fvmptd 5954 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( y  e.  I  |->  ( k  .x.  (
g `  y )
) ) `  x
)  =  ( k 
.x.  ( g `  x ) ) )
126 eqidd 2452 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
i `  x )  =  ( i `  x ) )
127115, 117, 77, 77, 55, 125, 126offval 6538 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( y  e.  I  |->  ( k  .x.  ( g `  y
) ) )  oF  .x.  i )  =  ( x  e.  I  |->  ( ( k 
.x.  ( g `  x ) )  .x.  ( i `  x
) ) ) )
12817, 20ringass 17797 . . . . . . . . 9  |-  ( ( R  e.  Ring  /\  (
k  e.  B  /\  ( g `  x
)  e.  B  /\  ( i `  x
)  e.  B ) )  ->  ( (
k  .x.  ( g `  x ) )  .x.  ( i `  x
) )  =  ( k  .x.  ( ( g `  x ) 
.x.  ( i `  x ) ) ) )
12979, 81, 85, 91, 128syl13anc 1270 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( k  .x.  (
g `  x )
)  .x.  ( i `  x ) )  =  ( k  .x.  (
( g `  x
)  .x.  ( i `  x ) ) ) )
130129mpteq2dva 4489 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( x  e.  I  |->  ( ( k  .x.  ( g `  x
) )  .x.  (
i `  x )
) )  =  ( x  e.  I  |->  ( k  .x.  ( ( g `  x ) 
.x.  ( i `  x ) ) ) ) )
131127, 130eqtrd 2485 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( y  e.  I  |->  ( k  .x.  ( g `  y
) ) )  oF  .x.  i )  =  ( x  e.  I  |->  ( k  .x.  ( ( g `  x )  .x.  (
i `  x )
) ) ) )
132107, 131syl5eq 2497 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( x  e.  I  |->  ( k  .x.  ( g `  x
) ) )  oF  .x.  i )  =  ( x  e.  I  |->  ( k  .x.  ( ( g `  x )  .x.  (
i `  x )
) ) ) )
133 ovex 6318 . . . . . . 7  |-  ( ( x  e.  I  |->  ( k  .x.  ( g `
 x ) ) )  oF  .x.  i )  e.  _V
134133a1i 11 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( x  e.  I  |->  ( k  .x.  ( g `  x
) ) )  oF  .x.  i )  e.  _V )
135 funmpt 5618 . . . . . . 7  |-  Fun  (
z  e.  I  |->  ( ( ( x  e.  I  |->  ( k  .x.  ( g `  x
) ) ) `  z )  .x.  (
i `  z )
) )
136 eqidd 2452 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  z  e.  I )  ->  (
( x  e.  I  |->  ( k  .x.  (
g `  x )
) ) `  z
)  =  ( ( x  e.  I  |->  ( k  .x.  ( g `
 x ) ) ) `  z ) )
137 eqidd 2452 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  z  e.  I )  ->  (
i `  z )  =  ( i `  z ) )
138113, 117, 77, 77, 55, 136, 137offval 6538 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( x  e.  I  |->  ( k  .x.  ( g `  x
) ) )  oF  .x.  i )  =  ( z  e.  I  |->  ( ( ( x  e.  I  |->  ( k  .x.  ( g `
 x ) ) ) `  z ) 
.x.  ( i `  z ) ) ) )
139138funeqd 5603 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( Fun  ( (
x  e.  I  |->  ( k  .x.  ( g `
 x ) ) )  oF  .x.  i )  <->  Fun  ( z  e.  I  |->  ( ( ( x  e.  I  |->  ( k  .x.  (
g `  x )
) ) `  z
)  .x.  ( i `  z ) ) ) ) )
140135, 139mpbiri 237 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  Fun  ( ( x  e.  I  |->  ( k  .x.  ( g `  x
) ) )  oF  .x.  i ) )
141 simp3 1010 . . . . . . . . 9  |-  ( ( g  e.  V  /\  h  e.  V  /\  i  e.  V )  ->  i  e.  V )
14213, 141anim12i 570 . . . . . . . 8  |-  ( (
ph  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( I  e.  W  /\  i  e.  V
) )
1431423adant2 1027 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( I  e.  W  /\  i  e.  V
) )
14414, 24, 1frlmbasfsupp 19321 . . . . . . 7  |-  ( ( I  e.  W  /\  i  e.  V )  ->  i finSupp  .0.  )
145143, 144syl 17 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
i finSupp  .0.  )
14617, 24ring0cl 17802 . . . . . . . 8  |-  ( R  e.  Ring  ->  .0.  e.  B )
14778, 146syl 17 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  .0.  e.  B )
14817, 20, 24ringrz 17818 . . . . . . . 8  |-  ( ( R  e.  Ring  /\  y  e.  B )  ->  (
y  .x.  .0.  )  =  .0.  )
14978, 148sylan 474 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  y  e.  B )  ->  (
y  .x.  .0.  )  =  .0.  )
15077, 147, 111, 90, 149suppofss2d 6953 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( ( x  e.  I  |->  ( k 
.x.  ( g `  x ) ) )  oF  .x.  i
) supp  .0.  )  C_  ( i supp  .0.  )
)
151 fsuppsssupp 7899 . . . . . 6  |-  ( ( ( ( ( x  e.  I  |->  ( k 
.x.  ( g `  x ) ) )  oF  .x.  i
)  e.  _V  /\  Fun  ( ( x  e.  I  |->  ( k  .x.  ( g `  x
) ) )  oF  .x.  i ) )  /\  ( i finSupp  .0.  /\  ( ( ( x  e.  I  |->  ( k  .x.  ( g `
 x ) ) )  oF  .x.  i ) supp  .0.  )  C_  ( i supp  .0.  )
) )  ->  (
( x  e.  I  |->  ( k  .x.  (
g `  x )
) )  oF  .x.  i ) finSupp  .0.  )
152134, 140, 145, 150, 151syl22anc 1269 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( x  e.  I  |->  ( k  .x.  ( g `  x
) ) )  oF  .x.  i ) finSupp  .0.  )
153132, 152eqbrtrrd 4425 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( x  e.  I  |->  ( k  .x.  (
( g `  x
)  .x.  ( i `  x ) ) ) ) finSupp  .0.  )
154 simp1 1008 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  ph )
155 eleq1 2517 . . . . . . . . 9  |-  ( g  =  h  ->  (
g  e.  V  <->  h  e.  V ) )
156 id 22 . . . . . . . . . . 11  |-  ( g  =  h  ->  g  =  h )
157156, 156oveq12d 6308 . . . . . . . . . 10  |-  ( g  =  h  ->  (
g  .,  g )  =  ( h  .,  h ) )
158157eqeq1d 2453 . . . . . . . . 9  |-  ( g  =  h  ->  (
( g  .,  g
)  =  .0.  <->  ( h  .,  h )  =  .0.  ) )
159155, 1583anbi23d 1342 . . . . . . . 8  |-  ( g  =  h  ->  (
( ph  /\  g  e.  V  /\  (
g  .,  g )  =  .0.  )  <->  ( ph  /\  h  e.  V  /\  ( h  .,  h )  =  .0.  ) ) )
160 eqeq1 2455 . . . . . . . 8  |-  ( g  =  h  ->  (
g  =  O  <->  h  =  O ) )
161159, 160imbi12d 322 . . . . . . 7  |-  ( g  =  h  ->  (
( ( ph  /\  g  e.  V  /\  ( g  .,  g
)  =  .0.  )  ->  g  =  O )  <-> 
( ( ph  /\  h  e.  V  /\  ( h  .,  h )  =  .0.  )  ->  h  =  O )
) )
162161, 71chvarv 2107 . . . . . 6  |-  ( (
ph  /\  h  e.  V  /\  ( h  .,  h )  =  .0.  )  ->  h  =  O )
16314, 17, 20, 1, 5, 7, 24, 22, 9, 162, 35, 13frlmphllem 19338 . . . . 5  |-  ( (
ph  /\  h  e.  V  /\  i  e.  V
)  ->  ( x  e.  I  |->  ( ( h `  x ) 
.x.  ( i `  x ) ) ) finSupp  .0.  )
164154, 96, 86, 163syl3anc 1268 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( x  e.  I  |->  ( ( h `  x )  .x.  (
i `  x )
) ) finSupp  .0.  )
16517, 24, 75, 76, 77, 95, 101, 102, 103, 153, 164gsummptfsadd 17557 . . 3  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( R  gsumg  ( x  e.  I  |->  ( ( k  .x.  ( ( g `  x )  .x.  (
i `  x )
) ) ( +g  `  R ) ( ( h `  x ) 
.x.  ( i `  x ) ) ) ) )  =  ( ( R  gsumg  ( x  e.  I  |->  ( k  .x.  (
( g `  x
)  .x.  ( i `  x ) ) ) ) ) ( +g  `  R ) ( R 
gsumg  ( x  e.  I  |->  ( ( h `  x )  .x.  (
i `  x )
) ) ) ) )
16614, 17, 20frlmip 19336 . . . . . . . . 9  |-  ( ( I  e.  W  /\  R  e.  DivRing )  -> 
( g  e.  ( B  ^m  I ) ,  h  e.  ( B  ^m  I ) 
|->  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
h `  x )
) ) ) )  =  ( .i `  Y ) )
16713, 12, 166syl2anc 667 . . . . . . . 8  |-  ( ph  ->  ( g  e.  ( B  ^m  I ) ,  h  e.  ( B  ^m  I ) 
|->  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
h `  x )
) ) ) )  =  ( .i `  Y ) )
168167, 5syl6reqr 2504 . . . . . . 7  |-  ( ph  ->  .,  =  ( g  e.  ( B  ^m  I ) ,  h  e.  ( B  ^m  I
)  |->  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( h `  x ) ) ) ) ) )
169 fveq1 5864 . . . . . . . . . . 11  |-  ( e  =  g  ->  (
e `  x )  =  ( g `  x ) )
170169oveq1d 6305 . . . . . . . . . 10  |-  ( e  =  g  ->  (
( e `  x
)  .x.  ( f `  x ) )  =  ( ( g `  x )  .x.  (
f `  x )
) )
171170mpteq2dv 4490 . . . . . . . . 9  |-  ( e  =  g  ->  (
x  e.  I  |->  ( ( e `  x
)  .x.  ( f `  x ) ) )  =  ( x  e.  I  |->  ( ( g `
 x )  .x.  ( f `  x
) ) ) )
172171oveq2d 6306 . . . . . . . 8  |-  ( e  =  g  ->  ( R  gsumg  ( x  e.  I  |->  ( ( e `  x )  .x.  (
f `  x )
) ) )  =  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
f `  x )
) ) ) )
173 fveq1 5864 . . . . . . . . . . 11  |-  ( f  =  h  ->  (
f `  x )  =  ( h `  x ) )
174173oveq2d 6306 . . . . . . . . . 10  |-  ( f  =  h  ->  (
( g `  x
)  .x.  ( f `  x ) )  =  ( ( g `  x )  .x.  (
h `  x )
) )
175174mpteq2dv 4490 . . . . . . . . 9  |-  ( f  =  h  ->  (
x  e.  I  |->  ( ( g `  x
)  .x.  ( f `  x ) ) )  =  ( x  e.  I  |->  ( ( g `
 x )  .x.  ( h `  x
) ) ) )
176175oveq2d 6306 . . . . . . . 8  |-  ( f  =  h  ->  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
f `  x )
) ) )  =  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
h `  x )
) ) ) )
177172, 176cbvmpt2v 6371 . . . . . . 7  |-  ( e  e.  ( B  ^m  I ) ,  f  e.  ( B  ^m  I )  |->  ( R 
gsumg  ( x  e.  I  |->  ( ( e `  x )  .x.  (
f `  x )
) ) ) )  =  ( g  e.  ( B  ^m  I
) ,  h  e.  ( B  ^m  I
)  |->  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( h `  x ) ) ) ) )
178168, 177syl6eqr 2503 . . . . . 6  |-  ( ph  ->  .,  =  ( e  e.  ( B  ^m  I ) ,  f  e.  ( B  ^m  I )  |->  ( R 
gsumg  ( x  e.  I  |->  ( ( e `  x )  .x.  (
f `  x )
) ) ) ) )
1791783ad2ant1 1029 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  .,  =  ( e  e.  ( B  ^m  I
) ,  f  e.  ( B  ^m  I
)  |->  ( R  gsumg  ( x  e.  I  |->  ( ( e `  x ) 
.x.  ( f `  x ) ) ) ) ) )
180 simprl 764 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h )  /\  f  =  i ) )  ->  e  =  ( ( k ( .s
`  Y ) g ) ( +g  `  Y
) h ) )
181180fveq1d 5867 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h )  /\  f  =  i ) )  ->  ( e `  x )  =  ( ( ( k ( .s `  Y ) g ) ( +g  `  Y ) h ) `
 x ) )
182 simprr 766 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h )  /\  f  =  i ) )  ->  f  =  i )
183182fveq1d 5867 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h )  /\  f  =  i ) )  ->  ( f `  x )  =  ( i `  x ) )
184181, 183oveq12d 6308 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h )  /\  f  =  i ) )  ->  ( ( e `
 x )  .x.  ( f `  x
) )  =  ( ( ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h ) `  x
)  .x.  ( i `  x ) ) )
185184mpteq2dv 4490 . . . . . 6  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h )  /\  f  =  i ) )  ->  ( x  e.  I  |->  ( ( e `
 x )  .x.  ( f `  x
) ) )  =  ( x  e.  I  |->  ( ( ( ( k ( .s `  Y ) g ) ( +g  `  Y
) h ) `  x )  .x.  (
i `  x )
) ) )
186185oveq2d 6306 . . . . 5  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h )  /\  f  =  i ) )  ->  ( R  gsumg  ( x  e.  I  |->  ( ( e `  x ) 
.x.  ( f `  x ) ) ) )  =  ( R 
gsumg  ( x  e.  I  |->  ( ( ( ( k ( .s `  Y ) g ) ( +g  `  Y
) h ) `  x )  .x.  (
i `  x )
) ) ) )
187293ad2ant1 1029 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  Y  e.  LMod )
188163ad2ant1 1029 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  R  =  (Scalar `  Y
) )
189188fveq2d 5869 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( Base `  R )  =  ( Base `  (Scalar `  Y ) ) )
19017, 189syl5eq 2497 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  B  =  ( Base `  (Scalar `  Y )
) )
19180, 190eleqtrd 2531 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
k  e.  ( Base `  (Scalar `  Y )
) )
192 eqid 2451 . . . . . . . . 9  |-  ( .s
`  Y )  =  ( .s `  Y
)
193 eqid 2451 . . . . . . . . 9  |-  ( Base `  (Scalar `  Y )
)  =  ( Base `  (Scalar `  Y )
)
1941, 31, 192, 193lmodvscl 18108 . . . . . . . 8  |-  ( ( Y  e.  LMod  /\  k  e.  ( Base `  (Scalar `  Y ) )  /\  g  e.  V )  ->  ( k ( .s
`  Y ) g )  e.  V )
195187, 191, 82, 194syl3anc 1268 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( k ( .s
`  Y ) g )  e.  V )
196 eqid 2451 . . . . . . . 8  |-  ( +g  `  Y )  =  ( +g  `  Y )
1971, 196lmodvacl 18105 . . . . . . 7  |-  ( ( Y  e.  LMod  /\  (
k ( .s `  Y ) g )  e.  V  /\  h  e.  V )  ->  (
( k ( .s
`  Y ) g ) ( +g  `  Y
) h )  e.  V )
198187, 195, 96, 197syl3anc 1268 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( k ( .s `  Y ) g ) ( +g  `  Y ) h )  e.  V )
19914, 17, 1frlmbasmap 19322 . . . . . 6  |-  ( ( I  e.  W  /\  ( ( k ( .s `  Y ) g ) ( +g  `  Y ) h )  e.  V )  -> 
( ( k ( .s `  Y ) g ) ( +g  `  Y ) h )  e.  ( B  ^m  I ) )
20077, 198, 199syl2anc 667 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( k ( .s `  Y ) g ) ( +g  `  Y ) h )  e.  ( B  ^m  I ) )
201 ovex 6318 . . . . . 6  |-  ( R 
gsumg  ( x  e.  I  |->  ( ( ( ( k ( .s `  Y ) g ) ( +g  `  Y
) h ) `  x )  .x.  (
i `  x )
) ) )  e. 
_V
202201a1i 11 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( R  gsumg  ( x  e.  I  |->  ( ( ( ( k ( .s `  Y ) g ) ( +g  `  Y
) h ) `  x )  .x.  (
i `  x )
) ) )  e. 
_V )
203179, 186, 200, 88, 202ovmpt2d 6424 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h )  .,  i
)  =  ( R 
gsumg  ( x  e.  I  |->  ( ( ( ( k ( .s `  Y ) g ) ( +g  `  Y
) h ) `  x )  .x.  (
i `  x )
) ) ) )
20414, 1, 78, 77, 195, 96, 75, 196frlmplusgval 19326 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( k ( .s `  Y ) g ) ( +g  `  Y ) h )  =  ( ( k ( .s `  Y
) g )  oF ( +g  `  R
) h ) )
20514, 17, 1frlmbasmap 19322 . . . . . . . . . . . . 13  |-  ( ( I  e.  W  /\  ( k ( .s
`  Y ) g )  e.  V )  ->  ( k ( .s `  Y ) g )  e.  ( B  ^m  I ) )
20677, 195, 205syl2anc 667 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( k ( .s
`  Y ) g )  e.  ( B  ^m  I ) )
207 elmapi 7493 . . . . . . . . . . . 12  |-  ( ( k ( .s `  Y ) g )  e.  ( B  ^m  I )  ->  (
k ( .s `  Y ) g ) : I --> B )
208 ffn 5728 . . . . . . . . . . . 12  |-  ( ( k ( .s `  Y ) g ) : I --> B  -> 
( k ( .s
`  Y ) g )  Fn  I )
209206, 207, 2083syl 18 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( k ( .s
`  Y ) g )  Fn  I )
21098, 53syl 17 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  h  Fn  I )
21177adantr 467 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  I  e.  W )
21282adantr 467 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  g  e.  V )
21314, 1, 17, 211, 81, 212, 122, 192, 20frlmvscaval 19329 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( k ( .s
`  Y ) g ) `  x )  =  ( k  .x.  ( g `  x
) ) )
214 eqidd 2452 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
h `  x )  =  ( h `  x ) )
215209, 210, 77, 77, 55, 213, 214offval 6538 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( k ( .s `  Y ) g )  oF ( +g  `  R
) h )  =  ( x  e.  I  |->  ( ( k  .x.  ( g `  x
) ) ( +g  `  R ) ( h `
 x ) ) ) )
216204, 215eqtrd 2485 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( k ( .s `  Y ) g ) ( +g  `  Y ) h )  =  ( x  e.  I  |->  ( ( k 
.x.  ( g `  x ) ) ( +g  `  R ) ( h `  x
) ) ) )
217 ovex 6318 . . . . . . . . . 10  |-  ( ( k  .x.  ( g `
 x ) ) ( +g  `  R
) ( h `  x ) )  e. 
_V
218217a1i 11 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( k  .x.  (
g `  x )
) ( +g  `  R
) ( h `  x ) )  e. 
_V )
219216, 218fvmpt2d 5959 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( ( k ( .s `  Y ) g ) ( +g  `  Y ) h ) `
 x )  =  ( ( k  .x.  ( g `  x
) ) ( +g  `  R ) ( h `
 x ) ) )
220219oveq1d 6305 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h ) `  x
)  .x.  ( i `  x ) )  =  ( ( ( k 
.x.  ( g `  x ) ) ( +g  `  R ) ( h `  x
) )  .x.  (
i `  x )
) )
22117, 75, 20ringdir 17800 . . . . . . . 8  |-  ( ( R  e.  Ring  /\  (
( k  .x.  (
g `  x )
)  e.  B  /\  ( h `  x
)  e.  B  /\  ( i `  x
)  e.  B ) )  ->  ( (
( k  .x.  (
g `  x )
) ( +g  `  R
) ( h `  x ) )  .x.  ( i `  x
) )  =  ( ( ( k  .x.  ( g `  x
) )  .x.  (
i `  x )
) ( +g  `  R
) ( ( h `
 x )  .x.  ( i `  x
) ) ) )
22279, 109, 99, 91, 221syl13anc 1270 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( ( k  .x.  ( g `  x
) ) ( +g  `  R ) ( h `
 x ) ) 
.x.  ( i `  x ) )  =  ( ( ( k 
.x.  ( g `  x ) )  .x.  ( i `  x
) ) ( +g  `  R ) ( ( h `  x ) 
.x.  ( i `  x ) ) ) )
223129oveq1d 6305 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( ( k  .x.  ( g `  x
) )  .x.  (
i `  x )
) ( +g  `  R
) ( ( h `
 x )  .x.  ( i `  x
) ) )  =  ( ( k  .x.  ( ( g `  x )  .x.  (
i `  x )
) ) ( +g  `  R ) ( ( h `  x ) 
.x.  ( i `  x ) ) ) )
224220, 222, 2233eqtrd 2489 . . . . . 6  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
( ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h ) `  x
)  .x.  ( i `  x ) )  =  ( ( k  .x.  ( ( g `  x )  .x.  (
i `  x )
) ) ( +g  `  R ) ( ( h `  x ) 
.x.  ( i `  x ) ) ) )
225224mpteq2dva 4489 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( x  e.  I  |->  ( ( ( ( k ( .s `  Y ) g ) ( +g  `  Y
) h ) `  x )  .x.  (
i `  x )
) )  =  ( x  e.  I  |->  ( ( k  .x.  (
( g `  x
)  .x.  ( i `  x ) ) ) ( +g  `  R
) ( ( h `
 x )  .x.  ( i `  x
) ) ) ) )
226225oveq2d 6306 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( R  gsumg  ( x  e.  I  |->  ( ( ( ( k ( .s `  Y ) g ) ( +g  `  Y
) h ) `  x )  .x.  (
i `  x )
) ) )  =  ( R  gsumg  ( x  e.  I  |->  ( ( k  .x.  ( ( g `  x )  .x.  (
i `  x )
) ) ( +g  `  R ) ( ( h `  x ) 
.x.  ( i `  x ) ) ) ) ) )
227203, 226eqtrd 2485 . . 3  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h )  .,  i
)  =  ( R 
gsumg  ( x  e.  I  |->  ( ( k  .x.  ( ( g `  x )  .x.  (
i `  x )
) ) ( +g  `  R ) ( ( h `  x ) 
.x.  ( i `  x ) ) ) ) ) )
228 simprl 764 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  e  =  g )
229228fveq1d 5867 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  ( e `  x )  =  ( g `  x ) )
230 simprr 766 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  f  =  i )
231230fveq1d 5867 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  ( f `  x )  =  ( i `  x ) )
232229, 231oveq12d 6308 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  ( ( e `
 x )  .x.  ( f `  x
) )  =  ( ( g `  x
)  .x.  ( i `  x ) ) )
233232mpteq2dv 4490 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  ( x  e.  I  |->  ( ( e `
 x )  .x.  ( f `  x
) ) )  =  ( x  e.  I  |->  ( ( g `  x )  .x.  (
i `  x )
) ) )
234233oveq2d 6306 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  ( R  gsumg  ( x  e.  I  |->  ( ( e `  x ) 
.x.  ( f `  x ) ) ) )  =  ( R 
gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
i `  x )
) ) ) )
235 ovex 6318 . . . . . . . 8  |-  ( R 
gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
i `  x )
) ) )  e. 
_V
236235a1i 11 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
i `  x )
) ) )  e. 
_V )
237179, 234, 83, 88, 236ovmpt2d 6424 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( g  .,  i
)  =  ( R 
gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
i `  x )
) ) ) )
238237oveq2d 6306 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( k  .x.  (
g  .,  i )
)  =  ( k 
.x.  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( i `  x ) ) ) ) ) )
23914, 17, 20, 1, 5, 7, 24, 22, 9, 71, 35, 13frlmphllem 19338 . . . . . . 7  |-  ( (
ph  /\  g  e.  V  /\  i  e.  V
)  ->  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( i `  x ) ) ) finSupp  .0.  )
240154, 82, 86, 239syl3anc 1268 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( x  e.  I  |->  ( ( g `  x )  .x.  (
i `  x )
) ) finSupp  .0.  )
24117, 24, 75, 20, 78, 77, 80, 93, 240gsummulc2 17835 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( R  gsumg  ( x  e.  I  |->  ( k  .x.  (
( g `  x
)  .x.  ( i `  x ) ) ) ) )  =  ( k  .x.  ( R 
gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
i `  x )
) ) ) ) )
242238, 241eqtr4d 2488 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( k  .x.  (
g  .,  i )
)  =  ( R 
gsumg  ( x  e.  I  |->  ( k  .x.  (
( g `  x
)  .x.  ( i `  x ) ) ) ) ) )
243 simprl 764 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  e  =  h )
244243fveq1d 5867 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  ( e `  x )  =  ( h `  x ) )
245 simprr 766 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  f  =  i )
246245fveq1d 5867 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  ( f `  x )  =  ( i `  x ) )
247244, 246oveq12d 6308 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  ( ( e `
 x )  .x.  ( f `  x
) )  =  ( ( h `  x
)  .x.  ( i `  x ) ) )
248247mpteq2dv 4490 . . . . . 6  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  ( x  e.  I  |->  ( ( e `
 x )  .x.  ( f `  x
) ) )  =  ( x  e.  I  |->  ( ( h `  x )  .x.  (
i `  x )
) ) )
249248oveq2d 6306 . . . . 5  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  ( R  gsumg  ( x  e.  I  |->  ( ( e `  x ) 
.x.  ( f `  x ) ) ) )  =  ( R 
gsumg  ( x  e.  I  |->  ( ( h `  x )  .x.  (
i `  x )
) ) ) )
250 ovex 6318 . . . . . 6  |-  ( R 
gsumg  ( x  e.  I  |->  ( ( h `  x )  .x.  (
i `  x )
) ) )  e. 
_V
251250a1i 11 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( R  gsumg  ( x  e.  I  |->  ( ( h `  x )  .x.  (
i `  x )
) ) )  e. 
_V )
252179, 249, 97, 88, 251ovmpt2d 6424 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( h  .,  i
)  =  ( R 
gsumg  ( x  e.  I  |->  ( ( h `  x )  .x.  (
i `  x )
) ) ) )
253242, 252oveq12d 6308 . . 3  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( k  .x.  ( g  .,  i
) ) ( +g  `  R ) ( h 
.,  i ) )  =  ( ( R 
gsumg  ( x  e.  I  |->  ( k  .x.  (
( g `  x
)  .x.  ( i `  x ) ) ) ) ) ( +g  `  R ) ( R 
gsumg  ( x  e.  I  |->  ( ( h `  x )  .x.  (
i `  x )
) ) ) ) )
254165, 227, 2533eqtr4d 2495 . 2  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( ( ( k ( .s `  Y
) g ) ( +g  `  Y ) h )  .,  i
)  =  ( ( k  .x.  ( g 
.,  i ) ) ( +g  `  R
) ( h  .,  i ) ) )
255343ad2ant1 1029 . . . . . . 7  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  R  e.  CRing
)
256255adantr 467 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  R  e.  CRing )
25717, 20crngcom 17795 . . . . . 6  |-  ( ( R  e.  CRing  /\  (
h `  x )  e.  B  /\  (
g `  x )  e.  B )  ->  (
( h `  x
)  .x.  ( g `  x ) )  =  ( ( g `  x )  .x.  (
h `  x )
) )
258256, 66, 65, 257syl3anc 1268 . . . . 5  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
( h `  x
)  .x.  ( g `  x ) )  =  ( ( g `  x )  .x.  (
h `  x )
) )
259258mpteq2dva 4489 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( x  e.  I  |->  ( ( h `  x ) 
.x.  ( g `  x ) ) )  =  ( x  e.  I  |->  ( ( g `
 x )  .x.  ( h `  x
) ) ) )
260259oveq2d 6306 . . 3  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( R  gsumg  ( x  e.  I  |->  ( ( h `  x
)  .x.  ( g `  x ) ) ) )  =  ( R 
gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
h `  x )
) ) ) )
2611783ad2ant1 1029 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  .,  =  ( e  e.  ( B  ^m  I ) ,  f  e.  ( B  ^m  I )  |->  ( R  gsumg  ( x  e.  I  |->  ( ( e `  x )  .x.  (
f `  x )
) ) ) ) )
262 simprl 764 . . . . . . . 8  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  e  =  h )
263262fveq1d 5867 . . . . . . 7  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  ( e `  x )  =  ( h `  x ) )
264 simprr 766 . . . . . . . 8  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  f  =  g )
265264fveq1d 5867 . . . . . . 7  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  ( f `  x )  =  ( g `  x ) )
266263, 265oveq12d 6308 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  ( (
e `  x )  .x.  ( f `  x
) )  =  ( ( h `  x
)  .x.  ( g `  x ) ) )
267266mpteq2dv 4490 . . . . 5  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  ( x  e.  I  |->  ( ( e `  x ) 
.x.  ( f `  x ) ) )  =  ( x  e.  I  |->  ( ( h `
 x )  .x.  ( g `  x
) ) ) )
268267oveq2d 6306 . . . 4  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  ( R  gsumg  ( x  e.  I  |->  ( ( e `  x
)  .x.  ( f `  x ) ) ) )  =  ( R 
gsumg  ( x  e.  I  |->  ( ( h `  x )  .x.  (
g `  x )
) ) ) )
269 ovex 6318 . . . . 5  |-  ( R 
gsumg  ( x  e.  I  |->  ( ( h `  x )  .x.  (
g `  x )
) ) )  e. 
_V
270269a1i 11 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( R  gsumg  ( x  e.  I  |->  ( ( h `  x
)  .x.  ( g `  x ) ) ) )  e.  _V )
271261, 268, 50, 44, 270ovmpt2d 6424 . . 3  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( h  .,  g )  =  ( R  gsumg  ( x  e.  I  |->  ( ( h `  x )  .x.  (
g `  x )
) ) ) )
27235ralrimiva 2802 . . . . . 6  |-  ( ph  ->  A. x  e.  B  (  .*  `  x )  =  x )
2732723ad2ant1 1029 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  A. x  e.  B  (  .*  `  x )  =  x )
274 fveq2 5865 . . . . . . 7  |-  ( x  =  ( g  .,  h )  ->  (  .*  `  x )  =  (  .*  `  (
g  .,  h )
) )
275 id 22 . . . . . . 7  |-  ( x  =  ( g  .,  h )  ->  x  =  ( g  .,  h ) )
276274, 275eqeq12d 2466 . . . . . 6  |-  ( x  =  ( g  .,  h )  ->  (
(  .*  `  x
)  =  x  <->  (  .*  `  ( g  .,  h
) )  =  ( g  .,  h ) ) )
277276rspcv 3146 . . . . 5  |-  ( ( g  .,  h )  e.  B  ->  ( A. x  e.  B  (  .*  `  x )  =  x  ->  (  .*  `  ( g  .,  h ) )  =  ( g  .,  h
) ) )
27874, 273, 277sylc 62 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  (  .*  `  ( g  .,  h
) )  =  ( g  .,  h ) )
279278, 60eqtrd 2485 . . 3  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  (  .*  `  ( g  .,  h
) )  =  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
h `  x )
) ) ) )
280260, 271, 2793eqtr4rd 2496 . 2  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  (  .*  `  ( g  .,  h
) )  =  ( h  .,  g ) )
2812, 3, 4, 6, 8, 16, 18, 19, 21, 23, 25, 33, 36, 74, 254, 71, 280isphld 19221 1  |-  ( ph  ->  Y  e.  PreHil )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 371    /\ w3a 985    = wceq 1444    e. wcel 1887   A.wral 2737   _Vcvv 3045    C_ wss 3404   class class class wbr 4402    |-> cmpt 4461   Fun wfun 5576    Fn wfn 5577   -->wf 5578   ` cfv 5582  (class class class)co 6290    |-> cmpt2 6292    oFcof 6529   supp csupp 6914    ^m cmap 7472   finSupp cfsupp 7883   Basecbs 15121   +g cplusg 15190   .rcmulr 15191   *rcstv 15192  Scalarcsca 15193   .scvsca 15194   .icip 15195   0gc0g 15338    gsumg cgsu 15339  CMndccmn 17430   Ringcrg 17780   CRingccrg 17781   DivRingcdr 17975  Fieldcfield 17976   LModclmod 18091   LVecclvec 18325   PreHilcphl 19191   freeLMod cfrlm 19309
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1669  ax-4 1682  ax-5 1758  ax-6 1805  ax-7 1851  ax-8 1889  ax-9 1896  ax-10 1915  ax-11 1920  ax-12 1933  ax-13 2091  ax-ext 2431  ax-rep 4515  ax-sep 4525  ax-nul 4534  ax-pow 4581  ax-pr 4639  ax-un 6583  ax-cnex 9595  ax-resscn 9596  ax-1cn 9597  ax-icn 9598  ax-addcl 9599  ax-addrcl 9600  ax-mulcl 9601  ax-mulrcl 9602  ax-mulcom 9603  ax-addass 9604  ax-mulass 9605  ax-distr 9606  ax-i2m1 9607  ax-1ne0 9608  ax-1rid 9609  ax-rnegex 9610  ax-rrecex 9611  ax-cnre 9612  ax-pre-lttri 9613  ax-pre-lttrn 9614  ax-pre-ltadd 9615  ax-pre-mulgt0 9616
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 986  df-3an 987  df-tru 1447  df-ex 1664  df-nf 1668  df-sb 1798  df-eu 2303  df-mo 2304  df-clab 2438  df-cleq 2444  df-clel 2447  df-nfc 2581  df-ne 2624  df-nel 2625  df-ral 2742  df-rex 2743  df-reu 2744  df-rmo 2745  df-rab 2746  df-v 3047  df-sbc 3268  df-csb 3364  df-dif 3407  df-un 3409  df-in 3411  df-ss 3418  df-pss 3420  df-nul 3732  df-if 3882  df-pw 3953  df-sn 3969  df-pr 3971  df-tp 3973  df-op 3975  df-uni 4199  df-int 4235  df-iun 4280  df-br 4403  df-opab 4462  df-mpt 4463  df-tr 4498  df-eprel 4745  df-id 4749  df-po 4755  df-so 4756  df-fr 4793  df-se 4794  df-we 4795  df-xp 4840  df-rel 4841  df-cnv 4842  df-co 4843  df-dm 4844  df-rn 4845  df-res 4846  df-ima 4847  df-pred 5380  df-ord 5426  df-on 5427  df-lim 5428  df-suc 5429  df-iota 5546  df-fun 5584  df-fn 5585  df-f 5586  df-f1 5587  df-fo 5588  df-f1o 5589  df-fv 5590  df-isom 5591  df-riota 6252  df-ov 6293  df-oprab 6294  df-mpt2 6295  df-of 6531  df-om 6693  df-1st 6793  df-2nd 6794  df-supp 6915  df-tpos 6973  df-wrecs 7028  df-recs 7090  df-rdg 7128  df-1o 7182  df-oadd 7186  df-er 7363  df-map 7474  df-ixp 7523  df-en 7570  df-dom 7571  df-sdom 7572  df-fin 7573  df-fsupp 7884  df-sup 7956  df-oi 8025  df-card 8373  df-pnf 9677  df-mnf 9678  df-xr 9679  df-ltxr 9680  df-le 9681  df-sub 9862  df-neg 9863  df-nn 10610  df-2 10668  df-3 10669  df-4 10670  df-5 10671  df-6 10672  df-7 10673  df-8 10674  df-9 10675  df-10 10676  df-n0 10870  df-z 10938  df-dec 11052  df-uz 11160  df-fz 11785  df-fzo 11916  df-seq 12214  df-hash 12516  df-struct 15123  df-ndx 15124  df-slot 15125  df-base 15126  df-sets 15127  df-ress 15128  df-plusg 15203  df-mulr 15204  df-sca 15206  df-vsca 15207  df-ip 15208  df-tset 15209  df-ple 15210  df-ds 15212  df-hom 15214  df-cco 15215  df-0g 15340  df-gsum 15341  df-prds 15346  df-pws 15348  df-mgm 16488  df-sgrp 16527  df-mnd 16537  df-mhm 16582  df-submnd 16583  df-grp 16673  df-minusg 16674  df-sbg 16675  df-subg 16814  df-ghm 16881  df-cntz 16971  df-cmn 17432  df-abl 17433  df-mgp 17724  df-ur 17736  df-ring 17782  df-cring 17783  df-oppr 17851  df-rnghom 17943  df-drng 17977  df-field 17978  df-subrg 18006  df-staf 18073  df-srng 18074  df-lmod 18093  df-lss 18156  df-lmhm 18245  df-lvec 18326  df-sra 18395  df-rgmod 18396  df-phl 19193  df-dsmm 19295  df-frlm 19310
This theorem is referenced by:  rrxcph  22351
  Copyright terms: Public domain W3C validator