This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem mamuvs1

Description: Matrix multiplication distributes over scalar multiplication on the left. (Contributed by Stefan O'Rear, 5-Sep-2015)

Ref Expression
Hypotheses mamucl.b 
|- B = ( Base ` R )
mamucl.r 
|- ( ph -> R e. Ring )
mamudi.f 
|- F = ( R maMul <. M , N , O >. )
mamudi.m 
|- ( ph -> M e. Fin )
mamudi.n 
|- ( ph -> N e. Fin )
mamudi.o 
|- ( ph -> O e. Fin )
mamuvs1.t 
|- .x. = ( .r ` R )
mamuvs1.x 
|- ( ph -> X e. B )
mamuvs1.y 
|- ( ph -> Y e. ( B ^m ( M X. N ) ) )
mamuvs1.z 
|- ( ph -> Z e. ( B ^m ( N X. O ) ) )
Assertion mamuvs1 
|- ( ph -> ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) = ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) )

Proof

Step Hyp Ref Expression
1 mamucl.b 
 |-  B = ( Base ` R )
2 mamucl.r 
 |-  ( ph -> R e. Ring )
3 mamudi.f 
 |-  F = ( R maMul <. M , N , O >. )
4 mamudi.m 
 |-  ( ph -> M e. Fin )
5 mamudi.n 
 |-  ( ph -> N e. Fin )
6 mamudi.o 
 |-  ( ph -> O e. Fin )
7 mamuvs1.t 
 |-  .x. = ( .r ` R )
8 mamuvs1.x 
 |-  ( ph -> X e. B )
9 mamuvs1.y 
 |-  ( ph -> Y e. ( B ^m ( M X. N ) ) )
10 mamuvs1.z 
 |-  ( ph -> Z e. ( B ^m ( N X. O ) ) )
11 eqid 
 |-  ( 0g ` R ) = ( 0g ` R )
12 2 adantr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> R e. Ring )
13 5 adantr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> N e. Fin )
14 8 adantr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> X e. B )
15 2 ad2antrr 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> R e. Ring )
16 elmapi 
 |-  ( Y e. ( B ^m ( M X. N ) ) -> Y : ( M X. N ) --> B )
17 9 16 syl 
 |-  ( ph -> Y : ( M X. N ) --> B )
18 17 ad2antrr 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> Y : ( M X. N ) --> B )
19 simplrl 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> i e. M )
20 simpr 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> j e. N )
21 18 19 20 fovcdmd 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> ( i Y j ) e. B )
22 elmapi 
 |-  ( Z e. ( B ^m ( N X. O ) ) -> Z : ( N X. O ) --> B )
23 10 22 syl 
 |-  ( ph -> Z : ( N X. O ) --> B )
24 23 ad2antrr 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> Z : ( N X. O ) --> B )
25 simplrr 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> k e. O )
26 24 20 25 fovcdmd 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> ( j Z k ) e. B )
27 1 7 15 21 26 ringcld 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> ( ( i Y j ) .x. ( j Z k ) ) e. B )
28 eqid 
 |-  ( j e. N |-> ( ( i Y j ) .x. ( j Z k ) ) ) = ( j e. N |-> ( ( i Y j ) .x. ( j Z k ) ) )
29 ovexd 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> ( ( i Y j ) .x. ( j Z k ) ) e. _V )
30 fvexd 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( 0g ` R ) e. _V )
31 28 13 29 30 fsuppmptdm 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( j e. N |-> ( ( i Y j ) .x. ( j Z k ) ) ) finSupp ( 0g ` R ) )
32 1 11 7 12 13 14 27 31 gsummulc2 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( R gsum ( j e. N |-> ( X .x. ( ( i Y j ) .x. ( j Z k ) ) ) ) ) = ( X .x. ( R gsum ( j e. N |-> ( ( i Y j ) .x. ( j Z k ) ) ) ) ) )
33 df-ov 
 |-  ( i ( ( ( M X. N ) X. { X } ) oF .x. Y ) j ) = ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) ` <. i , j >. )
34 simprl 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> i e. M )
35 opelxpi 
 |-  ( ( i e. M /\ j e. N ) -> <. i , j >. e. ( M X. N ) )
36 34 35 sylan 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> <. i , j >. e. ( M X. N ) )
37 xpfi 
 |-  ( ( M e. Fin /\ N e. Fin ) -> ( M X. N ) e. Fin )
38 4 5 37 syl2anc 
 |-  ( ph -> ( M X. N ) e. Fin )
39 38 ad2antrr 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> ( M X. N ) e. Fin )
40 8 ad2antrr 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> X e. B )
41 ffn 
 |-  ( Y : ( M X. N ) --> B -> Y Fn ( M X. N ) )
42 9 16 41 3syl 
 |-  ( ph -> Y Fn ( M X. N ) )
43 42 ad2antrr 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> Y Fn ( M X. N ) )
44 df-ov 
 |-  ( i Y j ) = ( Y ` <. i , j >. )
45 44 eqcomi 
 |-  ( Y ` <. i , j >. ) = ( i Y j )
46 45 a1i 
 |-  ( ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) /\ <. i , j >. e. ( M X. N ) ) -> ( Y ` <. i , j >. ) = ( i Y j ) )
47 39 40 43 46 ofc1 
 |-  ( ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) /\ <. i , j >. e. ( M X. N ) ) -> ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) ` <. i , j >. ) = ( X .x. ( i Y j ) ) )
48 36 47 mpdan 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) ` <. i , j >. ) = ( X .x. ( i Y j ) ) )
49 33 48 eqtrid 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> ( i ( ( ( M X. N ) X. { X } ) oF .x. Y ) j ) = ( X .x. ( i Y j ) ) )
50 49 oveq1d 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> ( ( i ( ( ( M X. N ) X. { X } ) oF .x. Y ) j ) .x. ( j Z k ) ) = ( ( X .x. ( i Y j ) ) .x. ( j Z k ) ) )
51 1 7 ringass 
 |-  ( ( R e. Ring /\ ( X e. B /\ ( i Y j ) e. B /\ ( j Z k ) e. B ) ) -> ( ( X .x. ( i Y j ) ) .x. ( j Z k ) ) = ( X .x. ( ( i Y j ) .x. ( j Z k ) ) ) )
52 15 40 21 26 51 syl13anc 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> ( ( X .x. ( i Y j ) ) .x. ( j Z k ) ) = ( X .x. ( ( i Y j ) .x. ( j Z k ) ) ) )
53 50 52 eqtrd 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ j e. N ) -> ( ( i ( ( ( M X. N ) X. { X } ) oF .x. Y ) j ) .x. ( j Z k ) ) = ( X .x. ( ( i Y j ) .x. ( j Z k ) ) ) )
54 53 mpteq2dva 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( j e. N |-> ( ( i ( ( ( M X. N ) X. { X } ) oF .x. Y ) j ) .x. ( j Z k ) ) ) = ( j e. N |-> ( X .x. ( ( i Y j ) .x. ( j Z k ) ) ) ) )
55 54 oveq2d 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( R gsum ( j e. N |-> ( ( i ( ( ( M X. N ) X. { X } ) oF .x. Y ) j ) .x. ( j Z k ) ) ) ) = ( R gsum ( j e. N |-> ( X .x. ( ( i Y j ) .x. ( j Z k ) ) ) ) ) )
56 4 adantr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> M e. Fin )
57 6 adantr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> O e. Fin )
58 9 adantr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> Y e. ( B ^m ( M X. N ) ) )
59 10 adantr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> Z e. ( B ^m ( N X. O ) ) )
60 simprr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> k e. O )
61 3 1 7 12 56 13 57 58 59 34 60 mamufv 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( i ( Y F Z ) k ) = ( R gsum ( j e. N |-> ( ( i Y j ) .x. ( j Z k ) ) ) ) )
62 61 oveq2d 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( X .x. ( i ( Y F Z ) k ) ) = ( X .x. ( R gsum ( j e. N |-> ( ( i Y j ) .x. ( j Z k ) ) ) ) ) )
63 32 55 62 3eqtr4d 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( R gsum ( j e. N |-> ( ( i ( ( ( M X. N ) X. { X } ) oF .x. Y ) j ) .x. ( j Z k ) ) ) ) = ( X .x. ( i ( Y F Z ) k ) ) )
64 fconst6g 
 |-  ( X e. B -> ( ( M X. N ) X. { X } ) : ( M X. N ) --> B )
65 8 64 syl 
 |-  ( ph -> ( ( M X. N ) X. { X } ) : ( M X. N ) --> B )
66 1 fvexi 
 |-  B e. _V
67 elmapg 
 |-  ( ( B e. _V /\ ( M X. N ) e. Fin ) -> ( ( ( M X. N ) X. { X } ) e. ( B ^m ( M X. N ) ) <-> ( ( M X. N ) X. { X } ) : ( M X. N ) --> B ) )
68 66 38 67 sylancr 
 |-  ( ph -> ( ( ( M X. N ) X. { X } ) e. ( B ^m ( M X. N ) ) <-> ( ( M X. N ) X. { X } ) : ( M X. N ) --> B ) )
69 65 68 mpbird 
 |-  ( ph -> ( ( M X. N ) X. { X } ) e. ( B ^m ( M X. N ) ) )
70 1 7 ringvcl 
 |-  ( ( R e. Ring /\ ( ( M X. N ) X. { X } ) e. ( B ^m ( M X. N ) ) /\ Y e. ( B ^m ( M X. N ) ) ) -> ( ( ( M X. N ) X. { X } ) oF .x. Y ) e. ( B ^m ( M X. N ) ) )
71 2 69 9 70 syl3anc 
 |-  ( ph -> ( ( ( M X. N ) X. { X } ) oF .x. Y ) e. ( B ^m ( M X. N ) ) )
72 71 adantr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( ( ( M X. N ) X. { X } ) oF .x. Y ) e. ( B ^m ( M X. N ) ) )
73 3 1 7 12 56 13 57 72 59 34 60 mamufv 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( i ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) k ) = ( R gsum ( j e. N |-> ( ( i ( ( ( M X. N ) X. { X } ) oF .x. Y ) j ) .x. ( j Z k ) ) ) ) )
74 df-ov 
 |-  ( i ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) k ) = ( ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) ` <. i , k >. )
75 opelxpi 
 |-  ( ( i e. M /\ k e. O ) -> <. i , k >. e. ( M X. O ) )
76 75 adantl 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> <. i , k >. e. ( M X. O ) )
77 xpfi 
 |-  ( ( M e. Fin /\ O e. Fin ) -> ( M X. O ) e. Fin )
78 4 6 77 syl2anc 
 |-  ( ph -> ( M X. O ) e. Fin )
79 78 adantr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( M X. O ) e. Fin )
80 1 2 3 4 5 6 9 10 mamucl 
 |-  ( ph -> ( Y F Z ) e. ( B ^m ( M X. O ) ) )
81 elmapi 
 |-  ( ( Y F Z ) e. ( B ^m ( M X. O ) ) -> ( Y F Z ) : ( M X. O ) --> B )
82 ffn 
 |-  ( ( Y F Z ) : ( M X. O ) --> B -> ( Y F Z ) Fn ( M X. O ) )
83 80 81 82 3syl 
 |-  ( ph -> ( Y F Z ) Fn ( M X. O ) )
84 83 adantr 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( Y F Z ) Fn ( M X. O ) )
85 df-ov 
 |-  ( i ( Y F Z ) k ) = ( ( Y F Z ) ` <. i , k >. )
86 85 eqcomi 
 |-  ( ( Y F Z ) ` <. i , k >. ) = ( i ( Y F Z ) k )
87 86 a1i 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ <. i , k >. e. ( M X. O ) ) -> ( ( Y F Z ) ` <. i , k >. ) = ( i ( Y F Z ) k ) )
88 79 14 84 87 ofc1 
 |-  ( ( ( ph /\ ( i e. M /\ k e. O ) ) /\ <. i , k >. e. ( M X. O ) ) -> ( ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) ` <. i , k >. ) = ( X .x. ( i ( Y F Z ) k ) ) )
89 76 88 mpdan 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) ` <. i , k >. ) = ( X .x. ( i ( Y F Z ) k ) ) )
90 74 89 eqtrid 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( i ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) k ) = ( X .x. ( i ( Y F Z ) k ) ) )
91 63 73 90 3eqtr4d 
 |-  ( ( ph /\ ( i e. M /\ k e. O ) ) -> ( i ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) k ) = ( i ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) k ) )
92 91 ralrimivva 
 |-  ( ph -> A. i e. M A. k e. O ( i ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) k ) = ( i ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) k ) )
93 1 2 3 4 5 6 71 10 mamucl 
 |-  ( ph -> ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) e. ( B ^m ( M X. O ) ) )
94 elmapi 
 |-  ( ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) e. ( B ^m ( M X. O ) ) -> ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) : ( M X. O ) --> B )
95 ffn 
 |-  ( ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) : ( M X. O ) --> B -> ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) Fn ( M X. O ) )
96 93 94 95 3syl 
 |-  ( ph -> ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) Fn ( M X. O ) )
97 fconst6g 
 |-  ( X e. B -> ( ( M X. O ) X. { X } ) : ( M X. O ) --> B )
98 8 97 syl 
 |-  ( ph -> ( ( M X. O ) X. { X } ) : ( M X. O ) --> B )
99 elmapg 
 |-  ( ( B e. _V /\ ( M X. O ) e. Fin ) -> ( ( ( M X. O ) X. { X } ) e. ( B ^m ( M X. O ) ) <-> ( ( M X. O ) X. { X } ) : ( M X. O ) --> B ) )
100 66 78 99 sylancr 
 |-  ( ph -> ( ( ( M X. O ) X. { X } ) e. ( B ^m ( M X. O ) ) <-> ( ( M X. O ) X. { X } ) : ( M X. O ) --> B ) )
101 98 100 mpbird 
 |-  ( ph -> ( ( M X. O ) X. { X } ) e. ( B ^m ( M X. O ) ) )
102 1 7 ringvcl 
 |-  ( ( R e. Ring /\ ( ( M X. O ) X. { X } ) e. ( B ^m ( M X. O ) ) /\ ( Y F Z ) e. ( B ^m ( M X. O ) ) ) -> ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) e. ( B ^m ( M X. O ) ) )
103 2 101 80 102 syl3anc 
 |-  ( ph -> ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) e. ( B ^m ( M X. O ) ) )
104 elmapi 
 |-  ( ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) e. ( B ^m ( M X. O ) ) -> ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) : ( M X. O ) --> B )
105 ffn 
 |-  ( ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) : ( M X. O ) --> B -> ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) Fn ( M X. O ) )
106 103 104 105 3syl 
 |-  ( ph -> ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) Fn ( M X. O ) )
107 eqfnov2 
 |-  ( ( ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) Fn ( M X. O ) /\ ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) Fn ( M X. O ) ) -> ( ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) = ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) <-> A. i e. M A. k e. O ( i ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) k ) = ( i ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) k ) ) )
108 96 106 107 syl2anc 
 |-  ( ph -> ( ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) = ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) <-> A. i e. M A. k e. O ( i ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) k ) = ( i ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) k ) ) )
109 92 108 mpbird 
 |-  ( ph -> ( ( ( ( M X. N ) X. { X } ) oF .x. Y ) F Z ) = ( ( ( M X. O ) X. { X } ) oF .x. ( Y F Z ) ) )