Theorem frlmphl 18983

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.

Step	Hyp	Ref	Expression
1		frlmphl.v	. . 3 |- V = ( Base ` Y )
2	1	a1i 11	. 2 |- ( ph -> V = ( Base ` Y ) )
3		eqidd 2455	. 2 |- ( ph -> ( +g ` Y ) = ( +g ` Y ) )
4		eqidd 2455	. 2 |- ( ph -> ( .s ` Y ) = ( .s ` Y ) )
5		frlmphl.j	. . 3 |- ., = ( .i ` Y )
6	5	a1i 11	. 2 |- ( ph -> ., = ( .i ` Y ) )
7		frlmphl.o	. . 3 |- O = ( 0g ` Y )
8	7	a1i 11	. 2 |- ( ph -> O = ( 0g ` Y ) )
9		frlmphl.f	. . . . 5 |- ( ph -> R e. Field )
10		isfld 17600	. . . . 5 |- ( R e. Field <-> ( R e. DivRing /\ R e. CRing ) )
11	9, 10	sylib 196	. . . 4 |- ( ph -> ( R e. DivRing /\ R e. CRing ) )
12	11	simpld 457	. . 3 |- ( ph -> R e. DivRing )
13		frlmphl.i	. . 3 |- ( ph -> I e. W )
14		frlmphl.y	. . . 4 |- Y = ( R freeLMod I )
15	14	frlmsca 18957	. . 3 |- ( ( R e. DivRing /\ I e. W ) -> R = (Scalar ` Y ) )
16	12, 13, 15	syl2anc 659	. 2 |- ( ph -> R = (Scalar ` Y ) )
17		frlmphl.b	. . 3 |- B = ( Base ` R )
18	17	a1i 11	. 2 |- ( ph -> B = ( Base ` R ) )
19		eqidd 2455	. 2 |- ( ph -> ( +g ` R ) = ( +g ` R ) )
20		frlmphl.t	. . 3 |- .x. = ( .r ` R )
21	20	a1i 11	. 2 |- ( ph -> .x. = ( .r ` R ) )
22		frlmphl.s	. . 3 |- .* = ( *r ` R )
23	22	a1i 11	. 2 |- ( ph -> .* = ( *r ` R ) )
24		frlmphl.0	. . 3 |- .0. = ( 0g ` R )
25	24	a1i 11	. 2 |- ( ph -> .0. = ( 0g ` R ) )
26		drngring 17598	. . . . 5 |- ( R e. DivRing -> R e. Ring )
27	12, 26	syl 16	. . . 4 |- ( ph -> R e. Ring )
28	14	frlmlmod 18953	. . . 4 |- ( ( R e. Ring /\ I e. W ) -> Y e. LMod )
29	27, 13, 28	syl2anc 659	. . 3 |- ( ph -> Y e. LMod )
30	16, 12	eqeltrrd 2543	. . 3 |- ( ph -> (Scalar ` Y ) e. DivRing )
31		eqid 2454	. . . 4 |- (Scalar ` Y ) = (Scalar ` Y )
32	31	islvec 17945	. . 3 |- ( Y e. LVec <-> ( Y e. LMod /\ (Scalar ` Y ) e. DivRing ) )
33	29, 30, 32	sylanbrc 662	. 2 |- ( ph -> Y e. LVec )
34	11	simprd 461	. . 3 |- ( ph -> R e. CRing )
35		frlmphl.u	. . 3 |- ( ( ph /\ x e. B ) -> ( .* ` x ) = x )
36	17, 22, 34, 35	idsrngd 17706	. 2 |- ( ph -> R e. *Ring )
37	13	3ad2ant1 1015	. . . . 5 |- ( ( ph /\ g e. V /\ h e. V ) -> I e. W )
38	27	3ad2ant1 1015	. . . . 5 |- ( ( ph /\ g e. V /\ h e. V ) -> R e. Ring )
39		simp2 995	. . . . 5 |- ( ( ph /\ g e. V /\ h e. V ) -> g e. V )
40		simp3 996	. . . . 5 |- ( ( ph /\ g e. V /\ h e. V ) -> h e. V )
41	14, 17, 20, 1, 5	frlmipval 18981	. . . . 5 |- ( ( ( I e. W /\ R e. Ring ) /\ ( g e. V /\ h e. V ) ) -> ( g ., h ) = ( R gsumg ( g oF .x. h ) ) )
42	37, 38, 39, 40, 41	syl22anc 1227	. . . 4 |- ( ( ph /\ g e. V /\ h e. V ) -> ( g ., h ) = ( R gsumg ( g oF .x. h ) ) )
43	14, 17, 1	frlmbasmap 18964	. . . . . . . . 9 |- ( ( I e. W /\ g e. V ) -> g e. ( B ^m I ) )
44	37, 39, 43	syl2anc 659	. . . . . . . 8 |- ( ( ph /\ g e. V /\ h e. V ) -> g e. ( B ^m I ) )
45		elmapi 7433	. . . . . . . 8 |- ( g e. ( B ^m I ) -> g : I --> B )
46	44, 45	syl 16	. . . . . . 7 |- ( ( ph /\ g e. V /\ h e. V ) -> g : I --> B )
47		ffn 5713	. . . . . . 7 |- ( g : I --> B -> g Fn I )
48	46, 47	syl 16	. . . . . 6 |- ( ( ph /\ g e. V /\ h e. V ) -> g Fn I )
49	14, 17, 1	frlmbasmap 18964	. . . . . . . . 9 |- ( ( I e. W /\ h e. V ) -> h e. ( B ^m I ) )
50	37, 40, 49	syl2anc 659	. . . . . . . 8 |- ( ( ph /\ g e. V /\ h e. V ) -> h e. ( B ^m I ) )
51		elmapi 7433	. . . . . . . 8 |- ( h e. ( B ^m I ) -> h : I --> B )
52	50, 51	syl 16	. . . . . . 7 |- ( ( ph /\ g e. V /\ h e. V ) -> h : I --> B )
53		ffn 5713	. . . . . . 7 |- ( h : I --> B -> h Fn I )
54	52, 53	syl 16	. . . . . 6 |- ( ( ph /\ g e. V /\ h e. V ) -> h Fn I )
55		inidm 3693	. . . . . 6 |- ( I i^i I ) = I
56		eqidd 2455	. . . . . 6 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ x e. I ) -> ( g ` x ) = ( g ` x ) )
57		eqidd 2455	. . . . . 6 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ x e. I ) -> ( h ` x ) = ( h ` x ) )
58	48, 54, 37, 37, 55, 56, 57	offval 6520	. . . . 5 |- ( ( ph /\ g e. V /\ h e. V ) -> ( g oF .x. h ) = ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) )
59	58	oveq2d 6286	. . . 4 |- ( ( ph /\ g e. V /\ h e. V ) -> ( R gsumg ( g oF .x. h ) ) = ( R gsumg ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) ) )
60	42, 59	eqtrd 2495	. . 3 |- ( ( ph /\ g e. V /\ h e. V ) -> ( g ., h ) = ( R gsumg ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) ) )
61		ringcmn 17424	. . . . . 6 |- ( R e. Ring -> R e. CMnd )
62	27, 61	syl 16	. . . . 5 |- ( ph -> R e. CMnd )
63	62	3ad2ant1 1015	. . . 4 |- ( ( ph /\ g e. V /\ h e. V ) -> R e. CMnd )
64	38	adantr 463	. . . . . 6 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ x e. I ) -> R e. Ring )
65	46	ffvelrnda 6007	. . . . . 6 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ x e. I ) -> ( g ` x ) e. B )
66	52	ffvelrnda 6007	. . . . . 6 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ x e. I ) -> ( h ` x ) e. B )
67	17, 20	ringcl 17407	. . . . . 6 |- ( ( R e. Ring /\ ( g ` x ) e. B /\ ( h ` x ) e. B ) -> ( ( g ` x ) .x. ( h ` x ) ) e. B )
68	64, 65, 66, 67	syl3anc 1226	. . . . 5 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ x e. I ) -> ( ( g ` x ) .x. ( h ` x ) ) e. B )
69		eqid 2454	. . . . 5 |- ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) = ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) )
70	68, 69	fmptd 6031	. . . 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 )
72	14, 17, 20, 1, 5, 7, 24, 22, 9, 71, 35, 13	frlmphllem 18982	. . . 4 |- ( ( ph /\ g e. V /\ h e. V ) -> ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) finSupp .0. )
73	17, 24, 63, 37, 70, 72	gsumcl 17122	. . 3 |- ( ( ph /\ g e. V /\ h e. V ) -> ( R gsumg ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) ) e. B )
74	60, 73	eqeltrd 2542	. 2 |- ( ( ph /\ g e. V /\ h e. V ) -> ( g ., h ) e. B )
75		eqid 2454	. . . 4 |- ( +g ` R ) = ( +g ` R )
76	62	3ad2ant1 1015	. . . 4 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> R e. CMnd )
77	13	3ad2ant1 1015	. . . 4 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> I e. W )
78	27	3ad2ant1 1015	. . . . . 6 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> R e. Ring )
79	78	adantr 463	. . . . 5 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> R e. Ring )
80		simp2 995	. . . . . 6 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> k e. B )
81	80	adantr 463	. . . . 5 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> k e. B )
82		simp31 1030	. . . . . . . . 9 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> g e. V )
83	77, 82, 43	syl2anc 659	. . . . . . . 8 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> g e. ( B ^m I ) )
84	83, 45	syl 16	. . . . . . 7 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> g : I --> B )
85	84	ffvelrnda 6007	. . . . . 6 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> ( g ` x ) e. B )
86		simp33 1032	. . . . . . . . 9 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> i e. V )
87	14, 17, 1	frlmbasmap 18964	. . . . . . . . 9 |- ( ( I e. W /\ i e. V ) -> i e. ( B ^m I ) )
88	77, 86, 87	syl2anc 659	. . . . . . . 8 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> i e. ( B ^m I ) )
89		elmapi 7433	. . . . . . . 8 |- ( i e. ( B ^m I ) -> i : I --> B )
90	88, 89	syl 16	. . . . . . 7 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> i : I --> B )
91	90	ffvelrnda 6007	. . . . . 6 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> ( i ` x ) e. B )
92	17, 20	ringcl 17407	. . . . . 6 |- ( ( R e. Ring /\ ( g ` x ) e. B /\ ( i ` x ) e. B ) -> ( ( g ` x ) .x. ( i ` x ) ) e. B )
93	79, 85, 91, 92	syl3anc 1226	. . . . 5 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> ( ( g ` x ) .x. ( i ` x ) ) e. B )
94	17, 20	ringcl 17407	. . . . 5 |- ( ( R e. Ring /\ k e. B /\ ( ( g ` x ) .x. ( i ` x ) ) e. B ) -> ( k .x. ( ( g ` x ) .x. ( i ` x ) ) ) e. B )
95	79, 81, 93, 94	syl3anc 1226	. . . 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 1031	. . . . . . . 8 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> h e. V )
97	77, 96, 49	syl2anc 659	. . . . . . 7 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> h e. ( B ^m I ) )
98	97, 51	syl 16	. . . . . 6 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> h : I --> B )
99	98	ffvelrnda 6007	. . . . 5 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> ( h ` x ) e. B )
100	17, 20	ringcl 17407	. . . . 5 |- ( ( R e. Ring /\ ( h ` x ) e. B /\ ( i ` x ) e. B ) -> ( ( h ` x ) .x. ( i ` x ) ) e. B )
101	79, 99, 91, 100	syl3anc 1226	. . . 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 2455	. . . 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 2455	. . . 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 5848	. . . . . . . . 9 |- ( x = y -> ( g ` x ) = ( g ` y ) )
105	104	oveq2d 6286	. . . . . . . 8 |- ( x = y -> ( k .x. ( g ` x ) ) = ( k .x. ( g ` y ) ) )
106	105	cbvmptv 4530	. . . . . . 7 |- ( x e. I |-> ( k .x. ( g ` x ) ) ) = ( y e. I |-> ( k .x. ( g ` y ) ) )
107	106	oveq1i 6280	. . . . . 6 |- ( ( x e. I |-> ( k .x. ( g ` x ) ) ) oF .x. i ) = ( ( y e. I |-> ( k .x. ( g ` y ) ) ) oF .x. i )
108	17, 20	ringcl 17407	. . . . . . . . . . . 12 |- ( ( R e. Ring /\ k e. B /\ ( g ` x ) e. B ) -> ( k .x. ( g ` x ) ) e. B )
109	79, 81, 85, 108	syl3anc 1226	. . . . . . . . . . 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 2454	. . . . . . . . . . 11 |- ( x e. I |-> ( k .x. ( g ` x ) ) ) = ( x e. I |-> ( k .x. ( g ` x ) ) )
111	109, 110	fmptd 6031	. . . . . . . . . 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 5713	. . . . . . . . . 10 |- ( ( x e. I |-> ( k .x. ( g ` x ) ) ) : I --> B -> ( x e. I |-> ( k .x. ( g ` x ) ) ) Fn I )
113	111, 112	syl 16	. . . . . . . . 9 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ( x e. I |-> ( k .x. ( g ` x ) ) ) Fn I )
114	106	fneq1i 5657	. . . . . . . . 9 |- ( ( x e. I |-> ( k .x. ( g ` x ) ) ) Fn I <-> ( y e. I |-> ( k .x. ( g ` y ) ) ) Fn I )
115	113, 114	sylib 196	. . . . . . . 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 5713	. . . . . . . . 9 |- ( i : I --> B -> i Fn I )
117	90, 116	syl 16	. . . . . . . 8 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> i Fn I )
118		eqidd 2455	. . . . . . . . 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 459	. . . . . . . . . . 11 |- ( ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) /\ y = x ) -> y = x )
120	119	fveq2d 5852	. . . . . . . . . 10 |- ( ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) /\ y = x ) -> ( g ` y ) = ( g ` x ) )
121	120	oveq2d 6286	. . . . . . . . 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 459	. . . . . . . . 9 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> x e. I )
123		ovex 6298	. . . . . . . . . 10 |- ( k .x. ( g ` x ) ) e. _V
124	123	a1i 11	. . . . . . . . 9 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> ( k .x. ( g ` x ) ) e. _V )
125	118, 121, 122, 124	fvmptd 5936	. . . . . . . 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 2455	. . . . . . . 8 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> ( i ` x ) = ( i ` x ) )
127	115, 117, 77, 77, 55, 125, 126	offval 6520	. . . . . . 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 ) ) ) )
128	17, 20	ringass 17410	. . . . . . . . 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 ) ) ) )
129	79, 81, 85, 91, 128	syl13anc 1228	. . . . . . . 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 ) ) ) )
130	129	mpteq2dva 4525	. . . . . . 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 ) ) ) ) )
131	127, 130	eqtrd 2495	. . . . . 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 ) ) ) ) )
132	107, 131	syl5eq 2507	. . . . 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 6298	. . . . . . 7 |- ( ( x e. I |-> ( k .x. ( g ` x ) ) ) oF .x. i ) e. _V
134	133	a1i 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 5606	. . . . . . 7 |- Fun ( z e. I |-> ( ( ( x e. I |-> ( k .x. ( g ` x ) ) ) ` z ) .x. ( i ` z ) ) )
136		eqidd 2455	. . . . . . . . 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 2455	. . . . . . . . 9 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ z e. I ) -> ( i ` z ) = ( i ` z ) )
138	113, 117, 77, 77, 55, 136, 137	offval 6520	. . . . . . . 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 ) ) ) )
139	138	funeqd 5591	. . . . . . 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 ) ) ) ) )
140	135, 139	mpbiri 233	. . . . . 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 996	. . . . . . . . 9 |- ( ( g e. V /\ h e. V /\ i e. V ) -> i e. V )
142	13, 141	anim12i 564	. . . . . . . 8 |- ( ( ph /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ( I e. W /\ i e. V ) )
143	142	3adant2 1013	. . . . . . 7 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ( I e. W /\ i e. V ) )
144	14, 24, 1	frlmbasfsupp 18963	. . . . . . 7 |- ( ( I e. W /\ i e. V ) -> i finSupp .0. )
145	143, 144	syl 16	. . . . . 6 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> i finSupp .0. )
146	17, 24	ring0cl 17415	. . . . . . . 8 |- ( R e. Ring -> .0. e. B )
147	78, 146	syl 16	. . . . . . 7 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> .0. e. B )
148	17, 20, 24	ringrz 17431	. . . . . . . 8 |- ( ( R e. Ring /\ y e. B ) -> ( y .x. .0. ) = .0. )
149	78, 148	sylan 469	. . . . . . 7 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ y e. B ) -> ( y .x. .0. ) = .0. )
150	77, 147, 111, 90, 149	suppofss2d 6930	. . . . . 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 7837	. . . . . 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. )
152	134, 140, 145, 150, 151	syl22anc 1227	. . . . 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. )
153	132, 152	eqbrtrrd 4461	. . . 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 994	. . . . 5 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ph )
155		eleq1 2526	. . . . . . . . 9 |- ( g = h -> ( g e. V <-> h e. V ) )
156		id 22	. . . . . . . . . . 11 |- ( g = h -> g = h )
157	156, 156	oveq12d 6288	. . . . . . . . . 10 |- ( g = h -> ( g ., g ) = ( h ., h ) )
158	157	eqeq1d 2456	. . . . . . . . 9 |- ( g = h -> ( ( g ., g ) = .0. <-> ( h ., h ) = .0. ) )
159	155, 158	3anbi23d 1300	. . . . . . . 8 |- ( g = h -> ( ( ph /\ g e. V /\ ( g ., g ) = .0. ) <-> ( ph /\ h e. V /\ ( h ., h ) = .0. ) ) )
160		eqeq1 2458	. . . . . . . 8 |- ( g = h -> ( g = O <-> h = O ) )
161	159, 160	imbi12d 318	. . . . . . 7 |- ( g = h -> ( ( ( ph /\ g e. V /\ ( g ., g ) = .0. ) -> g = O ) <-> ( ( ph /\ h e. V /\ ( h ., h ) = .0. ) -> h = O ) ) )
162	161, 71	chvarv 2019	. . . . . 6 |- ( ( ph /\ h e. V /\ ( h ., h ) = .0. ) -> h = O )
163	14, 17, 20, 1, 5, 7, 24, 22, 9, 162, 35, 13	frlmphllem 18982	. . . . 5 |- ( ( ph /\ h e. V /\ i e. V ) -> ( x e. I |-> ( ( h ` x ) .x. ( i ` x ) ) ) finSupp .0. )
164	154, 96, 86, 163	syl3anc 1226	. . . 4 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ( x e. I |-> ( ( h ` x ) .x. ( i ` x ) ) ) finSupp .0. )
165	17, 24, 75, 76, 77, 95, 101, 102, 103, 153, 164	gsummptfsadd 17139	. . 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 ) ) ) ) ) )
166	14, 17, 20	frlmip 18980	. . . . . . . . 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 ) )
167	13, 12, 166	syl2anc 659	. . . . . . . 8 |- ( ph -> ( g e. ( B ^m I ) , h e. ( B ^m I ) |-> ( R gsumg ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) ) ) = ( .i ` Y ) )
168	167, 5	syl6reqr 2514	. . . . . . 7 |- ( ph -> ., = ( g e. ( B ^m I ) , h e. ( B ^m I ) |-> ( R gsumg ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) ) ) )
169		fveq1 5847	. . . . . . . . . . 11 |- ( e = g -> ( e ` x ) = ( g ` x ) )
170	169	oveq1d 6285	. . . . . . . . . 10 |- ( e = g -> ( ( e ` x ) .x. ( f ` x ) ) = ( ( g ` x ) .x. ( f ` x ) ) )
171	170	mpteq2dv 4526	. . . . . . . . 9 |- ( e = g -> ( x e. I |-> ( ( e ` x ) .x. ( f ` x ) ) ) = ( x e. I |-> ( ( g ` x ) .x. ( f ` x ) ) ) )
172	171	oveq2d 6286	. . . . . . . 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 5847	. . . . . . . . . . 11 |- ( f = h -> ( f ` x ) = ( h ` x ) )
174	173	oveq2d 6286	. . . . . . . . . 10 |- ( f = h -> ( ( g ` x ) .x. ( f ` x ) ) = ( ( g ` x ) .x. ( h ` x ) ) )
175	174	mpteq2dv 4526	. . . . . . . . 9 |- ( f = h -> ( x e. I |-> ( ( g ` x ) .x. ( f ` x ) ) ) = ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) )
176	175	oveq2d 6286	. . . . . . . 8 |- ( f = h -> ( R gsumg ( x e. I |-> ( ( g ` x ) .x. ( f ` x ) ) ) ) = ( R gsumg ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) ) )
177	172, 176	cbvmpt2v 6350	. . . . . . 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 ) ) ) ) )
178	168, 177	syl6eqr 2513	. . . . . 6 |- ( ph -> ., = ( e e. ( B ^m I ) , f e. ( B ^m I ) |-> ( R gsumg ( x e. I |-> ( ( e ` x ) .x. ( f ` x ) ) ) ) ) )
179	178	3ad2ant1 1015	. . . . 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 754	. . . . . . . . 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 ) )
181	180	fveq1d 5850	. . . . . . . 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 755	. . . . . . . . 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 )
183	182	fveq1d 5850	. . . . . . . 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 ) )
184	181, 183	oveq12d 6288	. . . . . . 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 ) ) )
185	184	mpteq2dv 4526	. . . . . 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 ) ) ) )
186	185	oveq2d 6286	. . . . 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 ) ) ) ) )
187	29	3ad2ant1 1015	. . . . . . 7 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> Y e. LMod )
188	16	3ad2ant1 1015	. . . . . . . . . . 11 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> R = (Scalar ` Y ) )
189	188	fveq2d 5852	. . . . . . . . . 10 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ( Base ` R ) = ( Base ` (Scalar ` Y ) ) )
190	17, 189	syl5eq 2507	. . . . . . . . 9 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> B = ( Base ` (Scalar ` Y ) ) )
191	80, 190	eleqtrd 2544	. . . . . . . 8 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> k e. ( Base ` (Scalar ` Y ) ) )
192		eqid 2454	. . . . . . . . 9 |- ( .s ` Y ) = ( .s ` Y )
193		eqid 2454	. . . . . . . . 9 |- ( Base ` (Scalar ` Y ) ) = ( Base ` (Scalar ` Y ) )
194	1, 31, 192, 193	lmodvscl 17724	. . . . . . . 8 |- ( ( Y e. LMod /\ k e. ( Base ` (Scalar ` Y ) ) /\ g e. V ) -> ( k ( .s ` Y ) g ) e. V )
195	187, 191, 82, 194	syl3anc 1226	. . . . . . 7 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ( k ( .s ` Y ) g ) e. V )
196		eqid 2454	. . . . . . . 8 |- ( +g ` Y ) = ( +g ` Y )
197	1, 196	lmodvacl 17721	. . . . . . 7 |- ( ( Y e. LMod /\ ( k ( .s ` Y ) g ) e. V /\ h e. V ) -> ( ( k ( .s ` Y ) g ) ( +g ` Y ) h ) e. V )
198	187, 195, 96, 197	syl3anc 1226	. . . . . 6 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ( ( k ( .s ` Y ) g ) ( +g ` Y ) h ) e. V )
199	14, 17, 1	frlmbasmap 18964	. . . . . 6 |- ( ( I e. W /\ ( ( k ( .s ` Y ) g ) ( +g ` Y ) h ) e. V ) -> ( ( k ( .s ` Y ) g ) ( +g ` Y ) h ) e. ( B ^m I ) )
200	77, 198, 199	syl2anc 659	. . . . 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 6298	. . . . . 6 |- ( R gsumg ( x e. I |-> ( ( ( ( k ( .s ` Y ) g ) ( +g ` Y ) h ) ` x ) .x. ( i ` x ) ) ) ) e. _V
202	201	a1i 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 )
203	179, 186, 200, 88, 202	ovmpt2d 6403	. . . 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 ) ) ) ) )
204	14, 1, 78, 77, 195, 96, 75, 196	frlmplusgval 18968	. . . . . . . . . 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 ) )
205	14, 17, 1	frlmbasmap 18964	. . . . . . . . . . . . 13 |- ( ( I e. W /\ ( k ( .s ` Y ) g ) e. V ) -> ( k ( .s ` Y ) g ) e. ( B ^m I ) )
206	77, 195, 205	syl2anc 659	. . . . . . . . . . . 12 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ( k ( .s ` Y ) g ) e. ( B ^m I ) )
207		elmapi 7433	. . . . . . . . . . . 12 |- ( ( k ( .s ` Y ) g ) e. ( B ^m I ) -> ( k ( .s ` Y ) g ) : I --> B )
208		ffn 5713	. . . . . . . . . . . 12 |- ( ( k ( .s ` Y ) g ) : I --> B -> ( k ( .s ` Y ) g ) Fn I )
209	206, 207, 208	3syl 20	. . . . . . . . . . 11 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ( k ( .s ` Y ) g ) Fn I )
210	98, 53	syl 16	. . . . . . . . . . 11 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> h Fn I )
211	77	adantr 463	. . . . . . . . . . . 12 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> I e. W )
212	82	adantr 463	. . . . . . . . . . . 12 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> g e. V )
213	14, 1, 17, 211, 81, 212, 122, 192, 20	frlmvscaval 18971	. . . . . . . . . . 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 2455	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ x e. I ) -> ( h ` x ) = ( h ` x ) )
215	209, 210, 77, 77, 55, 213, 214	offval 6520	. . . . . . . . . 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 ) ) ) )
216	204, 215	eqtrd 2495	. . . . . . . . 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 6298	. . . . . . . . . 10 |- ( ( k .x. ( g ` x ) ) ( +g ` R ) ( h ` x ) ) e. _V
218	217	a1i 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 )
219	216, 218	fvmpt2d 5941	. . . . . . . 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 ) ) )
220	219	oveq1d 6285	. . . . . . 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 ) ) )
221	17, 75, 20	ringdir 17413	. . . . . . . 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 ) ) ) )
222	79, 109, 99, 91, 221	syl13anc 1228	. . . . . . 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 ) ) ) )
223	129	oveq1d 6285	. . . . . . 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 ) ) ) )
224	220, 222, 223	3eqtrd 2499	. . . . . 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 ) ) ) )
225	224	mpteq2dva 4525	. . . . 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 ) ) ) ) )
226	225	oveq2d 6286	. . . 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 ) ) ) ) ) )
227	203, 226	eqtrd 2495	. . 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 754	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ ( e = g /\ f = i ) ) -> e = g )
229	228	fveq1d 5850	. . . . . . . . . 10 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ ( e = g /\ f = i ) ) -> ( e ` x ) = ( g ` x ) )
230		simprr 755	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ ( e = g /\ f = i ) ) -> f = i )
231	230	fveq1d 5850	. . . . . . . . . 10 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ ( e = g /\ f = i ) ) -> ( f ` x ) = ( i ` x ) )
232	229, 231	oveq12d 6288	. . . . . . . . 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 ) ) )
233	232	mpteq2dv 4526	. . . . . . . 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 ) ) ) )
234	233	oveq2d 6286	. . . . . . 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 6298	. . . . . . . 8 |- ( R gsumg ( x e. I |-> ( ( g ` x ) .x. ( i ` x ) ) ) ) e. _V
236	235	a1i 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 )
237	179, 234, 83, 88, 236	ovmpt2d 6403	. . . . . 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 ) ) ) ) )
238	237	oveq2d 6286	. . . . 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 ) ) ) ) ) )
239	14, 17, 20, 1, 5, 7, 24, 22, 9, 71, 35, 13	frlmphllem 18982	. . . . . . 7 |- ( ( ph /\ g e. V /\ i e. V ) -> ( x e. I |-> ( ( g ` x ) .x. ( i ` x ) ) ) finSupp .0. )
240	154, 82, 86, 239	syl3anc 1226	. . . . . 6 |- ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) -> ( x e. I |-> ( ( g ` x ) .x. ( i ` x ) ) ) finSupp .0. )
241	17, 24, 75, 20, 78, 77, 80, 93, 240	gsummulc2 17448	. . . . 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 ) ) ) ) ) )
242	238, 241	eqtr4d 2498	. . . 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 754	. . . . . . . . 9 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ ( e = h /\ f = i ) ) -> e = h )
244	243	fveq1d 5850	. . . . . . . 8 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ ( e = h /\ f = i ) ) -> ( e ` x ) = ( h ` x ) )
245		simprr 755	. . . . . . . . 9 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ ( e = h /\ f = i ) ) -> f = i )
246	245	fveq1d 5850	. . . . . . . 8 |- ( ( ( ph /\ k e. B /\ ( g e. V /\ h e. V /\ i e. V ) ) /\ ( e = h /\ f = i ) ) -> ( f ` x ) = ( i ` x ) )
247	244, 246	oveq12d 6288	. . . . . . 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 ) ) )
248	247	mpteq2dv 4526	. . . . . 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 ) ) ) )
249	248	oveq2d 6286	. . . . 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 6298	. . . . . 6 |- ( R gsumg ( x e. I |-> ( ( h ` x ) .x. ( i ` x ) ) ) ) e. _V
251	250	a1i 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 )
252	179, 249, 97, 88, 251	ovmpt2d 6403	. . . 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 ) ) ) ) )
253	242, 252	oveq12d 6288	. . 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 ) ) ) ) ) )
254	165, 227, 253	3eqtr4d 2505	. 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 ) ) )
255	34	3ad2ant1 1015	. . . . . . 7 |- ( ( ph /\ g e. V /\ h e. V ) -> R e. CRing )
256	255	adantr 463	. . . . . 6 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ x e. I ) -> R e. CRing )
257	17, 20	crngcom 17408	. . . . . 6 |- ( ( R e. CRing /\ ( h ` x ) e. B /\ ( g ` x ) e. B ) -> ( ( h ` x ) .x. ( g ` x ) ) = ( ( g ` x ) .x. ( h ` x ) ) )
258	256, 66, 65, 257	syl3anc 1226	. . . . 5 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ x e. I ) -> ( ( h ` x ) .x. ( g ` x ) ) = ( ( g ` x ) .x. ( h ` x ) ) )
259	258	mpteq2dva 4525	. . . 4 |- ( ( ph /\ g e. V /\ h e. V ) -> ( x e. I |-> ( ( h ` x ) .x. ( g ` x ) ) ) = ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) )
260	259	oveq2d 6286	. . 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 ) ) ) ) )
261	178	3ad2ant1 1015	. . . 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 754	. . . . . . . 8 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ ( e = h /\ f = g ) ) -> e = h )
263	262	fveq1d 5850	. . . . . . 7 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ ( e = h /\ f = g ) ) -> ( e ` x ) = ( h ` x ) )
264		simprr 755	. . . . . . . 8 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ ( e = h /\ f = g ) ) -> f = g )
265	264	fveq1d 5850	. . . . . . 7 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ ( e = h /\ f = g ) ) -> ( f ` x ) = ( g ` x ) )
266	263, 265	oveq12d 6288	. . . . . 6 |- ( ( ( ph /\ g e. V /\ h e. V ) /\ ( e = h /\ f = g ) ) -> ( ( e ` x ) .x. ( f ` x ) ) = ( ( h ` x ) .x. ( g ` x ) ) )
267	266	mpteq2dv 4526	. . . . 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 ) ) ) )
268	267	oveq2d 6286	. . . 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 6298	. . . . 5 |- ( R gsumg ( x e. I |-> ( ( h ` x ) .x. ( g ` x ) ) ) ) e. _V
270	269	a1i 11	. . . 4 |- ( ( ph /\ g e. V /\ h e. V ) -> ( R gsumg ( x e. I |-> ( ( h ` x ) .x. ( g ` x ) ) ) ) e. _V )
271	261, 268, 50, 44, 270	ovmpt2d 6403	. . 3 |- ( ( ph /\ g e. V /\ h e. V ) -> ( h ., g ) = ( R gsumg ( x e. I |-> ( ( h ` x ) .x. ( g ` x ) ) ) ) )
272	35	ralrimiva 2868	. . . . . 6 |- ( ph -> A. x e. B ( .* ` x ) = x )
273	272	3ad2ant1 1015	. . . . 5 |- ( ( ph /\ g e. V /\ h e. V ) -> A. x e. B ( .* ` x ) = x )
274		fveq2 5848	. . . . . . 7 |- ( x = ( g ., h ) -> ( .* ` x ) = ( .* ` ( g ., h ) ) )
275		id 22	. . . . . . 7 |- ( x = ( g ., h ) -> x = ( g ., h ) )
276	274, 275	eqeq12d 2476	. . . . . 6 |- ( x = ( g ., h ) -> ( ( .* ` x ) = x <-> ( .* ` ( g ., h ) ) = ( g ., h ) ) )
277	276	rspcv 3203	. . . . 5 |- ( ( g ., h ) e. B -> ( A. x e. B ( .* ` x ) = x -> ( .* ` ( g ., h ) ) = ( g ., h ) ) )
278	74, 273, 277	sylc 60	. . . 4 |- ( ( ph /\ g e. V /\ h e. V ) -> ( .* ` ( g ., h ) ) = ( g ., h ) )
279	278, 60	eqtrd 2495	. . 3 |- ( ( ph /\ g e. V /\ h e. V ) -> ( .* ` ( g ., h ) ) = ( R gsumg ( x e. I |-> ( ( g ` x ) .x. ( h ` x ) ) ) ) )
280	260, 271, 279	3eqtr4rd 2506	. 2 |- ( ( ph /\ g e. V /\ h e. V ) -> ( .* ` ( g ., h ) ) = ( h ., g ) )
281	2, 3, 4, 6, 8, 16, 18, 19, 21, 23, 25, 33, 36, 74, 254, 71, 280	isphld 18862	1 |- ( ph -> Y e. PreHil )

Syntax hints:   -> wi 4   /\ wa 367   /\ w3a 971   = wceq 1398   e. wcel 1823   A.wral 2804   _Vcvv 3106   C_ wss 3461   class class class wbr 4439   |-> cmpt 4497   Fun wfun 5564   Fn wfn 5565   -->wf 5566   ` cfv 5570  (class class class)co 6270   |-> cmpt2 6272   oFcof 6511   supp csupp 6891   ^m cmap 7412   finSupp cfsupp 7821   Basecbs 14716   +g cplusg 14784   .rcmulr 14785   *rcstv 14786  Scalarcsca 14787   .scvsca 14788   .icip 14789   0gc0g 14929   gsum_g cgsu 14930  CMndccmn 16997   Ringcrg 17393   CRingccrg 17394   DivRingcdr 17591  Fieldcfield 17592   LModclmod 17707   LVecclvec 17943   PreHilcphl 18832   freeLMod cfrlm 18950

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1623  ax-4 1636  ax-5 1709  ax-6 1752  ax-7 1795  ax-8 1825  ax-9 1827  ax-10 1842  ax-11 1847  ax-12 1859  ax-13 2004  ax-ext 2432  ax-rep 4550  ax-sep 4560  ax-nul 4568  ax-pow 4615  ax-pr 4676  ax-un 6565  ax-cnex 9537  ax-resscn 9538  ax-1cn 9539  ax-icn 9540  ax-addcl 9541  ax-addrcl 9542  ax-mulcl 9543  ax-mulrcl 9544  ax-mulcom 9545  ax-addass 9546  ax-mulass 9547  ax-distr 9548  ax-i2m1 9549  ax-1ne0 9550  ax-1rid 9551  ax-rnegex 9552  ax-rrecex 9553  ax-cnre 9554  ax-pre-lttri 9555  ax-pre-lttrn 9556  ax-pre-ltadd 9557  ax-pre-mulgt0 9558

This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 972  df-3an 973  df-tru 1401  df-ex 1618  df-nf 1622  df-sb 1745  df-eu 2288  df-mo 2289  df-clab 2440  df-cleq 2446  df-clel 2449  df-nfc 2604  df-ne 2651  df-nel 2652  df-ral 2809  df-rex 2810  df-reu 2811  df-rmo 2812  df-rab 2813  df-v 3108  df-sbc 3325  df-csb 3421  df-dif 3464  df-un 3466  df-in 3468  df-ss 3475  df-pss 3477  df-nul 3784  df-if 3930  df-pw 4001  df-sn 4017  df-pr 4019  df-tp 4021  df-op 4023  df-uni 4236  df-int 4272  df-iun 4317  df-br 4440  df-opab 4498  df-mpt 4499  df-tr 4533  df-eprel 4780  df-id 4784  df-po 4789  df-so 4790  df-fr 4827  df-se 4828  df-we 4829  df-ord 4870  df-on 4871  df-lim 4872  df-suc 4873  df-xp 4994  df-rel 4995  df-cnv 4996  df-co 4997  df-dm 4998  df-rn 4999  df-res 5000  df-ima 5001  df-iota 5534  df-fun 5572  df-fn 5573  df-f 5574  df-f1 5575  df-fo 5576  df-f1o 5577  df-fv 5578  df-isom 5579  df-riota 6232  df-ov 6273  df-oprab 6274  df-mpt2 6275  df-of 6513  df-om 6674  df-1st 6773  df-2nd 6774  df-supp 6892  df-tpos 6947  df-recs 7034  df-rdg 7068  df-1o 7122  df-oadd 7126  df-er 7303  df-map 7414  df-ixp 7463  df-en 7510  df-dom 7511  df-sdom 7512  df-fin 7513  df-fsupp 7822  df-sup 7893  df-oi 7927  df-card 8311  df-pnf 9619  df-mnf 9620  df-xr 9621  df-ltxr 9622  df-le 9623  df-sub 9798  df-neg 9799  df-nn 10532  df-2 10590  df-3 10591  df-4 10592  df-5 10593  df-6 10594  df-7 10595  df-8 10596  df-9 10597  df-10 10598  df-n0 10792  df-z 10861  df-dec 10977  df-uz 11083  df-fz 11676  df-fzo 11800  df-seq 12090  df-hash 12388  df-struct 14718  df-ndx 14719  df-slot 14720  df-base 14721  df-sets 14722  df-ress 14723  df-plusg 14797  df-mulr 14798  df-sca 14800  df-vsca 14801  df-ip 14802  df-tset 14803  df-ple 14804  df-ds 14806  df-hom 14808  df-cco 14809  df-0g 14931  df-gsum 14932  df-prds 14937  df-pws 14939  df-mgm 16071  df-sgrp 16110  df-mnd 16120  df-mhm 16165  df-submnd 16166  df-grp 16256  df-minusg 16257  df-sbg 16258  df-subg 16397  df-ghm 16464  df-cntz 16554  df-cmn 16999  df-abl 17000  df-mgp 17337  df-ur 17349  df-ring 17395  df-cring 17396  df-oppr 17467  df-rnghom 17559  df-drng 17593  df-field 17594  df-subrg 17622  df-staf 17689  df-srng 17690  df-lmod 17709  df-lss 17774  df-lmhm 17863  df-lvec 17944  df-sra 18013  df-rgmod 18014  df-phl 18834  df-dsmm 18936  df-frlm 18951

This theorem is referenced by:  rrxcph  21990