Metamath Proof Explorer


Theorem mamudm

Description: The domain of the matrix multiplication function. (Contributed by AV, 10-Feb-2019)

Ref Expression
Hypotheses mamudm.e E=RfreeLModM×N
mamudm.b B=BaseE
mamudm.f F=RfreeLModN×P
mamudm.c C=BaseF
mamudm.m ×˙=RmaMulMNP
Assertion mamudm RVMFinNFinPFindom×˙=B×C

Proof

Step Hyp Ref Expression
1 mamudm.e E=RfreeLModM×N
2 mamudm.b B=BaseE
3 mamudm.f F=RfreeLModN×P
4 mamudm.c C=BaseF
5 mamudm.m ×˙=RmaMulMNP
6 eqid BaseR=BaseR
7 eqid R=R
8 simpl RVMFinNFinPFinRV
9 simpr1 RVMFinNFinPFinMFin
10 simpr2 RVMFinNFinPFinNFin
11 simpr3 RVMFinNFinPFinPFin
12 5 6 7 8 9 10 11 mamufval RVMFinNFinPFin×˙=xBaseRM×N,yBaseRN×PiM,kPRjNixjRjyk
13 12 dmeqd RVMFinNFinPFindom×˙=domxBaseRM×N,yBaseRN×PiM,kPRjNixjRjyk
14 mpoexga MFinPFiniM,kPRjNixjRjykV
15 14 3adant2 MFinNFinPFiniM,kPRjNixjRjykV
16 15 adantl RVMFinNFinPFiniM,kPRjNixjRjykV
17 16 a1d RVMFinNFinPFinxBaseRM×NyBaseRN×PiM,kPRjNixjRjykV
18 17 ralrimivv RVMFinNFinPFinxBaseRM×NyBaseRN×PiM,kPRjNixjRjykV
19 eqid xBaseRM×N,yBaseRN×PiM,kPRjNixjRjyk=xBaseRM×N,yBaseRN×PiM,kPRjNixjRjyk
20 19 dmmpoga xBaseRM×NyBaseRN×PiM,kPRjNixjRjykVdomxBaseRM×N,yBaseRN×PiM,kPRjNixjRjyk=BaseRM×N×BaseRN×P
21 18 20 syl RVMFinNFinPFindomxBaseRM×N,yBaseRN×PiM,kPRjNixjRjyk=BaseRM×N×BaseRN×P
22 xpfi MFinNFinM×NFin
23 22 3adant3 MFinNFinPFinM×NFin
24 1 6 frlmfibas RVM×NFinBaseRM×N=BaseE
25 23 24 sylan2 RVMFinNFinPFinBaseRM×N=BaseE
26 25 2 eqtr4di RVMFinNFinPFinBaseRM×N=B
27 xpfi NFinPFinN×PFin
28 27 3adant1 MFinNFinPFinN×PFin
29 3 6 frlmfibas RVN×PFinBaseRN×P=BaseF
30 28 29 sylan2 RVMFinNFinPFinBaseRN×P=BaseF
31 30 4 eqtr4di RVMFinNFinPFinBaseRN×P=C
32 26 31 xpeq12d RVMFinNFinPFinBaseRM×N×BaseRN×P=B×C
33 13 21 32 3eqtrd RVMFinNFinPFindom×˙=B×C