Theorem islmod 13381

Description: The predicate "is a left module". (Contributed by NM, 4-Nov-2013.) (Revised by Mario Carneiro, 19-Jun-2014.)

Hypotheses

Ref	Expression
islmod.v	|- V = ( Base ` W )
islmod.a	|- .+ = ( +g ` W )
islmod.s	|- .x. = ( .s ` W )
islmod.f	|- F = (Scalar ` W )
islmod.k	|- K = ( Base ` F )
islmod.p	|- .+^ = ( +g ` F )
islmod.t	|- .X. = ( .r ` F )
islmod.u	|- .1. = ( 1r ` F )

Assertion

Ref	Expression
islmod	|- ( W e. LMod <-> ( W e. Grp /\ F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) )

Distinct variable groups:   r, q, w, x, F   K, q, r, w, x   .+^ , q, r, w, x   V, q, r, w, x   .+ , q, r, w, x   .1. , q, r, w, x   .X. , q, r, w, x   .x. , q, r, w, x

Allowed substitution hints:   W( x, w, r, q)

Proof of Theorem islmod

Dummy variables f a g k p s v t are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elex 2749	. . . 4 |- ( W e. Grp -> W e. _V )
2		islmod.v	. . . . . . 7 |- V = ( Base ` W )
3		basfn 12520	. . . . . . . 8 |- Base Fn _V
4		funfvex 5533	. . . . . . . . 9 |- ( ( Fun Base /\ W e. dom Base ) -> ( Base ` W ) e. _V )
5	4	funfni 5317	. . . . . . . 8 |- ( ( Base Fn _V /\ W e. _V ) -> ( Base ` W ) e. _V )
6	3, 5	mpan 424	. . . . . . 7 |- ( W e. _V -> ( Base ` W ) e. _V )
7	2, 6	eqeltrid 2264	. . . . . 6 |- ( W e. _V -> V e. _V )
8		islmod.a	. . . . . . . . 9 |- .+ = ( +g ` W )
9		plusgslid 12571	. . . . . . . . . 10 |- ( +g = Slot ( +g ` ndx ) /\ ( +g ` ndx ) e. NN )
10	9	slotex 12489	. . . . . . . . 9 |- ( W e. _V -> ( +g ` W ) e. _V )
11	8, 10	eqeltrid 2264	. . . . . . . 8 |- ( W e. _V -> .+ e. _V )
12	11	adantr 276	. . . . . . 7 |- ( ( W e. _V /\ v = V ) -> .+ e. _V )
13		islmod.f	. . . . . . . . . . 11 |- F = (Scalar ` W )
14		scaslid 12611	. . . . . . . . . . . 12 |- (Scalar = Slot (Scalar ` ndx ) /\ (Scalar ` ndx ) e. NN )
15	14	slotex 12489	. . . . . . . . . . 11 |- ( W e. _V -> (Scalar ` W ) e. _V )
16	13, 15	eqeltrid 2264	. . . . . . . . . 10 |- ( W e. _V -> F e. _V )
17	16	adantr 276	. . . . . . . . 9 |- ( ( W e. _V /\ ( v = V /\ a = .+ ) ) -> F e. _V )
18		simplrl 535	. . . . . . . . . . . 12 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> v = V )
19		simplrr 536	. . . . . . . . . . . 12 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> a = .+ )
20		simpr 110	. . . . . . . . . . . 12 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> f = F )
21		simp3 999	. . . . . . . . . . . . . 14 |- ( ( v = V /\ a = .+ /\ f = F ) -> f = F )
22	21	fveq2d 5520	. . . . . . . . . . . . 13 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( Base ` f ) = ( Base ` F ) )
23		islmod.k	. . . . . . . . . . . . 13 |- K = ( Base ` F )
24	22, 23	eqtr4di 2228	. . . . . . . . . . . 12 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( Base ` f ) = K )
25	18, 19, 20, 24	syl3anc 1238	. . . . . . . . . . 11 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> ( Base ` f ) = K )
26	21	fveq2d 5520	. . . . . . . . . . . . . 14 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( +g ` f ) = ( +g ` F ) )
27		islmod.p	. . . . . . . . . . . . . 14 |- .+^ = ( +g ` F )
28	26, 27	eqtr4di 2228	. . . . . . . . . . . . 13 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( +g ` f ) = .+^ )
29	18, 19, 20, 28	syl3anc 1238	. . . . . . . . . . . 12 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> ( +g ` f ) = .+^ )
30	21	fveq2d 5520	. . . . . . . . . . . . . . . 16 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( .r ` f ) = ( .r ` F ) )
31		islmod.t	. . . . . . . . . . . . . . . 16 |- .X. = ( .r ` F )
32	30, 31	eqtr4di 2228	. . . . . . . . . . . . . . 15 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( .r ` f ) = .X. )
33	32	sbceq1d 2968	. . . . . . . . . . . . . 14 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. .X. / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) )
34	18, 19, 20, 33	syl3anc 1238	. . . . . . . . . . . . 13 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> ( [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. .X. / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) )
35		simpll 527	. . . . . . . . . . . . . 14 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> W e. _V )
36		mulrslid 12590	. . . . . . . . . . . . . . . . . . 19 |- ( .r = Slot ( .r ` ndx ) /\ ( .r ` ndx ) e. NN )
37	36	slotex 12489	. . . . . . . . . . . . . . . . . 18 |- ( F e. _V -> ( .r ` F ) e. _V )
38	16, 37	syl 14	. . . . . . . . . . . . . . . . 17 |- ( W e. _V -> ( .r ` F ) e. _V )
39	31, 38	eqeltrid 2264	. . . . . . . . . . . . . . . 16 |- ( W e. _V -> .X. e. _V )
40		oveq 5881	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( t = .X. -> ( q t r ) = ( q .X. r ) )
41	40	oveq1d 5890	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( t = .X. -> ( ( q t r ) s w ) = ( ( q .X. r ) s w ) )
42	41	eqeq1d 2186	. . . . . . . . . . . . . . . . . . . . . 22 |- ( t = .X. -> ( ( ( q t r ) s w ) = ( q s ( r s w ) ) <-> ( ( q .X. r ) s w ) = ( q s ( r s w ) ) ) )
43	42	anbi1d 465	. . . . . . . . . . . . . . . . . . . . 21 |- ( t = .X. -> ( ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) <-> ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) )
44	43	anbi2d 464	. . . . . . . . . . . . . . . . . . . 20 |- ( t = .X. -> ( ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) <-> ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) )
45	44	2ralbidv 2501	. . . . . . . . . . . . . . . . . . 19 |- ( t = .X. -> ( A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) <-> A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) )
46	45	2ralbidv 2501	. . . . . . . . . . . . . . . . . 18 |- ( t = .X. -> ( A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) <-> A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) )
47	46	anbi2d 464	. . . . . . . . . . . . . . . . 17 |- ( t = .X. -> ( ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) )
48	47	adantl 277	. . . . . . . . . . . . . . . 16 |- ( ( W e. _V /\ t = .X. ) -> ( ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) )
49	39, 48	sbcied 3000	. . . . . . . . . . . . . . 15 |- ( W e. _V -> ( [. .X. / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) )
50	21	eleq1d 2246	. . . . . . . . . . . . . . . 16 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( f e. Ring <-> F e. Ring ) )
51		simp1 997	. . . . . . . . . . . . . . . . . 18 |- ( ( v = V /\ a = .+ /\ f = F ) -> v = V )
52	51	eleq2d 2247	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( r s w ) e. v <-> ( r s w ) e. V ) )
53		simp2 998	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( v = V /\ a = .+ /\ f = F ) -> a = .+ )
54	53	oveqd 5892	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( w a x ) = ( w .+ x ) )
55	54	oveq2d 5891	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( r s ( w a x ) ) = ( r s ( w .+ x ) ) )
56	53	oveqd 5892	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( r s w ) a ( r s x ) ) = ( ( r s w ) .+ ( r s x ) ) )
57	55, 56	eqeq12d 2192	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) <-> ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) ) )
58	53	oveqd 5892	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( q s w ) a ( r s w ) ) = ( ( q s w ) .+ ( r s w ) ) )
59	58	eqeq2d 2189	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) <-> ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) )
60	52, 57, 59	3anbi123d 1312	. . . . . . . . . . . . . . . . . . . 20 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) <-> ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) ) )
61	21	fveq2d 5520	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( 1r ` f ) = ( 1r ` F ) )
62		islmod.u	. . . . . . . . . . . . . . . . . . . . . . . 24 |- .1. = ( 1r ` F )
63	61, 62	eqtr4di 2228	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( 1r ` f ) = .1. )
64	63	oveq1d 5890	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( 1r ` f ) s w ) = ( .1. s w ) )
65	64	eqeq1d 2186	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( ( 1r ` f ) s w ) = w <-> ( .1. s w ) = w ) )
66	65	anbi2d 464	. . . . . . . . . . . . . . . . . . . 20 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) <-> ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) )
67	60, 66	anbi12d 473	. . . . . . . . . . . . . . . . . . 19 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) <-> ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) )
68	51, 67	raleqbidv 2685	. . . . . . . . . . . . . . . . . 18 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) <-> A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) )
69	51, 68	raleqbidv 2685	. . . . . . . . . . . . . . . . 17 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) <-> A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) )
70	69	2ralbidv 2501	. . . . . . . . . . . . . . . 16 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) <-> A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) )
71	50, 70	anbi12d 473	. . . . . . . . . . . . . . 15 |- ( ( v = V /\ a = .+ /\ f = F ) -> ( ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
72	49, 71	sylan9bb 462	. . . . . . . . . . . . . 14 |- ( ( W e. _V /\ ( v = V /\ a = .+ /\ f = F ) ) -> ( [. .X. / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
73	35, 18, 19, 20, 72	syl13anc 1240	. . . . . . . . . . . . 13 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> ( [. .X. / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
74	34, 73	bitrd 188	. . . . . . . . . . . 12 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> ( [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
75	29, 74	sbceqbid 2970	. . . . . . . . . . 11 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> ( [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
76	25, 75	sbceqbid 2970	. . . . . . . . . 10 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> ( [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. K / k ]. [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
77	76	sbcbidv 3022	. . . . . . . . 9 |- ( ( ( W e. _V /\ ( v = V /\ a = .+ ) ) /\ f = F ) -> ( [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. .x. / s ]. [. K / k ]. [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
78	17, 77	sbcied 3000	. . . . . . . 8 |- ( ( W e. _V /\ ( v = V /\ a = .+ ) ) -> ( [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. .x. / s ]. [. K / k ]. [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
79	78	anassrs 400	. . . . . . 7 |- ( ( ( W e. _V /\ v = V ) /\ a = .+ ) -> ( [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. .x. / s ]. [. K / k ]. [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
80	12, 79	sbcied 3000	. . . . . 6 |- ( ( W e. _V /\ v = V ) -> ( [. .+ / a ]. [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. .x. / s ]. [. K / k ]. [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
81	7, 80	sbcied 3000	. . . . 5 |- ( W e. _V -> ( [. V / v ]. [. .+ / a ]. [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. .x. / s ]. [. K / k ]. [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) ) )
82		islmod.s	. . . . . . 7 |- .x. = ( .s ` W )
83		vscaslid 12621	. . . . . . . 8 |- ( .s = Slot ( .s ` ndx ) /\ ( .s ` ndx ) e. NN )
84	83	slotex 12489	. . . . . . 7 |- ( W e. _V -> ( .s ` W ) e. _V )
85	82, 84	eqeltrid 2264	. . . . . 6 |- ( W e. _V -> .x. e. _V )
86		funfvex 5533	. . . . . . . . . . 11 |- ( ( Fun Base /\ F e. dom Base ) -> ( Base ` F ) e. _V )
87	86	funfni 5317	. . . . . . . . . 10 |- ( ( Base Fn _V /\ F e. _V ) -> ( Base ` F ) e. _V )
88	3, 16, 87	sylancr 414	. . . . . . . . 9 |- ( W e. _V -> ( Base ` F ) e. _V )
89	23, 88	eqeltrid 2264	. . . . . . . 8 |- ( W e. _V -> K e. _V )
90	89	adantr 276	. . . . . . 7 |- ( ( W e. _V /\ s = .x. ) -> K e. _V )
91	9	slotex 12489	. . . . . . . . . . . 12 |- ( F e. _V -> ( +g ` F ) e. _V )
92	16, 91	syl 14	. . . . . . . . . . 11 |- ( W e. _V -> ( +g ` F ) e. _V )
93	27, 92	eqeltrid 2264	. . . . . . . . . 10 |- ( W e. _V -> .+^ e. _V )
94	93	adantr 276	. . . . . . . . 9 |- ( ( W e. _V /\ ( s = .x. /\ k = K ) ) -> .+^ e. _V )
95		simp2 998	. . . . . . . . . . . . 13 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> k = K )
96		simp1 997	. . . . . . . . . . . . . . . . . . 19 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> s = .x. )
97	96	oveqd 5892	. . . . . . . . . . . . . . . . . 18 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( r s w ) = ( r .x. w ) )
98	97	eleq1d 2246	. . . . . . . . . . . . . . . . 17 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( r s w ) e. V <-> ( r .x. w ) e. V ) )
99	96	oveqd 5892	. . . . . . . . . . . . . . . . . 18 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( r s ( w .+ x ) ) = ( r .x. ( w .+ x ) ) )
100	96	oveqd 5892	. . . . . . . . . . . . . . . . . . 19 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( r s x ) = ( r .x. x ) )
101	97, 100	oveq12d 5893	. . . . . . . . . . . . . . . . . 18 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( r s w ) .+ ( r s x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) )
102	99, 101	eqeq12d 2192	. . . . . . . . . . . . . . . . 17 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) <-> ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) ) )
103		simp3 999	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> p = .+^ )
104	103	oveqd 5892	. . . . . . . . . . . . . . . . . . . 20 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( q p r ) = ( q .+^ r ) )
105	104	oveq1d 5890	. . . . . . . . . . . . . . . . . . 19 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( q p r ) s w ) = ( ( q .+^ r ) s w ) )
106	96	oveqd 5892	. . . . . . . . . . . . . . . . . . 19 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( q .+^ r ) s w ) = ( ( q .+^ r ) .x. w ) )
107	105, 106	eqtrd 2210	. . . . . . . . . . . . . . . . . 18 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( q p r ) s w ) = ( ( q .+^ r ) .x. w ) )
108	96	oveqd 5892	. . . . . . . . . . . . . . . . . . 19 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( q s w ) = ( q .x. w ) )
109	108, 97	oveq12d 5893	. . . . . . . . . . . . . . . . . 18 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( q s w ) .+ ( r s w ) ) = ( ( q .x. w ) .+ ( r .x. w ) ) )
110	107, 109	eqeq12d 2192	. . . . . . . . . . . . . . . . 17 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) <-> ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) )
111	98, 102, 110	3anbi123d 1312	. . . . . . . . . . . . . . . 16 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) <-> ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) ) )
112	96	oveqd 5892	. . . . . . . . . . . . . . . . . 18 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( q .X. r ) s w ) = ( ( q .X. r ) .x. w ) )
113	97	oveq2d 5891	. . . . . . . . . . . . . . . . . . 19 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( q s ( r s w ) ) = ( q s ( r .x. w ) ) )
114	96	oveqd 5892	. . . . . . . . . . . . . . . . . . 19 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( q s ( r .x. w ) ) = ( q .x. ( r .x. w ) ) )
115	113, 114	eqtrd 2210	. . . . . . . . . . . . . . . . . 18 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( q s ( r s w ) ) = ( q .x. ( r .x. w ) ) )
116	112, 115	eqeq12d 2192	. . . . . . . . . . . . . . . . 17 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) <-> ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) ) )
117	96	oveqd 5892	. . . . . . . . . . . . . . . . . 18 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( .1. s w ) = ( .1. .x. w ) )
118	117	eqeq1d 2186	. . . . . . . . . . . . . . . . 17 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( .1. s w ) = w <-> ( .1. .x. w ) = w ) )
119	116, 118	anbi12d 473	. . . . . . . . . . . . . . . 16 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) <-> ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) )
120	111, 119	anbi12d 473	. . . . . . . . . . . . . . 15 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) <-> ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) )
121	120	2ralbidv 2501	. . . . . . . . . . . . . 14 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) <-> A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) )
122	95, 121	raleqbidv 2685	. . . . . . . . . . . . 13 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) <-> A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) )
123	95, 122	raleqbidv 2685	. . . . . . . . . . . 12 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) <-> A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) )
124	123	anbi2d 464	. . . . . . . . . . 11 |- ( ( s = .x. /\ k = K /\ p = .+^ ) -> ( ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
125	124	3expa 1203	. . . . . . . . . 10 |- ( ( ( s = .x. /\ k = K ) /\ p = .+^ ) -> ( ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
126	125	adantll 476	. . . . . . . . 9 |- ( ( ( W e. _V /\ ( s = .x. /\ k = K ) ) /\ p = .+^ ) -> ( ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
127	94, 126	sbcied 3000	. . . . . . . 8 |- ( ( W e. _V /\ ( s = .x. /\ k = K ) ) -> ( [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
128	127	anassrs 400	. . . . . . 7 |- ( ( ( W e. _V /\ s = .x. ) /\ k = K ) -> ( [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
129	90, 128	sbcied 3000	. . . . . 6 |- ( ( W e. _V /\ s = .x. ) -> ( [. K / k ]. [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
130	85, 129	sbcied 3000	. . . . 5 |- ( W e. _V -> ( [. .x. / s ]. [. K / k ]. [. .+^ / p ]. ( F e. Ring /\ A. q e. k A. r e. k A. x e. V A. w e. V ( ( ( r s w ) e. V /\ ( r s ( w .+ x ) ) = ( ( r s w ) .+ ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) .+ ( r s w ) ) ) /\ ( ( ( q .X. r ) s w ) = ( q s ( r s w ) ) /\ ( .1. s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
131	81, 130	bitrd 188	. . . 4 |- ( W e. _V -> ( [. V / v ]. [. .+ / a ]. [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
132	1, 131	syl 14	. . 3 |- ( W e. Grp -> ( [. V / v ]. [. .+ / a ]. [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
133	132	pm5.32i 454	. 2 |- ( ( W e. Grp /\ [. V / v ]. [. .+ / a ]. [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) <-> ( W e. Grp /\ ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
134		fveq2 5516	. . . . 5 |- ( g = W -> ( Base ` g ) = ( Base ` W ) )
135	134, 2	eqtr4di 2228	. . . 4 |- ( g = W -> ( Base ` g ) = V )
136		fveq2 5516	. . . . . 6 |- ( g = W -> ( +g ` g ) = ( +g ` W ) )
137	136, 8	eqtr4di 2228	. . . . 5 |- ( g = W -> ( +g ` g ) = .+ )
138		fveq2 5516	. . . . . . 7 |- ( g = W -> (Scalar ` g ) = (Scalar ` W ) )
139	138, 13	eqtr4di 2228	. . . . . 6 |- ( g = W -> (Scalar ` g ) = F )
140		fveq2 5516	. . . . . . . 8 |- ( g = W -> ( .s ` g ) = ( .s ` W ) )
141	140, 82	eqtr4di 2228	. . . . . . 7 |- ( g = W -> ( .s ` g ) = .x. )
142	141	sbceq1d 2968	. . . . . 6 |- ( g = W -> ( [. ( .s ` g ) / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) )
143	139, 142	sbceqbid 2970	. . . . 5 |- ( g = W -> ( [. (Scalar ` g ) / f ]. [. ( .s ` g ) / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) )
144	137, 143	sbceqbid 2970	. . . 4 |- ( g = W -> ( [. ( +g ` g ) / a ]. [. (Scalar ` g ) / f ]. [. ( .s ` g ) / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. .+ / a ]. [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) )
145	135, 144	sbceqbid 2970	. . 3 |- ( g = W -> ( [. ( Base ` g ) / v ]. [. ( +g ` g ) / a ]. [. (Scalar ` g ) / f ]. [. ( .s ` g ) / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) <-> [. V / v ]. [. .+ / a ]. [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) )
146		df-lmod 13379	. . 3 |- LMod = { g e. Grp | [. ( Base ` g ) / v ]. [. ( +g ` g ) / a ]. [. (Scalar ` g ) / f ]. [. ( .s ` g ) / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) }
147	145, 146	elrab2 2897	. 2 |- ( W e. LMod <-> ( W e. Grp /\ [. V / v ]. [. .+ / a ]. [. F / f ]. [. .x. / s ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. Ring /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w ) ) ) ) )
148		3anass 982	. 2 |- ( ( W e. Grp /\ F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) <-> ( W e. Grp /\ ( F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) ) )
149	133, 147, 148	3bitr4i 212	1 |- ( W e. LMod <-> ( W e. Grp /\ F e. Ring /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w ) ) ) )

Syntax hints:   /\ wa 104   <-> wb 105   /\ w3a 978   = wceq 1353   e. wcel 2148   A.wral 2455   _Vcvv 2738   [.wsbc 2963   Fn wfn 5212   ` cfv 5217  (class class class)co 5875   Basecbs 12462   +g cplusg 12536   .rcmulr 12537  Scalarcsca 12539   .scvsca 12540   Grpcgrp 12877   1rcur 13142   Ringcrg 13179   LModclmod 13377

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-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-sep 4122  ax-pow 4175  ax-pr 4210  ax-un 4434  ax-cnex 7902  ax-resscn 7903  ax-1re 7905  ax-addrcl 7908

This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ral 2460  df-rex 2461  df-rab 2464  df-v 2740  df-sbc 2964  df-un 3134  df-in 3136  df-ss 3143  df-pw 3578  df-sn 3599  df-pr 3600  df-op 3602  df-uni 3811  df-int 3846  df-br 4005  df-opab 4066  df-mpt 4067  df-id 4294  df-xp 4633  df-rel 4634  df-cnv 4635  df-co 4636  df-dm 4637  df-rn 4638  df-res 4639  df-iota 5179  df-fun 5219  df-fn 5220  df-fv 5225  df-ov 5878  df-inn 8920  df-2 8978  df-3 8979  df-4 8980  df-5 8981  df-6 8982  df-ndx 12465  df-slot 12466  df-base 12468  df-plusg 12549  df-mulr 12550  df-sca 12552  df-vsca 12553  df-lmod 13379

This theorem is referenced by:  lmodlema  13382  islmodd  13383  lmodgrp  13384  lmodring  13385  lmodprop2d  13438