Metamath Proof Explorer


Theorem mamufval

Description: Functional value of the matrix multiplication operator. (Contributed by Stefan O'Rear, 2-Sep-2015)

Ref Expression
Hypotheses mamufval.f F=RmaMulMNP
mamufval.b B=BaseR
mamufval.t ·˙=R
mamufval.r φRV
mamufval.m φMFin
mamufval.n φNFin
mamufval.p φPFin
Assertion mamufval φF=xBM×N,yBN×PiM,kPRjNixj·˙jyk

Proof

Step Hyp Ref Expression
1 mamufval.f F=RmaMulMNP
2 mamufval.b B=BaseR
3 mamufval.t ·˙=R
4 mamufval.r φRV
5 mamufval.m φMFin
6 mamufval.n φNFin
7 mamufval.p φPFin
8 df-mamu maMul=rV,oV1st1sto/m2nd1sto/n2ndo/pxBaserm×n,yBasern×pim,kprjnixjrjyk
9 8 a1i φmaMul=rV,oV1st1sto/m2nd1sto/n2ndo/pxBaserm×n,yBasern×pim,kprjnixjrjyk
10 fvex 1st1stoV
11 fvex 2nd1stoV
12 fvex 2ndoV
13 eqidd p=2ndoBaserm×n=Baserm×n
14 xpeq2 p=2ndon×p=n×2ndo
15 14 oveq2d p=2ndoBasern×p=Basern×2ndo
16 eqidd p=2ndom=m
17 id p=2ndop=2ndo
18 eqidd p=2ndorjnixjrjyk=rjnixjrjyk
19 16 17 18 mpoeq123dv p=2ndoim,kprjnixjrjyk=im,k2ndorjnixjrjyk
20 13 15 19 mpoeq123dv p=2ndoxBaserm×n,yBasern×pim,kprjnixjrjyk=xBaserm×n,yBasern×2ndoim,k2ndorjnixjrjyk
21 12 20 csbie 2ndo/pxBaserm×n,yBasern×pim,kprjnixjrjyk=xBaserm×n,yBasern×2ndoim,k2ndorjnixjrjyk
22 xpeq12 m=1st1ston=2nd1stom×n=1st1sto×2nd1sto
23 22 oveq2d m=1st1ston=2nd1stoBaserm×n=Baser1st1sto×2nd1sto
24 simpr m=1st1ston=2nd1ston=2nd1sto
25 24 xpeq1d m=1st1ston=2nd1ston×2ndo=2nd1sto×2ndo
26 25 oveq2d m=1st1ston=2nd1stoBasern×2ndo=Baser2nd1sto×2ndo
27 id m=1st1stom=1st1sto
28 27 adantr m=1st1ston=2nd1stom=1st1sto
29 eqidd m=1st1ston=2nd1sto2ndo=2ndo
30 eqidd m=1st1ston=2nd1stoixjrjyk=ixjrjyk
31 24 30 mpteq12dv m=1st1ston=2nd1stojnixjrjyk=j2nd1stoixjrjyk
32 31 oveq2d m=1st1ston=2nd1storjnixjrjyk=rj2nd1stoixjrjyk
33 28 29 32 mpoeq123dv m=1st1ston=2nd1stoim,k2ndorjnixjrjyk=i1st1sto,k2ndorj2nd1stoixjrjyk
34 23 26 33 mpoeq123dv m=1st1ston=2nd1stoxBaserm×n,yBasern×2ndoim,k2ndorjnixjrjyk=xBaser1st1sto×2nd1sto,yBaser2nd1sto×2ndoi1st1sto,k2ndorj2nd1stoixjrjyk
35 21 34 eqtrid m=1st1ston=2nd1sto2ndo/pxBaserm×n,yBasern×pim,kprjnixjrjyk=xBaser1st1sto×2nd1sto,yBaser2nd1sto×2ndoi1st1sto,k2ndorj2nd1stoixjrjyk
36 10 11 35 csbie2 1st1sto/m2nd1sto/n2ndo/pxBaserm×n,yBasern×pim,kprjnixjrjyk=xBaser1st1sto×2nd1sto,yBaser2nd1sto×2ndoi1st1sto,k2ndorj2nd1stoixjrjyk
37 simprl φr=Ro=MNPr=R
38 37 fveq2d φr=Ro=MNPBaser=BaseR
39 38 2 eqtr4di φr=Ro=MNPBaser=B
40 fveq2 o=MNP1sto=1stMNP
41 40 fveq2d o=MNP1st1sto=1st1stMNP
42 41 ad2antll φr=Ro=MNP1st1sto=1st1stMNP
43 ot1stg MFinNFinPFin1st1stMNP=M
44 5 6 7 43 syl3anc φ1st1stMNP=M
45 44 adantr φr=Ro=MNP1st1stMNP=M
46 42 45 eqtrd φr=Ro=MNP1st1sto=M
47 40 fveq2d o=MNP2nd1sto=2nd1stMNP
48 47 ad2antll φr=Ro=MNP2nd1sto=2nd1stMNP
49 ot2ndg MFinNFinPFin2nd1stMNP=N
50 5 6 7 49 syl3anc φ2nd1stMNP=N
51 50 adantr φr=Ro=MNP2nd1stMNP=N
52 48 51 eqtrd φr=Ro=MNP2nd1sto=N
53 46 52 xpeq12d φr=Ro=MNP1st1sto×2nd1sto=M×N
54 39 53 oveq12d φr=Ro=MNPBaser1st1sto×2nd1sto=BM×N
55 fveq2 o=MNP2ndo=2ndMNP
56 55 ad2antll φr=Ro=MNP2ndo=2ndMNP
57 ot3rdg PFin2ndMNP=P
58 7 57 syl φ2ndMNP=P
59 58 adantr φr=Ro=MNP2ndMNP=P
60 56 59 eqtrd φr=Ro=MNP2ndo=P
61 52 60 xpeq12d φr=Ro=MNP2nd1sto×2ndo=N×P
62 39 61 oveq12d φr=Ro=MNPBaser2nd1sto×2ndo=BN×P
63 37 fveq2d φr=Ro=MNPr=R
64 63 3 eqtr4di φr=Ro=MNPr=·˙
65 64 oveqd φr=Ro=MNPixjrjyk=ixj·˙jyk
66 52 65 mpteq12dv φr=Ro=MNPj2nd1stoixjrjyk=jNixj·˙jyk
67 37 66 oveq12d φr=Ro=MNPrj2nd1stoixjrjyk=RjNixj·˙jyk
68 46 60 67 mpoeq123dv φr=Ro=MNPi1st1sto,k2ndorj2nd1stoixjrjyk=iM,kPRjNixj·˙jyk
69 54 62 68 mpoeq123dv φr=Ro=MNPxBaser1st1sto×2nd1sto,yBaser2nd1sto×2ndoi1st1sto,k2ndorj2nd1stoixjrjyk=xBM×N,yBN×PiM,kPRjNixj·˙jyk
70 36 69 eqtrid φr=Ro=MNP1st1sto/m2nd1sto/n2ndo/pxBaserm×n,yBasern×pim,kprjnixjrjyk=xBM×N,yBN×PiM,kPRjNixj·˙jyk
71 4 elexd φRV
72 otex MNPV
73 72 a1i φMNPV
74 ovex BM×NV
75 ovex BN×PV
76 74 75 mpoex xBM×N,yBN×PiM,kPRjNixj·˙jykV
77 76 a1i φxBM×N,yBN×PiM,kPRjNixj·˙jykV
78 9 70 71 73 77 ovmpod φRmaMulMNP=xBM×N,yBN×PiM,kPRjNixj·˙jyk
79 1 78 eqtrid φF=xBM×N,yBN×PiM,kPRjNixj·˙jyk