Metamath Proof Explorer


Theorem cpmatacl

Description: The set of all constant polynomial matrices over a ring R is closed under addition. (Contributed by AV, 17-Nov-2019) (Proof shortened by AV, 28-Nov-2019)

Ref Expression
Hypotheses cpmatsrngpmat.s
|- S = ( N ConstPolyMat R )
cpmatsrngpmat.p
|- P = ( Poly1 ` R )
cpmatsrngpmat.c
|- C = ( N Mat P )
Assertion cpmatacl
|- ( ( N e. Fin /\ R e. Ring ) -> A. x e. S A. y e. S ( x ( +g ` C ) y ) e. S )

Proof

Step Hyp Ref Expression
1 cpmatsrngpmat.s
 |-  S = ( N ConstPolyMat R )
2 cpmatsrngpmat.p
 |-  P = ( Poly1 ` R )
3 cpmatsrngpmat.c
 |-  C = ( N Mat P )
4 eqid
 |-  ( Base ` C ) = ( Base ` C )
5 eqid
 |-  ( Base ` R ) = ( Base ` R )
6 eqid
 |-  ( algSc ` P ) = ( algSc ` P )
7 1 2 3 4 5 6 cpmatelimp2
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( x e. S -> ( x e. ( Base ` C ) /\ A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) ) ) )
8 1 2 3 4 5 6 cpmatelimp2
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( y e. S -> ( y e. ( Base ` C ) /\ A. i e. N A. j e. N E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) ) ) )
9 r19.26-2
 |-  ( A. i e. N A. j e. N ( E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) /\ E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) ) <-> ( A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) /\ A. i e. N A. j e. N E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) ) )
10 eqid
 |-  ( +g ` R ) = ( +g ` R )
11 5 10 ringacl
 |-  ( ( R e. Ring /\ a e. ( Base ` R ) /\ b e. ( Base ` R ) ) -> ( a ( +g ` R ) b ) e. ( Base ` R ) )
12 11 3expb
 |-  ( ( R e. Ring /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> ( a ( +g ` R ) b ) e. ( Base ` R ) )
13 2 ply1sca
 |-  ( R e. Ring -> R = ( Scalar ` P ) )
14 13 eqcomd
 |-  ( R e. Ring -> ( Scalar ` P ) = R )
15 14 fveq2d
 |-  ( R e. Ring -> ( +g ` ( Scalar ` P ) ) = ( +g ` R ) )
16 15 oveqd
 |-  ( R e. Ring -> ( a ( +g ` ( Scalar ` P ) ) b ) = ( a ( +g ` R ) b ) )
17 16 eleq1d
 |-  ( R e. Ring -> ( ( a ( +g ` ( Scalar ` P ) ) b ) e. ( Base ` R ) <-> ( a ( +g ` R ) b ) e. ( Base ` R ) ) )
18 17 adantr
 |-  ( ( R e. Ring /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> ( ( a ( +g ` ( Scalar ` P ) ) b ) e. ( Base ` R ) <-> ( a ( +g ` R ) b ) e. ( Base ` R ) ) )
19 12 18 mpbird
 |-  ( ( R e. Ring /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> ( a ( +g ` ( Scalar ` P ) ) b ) e. ( Base ` R ) )
20 19 ad5ant25
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> ( a ( +g ` ( Scalar ` P ) ) b ) e. ( Base ` R ) )
21 20 adantr
 |-  ( ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) /\ ( ( i y j ) = ( ( algSc ` P ) ` b ) /\ ( i x j ) = ( ( algSc ` P ) ` a ) ) ) -> ( a ( +g ` ( Scalar ` P ) ) b ) e. ( Base ` R ) )
22 fveq2
 |-  ( c = ( a ( +g ` ( Scalar ` P ) ) b ) -> ( ( algSc ` P ) ` c ) = ( ( algSc ` P ) ` ( a ( +g ` ( Scalar ` P ) ) b ) ) )
23 22 eqeq2d
 |-  ( c = ( a ( +g ` ( Scalar ` P ) ) b ) -> ( ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) <-> ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` ( a ( +g ` ( Scalar ` P ) ) b ) ) ) )
24 23 adantl
 |-  ( ( ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) /\ ( ( i y j ) = ( ( algSc ` P ) ` b ) /\ ( i x j ) = ( ( algSc ` P ) ` a ) ) ) /\ c = ( a ( +g ` ( Scalar ` P ) ) b ) ) -> ( ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) <-> ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` ( a ( +g ` ( Scalar ` P ) ) b ) ) ) )
25 simpr
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) -> ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) )
26 25 ancomd
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) -> ( x e. ( Base ` C ) /\ y e. ( Base ` C ) ) )
27 26 anim1i
 |-  ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) -> ( ( x e. ( Base ` C ) /\ y e. ( Base ` C ) ) /\ ( i e. N /\ j e. N ) ) )
28 27 ad2antrr
 |-  ( ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) /\ ( ( i y j ) = ( ( algSc ` P ) ` b ) /\ ( i x j ) = ( ( algSc ` P ) ` a ) ) ) -> ( ( x e. ( Base ` C ) /\ y e. ( Base ` C ) ) /\ ( i e. N /\ j e. N ) ) )
29 eqid
 |-  ( +g ` C ) = ( +g ` C )
30 eqid
 |-  ( +g ` P ) = ( +g ` P )
31 3 4 29 30 matplusgcell
 |-  ( ( ( x e. ( Base ` C ) /\ y e. ( Base ` C ) ) /\ ( i e. N /\ j e. N ) ) -> ( i ( x ( +g ` C ) y ) j ) = ( ( i x j ) ( +g ` P ) ( i y j ) ) )
32 28 31 syl
 |-  ( ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) /\ ( ( i y j ) = ( ( algSc ` P ) ` b ) /\ ( i x j ) = ( ( algSc ` P ) ` a ) ) ) -> ( i ( x ( +g ` C ) y ) j ) = ( ( i x j ) ( +g ` P ) ( i y j ) ) )
33 oveq12
 |-  ( ( ( i x j ) = ( ( algSc ` P ) ` a ) /\ ( i y j ) = ( ( algSc ` P ) ` b ) ) -> ( ( i x j ) ( +g ` P ) ( i y j ) ) = ( ( ( algSc ` P ) ` a ) ( +g ` P ) ( ( algSc ` P ) ` b ) ) )
34 33 ancoms
 |-  ( ( ( i y j ) = ( ( algSc ` P ) ` b ) /\ ( i x j ) = ( ( algSc ` P ) ` a ) ) -> ( ( i x j ) ( +g ` P ) ( i y j ) ) = ( ( ( algSc ` P ) ` a ) ( +g ` P ) ( ( algSc ` P ) ` b ) ) )
35 eqid
 |-  ( Scalar ` P ) = ( Scalar ` P )
36 2 ply1ring
 |-  ( R e. Ring -> P e. Ring )
37 36 ad4antlr
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> P e. Ring )
38 2 ply1lmod
 |-  ( R e. Ring -> P e. LMod )
39 38 ad4antlr
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> P e. LMod )
40 6 35 37 39 asclghm
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> ( algSc ` P ) e. ( ( Scalar ` P ) GrpHom P ) )
41 13 adantl
 |-  ( ( N e. Fin /\ R e. Ring ) -> R = ( Scalar ` P ) )
42 41 fveq2d
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( Base ` R ) = ( Base ` ( Scalar ` P ) ) )
43 42 eleq2d
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( a e. ( Base ` R ) <-> a e. ( Base ` ( Scalar ` P ) ) ) )
44 43 biimpd
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( a e. ( Base ` R ) -> a e. ( Base ` ( Scalar ` P ) ) ) )
45 44 ad2antrr
 |-  ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) -> ( a e. ( Base ` R ) -> a e. ( Base ` ( Scalar ` P ) ) ) )
46 45 adantrd
 |-  ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) -> ( ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) -> a e. ( Base ` ( Scalar ` P ) ) ) )
47 46 imp
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> a e. ( Base ` ( Scalar ` P ) ) )
48 13 ad3antlr
 |-  ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) -> R = ( Scalar ` P ) )
49 48 fveq2d
 |-  ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) -> ( Base ` R ) = ( Base ` ( Scalar ` P ) ) )
50 49 eleq2d
 |-  ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) -> ( b e. ( Base ` R ) <-> b e. ( Base ` ( Scalar ` P ) ) ) )
51 50 biimpd
 |-  ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) -> ( b e. ( Base ` R ) -> b e. ( Base ` ( Scalar ` P ) ) ) )
52 51 adantld
 |-  ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) -> ( ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) -> b e. ( Base ` ( Scalar ` P ) ) ) )
53 52 imp
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> b e. ( Base ` ( Scalar ` P ) ) )
54 eqid
 |-  ( Base ` ( Scalar ` P ) ) = ( Base ` ( Scalar ` P ) )
55 eqid
 |-  ( +g ` ( Scalar ` P ) ) = ( +g ` ( Scalar ` P ) )
56 54 55 30 ghmlin
 |-  ( ( ( algSc ` P ) e. ( ( Scalar ` P ) GrpHom P ) /\ a e. ( Base ` ( Scalar ` P ) ) /\ b e. ( Base ` ( Scalar ` P ) ) ) -> ( ( algSc ` P ) ` ( a ( +g ` ( Scalar ` P ) ) b ) ) = ( ( ( algSc ` P ) ` a ) ( +g ` P ) ( ( algSc ` P ) ` b ) ) )
57 40 47 53 56 syl3anc
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> ( ( algSc ` P ) ` ( a ( +g ` ( Scalar ` P ) ) b ) ) = ( ( ( algSc ` P ) ` a ) ( +g ` P ) ( ( algSc ` P ) ` b ) ) )
58 57 eqcomd
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> ( ( ( algSc ` P ) ` a ) ( +g ` P ) ( ( algSc ` P ) ` b ) ) = ( ( algSc ` P ) ` ( a ( +g ` ( Scalar ` P ) ) b ) ) )
59 34 58 sylan9eqr
 |-  ( ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) /\ ( ( i y j ) = ( ( algSc ` P ) ` b ) /\ ( i x j ) = ( ( algSc ` P ) ` a ) ) ) -> ( ( i x j ) ( +g ` P ) ( i y j ) ) = ( ( algSc ` P ) ` ( a ( +g ` ( Scalar ` P ) ) b ) ) )
60 32 59 eqtrd
 |-  ( ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) /\ ( ( i y j ) = ( ( algSc ` P ) ` b ) /\ ( i x j ) = ( ( algSc ` P ) ` a ) ) ) -> ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` ( a ( +g ` ( Scalar ` P ) ) b ) ) )
61 21 24 60 rspcedvd
 |-  ( ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) /\ ( ( i y j ) = ( ( algSc ` P ) ` b ) /\ ( i x j ) = ( ( algSc ` P ) ` a ) ) ) -> E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) )
62 61 exp32
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ ( a e. ( Base ` R ) /\ b e. ( Base ` R ) ) ) -> ( ( i y j ) = ( ( algSc ` P ) ` b ) -> ( ( i x j ) = ( ( algSc ` P ) ` a ) -> E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
63 62 anassrs
 |-  ( ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ a e. ( Base ` R ) ) /\ b e. ( Base ` R ) ) -> ( ( i y j ) = ( ( algSc ` P ) ` b ) -> ( ( i x j ) = ( ( algSc ` P ) ` a ) -> E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
64 63 rexlimdva
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ a e. ( Base ` R ) ) -> ( E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) -> ( ( i x j ) = ( ( algSc ` P ) ` a ) -> E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
65 64 com23
 |-  ( ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) /\ a e. ( Base ` R ) ) -> ( ( i x j ) = ( ( algSc ` P ) ` a ) -> ( E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) -> E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
66 65 rexlimdva
 |-  ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) -> ( E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) -> ( E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) -> E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
67 66 impd
 |-  ( ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) /\ ( i e. N /\ j e. N ) ) -> ( ( E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) /\ E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) ) -> E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) )
68 67 ralimdvva
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) -> ( A. i e. N A. j e. N ( E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) /\ E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) ) -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) )
69 9 68 syl5bir
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) -> ( ( A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) /\ A. i e. N A. j e. N E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) ) -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) )
70 69 expd
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( y e. ( Base ` C ) /\ x e. ( Base ` C ) ) ) -> ( A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) -> ( A. i e. N A. j e. N E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
71 70 expr
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ y e. ( Base ` C ) ) -> ( x e. ( Base ` C ) -> ( A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) -> ( A. i e. N A. j e. N E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) ) )
72 71 impd
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ y e. ( Base ` C ) ) -> ( ( x e. ( Base ` C ) /\ A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) ) -> ( A. i e. N A. j e. N E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
73 72 ex
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( y e. ( Base ` C ) -> ( ( x e. ( Base ` C ) /\ A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) ) -> ( A. i e. N A. j e. N E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) ) )
74 73 com34
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( y e. ( Base ` C ) -> ( A. i e. N A. j e. N E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) -> ( ( x e. ( Base ` C ) /\ A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) ) -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) ) )
75 74 impd
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( ( y e. ( Base ` C ) /\ A. i e. N A. j e. N E. b e. ( Base ` R ) ( i y j ) = ( ( algSc ` P ) ` b ) ) -> ( ( x e. ( Base ` C ) /\ A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) ) -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
76 8 75 syld
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( y e. S -> ( ( x e. ( Base ` C ) /\ A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) ) -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
77 76 com23
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( ( x e. ( Base ` C ) /\ A. i e. N A. j e. N E. a e. ( Base ` R ) ( i x j ) = ( ( algSc ` P ) ` a ) ) -> ( y e. S -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
78 7 77 syld
 |-  ( ( N e. Fin /\ R e. Ring ) -> ( x e. S -> ( y e. S -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) ) )
79 78 imp32
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) )
80 simpl
 |-  ( ( N e. Fin /\ R e. Ring ) -> N e. Fin )
81 80 adantr
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> N e. Fin )
82 simpr
 |-  ( ( N e. Fin /\ R e. Ring ) -> R e. Ring )
83 82 adantr
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> R e. Ring )
84 2 3 pmatring
 |-  ( ( N e. Fin /\ R e. Ring ) -> C e. Ring )
85 84 adantr
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> C e. Ring )
86 simpl
 |-  ( ( x e. S /\ y e. S ) -> x e. S )
87 86 anim2i
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> ( ( N e. Fin /\ R e. Ring ) /\ x e. S ) )
88 df-3an
 |-  ( ( N e. Fin /\ R e. Ring /\ x e. S ) <-> ( ( N e. Fin /\ R e. Ring ) /\ x e. S ) )
89 87 88 sylibr
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> ( N e. Fin /\ R e. Ring /\ x e. S ) )
90 1 2 3 4 cpmatpmat
 |-  ( ( N e. Fin /\ R e. Ring /\ x e. S ) -> x e. ( Base ` C ) )
91 89 90 syl
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> x e. ( Base ` C ) )
92 simpr
 |-  ( ( x e. S /\ y e. S ) -> y e. S )
93 92 anim2i
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> ( ( N e. Fin /\ R e. Ring ) /\ y e. S ) )
94 df-3an
 |-  ( ( N e. Fin /\ R e. Ring /\ y e. S ) <-> ( ( N e. Fin /\ R e. Ring ) /\ y e. S ) )
95 93 94 sylibr
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> ( N e. Fin /\ R e. Ring /\ y e. S ) )
96 1 2 3 4 cpmatpmat
 |-  ( ( N e. Fin /\ R e. Ring /\ y e. S ) -> y e. ( Base ` C ) )
97 95 96 syl
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> y e. ( Base ` C ) )
98 4 29 ringacl
 |-  ( ( C e. Ring /\ x e. ( Base ` C ) /\ y e. ( Base ` C ) ) -> ( x ( +g ` C ) y ) e. ( Base ` C ) )
99 85 91 97 98 syl3anc
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> ( x ( +g ` C ) y ) e. ( Base ` C ) )
100 1 2 3 4 5 6 cpmatel2
 |-  ( ( N e. Fin /\ R e. Ring /\ ( x ( +g ` C ) y ) e. ( Base ` C ) ) -> ( ( x ( +g ` C ) y ) e. S <-> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) )
101 81 83 99 100 syl3anc
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> ( ( x ( +g ` C ) y ) e. S <-> A. i e. N A. j e. N E. c e. ( Base ` R ) ( i ( x ( +g ` C ) y ) j ) = ( ( algSc ` P ) ` c ) ) )
102 79 101 mpbird
 |-  ( ( ( N e. Fin /\ R e. Ring ) /\ ( x e. S /\ y e. S ) ) -> ( x ( +g ` C ) y ) e. S )
103 102 ralrimivva
 |-  ( ( N e. Fin /\ R e. Ring ) -> A. x e. S A. y e. S ( x ( +g ` C ) y ) e. S )