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

Theorem frlmphl 19323
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 2423 . 2  |-  ( ph  ->  ( +g  `  Y
)  =  ( +g  `  Y ) )
4 eqidd 2423 . 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 17969 . . . . 5  |-  ( R  e. Field 
<->  ( R  e.  DivRing  /\  R  e.  CRing ) )
119, 10sylib 199 . . . 4  |-  ( ph  ->  ( R  e.  DivRing  /\  R  e.  CRing ) )
1211simpld 460 . . 3  |-  ( ph  ->  R  e.  DivRing )
13 frlmphl.i . . 3  |-  ( ph  ->  I  e.  W )
14 frlmphl.y . . . 4  |-  Y  =  ( R freeLMod  I )
1514frlmsca 19300 . . 3  |-  ( ( R  e.  DivRing  /\  I  e.  W )  ->  R  =  (Scalar `  Y )
)
1612, 13, 15syl2anc 665 . 2  |-  ( ph  ->  R  =  (Scalar `  Y ) )
17 frlmphl.b . . 3  |-  B  =  ( Base `  R
)
1817a1i 11 . 2  |-  ( ph  ->  B  =  ( Base `  R ) )
19 eqidd 2423 . 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 17967 . . . . 5  |-  ( R  e.  DivRing  ->  R  e.  Ring )
2712, 26syl 17 . . . 4  |-  ( ph  ->  R  e.  Ring )
2814frlmlmod 19296 . . . 4  |-  ( ( R  e.  Ring  /\  I  e.  W )  ->  Y  e.  LMod )
2927, 13, 28syl2anc 665 . . 3  |-  ( ph  ->  Y  e.  LMod )
3016, 12eqeltrrd 2511 . . 3  |-  ( ph  ->  (Scalar `  Y )  e.  DivRing )
31 eqid 2422 . . . 4  |-  (Scalar `  Y )  =  (Scalar `  Y )
3231islvec 18312 . . 3  |-  ( Y  e.  LVec  <->  ( Y  e. 
LMod  /\  (Scalar `  Y
)  e.  DivRing ) )
3329, 30, 32sylanbrc 668 . 2  |-  ( ph  ->  Y  e.  LVec )
3411simprd 464 . . 3  |-  ( ph  ->  R  e.  CRing )
35 frlmphl.u . . 3  |-  ( (
ph  /\  x  e.  B )  ->  (  .*  `  x )  =  x )
3617, 22, 34, 35idsrngd 18075 . 2  |-  ( ph  ->  R  e.  *Ring )
37133ad2ant1 1026 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  I  e.  W )
38273ad2ant1 1026 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  R  e.  Ring )
39 simp2 1006 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  g  e.  V )
40 simp3 1007 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  h  e.  V )
4114, 17, 20, 1, 5frlmipval 19321 . . . . 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 1265 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( g  .,  h )  =  ( R  gsumg  ( g  oF  .x.  h ) ) )
4314, 17, 1frlmbasmap 19306 . . . . . . . . 9  |-  ( ( I  e.  W  /\  g  e.  V )  ->  g  e.  ( B  ^m  I ) )
4437, 39, 43syl2anc 665 . . . . . . . 8  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  g  e.  ( B  ^m  I ) )
45 elmapi 7497 . . . . . . . 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 5742 . . . . . . 7  |-  ( g : I --> B  -> 
g  Fn  I )
4846, 47syl 17 . . . . . 6  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  g  Fn  I )
4914, 17, 1frlmbasmap 19306 . . . . . . . . 9  |-  ( ( I  e.  W  /\  h  e.  V )  ->  h  e.  ( B  ^m  I ) )
5037, 40, 49syl2anc 665 . . . . . . . 8  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  h  e.  ( B  ^m  I ) )
51 elmapi 7497 . . . . . . . 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 5742 . . . . . . 7  |-  ( h : I --> B  ->  h  Fn  I )
5452, 53syl 17 . . . . . 6  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  h  Fn  I )
55 inidm 3671 . . . . . 6  |-  ( I  i^i  I )  =  I
56 eqidd 2423 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
g `  x )  =  ( g `  x ) )
57 eqidd 2423 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
h `  x )  =  ( h `  x ) )
5848, 54, 37, 37, 55, 56, 57offval 6548 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( g  oF  .x.  h )  =  ( x  e.  I  |->  ( ( g `
 x )  .x.  ( h `  x
) ) ) )
5958oveq2d 6317 . . . 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 2463 . . 3  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( g  .,  h )  =  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
h `  x )
) ) ) )
61 ringcmn 17796 . . . . . 6  |-  ( R  e.  Ring  ->  R  e. CMnd
)
6227, 61syl 17 . . . . 5  |-  ( ph  ->  R  e. CMnd )
63623ad2ant1 1026 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  R  e. CMnd )
6438adantr 466 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  R  e.  Ring )
6546ffvelrnda 6033 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
g `  x )  e.  B )
6652ffvelrnda 6033 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
h `  x )  e.  B )
6717, 20ringcl 17779 . . . . . 6  |-  ( ( R  e.  Ring  /\  (
g `  x )  e.  B  /\  (
h `  x )  e.  B )  ->  (
( g `  x
)  .x.  ( h `  x ) )  e.  B )
6864, 65, 66, 67syl3anc 1264 . . . . 5  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
( g `  x
)  .x.  ( h `  x ) )  e.  B )
69 eqid 2422 . . . . 5  |-  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( h `  x ) ) )  =  ( x  e.  I  |->  ( ( g `
 x )  .x.  ( h `  x
) ) )
7068, 69fmptd 6057 . . . 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 19322 . . . 4  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( h `  x ) ) ) finSupp  .0.  )
7317, 24, 63, 37, 70, 72gsumcl 17534 . . 3  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x
)  .x.  ( h `  x ) ) ) )  e.  B )
7460, 73eqeltrd 2510 . 2  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( g  .,  h )  e.  B
)
75 eqid 2422 . . . 4  |-  ( +g  `  R )  =  ( +g  `  R )
76623ad2ant1 1026 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  R  e. CMnd )
77133ad2ant1 1026 . . . 4  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  I  e.  W )
78273ad2ant1 1026 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  R  e.  Ring )
7978adantr 466 . . . . 5  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  R  e.  Ring )
80 simp2 1006 . . . . . 6  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
k  e.  B )
8180adantr 466 . . . . 5  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  k  e.  B )
82 simp31 1041 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
g  e.  V )
8377, 82, 43syl2anc 665 . . . . . . . 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 6033 . . . . . 6  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
g `  x )  e.  B )
86 simp33 1043 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
i  e.  V )
8714, 17, 1frlmbasmap 19306 . . . . . . . . 9  |-  ( ( I  e.  W  /\  i  e.  V )  ->  i  e.  ( B  ^m  I ) )
8877, 86, 87syl2anc 665 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
i  e.  ( B  ^m  I ) )
89 elmapi 7497 . . . . . . . 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 6033 . . . . . 6  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
i `  x )  e.  B )
9217, 20ringcl 17779 . . . . . 6  |-  ( ( R  e.  Ring  /\  (
g `  x )  e.  B  /\  (
i `  x )  e.  B )  ->  (
( g `  x
)  .x.  ( i `  x ) )  e.  B )
9379, 85, 91, 92syl3anc 1264 . . . . 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 17779 . . . . 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 1264 . . . 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 1042 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  h  e.  V )
9777, 96, 49syl2anc 665 . . . . . . 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 6033 . . . . 5  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  (
h `  x )  e.  B )
10017, 20ringcl 17779 . . . . 5  |-  ( ( R  e.  Ring  /\  (
h `  x )  e.  B  /\  (
i `  x )  e.  B )  ->  (
( h `  x
)  .x.  ( i `  x ) )  e.  B )
10179, 99, 91, 100syl3anc 1264 . . . 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 2423 . . . 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 2423 . . . 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 5877 . . . . . . . . 9  |-  ( x  =  y  ->  (
g `  x )  =  ( g `  y ) )
105104oveq2d 6317 . . . . . . . 8  |-  ( x  =  y  ->  (
k  .x.  ( g `  x ) )  =  ( k  .x.  (
g `  y )
) )
106105cbvmptv 4513 . . . . . . 7  |-  ( x  e.  I  |->  ( k 
.x.  ( g `  x ) ) )  =  ( y  e.  I  |->  ( k  .x.  ( g `  y
) ) )
107106oveq1i 6311 . . . . . 6  |-  ( ( x  e.  I  |->  ( k  .x.  ( g `
 x ) ) )  oF  .x.  i )  =  ( ( y  e.  I  |->  ( k  .x.  (
g `  y )
) )  oF  .x.  i )
10817, 20ringcl 17779 . . . . . . . . . . . 12  |-  ( ( R  e.  Ring  /\  k  e.  B  /\  (
g `  x )  e.  B )  ->  (
k  .x.  ( g `  x ) )  e.  B )
10979, 81, 85, 108syl3anc 1264 . . . . . . . . . . 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 2422 . . . . . . . . . . 11  |-  ( x  e.  I  |->  ( k 
.x.  ( g `  x ) ) )  =  ( x  e.  I  |->  ( k  .x.  ( g `  x
) ) )
111109, 110fmptd 6057 . . . . . . . . . 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 5742 . . . . . . . . . 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 5684 . . . . . . . . 9  |-  ( ( x  e.  I  |->  ( k  .x.  ( g `
 x ) ) )  Fn  I  <->  ( y  e.  I  |->  ( k 
.x.  ( g `  y ) ) )  Fn  I )
115113, 114sylib 199 . . . . . . . 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 5742 . . . . . . . . 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 2423 . . . . . . . . 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 462 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V
) )  /\  x  e.  I )  /\  y  =  x )  ->  y  =  x )
120119fveq2d 5881 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V
) )  /\  x  e.  I )  /\  y  =  x )  ->  (
g `  y )  =  ( g `  x ) )
121120oveq2d 6317 . . . . . . . . 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 462 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  x  e.  I )
123 ovex 6329 . . . . . . . . . 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 5966 . . . . . . . 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 2423 . . . . . . . 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 6548 . . . . . . 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 17782 . . . . . . . . 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 1266 . . . . . . . 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 4507 . . . . . . 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 2463 . . . . . 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 2475 . . . . 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 6329 . . . . . . 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 5633 . . . . . . 7  |-  Fun  (
z  e.  I  |->  ( ( ( x  e.  I  |->  ( k  .x.  ( g `  x
) ) ) `  z )  .x.  (
i `  z )
) )
136 eqidd 2423 . . . . . . . . 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 2423 . . . . . . . . 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 6548 . . . . . . . 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 5618 . . . . . . 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 236 . . . . . 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 1007 . . . . . . . . 9  |-  ( ( g  e.  V  /\  h  e.  V  /\  i  e.  V )  ->  i  e.  V )
14213, 141anim12i 568 . . . . . . . 8  |-  ( (
ph  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( I  e.  W  /\  i  e.  V
) )
1431423adant2 1024 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( I  e.  W  /\  i  e.  V
) )
14414, 24, 1frlmbasfsupp 19305 . . . . . . 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 17787 . . . . . . . 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 17803 . . . . . . . 8  |-  ( ( R  e.  Ring  /\  y  e.  B )  ->  (
y  .x.  .0.  )  =  .0.  )
14978, 148sylan 473 . . . . . . 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 6960 . . . . . 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 7901 . . . . . 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 1265 . . . . 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 4443 . . . 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 1005 . . . . 5  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  ph )
155 eleq1 2494 . . . . . . . . 9  |-  ( g  =  h  ->  (
g  e.  V  <->  h  e.  V ) )
156 id 23 . . . . . . . . . . 11  |-  ( g  =  h  ->  g  =  h )
157156, 156oveq12d 6319 . . . . . . . . . 10  |-  ( g  =  h  ->  (
g  .,  g )  =  ( h  .,  h ) )
158157eqeq1d 2424 . . . . . . . . 9  |-  ( g  =  h  ->  (
( g  .,  g
)  =  .0.  <->  ( h  .,  h )  =  .0.  ) )
159155, 1583anbi23d 1338 . . . . . . . 8  |-  ( g  =  h  ->  (
( ph  /\  g  e.  V  /\  (
g  .,  g )  =  .0.  )  <->  ( ph  /\  h  e.  V  /\  ( h  .,  h )  =  .0.  ) ) )
160 eqeq1 2426 . . . . . . . 8  |-  ( g  =  h  ->  (
g  =  O  <->  h  =  O ) )
161159, 160imbi12d 321 . . . . . . 7  |-  ( g  =  h  ->  (
( ( ph  /\  g  e.  V  /\  ( g  .,  g
)  =  .0.  )  ->  g  =  O )  <-> 
( ( ph  /\  h  e.  V  /\  ( h  .,  h )  =  .0.  )  ->  h  =  O )
) )
162161, 71chvarv 2068 . . . . . 6  |-  ( (
ph  /\  h  e.  V  /\  ( h  .,  h )  =  .0.  )  ->  h  =  O )
16314, 17, 20, 1, 5, 7, 24, 22, 9, 162, 35, 13frlmphllem 19322 . . . . 5  |-  ( (
ph  /\  h  e.  V  /\  i  e.  V
)  ->  ( x  e.  I  |->  ( ( h `  x ) 
.x.  ( i `  x ) ) ) finSupp  .0.  )
164154, 96, 86, 163syl3anc 1264 . . . 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 17542 . . 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 19320 . . . . . . . . 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 665 . . . . . . . 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 2482 . . . . . . 7  |-  ( ph  ->  .,  =  ( g  e.  ( B  ^m  I ) ,  h  e.  ( B  ^m  I
)  |->  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( h `  x ) ) ) ) ) )
169 fveq1 5876 . . . . . . . . . . 11  |-  ( e  =  g  ->  (
e `  x )  =  ( g `  x ) )
170169oveq1d 6316 . . . . . . . . . 10  |-  ( e  =  g  ->  (
( e `  x
)  .x.  ( f `  x ) )  =  ( ( g `  x )  .x.  (
f `  x )
) )
171170mpteq2dv 4508 . . . . . . . . 9  |-  ( e  =  g  ->  (
x  e.  I  |->  ( ( e `  x
)  .x.  ( f `  x ) ) )  =  ( x  e.  I  |->  ( ( g `
 x )  .x.  ( f `  x
) ) ) )
172171oveq2d 6317 . . . . . . . 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 5876 . . . . . . . . . . 11  |-  ( f  =  h  ->  (
f `  x )  =  ( h `  x ) )
174173oveq2d 6317 . . . . . . . . . 10  |-  ( f  =  h  ->  (
( g `  x
)  .x.  ( f `  x ) )  =  ( ( g `  x )  .x.  (
h `  x )
) )
175174mpteq2dv 4508 . . . . . . . . 9  |-  ( f  =  h  ->  (
x  e.  I  |->  ( ( g `  x
)  .x.  ( f `  x ) ) )  =  ( x  e.  I  |->  ( ( g `
 x )  .x.  ( h `  x
) ) ) )
176175oveq2d 6317 . . . . . . . 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 6381 . . . . . . 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 2481 . . . . . 6  |-  ( ph  ->  .,  =  ( e  e.  ( B  ^m  I ) ,  f  e.  ( B  ^m  I )  |->  ( R 
gsumg  ( x  e.  I  |->  ( ( e `  x )  .x.  (
f `  x )
) ) ) ) )
1791783ad2ant1 1026 . . . . 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 762 . . . . . . . . 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 5879 . . . . . . . 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 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 ) )  ->  f  =  i )
183182fveq1d 5879 . . . . . . . 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 6319 . . . . . . 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 4508 . . . . . 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 6317 . . . . 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 1026 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  Y  e.  LMod )
188163ad2ant1 1026 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  R  =  (Scalar `  Y
) )
189188fveq2d 5881 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( Base `  R )  =  ( Base `  (Scalar `  Y ) ) )
19017, 189syl5eq 2475 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  ->  B  =  ( Base `  (Scalar `  Y )
) )
19180, 190eleqtrd 2512 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
k  e.  ( Base `  (Scalar `  Y )
) )
192 eqid 2422 . . . . . . . . 9  |-  ( .s
`  Y )  =  ( .s `  Y
)
193 eqid 2422 . . . . . . . . 9  |-  ( Base `  (Scalar `  Y )
)  =  ( Base `  (Scalar `  Y )
)
1941, 31, 192, 193lmodvscl 18093 . . . . . . . 8  |-  ( ( Y  e.  LMod  /\  k  e.  ( Base `  (Scalar `  Y ) )  /\  g  e.  V )  ->  ( k ( .s
`  Y ) g )  e.  V )
195187, 191, 82, 194syl3anc 1264 . . . . . . 7  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( k ( .s
`  Y ) g )  e.  V )
196 eqid 2422 . . . . . . . 8  |-  ( +g  `  Y )  =  ( +g  `  Y )
1971, 196lmodvacl 18090 . . . . . . 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 1264 . . . . . 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 19306 . . . . . 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 665 . . . . 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 6329 . . . . . 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 6434 . . . 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 19310 . . . . . . . . . 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 19306 . . . . . . . . . . . . 13  |-  ( ( I  e.  W  /\  ( k ( .s
`  Y ) g )  e.  V )  ->  ( k ( .s `  Y ) g )  e.  ( B  ^m  I ) )
20677, 195, 205syl2anc 665 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  B  /\  ( g  e.  V  /\  h  e.  V  /\  i  e.  V ) )  -> 
( k ( .s
`  Y ) g )  e.  ( B  ^m  I ) )
207 elmapi 7497 . . . . . . . . . . . 12  |-  ( ( k ( .s `  Y ) g )  e.  ( B  ^m  I )  ->  (
k ( .s `  Y ) g ) : I --> B )
208 ffn 5742 . . . . . . . . . . . 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 466 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  x  e.  I )  ->  I  e.  W )
21282adantr 466 . . . . . . . . . . . 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 19313 . . . . . . . . . . 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 2423 . . . . . . . . . . 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 6548 . . . . . . . . . 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 2463 . . . . . . . . 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 6329 . . . . . . . . . 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 5971 . . . . . . . 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 6316 . . . . . . 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 17785 . . . . . . . 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 1266 . . . . . . 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 6316 . . . . . . 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 2467 . . . . . 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 4507 . . . . 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 6317 . . . 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 2463 . . 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 762 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  e  =  g )
229228fveq1d 5879 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  ( e `  x )  =  ( g `  x ) )
230 simprr 764 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  f  =  i )
231230fveq1d 5879 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  g  /\  f  =  i ) )  ->  ( f `  x )  =  ( i `  x ) )
232229, 231oveq12d 6319 . . . . . . . . 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 4508 . . . . . . . 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 6317 . . . . . . 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 6329 . . . . . . . 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 6434 . . . . . 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 6317 . . . . 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 19322 . . . . . . 7  |-  ( (
ph  /\  g  e.  V  /\  i  e.  V
)  ->  ( x  e.  I  |->  ( ( g `  x ) 
.x.  ( i `  x ) ) ) finSupp  .0.  )
240154, 82, 86, 239syl3anc 1264 . . . . . 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 17820 . . . . 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 2466 . . . 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 762 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  e  =  h )
244243fveq1d 5879 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  ( e `  x )  =  ( h `  x ) )
245 simprr 764 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  f  =  i )
246245fveq1d 5879 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  B  /\  (
g  e.  V  /\  h  e.  V  /\  i  e.  V )
)  /\  ( e  =  h  /\  f  =  i ) )  ->  ( f `  x )  =  ( i `  x ) )
247244, 246oveq12d 6319 . . . . . . 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 4508 . . . . . 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 6317 . . . . 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 6329 . . . . . 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 6434 . . . 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 6319 . . 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 2473 . 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 1026 . . . . . . 7  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  R  e.  CRing
)
256255adantr 466 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  R  e.  CRing )
25717, 20crngcom 17780 . . . . . 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 1264 . . . . 5  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  x  e.  I )  ->  (
( h `  x
)  .x.  ( g `  x ) )  =  ( ( g `  x )  .x.  (
h `  x )
) )
259258mpteq2dva 4507 . . . 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 6317 . . 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 1026 . . . 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 762 . . . . . . . 8  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  e  =  h )
263262fveq1d 5879 . . . . . . 7  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  ( e `  x )  =  ( h `  x ) )
264 simprr 764 . . . . . . . 8  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  f  =  g )
265264fveq1d 5879 . . . . . . 7  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  ( f `  x )  =  ( g `  x ) )
266263, 265oveq12d 6319 . . . . . 6  |-  ( ( ( ph  /\  g  e.  V  /\  h  e.  V )  /\  (
e  =  h  /\  f  =  g )
)  ->  ( (
e `  x )  .x.  ( f `  x
) )  =  ( ( h `  x
)  .x.  ( g `  x ) ) )
267266mpteq2dv 4508 . . . . 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 6317 . . . 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 6329 . . . . 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 6434 . . 3  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  ( h  .,  g )  =  ( R  gsumg  ( x  e.  I  |->  ( ( h `  x )  .x.  (
g `  x )
) ) ) )
27235ralrimiva 2839 . . . . . 6  |-  ( ph  ->  A. x  e.  B  (  .*  `  x )  =  x )
2732723ad2ant1 1026 . . . . 5  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  A. x  e.  B  (  .*  `  x )  =  x )
274 fveq2 5877 . . . . . . 7  |-  ( x  =  ( g  .,  h )  ->  (  .*  `  x )  =  (  .*  `  (
g  .,  h )
) )
275 id 23 . . . . . . 7  |-  ( x  =  ( g  .,  h )  ->  x  =  ( g  .,  h ) )
276274, 275eqeq12d 2444 . . . . . 6  |-  ( x  =  ( g  .,  h )  ->  (
(  .*  `  x
)  =  x  <->  (  .*  `  ( g  .,  h
) )  =  ( g  .,  h ) ) )
277276rspcv 3178 . . . . 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 2463 . . 3  |-  ( (
ph  /\  g  e.  V  /\  h  e.  V
)  ->  (  .*  `  ( g  .,  h
) )  =  ( R  gsumg  ( x  e.  I  |->  ( ( g `  x )  .x.  (
h `  x )
) ) ) )
280260, 271, 2793eqtr4rd 2474 . 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 19205 1  |-  ( ph  ->  Y  e.  PreHil )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 370    /\ w3a 982    = wceq 1437    e. wcel 1868   A.wral 2775   _Vcvv 3081    C_ wss 3436   class class class wbr 4420    |-> cmpt 4479   Fun wfun 5591    Fn wfn 5592   -->wf 5593   ` cfv 5597  (class class class)co 6301    |-> cmpt2 6303    oFcof 6539   supp csupp 6921    ^m cmap 7476   finSupp cfsupp 7885   Basecbs 15106   +g cplusg 15175   .rcmulr 15176   *rcstv 15177  Scalarcsca 15178   .scvsca 15179   .icip 15180   0gc0g 15323    gsumg cgsu 15324  CMndccmn 17415   Ringcrg 17765   CRingccrg 17766   DivRingcdr 17960  Fieldcfield 17961   LModclmod 18076   LVecclvec 18310   PreHilcphl 19175   freeLMod cfrlm 19293
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1665  ax-4 1678  ax-5 1748  ax-6 1794  ax-7 1839  ax-8 1870  ax-9 1872  ax-10 1887  ax-11 1892  ax-12 1905  ax-13 2053  ax-ext 2400  ax-rep 4533  ax-sep 4543  ax-nul 4551  ax-pow 4598  ax-pr 4656  ax-un 6593  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 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1660  df-nf 1664  df-sb 1787  df-eu 2269  df-mo 2270  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2572  df-ne 2620  df-nel 2621  df-ral 2780  df-rex 2781  df-reu 2782  df-rmo 2783  df-rab 2784  df-v 3083  df-sbc 3300  df-csb 3396  df-dif 3439  df-un 3441  df-in 3443  df-ss 3450  df-pss 3452  df-nul 3762  df-if 3910  df-pw 3981  df-sn 3997  df-pr 3999  df-tp 4001  df-op 4003  df-uni 4217  df-int 4253  df-iun 4298  df-br 4421  df-opab 4480  df-mpt 4481  df-tr 4516  df-eprel 4760  df-id 4764  df-po 4770  df-so 4771  df-fr 4808  df-se 4809  df-we 4810  df-xp 4855  df-rel 4856  df-cnv 4857  df-co 4858  df-dm 4859  df-rn 4860  df-res 4861  df-ima 4862  df-pred 5395  df-ord 5441  df-on 5442  df-lim 5443  df-suc 5444  df-iota 5561  df-fun 5599  df-fn 5600  df-f 5601  df-f1 5602  df-fo 5603  df-f1o 5604  df-fv 5605  df-isom 5606  df-riota 6263  df-ov 6304  df-oprab 6305  df-mpt2 6306  df-of 6541  df-om 6703  df-1st 6803  df-2nd 6804  df-supp 6922  df-tpos 6977  df-wrecs 7032  df-recs 7094  df-rdg 7132  df-1o 7186  df-oadd 7190  df-er 7367  df-map 7478  df-ixp 7527  df-en 7574  df-dom 7575  df-sdom 7576  df-fin 7577  df-fsupp 7886  df-sup 7958  df-oi 8027  df-card 8374  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 12213  df-hash 12515  df-struct 15108  df-ndx 15109  df-slot 15110  df-base 15111  df-sets 15112  df-ress 15113  df-plusg 15188  df-mulr 15189  df-sca 15191  df-vsca 15192  df-ip 15193  df-tset 15194  df-ple 15195  df-ds 15197  df-hom 15199  df-cco 15200  df-0g 15325  df-gsum 15326  df-prds 15331  df-pws 15333  df-mgm 16473  df-sgrp 16512  df-mnd 16522  df-mhm 16567  df-submnd 16568  df-grp 16658  df-minusg 16659  df-sbg 16660  df-subg 16799  df-ghm 16866  df-cntz 16956  df-cmn 17417  df-abl 17418  df-mgp 17709  df-ur 17721  df-ring 17767  df-cring 17768  df-oppr 17836  df-rnghom 17928  df-drng 17962  df-field 17963  df-subrg 17991  df-staf 18058  df-srng 18059  df-lmod 18078  df-lss 18141  df-lmhm 18230  df-lvec 18311  df-sra 18380  df-rgmod 18381  df-phl 19177  df-dsmm 19279  df-frlm 19294
This theorem is referenced by:  rrxcph  22335
  Copyright terms: Public domain W3C validator