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

Theorem islmod 15946
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.
StepHypRef Expression
1 fveq2 5720 . . . . . . 7  |-  ( g  =  W  ->  ( Base `  g )  =  ( Base `  W
) )
2 islmod.v . . . . . . 7  |-  V  =  ( Base `  W
)
31, 2syl6eqr 2485 . . . . . 6  |-  ( g  =  W  ->  ( Base `  g )  =  V )
4 dfsbcq 3155 . . . . . 6  |-  ( (
Base `  g )  =  V  ->  ( [. ( 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 ]. [. ( +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 ) ) ) ) )
53, 4syl 16 . . . . 5  |-  ( 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 ]. [. ( +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 ) ) ) ) )
6 fveq2 5720 . . . . . . . . 9  |-  ( g  =  W  ->  ( +g  `  g )  =  ( +g  `  W
) )
7 islmod.a . . . . . . . . 9  |-  .+  =  ( +g  `  W )
86, 7syl6eqr 2485 . . . . . . . 8  |-  ( g  =  W  ->  ( +g  `  g )  = 
.+  )
9 dfsbcq 3155 . . . . . . . 8  |-  ( ( +g  `  g )  =  .+  ->  ( [. ( +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 ]. [. (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 ) ) ) ) )
108, 9syl 16 . . . . . . 7  |-  ( 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 ]. [. (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 ) ) ) ) )
11 fveq2 5720 . . . . . . . . . . 11  |-  ( g  =  W  ->  (Scalar `  g )  =  (Scalar `  W ) )
12 islmod.f . . . . . . . . . . 11  |-  F  =  (Scalar `  W )
1311, 12syl6eqr 2485 . . . . . . . . . 10  |-  ( g  =  W  ->  (Scalar `  g )  =  F )
14 dfsbcq 3155 . . . . . . . . . 10  |-  ( (Scalar `  g )  =  F  ->  ( [. (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 ]. [. ( .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 ) ) ) ) )
1513, 14syl 16 . . . . . . . . 9  |-  ( 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 ]. [. ( .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 ) ) ) ) )
16 fveq2 5720 . . . . . . . . . . . 12  |-  ( g  =  W  ->  ( .s `  g )  =  ( .s `  W
) )
17 islmod.s . . . . . . . . . . . 12  |-  .x.  =  ( .s `  W )
1816, 17syl6eqr 2485 . . . . . . . . . . 11  |-  ( g  =  W  ->  ( .s `  g )  = 
.x.  )
19 dfsbcq 3155 . . . . . . . . . . 11  |-  ( ( .s `  g )  =  .x.  ->  ( [. ( .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 ) ) ) ) )
2018, 19syl 16 . . . . . . . . . 10  |-  ( 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 ) ) ) ) )
2120sbcbidv 3207 . . . . . . . . 9  |-  ( g  =  W  ->  ( [. F  /  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 ) ) ) ) )
2215, 21bitrd 245 . . . . . . . 8  |-  ( 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 ) ) ) ) )
2322sbcbidv 3207 . . . . . . 7  |-  ( g  =  W  ->  ( [.  .+  /  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 ) ) ) ) )
2410, 23bitrd 245 . . . . . 6  |-  ( 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 ) ) ) ) )
2524sbcbidv 3207 . . . . 5  |-  ( g  =  W  ->  ( [. V  /  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 ) ) ) ) )
265, 25bitrd 245 . . . 4  |-  ( 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 ) ) ) ) )
27 fvex 5734 . . . . . . 7  |-  ( Base `  W )  e.  _V
282, 27eqeltri 2505 . . . . . 6  |-  V  e. 
_V
29 fvex 5734 . . . . . . 7  |-  ( +g  `  W )  e.  _V
307, 29eqeltri 2505 . . . . . 6  |-  .+  e.  _V
31 fvex 5734 . . . . . . 7  |-  (Scalar `  W )  e.  _V
3212, 31eqeltri 2505 . . . . . 6  |-  F  e. 
_V
33 simp3 959 . . . . . . . . . . 11  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  f  =  F )
3433fveq2d 5724 . . . . . . . . . 10  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  ( Base `  f )  =  ( Base `  F
) )
35 islmod.k . . . . . . . . . 10  |-  K  =  ( Base `  F
)
3634, 35syl6eqr 2485 . . . . . . . . 9  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  ( Base `  f )  =  K )
37 dfsbcq 3155 . . . . . . . . 9  |-  ( (
Base `  f )  =  K  ->  ( [. ( 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 ]. [. ( +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 ) ) ) ) )
3836, 37syl 16 . . . . . . . 8  |-  ( ( 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 ]. [. ( +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 ) ) ) ) )
3933fveq2d 5724 . . . . . . . . . . . 12  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  ( +g  `  f )  =  ( +g  `  F
) )
40 islmod.p . . . . . . . . . . . 12  |-  .+^  =  ( +g  `  F )
4139, 40syl6eqr 2485 . . . . . . . . . . 11  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  ( +g  `  f )  = 
.+^  )
42 dfsbcq 3155 . . . . . . . . . . 11  |-  ( ( +g  `  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 ]. [. ( .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 ) ) ) ) )
4341, 42syl 16 . . . . . . . . . 10  |-  ( ( 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 ]. [. ( .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 ) ) ) ) )
4433fveq2d 5724 . . . . . . . . . . . . . 14  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  ( .r `  f )  =  ( .r `  F
) )
45 islmod.t . . . . . . . . . . . . . 14  |-  .X.  =  ( .r `  F )
4644, 45syl6eqr 2485 . . . . . . . . . . . . 13  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  ( .r `  f )  = 
.X.  )
47 dfsbcq 3155 . . . . . . . . . . . . 13  |-  ( ( .r `  f )  =  .X.  ->  ( [. ( .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 ) ) ) ) )
4846, 47syl 16 . . . . . . . . . . . 12  |-  ( ( 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 ) ) ) ) )
49 fvex 5734 . . . . . . . . . . . . . . 15  |-  ( .r
`  F )  e. 
_V
5045, 49eqeltri 2505 . . . . . . . . . . . . . 14  |-  .X.  e.  _V
51 oveq 6079 . . . . . . . . . . . . . . . . . . . . 21  |-  ( t  =  .X.  ->  ( q t r )  =  ( q  .X.  r
) )
5251oveq1d 6088 . . . . . . . . . . . . . . . . . . . 20  |-  ( t  =  .X.  ->  ( ( q t r ) s w )  =  ( ( q  .X.  r ) s w ) )
5352eqeq1d 2443 . . . . . . . . . . . . . . . . . . 19  |-  ( t  =  .X.  ->  ( ( ( q t r ) s w )  =  ( q s ( r s w ) )  <->  ( (
q  .X.  r )
s w )  =  ( q s ( r s w ) ) ) )
5453anbi1d 686 . . . . . . . . . . . . . . . . . 18  |-  ( 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 ) ) )
5554anbi2d 685 . . . . . . . . . . . . . . . . 17  |-  ( 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 ) ) ) )
56552ralbidv 2739 . . . . . . . . . . . . . . . 16  |-  ( 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 ) ) ) )
57562ralbidv 2739 . . . . . . . . . . . . . . 15  |-  ( 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 ) ) ) )
5857anbi2d 685 . . . . . . . . . . . . . 14  |-  ( 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 ) ) ) ) )
5950, 58sbcie 3187 . . . . . . . . . . . . 13  |-  ( [.  .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 ) ) ) )
6033eleq1d 2501 . . . . . . . . . . . . . 14  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  (
f  e.  Ring  <->  F  e.  Ring ) )
61 simp1 957 . . . . . . . . . . . . . . . 16  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  v  =  V )
6261eleq2d 2502 . . . . . . . . . . . . . . . . . . 19  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  (
( r s w )  e.  v  <->  ( r
s w )  e.  V ) )
63 simp2 958 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  a  =  .+  )
6463oveqd 6090 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  (
w a x )  =  ( w  .+  x ) )
6564oveq2d 6089 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  (
r s ( w a x ) )  =  ( r s ( w  .+  x
) ) )
6663oveqd 6090 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  (
( r s w ) a ( r s x ) )  =  ( ( r s w )  .+  ( r s x ) ) )
6765, 66eqeq12d 2449 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 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 ) ) ) )
6863oveqd 6090 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  (
( q s w ) a ( r s w ) )  =  ( ( q s w )  .+  ( r s w ) ) )
6968eqeq2d 2446 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 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 ) ) ) )
7062, 67, 693anbi123d 1254 . . . . . . . . . . . . . . . . . 18  |-  ( ( 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 ) ) ) ) )
7133fveq2d 5724 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  ( 1r `  f )  =  ( 1r `  F
) )
72 islmod.u . . . . . . . . . . . . . . . . . . . . . 22  |-  .1.  =  ( 1r `  F )
7371, 72syl6eqr 2485 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  ( 1r `  f )  =  .1.  )
7473oveq1d 6088 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  (
( 1r `  f
) s w )  =  (  .1.  s
w ) )
7574eqeq1d 2443 . . . . . . . . . . . . . . . . . . 19  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  (
( ( 1r `  f ) s w )  =  w  <->  (  .1.  s w )  =  w ) )
7675anbi2d 685 . . . . . . . . . . . . . . . . . 18  |-  ( ( 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 ) ) )
7770, 76anbi12d 692 . . . . . . . . . . . . . . . . 17  |-  ( ( 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 ) ) ) )
7861, 77raleqbidv 2908 . . . . . . . . . . . . . . . 16  |-  ( ( 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 ) ) ) )
7961, 78raleqbidv 2908 . . . . . . . . . . . . . . 15  |-  ( ( 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 ) ) ) )
80792ralbidv 2739 . . . . . . . . . . . . . 14  |-  ( ( 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 ) ) ) )
8160, 80anbi12d 692 . . . . . . . . . . . . 13  |-  ( ( 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 ) ) ) ) )
8259, 81syl5bb 249 . . . . . . . . . . . 12  |-  ( ( 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 ) ) ) ) )
8348, 82bitrd 245 . . . . . . . . . . 11  |-  ( ( 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 ) ) ) ) )
8483sbcbidv 3207 . . . . . . . . . 10  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  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 ) ) ) ) )
8543, 84bitrd 245 . . . . . . . . 9  |-  ( ( 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 ) ) ) ) )
8685sbcbidv 3207 . . . . . . . 8  |-  ( ( v  =  V  /\  a  =  .+  /\  f  =  F )  ->  ( [. K  /  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 ) ) ) ) )
8738, 86bitrd 245 . . . . . . 7  |-  ( ( 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 ) ) ) ) )
8887sbcbidv 3207 . . . . . 6  |-  ( ( 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 ) ) ) ) )
8928, 30, 32, 88sbc3ie 3222 . . . . 5  |-  ( [. 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 ) ) ) )
90 fvex 5734 . . . . . . 7  |-  ( .s
`  W )  e. 
_V
9117, 90eqeltri 2505 . . . . . 6  |-  .x.  e.  _V
92 fvex 5734 . . . . . . 7  |-  ( Base `  F )  e.  _V
9335, 92eqeltri 2505 . . . . . 6  |-  K  e. 
_V
94 fvex 5734 . . . . . . 7  |-  ( +g  `  F )  e.  _V
9540, 94eqeltri 2505 . . . . . 6  |-  .+^  e.  _V
96 simp2 958 . . . . . . . 8  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
k  =  K )
97 simp1 957 . . . . . . . . . . . . . 14  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
s  =  .x.  )
9897oveqd 6090 . . . . . . . . . . . . 13  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( r s w )  =  ( r 
.x.  w ) )
9998eleq1d 2501 . . . . . . . . . . . 12  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( ( r s w )  e.  V  <->  ( r  .x.  w )  e.  V ) )
10097oveqd 6090 . . . . . . . . . . . . 13  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( r s ( w  .+  x ) )  =  ( r 
.x.  ( w  .+  x ) ) )
10197oveqd 6090 . . . . . . . . . . . . . 14  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( r s x )  =  ( r 
.x.  x ) )
10298, 101oveq12d 6091 . . . . . . . . . . . . 13  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( ( r s w )  .+  (
r s x ) )  =  ( ( r  .x.  w ) 
.+  ( r  .x.  x ) ) )
103100, 102eqeq12d 2449 . . . . . . . . . . . 12  |-  ( ( 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 ) ) ) )
104 simp3 959 . . . . . . . . . . . . . . . 16  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  ->  p  =  .+^  )
105104oveqd 6090 . . . . . . . . . . . . . . 15  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( q p r )  =  ( q 
.+^  r ) )
106105oveq1d 6088 . . . . . . . . . . . . . 14  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( ( q p r ) s w )  =  ( ( q  .+^  r )
s w ) )
10797oveqd 6090 . . . . . . . . . . . . . 14  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( ( q  .+^  r ) s w )  =  ( ( q  .+^  r )  .x.  w ) )
108106, 107eqtrd 2467 . . . . . . . . . . . . 13  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( ( q p r ) s w )  =  ( ( q  .+^  r )  .x.  w ) )
10997oveqd 6090 . . . . . . . . . . . . . 14  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( q s w )  =  ( q 
.x.  w ) )
110109, 98oveq12d 6091 . . . . . . . . . . . . 13  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( ( q s w )  .+  (
r s w ) )  =  ( ( q  .x.  w ) 
.+  ( r  .x.  w ) ) )
111108, 110eqeq12d 2449 . . . . . . . . . . . 12  |-  ( ( 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 ) ) ) )
11299, 103, 1113anbi123d 1254 . . . . . . . . . . 11  |-  ( ( 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 ) ) ) ) )
11397oveqd 6090 . . . . . . . . . . . . 13  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( ( q  .X.  r ) s w )  =  ( ( q  .X.  r )  .x.  w ) )
11498oveq2d 6089 . . . . . . . . . . . . . 14  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( q s ( r s w ) )  =  ( q s ( r  .x.  w ) ) )
11597oveqd 6090 . . . . . . . . . . . . . 14  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( q s ( r  .x.  w ) )  =  ( q 
.x.  ( r  .x.  w ) ) )
116114, 115eqtrd 2467 . . . . . . . . . . . . 13  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( q s ( r s w ) )  =  ( q 
.x.  ( r  .x.  w ) ) )
117113, 116eqeq12d 2449 . . . . . . . . . . . 12  |-  ( ( 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 ) ) ) )
11897oveqd 6090 . . . . . . . . . . . . 13  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
(  .1.  s w )  =  (  .1. 
.x.  w ) )
119118eqeq1d 2443 . . . . . . . . . . . 12  |-  ( ( s  =  .x.  /\  k  =  K  /\  p  =  .+^  )  -> 
( (  .1.  s
w )  =  w  <-> 
(  .1.  .x.  w
)  =  w ) )
120117, 119anbi12d 692 . . . . . . . . . . 11  |-  ( ( 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 ) ) )
121112, 120anbi12d 692 . . . . . . . . . 10  |-  ( ( 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 ) ) ) )
1221212ralbidv 2739 . . . . . . . . 9  |-  ( ( 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 ) ) ) )
12396, 122raleqbidv 2908 . . . . . . . 8  |-  ( ( 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 ) ) ) )
12496, 123raleqbidv 2908 . . . . . . 7  |-  ( ( 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 ) ) ) )
125124anbi2d 685 . . . . . 6  |-  ( ( 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 ) ) ) ) )
12691, 93, 95, 125sbc3ie 3222 . . . . 5  |-  ( [.  .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 ) ) ) )
12789, 126bitri 241 . . . 4  |-  ( [. 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 ) ) ) )
12826, 127syl6bb 253 . . 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 ) ) )  <->  ( 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 df-lmod 15944 . . 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 ) ) ) }
130128, 129elrab2 3086 . 2  |-  ( 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 ) ) ) ) )
131 3anass 940 . 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 ) ) ) ) )
132130, 131bitr4i 244 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 ) ) ) )
Colors of variables: wff set class
Syntax hints:    <-> wb 177    /\ wa 359    /\ w3a 936    = wceq 1652    e. wcel 1725   A.wral 2697   _Vcvv 2948   [.wsbc 3153   ` cfv 5446  (class class class)co 6073   Basecbs 13461   +g cplusg 13521   .rcmulr 13522  Scalarcsca 13524   .scvsca 13525   Grpcgrp 14677   Ringcrg 15652   1rcur 15654   LModclmod 15942
This theorem is referenced by:  lmodlema  15947  islmodd  15948  lmodgrp  15949  lmodrng  15950  lmodprop2d  15998
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1555  ax-5 1566  ax-17 1626  ax-9 1666  ax-8 1687  ax-6 1744  ax-7 1749  ax-11 1761  ax-12 1950  ax-ext 2416  ax-nul 4330
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3an 938  df-tru 1328  df-ex 1551  df-nf 1554  df-sb 1659  df-eu 2284  df-clab 2422  df-cleq 2428  df-clel 2431  df-nfc 2560  df-ne 2600  df-ral 2702  df-rex 2703  df-rab 2706  df-v 2950  df-sbc 3154  df-dif 3315  df-un 3317  df-in 3319  df-ss 3326  df-nul 3621  df-if 3732  df-sn 3812  df-pr 3813  df-op 3815  df-uni 4008  df-br 4205  df-iota 5410  df-fv 5454  df-ov 6076  df-lmod 15944
  Copyright terms: Public domain W3C validator