Theorem rmodislmodlem 14624

Description: Lemma for rmodislmod 14625. This is the part of the proof of rmodislmod 14625 which requires the scalar ring to be commutative. (Contributed by AV, 3-Dec-2021.)

Hypotheses

Ref	Expression
rmodislmod.v	|- V = ( Base ` R )
rmodislmod.a	|- .+ = ( +g ` R )
rmodislmod.s	|- .x. = ( .s ` R )
rmodislmod.f	|- F = (Scalar ` R )
rmodislmod.k	|- K = ( Base ` F )
rmodislmod.p	|- .+^ = ( +g ` F )
rmodislmod.t	|- .X. = ( .r ` F )
rmodislmod.u	|- .1. = ( 1r ` F )
rmodislmod.r	|- ( R e. Grp /\ F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) )
rmodislmod.m	|- .* = ( s e. K , v e. V |-> ( v .x. s ) )
rmodislmod.l	|- L = ( R sSet <. ( .s ` ndx ) , .* >. )

Assertion

Ref	Expression
rmodislmodlem	|- ( ( F e. CRing /\ ( a e. K /\ b e. K /\ c e. V ) ) -> ( ( a .X. b ) .* c ) = ( a .* ( b .* c ) ) )

Distinct variable groups:   .X. , q, r, w, x   .X. , s, v   .x. , q, r, w, x   .x. , s, v   K, q, r, x   K, s, v   V, q, r, w, x   V, s, v   r, a, w   s, a, v   q, b, r, w   s, b, v   s, c, v   w, c

Allowed substitution hints:   .+ ( x, w, v, s, r, q, a, b, c)   .+^ ( x, w, v, s, r, q, a, b, c)   R( x, w, v, s, r, q, a, b, c)   .x. ( a, b, c)   .X. ( a, b, c)   .1. ( x, w, v, s, r, q, a, b, c)   F( x, w, v, s, r, q, a, b, c)   .* ( x, w, v, s, r, q, a, b, c)   K( w, a, b, c)   L( x, w, v, s, r, q, a, b, c)   V( a, b, c)

Proof of Theorem rmodislmodlem

Dummy variable j is distinct from all other variables.

Step	Hyp	Ref	Expression
1		rmodislmod.r	. . . . 5 |- ( R e. Grp /\ F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) )
2		simprl 531	. . . . . . . . 9 |- ( ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) -> ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) )
3	2	2ralimi 2608	. . . . . . . 8 |- ( A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) -> A. x e. V A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) )
4	3	2ralimi 2608	. . . . . . 7 |- ( A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) -> A. q e. K A. r e. K A. x e. V A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) )
5		ralrot3 2710	. . . . . . . . 9 |- ( A. q e. K A. r e. K A. x e. V A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) <-> A. x e. V A. q e. K A. r e. K A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) )
6	1	simp1i 1033	. . . . . . . . . . . 12 |- R e. Grp
7		rmodislmod.v	. . . . . . . . . . . . . 14 |- V = ( Base ` R )
8		eqid 2234	. . . . . . . . . . . . . 14 |- ( 0g ` R ) = ( 0g ` R )
9	7, 8	grpidcl 13784	. . . . . . . . . . . . 13 |- ( R e. Grp -> ( 0g ` R ) e. V )
10		elex2 2832	. . . . . . . . . . . . 13 |- ( ( 0g ` R ) e. V -> E. j j e. V )
11	9, 10	syl 14	. . . . . . . . . . . 12 |- ( R e. Grp -> E. j j e. V )
12		r19.3rmv 3604	. . . . . . . . . . . 12 |- ( E. j j e. V -> ( A. q e. K A. r e. K A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) <-> A. x e. V A. q e. K A. r e. K A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) ) )
13	6, 11, 12	mp2b 8	. . . . . . . . . . 11 |- ( A. q e. K A. r e. K A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) <-> A. x e. V A. q e. K A. r e. K A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) )
14	13	biimpri 133	. . . . . . . . . 10 |- ( A. x e. V A. q e. K A. r e. K A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) -> A. q e. K A. r e. K A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) )
15		oveq1 6065	. . . . . . . . . . . . . 14 |- ( q = b -> ( q .X. r ) = ( b .X. r ) )
16	15	oveq2d 6074	. . . . . . . . . . . . 13 |- ( q = b -> ( w .x. ( q .X. r ) ) = ( w .x. ( b .X. r ) ) )
17		oveq2 6066	. . . . . . . . . . . . . 14 |- ( q = b -> ( w .x. q ) = ( w .x. b ) )
18	17	oveq1d 6073	. . . . . . . . . . . . 13 |- ( q = b -> ( ( w .x. q ) .x. r ) = ( ( w .x. b ) .x. r ) )
19	16, 18	eqeq12d 2249	. . . . . . . . . . . 12 |- ( q = b -> ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) <-> ( w .x. ( b .X. r ) ) = ( ( w .x. b ) .x. r ) ) )
20		oveq2 6066	. . . . . . . . . . . . . 14 |- ( r = a -> ( b .X. r ) = ( b .X. a ) )
21	20	oveq2d 6074	. . . . . . . . . . . . 13 |- ( r = a -> ( w .x. ( b .X. r ) ) = ( w .x. ( b .X. a ) ) )
22		oveq2 6066	. . . . . . . . . . . . 13 |- ( r = a -> ( ( w .x. b ) .x. r ) = ( ( w .x. b ) .x. a ) )
23	21, 22	eqeq12d 2249	. . . . . . . . . . . 12 |- ( r = a -> ( ( w .x. ( b .X. r ) ) = ( ( w .x. b ) .x. r ) <-> ( w .x. ( b .X. a ) ) = ( ( w .x. b ) .x. a ) ) )
24		oveq1 6065	. . . . . . . . . . . . 13 |- ( w = c -> ( w .x. ( b .X. a ) ) = ( c .x. ( b .X. a ) ) )
25		oveq1 6065	. . . . . . . . . . . . . 14 |- ( w = c -> ( w .x. b ) = ( c .x. b ) )
26	25	oveq1d 6073	. . . . . . . . . . . . 13 |- ( w = c -> ( ( w .x. b ) .x. a ) = ( ( c .x. b ) .x. a ) )
27	24, 26	eqeq12d 2249	. . . . . . . . . . . 12 |- ( w = c -> ( ( w .x. ( b .X. a ) ) = ( ( w .x. b ) .x. a ) <-> ( c .x. ( b .X. a ) ) = ( ( c .x. b ) .x. a ) ) )
28	19, 23, 27	rspc3v 2940	. . . . . . . . . . 11 |- ( ( b e. K /\ a e. K /\ c e. V ) -> ( A. q e. K A. r e. K A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) -> ( c .x. ( b .X. a ) ) = ( ( c .x. b ) .x. a ) ) )
29	28	3com12 1234	. . . . . . . . . 10 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( A. q e. K A. r e. K A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) -> ( c .x. ( b .X. a ) ) = ( ( c .x. b ) .x. a ) ) )
30	14, 29	syl5com 29	. . . . . . . . 9 |- ( A. x e. V A. q e. K A. r e. K A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) -> ( ( a e. K /\ b e. K /\ c e. V ) -> ( c .x. ( b .X. a ) ) = ( ( c .x. b ) .x. a ) ) )
31	5, 30	sylbi 121	. . . . . . . 8 |- ( A. q e. K A. r e. K A. x e. V A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) -> ( ( a e. K /\ b e. K /\ c e. V ) -> ( c .x. ( b .X. a ) ) = ( ( c .x. b ) .x. a ) ) )
32		eqcom 2236	. . . . . . . 8 |- ( ( ( c .x. b ) .x. a ) = ( c .x. ( b .X. a ) ) <-> ( c .x. ( b .X. a ) ) = ( ( c .x. b ) .x. a ) )
33	31, 32	imbitrrdi 162	. . . . . . 7 |- ( A. q e. K A. r e. K A. x e. V A. w e. V ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) -> ( ( a e. K /\ b e. K /\ c e. V ) -> ( ( c .x. b ) .x. a ) = ( c .x. ( b .X. a ) ) ) )
34	4, 33	syl 14	. . . . . 6 |- ( A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) -> ( ( a e. K /\ b e. K /\ c e. V ) -> ( ( c .x. b ) .x. a ) = ( c .x. ( b .X. a ) ) ) )
35	34	3ad2ant3 1047	. . . . 5 |- ( ( R e. Grp /\ F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) ) -> ( ( a e. K /\ b e. K /\ c e. V ) -> ( ( c .x. b ) .x. a ) = ( c .x. ( b .X. a ) ) ) )
36	1, 35	ax-mp 5	. . . 4 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( ( c .x. b ) .x. a ) = ( c .x. ( b .X. a ) ) )
37	36	adantl 277	. . 3 |- ( ( F e. CRing /\ ( a e. K /\ b e. K /\ c e. V ) ) -> ( ( c .x. b ) .x. a ) = ( c .x. ( b .X. a ) ) )
38		rmodislmod.k	. . . . . . . . . 10 |- K = ( Base ` F )
39		rmodislmod.t	. . . . . . . . . 10 |- .X. = ( .r ` F )
40	38, 39	crngcom 14257	. . . . . . . . 9 |- ( ( F e. CRing /\ b e. K /\ a e. K ) -> ( b .X. a ) = ( a .X. b ) )
41	40	3expb 1231	. . . . . . . 8 |- ( ( F e. CRing /\ ( b e. K /\ a e. K ) ) -> ( b .X. a ) = ( a .X. b ) )
42	41	expcom 116	. . . . . . 7 |- ( ( b e. K /\ a e. K ) -> ( F e. CRing -> ( b .X. a ) = ( a .X. b ) ) )
43	42	ancoms 268	. . . . . 6 |- ( ( a e. K /\ b e. K ) -> ( F e. CRing -> ( b .X. a ) = ( a .X. b ) ) )
44	43	3adant3 1044	. . . . 5 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( F e. CRing -> ( b .X. a ) = ( a .X. b ) ) )
45	44	impcom 125	. . . 4 |- ( ( F e. CRing /\ ( a e. K /\ b e. K /\ c e. V ) ) -> ( b .X. a ) = ( a .X. b ) )
46	45	oveq2d 6074	. . 3 |- ( ( F e. CRing /\ ( a e. K /\ b e. K /\ c e. V ) ) -> ( c .x. ( b .X. a ) ) = ( c .x. ( a .X. b ) ) )
47	37, 46	eqtrd 2267	. 2 |- ( ( F e. CRing /\ ( a e. K /\ b e. K /\ c e. V ) ) -> ( ( c .x. b ) .x. a ) = ( c .x. ( a .X. b ) ) )
48		rmodislmod.m	. . . . . . 7 |- .* = ( s e. K , v e. V |-> ( v .x. s ) )
49	48	a1i 9	. . . . . 6 |- ( ( a e. K /\ b e. K /\ c e. V ) -> .* = ( s e. K , v e. V |-> ( v .x. s ) ) )
50		oveq12 6067	. . . . . . . 8 |- ( ( v = c /\ s = b ) -> ( v .x. s ) = ( c .x. b ) )
51	50	ancoms 268	. . . . . . 7 |- ( ( s = b /\ v = c ) -> ( v .x. s ) = ( c .x. b ) )
52	51	adantl 277	. . . . . 6 |- ( ( ( a e. K /\ b e. K /\ c e. V ) /\ ( s = b /\ v = c ) ) -> ( v .x. s ) = ( c .x. b ) )
53		simp2 1025	. . . . . 6 |- ( ( a e. K /\ b e. K /\ c e. V ) -> b e. K )
54		simp3 1026	. . . . . 6 |- ( ( a e. K /\ b e. K /\ c e. V ) -> c e. V )
55		vex 2818	. . . . . . . 8 |- c e. _V
56		rmodislmod.s	. . . . . . . . 9 |- .x. = ( .s ` R )
57		vscaslid 13460	. . . . . . . . . . 11 |- ( .s = Slot ( .s ` ndx ) /\ ( .s ` ndx ) e. NN )
58	57	slotex 13323	. . . . . . . . . 10 |- ( R e. Grp -> ( .s ` R ) e. _V )
59	6, 58	ax-mp 5	. . . . . . . . 9 |- ( .s ` R ) e. _V
60	56, 59	eqeltri 2307	. . . . . . . 8 |- .x. e. _V
61		vex 2818	. . . . . . . 8 |- b e. _V
62		ovexg 6092	. . . . . . . 8 |- ( ( c e. _V /\ .x. e. _V /\ b e. _V ) -> ( c .x. b ) e. _V )
63	55, 60, 61, 62	mp3an 1374	. . . . . . 7 |- ( c .x. b ) e. _V
64	63	a1i 9	. . . . . 6 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( c .x. b ) e. _V )
65	49, 52, 53, 54, 64	ovmpod 6189	. . . . 5 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( b .* c ) = ( c .x. b ) )
66	65	oveq2d 6074	. . . 4 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( a .* ( b .* c ) ) = ( a .* ( c .x. b ) ) )
67		oveq12 6067	. . . . . . 7 |- ( ( v = ( c .x. b ) /\ s = a ) -> ( v .x. s ) = ( ( c .x. b ) .x. a ) )
68	67	ancoms 268	. . . . . 6 |- ( ( s = a /\ v = ( c .x. b ) ) -> ( v .x. s ) = ( ( c .x. b ) .x. a ) )
69	68	adantl 277	. . . . 5 |- ( ( ( a e. K /\ b e. K /\ c e. V ) /\ ( s = a /\ v = ( c .x. b ) ) ) -> ( v .x. s ) = ( ( c .x. b ) .x. a ) )
70		simp1 1024	. . . . 5 |- ( ( a e. K /\ b e. K /\ c e. V ) -> a e. K )
71		simpl1 1027	. . . . . . . . . . 11 |- ( ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) -> ( w .x. r ) e. V )
72	71	2ralimi 2608	. . . . . . . . . 10 |- ( A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) -> A. x e. V A. w e. V ( w .x. r ) e. V )
73	72	2ralimi 2608	. . . . . . . . 9 |- ( A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) -> A. q e. K A. r e. K A. x e. V A. w e. V ( w .x. r ) e. V )
74	1	simp2i 1034	. . . . . . . . . . . 12 |- F e. Ring
75		ringgrp 14244	. . . . . . . . . . . 12 |- ( F e. Ring -> F e. Grp )
76		eqid 2234	. . . . . . . . . . . . 13 |- ( 0g ` F ) = ( 0g ` F )
77	38, 76	grpidcl 13784	. . . . . . . . . . . 12 |- ( F e. Grp -> ( 0g ` F ) e. K )
78	74, 75, 77	mp2b 8	. . . . . . . . . . 11 |- ( 0g ` F ) e. K
79		elex2 2832	. . . . . . . . . . 11 |- ( ( 0g ` F ) e. K -> E. j j e. K )
80		r19.3rmv 3604	. . . . . . . . . . 11 |- ( E. j j e. K -> ( A. r e. K A. x e. V A. w e. V ( w .x. r ) e. V <-> A. q e. K A. r e. K A. x e. V A. w e. V ( w .x. r ) e. V ) )
81	78, 79, 80	mp2b 8	. . . . . . . . . 10 |- ( A. r e. K A. x e. V A. w e. V ( w .x. r ) e. V <-> A. q e. K A. r e. K A. x e. V A. w e. V ( w .x. r ) e. V )
82	81	biimpri 133	. . . . . . . . 9 |- ( A. q e. K A. r e. K A. x e. V A. w e. V ( w .x. r ) e. V -> A. r e. K A. x e. V A. w e. V ( w .x. r ) e. V )
83		ralcom 2708	. . . . . . . . . 10 |- ( A. r e. K A. x e. V A. w e. V ( w .x. r ) e. V <-> A. x e. V A. r e. K A. w e. V ( w .x. r ) e. V )
84		r19.3rmv 3604	. . . . . . . . . . . . 13 |- ( E. j j e. V -> ( A. r e. K A. w e. V ( w .x. r ) e. V <-> A. x e. V A. r e. K A. w e. V ( w .x. r ) e. V ) )
85	6, 11, 84	mp2b 8	. . . . . . . . . . . 12 |- ( A. r e. K A. w e. V ( w .x. r ) e. V <-> A. x e. V A. r e. K A. w e. V ( w .x. r ) e. V )
86	85	biimpri 133	. . . . . . . . . . 11 |- ( A. x e. V A. r e. K A. w e. V ( w .x. r ) e. V -> A. r e. K A. w e. V ( w .x. r ) e. V )
87		oveq2 6066	. . . . . . . . . . . . 13 |- ( r = b -> ( w .x. r ) = ( w .x. b ) )
88	87	eleq1d 2303	. . . . . . . . . . . 12 |- ( r = b -> ( ( w .x. r ) e. V <-> ( w .x. b ) e. V ) )
89	25	eleq1d 2303	. . . . . . . . . . . 12 |- ( w = c -> ( ( w .x. b ) e. V <-> ( c .x. b ) e. V ) )
90	88, 89	rspc2v 2937	. . . . . . . . . . 11 |- ( ( b e. K /\ c e. V ) -> ( A. r e. K A. w e. V ( w .x. r ) e. V -> ( c .x. b ) e. V ) )
91	86, 90	syl5com 29	. . . . . . . . . 10 |- ( A. x e. V A. r e. K A. w e. V ( w .x. r ) e. V -> ( ( b e. K /\ c e. V ) -> ( c .x. b ) e. V ) )
92	83, 91	sylbi 121	. . . . . . . . 9 |- ( A. r e. K A. x e. V A. w e. V ( w .x. r ) e. V -> ( ( b e. K /\ c e. V ) -> ( c .x. b ) e. V ) )
93	73, 82, 92	3syl 17	. . . . . . . 8 |- ( A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) -> ( ( b e. K /\ c e. V ) -> ( c .x. b ) e. V ) )
94	93	3ad2ant3 1047	. . . . . . 7 |- ( ( R e. Grp /\ F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) ) -> ( ( b e. K /\ c e. V ) -> ( c .x. b ) e. V ) )
95	1, 94	ax-mp 5	. . . . . 6 |- ( ( b e. K /\ c e. V ) -> ( c .x. b ) e. V )
96	95	3adant1 1042	. . . . 5 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( c .x. b ) e. V )
97		vex 2818	. . . . . . 7 |- a e. _V
98		ovexg 6092	. . . . . . 7 |- ( ( ( c .x. b ) e. _V /\ .x. e. _V /\ a e. _V ) -> ( ( c .x. b ) .x. a ) e. _V )
99	63, 60, 97, 98	mp3an 1374	. . . . . 6 |- ( ( c .x. b ) .x. a ) e. _V
100	99	a1i 9	. . . . 5 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( ( c .x. b ) .x. a ) e. _V )
101	49, 69, 70, 96, 100	ovmpod 6189	. . . 4 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( a .* ( c .x. b ) ) = ( ( c .x. b ) .x. a ) )
102	66, 101	eqtrd 2267	. . 3 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( a .* ( b .* c ) ) = ( ( c .x. b ) .x. a ) )
103	102	adantl 277	. 2 |- ( ( F e. CRing /\ ( a e. K /\ b e. K /\ c e. V ) ) -> ( a .* ( b .* c ) ) = ( ( c .x. b ) .x. a ) )
104		oveq12 6067	. . . . . 6 |- ( ( v = c /\ s = ( a .X. b ) ) -> ( v .x. s ) = ( c .x. ( a .X. b ) ) )
105	104	ancoms 268	. . . . 5 |- ( ( s = ( a .X. b ) /\ v = c ) -> ( v .x. s ) = ( c .x. ( a .X. b ) ) )
106	105	adantl 277	. . . 4 |- ( ( ( a e. K /\ b e. K /\ c e. V ) /\ ( s = ( a .X. b ) /\ v = c ) ) -> ( v .x. s ) = ( c .x. ( a .X. b ) ) )
107	38, 39	ringcl 14256	. . . . . . . 8 |- ( ( F e. Ring /\ a e. K /\ b e. K ) -> ( a .X. b ) e. K )
108	107	3expib 1233	. . . . . . 7 |- ( F e. Ring -> ( ( a e. K /\ b e. K ) -> ( a .X. b ) e. K ) )
109	108	3ad2ant2 1046	. . . . . 6 |- ( ( R e. Grp /\ F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( w .x. r ) e. V /\ ( ( w .+ x ) .x. r ) = ( ( w .x. r ) .+ ( x .x. r ) ) /\ ( w .x. ( q .+^ r ) ) = ( ( w .x. q ) .+ ( w .x. r ) ) ) /\ ( ( w .x. ( q .X. r ) ) = ( ( w .x. q ) .x. r ) /\ ( w .x. .1. ) = w ) ) ) -> ( ( a e. K /\ b e. K ) -> ( a .X. b ) e. K ) )
110	1, 109	ax-mp 5	. . . . 5 |- ( ( a e. K /\ b e. K ) -> ( a .X. b ) e. K )
111	110	3adant3 1044	. . . 4 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( a .X. b ) e. K )
112		mulrslid 13429	. . . . . . . . . 10 |- ( .r = Slot ( .r ` ndx ) /\ ( .r ` ndx ) e. NN )
113	112	slotex 13323	. . . . . . . . 9 |- ( F e. Ring -> ( .r ` F ) e. _V )
114	74, 113	ax-mp 5	. . . . . . . 8 |- ( .r ` F ) e. _V
115	39, 114	eqeltri 2307	. . . . . . 7 |- .X. e. _V
116		ovexg 6092	. . . . . . 7 |- ( ( a e. _V /\ .X. e. _V /\ b e. _V ) -> ( a .X. b ) e. _V )
117	97, 115, 61, 116	mp3an 1374	. . . . . 6 |- ( a .X. b ) e. _V
118		ovexg 6092	. . . . . 6 |- ( ( c e. _V /\ .x. e. _V /\ ( a .X. b ) e. _V ) -> ( c .x. ( a .X. b ) ) e. _V )
119	55, 60, 117, 118	mp3an 1374	. . . . 5 |- ( c .x. ( a .X. b ) ) e. _V
120	119	a1i 9	. . . 4 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( c .x. ( a .X. b ) ) e. _V )
121	49, 106, 111, 54, 120	ovmpod 6189	. . 3 |- ( ( a e. K /\ b e. K /\ c e. V ) -> ( ( a .X. b ) .* c ) = ( c .x. ( a .X. b ) ) )
122	121	adantl 277	. 2 |- ( ( F e. CRing /\ ( a e. K /\ b e. K /\ c e. V ) ) -> ( ( a .X. b ) .* c ) = ( c .x. ( a .X. b ) ) )
123	47, 103, 122	3eqtr4rd 2278	1 |- ( ( F e. CRing /\ ( a e. K /\ b e. K /\ c e. V ) ) -> ( ( a .X. b ) .* c ) = ( a .* ( b .* c ) ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   /\ w3a 1005   = wceq 1398   E.wex 1541   e. wcel 2205   A.wral 2522   _Vcvv 2815   <.cop 3697   ` cfv 5357  (class class class)co 6058   e. cmpo 6060   ndxcnx 13293   sSet csts 13294   Basecbs 13296   +g cplusg 13374   .rcmulr 13375  Scalarcsca 13377   .scvsca 13378   0gc0g 13553   Grpcgrp 13755   1rcur 14202   Ringcrg 14239   CRingccrg 14240

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2207  ax-14 2208  ax-ext 2216  ax-sep 4233  ax-pow 4292  ax-pr 4327  ax-un 4559  ax-setind 4664  ax-cnex 8234  ax-resscn 8235  ax-1cn 8236  ax-1re 8237  ax-icn 8238  ax-addcl 8239  ax-addrcl 8240  ax-mulcl 8241  ax-addcom 8243  ax-addass 8245  ax-i2m1 8248  ax-0lt1 8249  ax-0id 8251  ax-rnegex 8252  ax-pre-ltirr 8255  ax-pre-ltadd 8259

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2085  df-mo 2086  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-ne 2415  df-nel 2510  df-ral 2527  df-rex 2528  df-reu 2529  df-rmo 2530  df-rab 2531  df-v 2817  df-sbc 3046  df-csb 3142  df-dif 3216  df-un 3218  df-in 3220  df-ss 3227  df-nul 3513  df-pw 3676  df-sn 3700  df-pr 3701  df-op 3703  df-uni 3920  df-int 3955  df-br 4115  df-opab 4177  df-mpt 4178  df-id 4419  df-xp 4760  df-rel 4761  df-cnv 4762  df-co 4763  df-dm 4764  df-rn 4765  df-res 4766  df-iota 5317  df-fun 5359  df-fn 5360  df-fv 5365  df-riota 6011  df-ov 6061  df-oprab 6062  df-mpo 6063  df-pnf 8326  df-mnf 8327  df-ltxr 8329  df-inn 9255  df-2 9313  df-3 9314  df-4 9315  df-5 9316  df-6 9317  df-ndx 13299  df-slot 13300  df-base 13302  df-sets 13303  df-plusg 13387  df-mulr 13388  df-vsca 13391  df-0g 13555  df-mgm 13619  df-sgrp 13665  df-mnd 13678  df-grp 13758  df-cmn 14039  df-mgp 14160  df-ring 14241  df-cring 14242

This theorem is referenced by:  rmodislmod  14625