MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  pm2mpval Structured version   Visualization version   GIF version

Theorem pm2mpval 22652
Description: Value of the transformation of a polynomial matrix into a polynomial over matrices. (Contributed by AV, 5-Dec-2019.)
Hypotheses
Ref Expression
pm2mpval.p ๐‘ƒ = (Poly1โ€˜๐‘…)
pm2mpval.c ๐ถ = (๐‘ Mat ๐‘ƒ)
pm2mpval.b ๐ต = (Baseโ€˜๐ถ)
pm2mpval.m โˆ— = ( ยท๐‘  โ€˜๐‘„)
pm2mpval.e โ†‘ = (.gโ€˜(mulGrpโ€˜๐‘„))
pm2mpval.x ๐‘‹ = (var1โ€˜๐ด)
pm2mpval.a ๐ด = (๐‘ Mat ๐‘…)
pm2mpval.q ๐‘„ = (Poly1โ€˜๐ด)
pm2mpval.t ๐‘‡ = (๐‘ pMatToMatPoly ๐‘…)
Assertion
Ref Expression
pm2mpval ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ ๐‘‡ = (๐‘š โˆˆ ๐ต โ†ฆ (๐‘„ ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹))))))
Distinct variable groups:   ๐ต,๐‘š   ๐‘˜,๐‘,๐‘š   ๐‘…,๐‘˜,๐‘š   ๐‘š,๐‘‰
Allowed substitution hints:   ๐ด(๐‘˜,๐‘š)   ๐ต(๐‘˜)   ๐ถ(๐‘˜,๐‘š)   ๐‘ƒ(๐‘˜,๐‘š)   ๐‘„(๐‘˜,๐‘š)   ๐‘‡(๐‘˜,๐‘š)   โ†‘ (๐‘˜,๐‘š)   โˆ— (๐‘˜,๐‘š)   ๐‘‰(๐‘˜)   ๐‘‹(๐‘˜,๐‘š)

Proof of Theorem pm2mpval
Dummy variables ๐‘› ๐‘Ÿ ๐‘Ž ๐‘ž are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 pm2mpval.t . 2 ๐‘‡ = (๐‘ pMatToMatPoly ๐‘…)
2 df-pm2mp 22650 . . . 4 pMatToMatPoly = (๐‘› โˆˆ Fin, ๐‘Ÿ โˆˆ V โ†ฆ (๐‘š โˆˆ (Baseโ€˜(๐‘› Mat (Poly1โ€˜๐‘Ÿ))) โ†ฆ โฆ‹(๐‘› Mat ๐‘Ÿ) / ๐‘ŽโฆŒโฆ‹(Poly1โ€˜๐‘Ž) / ๐‘žโฆŒ(๐‘ž ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜๐‘ž)(๐‘˜(.gโ€˜(mulGrpโ€˜๐‘ž))(var1โ€˜๐‘Ž)))))))
32a1i 11 . . 3 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ pMatToMatPoly = (๐‘› โˆˆ Fin, ๐‘Ÿ โˆˆ V โ†ฆ (๐‘š โˆˆ (Baseโ€˜(๐‘› Mat (Poly1โ€˜๐‘Ÿ))) โ†ฆ โฆ‹(๐‘› Mat ๐‘Ÿ) / ๐‘ŽโฆŒโฆ‹(Poly1โ€˜๐‘Ž) / ๐‘žโฆŒ(๐‘ž ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜๐‘ž)(๐‘˜(.gโ€˜(mulGrpโ€˜๐‘ž))(var1โ€˜๐‘Ž))))))))
4 simpl 482 . . . . . . . 8 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ ๐‘› = ๐‘)
5 fveq2 6885 . . . . . . . . 9 (๐‘Ÿ = ๐‘… โ†’ (Poly1โ€˜๐‘Ÿ) = (Poly1โ€˜๐‘…))
65adantl 481 . . . . . . . 8 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (Poly1โ€˜๐‘Ÿ) = (Poly1โ€˜๐‘…))
74, 6oveq12d 7423 . . . . . . 7 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (๐‘› Mat (Poly1โ€˜๐‘Ÿ)) = (๐‘ Mat (Poly1โ€˜๐‘…)))
87fveq2d 6889 . . . . . 6 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (Baseโ€˜(๐‘› Mat (Poly1โ€˜๐‘Ÿ))) = (Baseโ€˜(๐‘ Mat (Poly1โ€˜๐‘…))))
9 pm2mpval.b . . . . . . 7 ๐ต = (Baseโ€˜๐ถ)
10 pm2mpval.c . . . . . . . . 9 ๐ถ = (๐‘ Mat ๐‘ƒ)
11 pm2mpval.p . . . . . . . . . 10 ๐‘ƒ = (Poly1โ€˜๐‘…)
1211oveq2i 7416 . . . . . . . . 9 (๐‘ Mat ๐‘ƒ) = (๐‘ Mat (Poly1โ€˜๐‘…))
1310, 12eqtri 2754 . . . . . . . 8 ๐ถ = (๐‘ Mat (Poly1โ€˜๐‘…))
1413fveq2i 6888 . . . . . . 7 (Baseโ€˜๐ถ) = (Baseโ€˜(๐‘ Mat (Poly1โ€˜๐‘…)))
159, 14eqtri 2754 . . . . . 6 ๐ต = (Baseโ€˜(๐‘ Mat (Poly1โ€˜๐‘…)))
168, 15eqtr4di 2784 . . . . 5 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (Baseโ€˜(๐‘› Mat (Poly1โ€˜๐‘Ÿ))) = ๐ต)
1716adantl 481 . . . 4 (((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โˆง (๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…)) โ†’ (Baseโ€˜(๐‘› Mat (Poly1โ€˜๐‘Ÿ))) = ๐ต)
18 ovex 7438 . . . . . 6 (๐‘› Mat ๐‘Ÿ) โˆˆ V
19 fvexd 6900 . . . . . . 7 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ (Poly1โ€˜๐‘Ž) โˆˆ V)
20 simpr 484 . . . . . . . . 9 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ ๐‘ž = (Poly1โ€˜๐‘Ž))
21 fveq2 6885 . . . . . . . . . 10 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ (Poly1โ€˜๐‘Ž) = (Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))
2221adantr 480 . . . . . . . . 9 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ (Poly1โ€˜๐‘Ž) = (Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))
2320, 22eqtrd 2766 . . . . . . . 8 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ ๐‘ž = (Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))
2423fveq2d 6889 . . . . . . . . . 10 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ ( ยท๐‘  โ€˜๐‘ž) = ( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))
25 eqidd 2727 . . . . . . . . . 10 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ (๐‘š decompPMat ๐‘˜) = (๐‘š decompPMat ๐‘˜))
2623fveq2d 6889 . . . . . . . . . . . 12 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ (mulGrpโ€˜๐‘ž) = (mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))
2726fveq2d 6889 . . . . . . . . . . 11 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ (.gโ€˜(mulGrpโ€˜๐‘ž)) = (.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))))
28 eqidd 2727 . . . . . . . . . . 11 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ ๐‘˜ = ๐‘˜)
29 fveq2 6885 . . . . . . . . . . . 12 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ (var1โ€˜๐‘Ž) = (var1โ€˜(๐‘› Mat ๐‘Ÿ)))
3029adantr 480 . . . . . . . . . . 11 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ (var1โ€˜๐‘Ž) = (var1โ€˜(๐‘› Mat ๐‘Ÿ)))
3127, 28, 30oveq123d 7426 . . . . . . . . . 10 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ (๐‘˜(.gโ€˜(mulGrpโ€˜๐‘ž))(var1โ€˜๐‘Ž)) = (๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ))))
3224, 25, 31oveq123d 7426 . . . . . . . . 9 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜๐‘ž)(๐‘˜(.gโ€˜(mulGrpโ€˜๐‘ž))(var1โ€˜๐‘Ž))) = ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))(๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ)))))
3332mpteq2dv 5243 . . . . . . . 8 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜๐‘ž)(๐‘˜(.gโ€˜(mulGrpโ€˜๐‘ž))(var1โ€˜๐‘Ž)))) = (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))(๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ))))))
3423, 33oveq12d 7423 . . . . . . 7 ((๐‘Ž = (๐‘› Mat ๐‘Ÿ) โˆง ๐‘ž = (Poly1โ€˜๐‘Ž)) โ†’ (๐‘ž ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜๐‘ž)(๐‘˜(.gโ€˜(mulGrpโ€˜๐‘ž))(var1โ€˜๐‘Ž))))) = ((Poly1โ€˜(๐‘› Mat ๐‘Ÿ)) ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))(๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ)))))))
3519, 34csbied 3926 . . . . . 6 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ โฆ‹(Poly1โ€˜๐‘Ž) / ๐‘žโฆŒ(๐‘ž ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜๐‘ž)(๐‘˜(.gโ€˜(mulGrpโ€˜๐‘ž))(var1โ€˜๐‘Ž))))) = ((Poly1โ€˜(๐‘› Mat ๐‘Ÿ)) ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))(๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ)))))))
3618, 35csbie 3924 . . . . 5 โฆ‹(๐‘› Mat ๐‘Ÿ) / ๐‘ŽโฆŒโฆ‹(Poly1โ€˜๐‘Ž) / ๐‘žโฆŒ(๐‘ž ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜๐‘ž)(๐‘˜(.gโ€˜(mulGrpโ€˜๐‘ž))(var1โ€˜๐‘Ž))))) = ((Poly1โ€˜(๐‘› Mat ๐‘Ÿ)) ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))(๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ))))))
37 oveq12 7414 . . . . . . . . 9 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (๐‘› Mat ๐‘Ÿ) = (๐‘ Mat ๐‘…))
3837fveq2d 6889 . . . . . . . 8 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (Poly1โ€˜(๐‘› Mat ๐‘Ÿ)) = (Poly1โ€˜(๐‘ Mat ๐‘…)))
39 pm2mpval.q . . . . . . . . 9 ๐‘„ = (Poly1โ€˜๐ด)
40 pm2mpval.a . . . . . . . . . 10 ๐ด = (๐‘ Mat ๐‘…)
4140fveq2i 6888 . . . . . . . . 9 (Poly1โ€˜๐ด) = (Poly1โ€˜(๐‘ Mat ๐‘…))
4239, 41eqtri 2754 . . . . . . . 8 ๐‘„ = (Poly1โ€˜(๐‘ Mat ๐‘…))
4338, 42eqtr4di 2784 . . . . . . 7 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (Poly1โ€˜(๐‘› Mat ๐‘Ÿ)) = ๐‘„)
4438fveq2d 6889 . . . . . . . . . 10 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ ( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))) = ( ยท๐‘  โ€˜(Poly1โ€˜(๐‘ Mat ๐‘…))))
45 pm2mpval.m . . . . . . . . . . 11 โˆ— = ( ยท๐‘  โ€˜๐‘„)
4642fveq2i 6888 . . . . . . . . . . 11 ( ยท๐‘  โ€˜๐‘„) = ( ยท๐‘  โ€˜(Poly1โ€˜(๐‘ Mat ๐‘…)))
4745, 46eqtri 2754 . . . . . . . . . 10 โˆ— = ( ยท๐‘  โ€˜(Poly1โ€˜(๐‘ Mat ๐‘…)))
4844, 47eqtr4di 2784 . . . . . . . . 9 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ ( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))) = โˆ— )
49 eqidd 2727 . . . . . . . . 9 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (๐‘š decompPMat ๐‘˜) = (๐‘š decompPMat ๐‘˜))
5038fveq2d 6889 . . . . . . . . . . . 12 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))) = (mulGrpโ€˜(Poly1โ€˜(๐‘ Mat ๐‘…))))
5150fveq2d 6889 . . . . . . . . . . 11 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))) = (.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘ Mat ๐‘…)))))
52 pm2mpval.e . . . . . . . . . . . 12 โ†‘ = (.gโ€˜(mulGrpโ€˜๐‘„))
5342fveq2i 6888 . . . . . . . . . . . . 13 (mulGrpโ€˜๐‘„) = (mulGrpโ€˜(Poly1โ€˜(๐‘ Mat ๐‘…)))
5453fveq2i 6888 . . . . . . . . . . . 12 (.gโ€˜(mulGrpโ€˜๐‘„)) = (.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘ Mat ๐‘…))))
5552, 54eqtri 2754 . . . . . . . . . . 11 โ†‘ = (.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘ Mat ๐‘…))))
5651, 55eqtr4di 2784 . . . . . . . . . 10 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))) = โ†‘ )
57 eqidd 2727 . . . . . . . . . 10 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ ๐‘˜ = ๐‘˜)
5837fveq2d 6889 . . . . . . . . . . 11 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (var1โ€˜(๐‘› Mat ๐‘Ÿ)) = (var1โ€˜(๐‘ Mat ๐‘…)))
59 pm2mpval.x . . . . . . . . . . . 12 ๐‘‹ = (var1โ€˜๐ด)
6040fveq2i 6888 . . . . . . . . . . . 12 (var1โ€˜๐ด) = (var1โ€˜(๐‘ Mat ๐‘…))
6159, 60eqtri 2754 . . . . . . . . . . 11 ๐‘‹ = (var1โ€˜(๐‘ Mat ๐‘…))
6258, 61eqtr4di 2784 . . . . . . . . . 10 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (var1โ€˜(๐‘› Mat ๐‘Ÿ)) = ๐‘‹)
6356, 57, 62oveq123d 7426 . . . . . . . . 9 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ))) = (๐‘˜ โ†‘ ๐‘‹))
6448, 49, 63oveq123d 7426 . . . . . . . 8 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))(๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ)))) = ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹)))
6564mpteq2dv 5243 . . . . . . 7 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))(๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ))))) = (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹))))
6643, 65oveq12d 7423 . . . . . 6 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ ((Poly1โ€˜(๐‘› Mat ๐‘Ÿ)) ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))(๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ)))))) = (๐‘„ ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹)))))
6766adantl 481 . . . . 5 (((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โˆง (๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…)) โ†’ ((Poly1โ€˜(๐‘› Mat ๐‘Ÿ)) ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ)))(๐‘˜(.gโ€˜(mulGrpโ€˜(Poly1โ€˜(๐‘› Mat ๐‘Ÿ))))(var1โ€˜(๐‘› Mat ๐‘Ÿ)))))) = (๐‘„ ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹)))))
6836, 67eqtrid 2778 . . . 4 (((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โˆง (๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…)) โ†’ โฆ‹(๐‘› Mat ๐‘Ÿ) / ๐‘ŽโฆŒโฆ‹(Poly1โ€˜๐‘Ž) / ๐‘žโฆŒ(๐‘ž ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜๐‘ž)(๐‘˜(.gโ€˜(mulGrpโ€˜๐‘ž))(var1โ€˜๐‘Ž))))) = (๐‘„ ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹)))))
6917, 68mpteq12dv 5232 . . 3 (((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โˆง (๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…)) โ†’ (๐‘š โˆˆ (Baseโ€˜(๐‘› Mat (Poly1โ€˜๐‘Ÿ))) โ†ฆ โฆ‹(๐‘› Mat ๐‘Ÿ) / ๐‘ŽโฆŒโฆ‹(Poly1โ€˜๐‘Ž) / ๐‘žโฆŒ(๐‘ž ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜)( ยท๐‘  โ€˜๐‘ž)(๐‘˜(.gโ€˜(mulGrpโ€˜๐‘ž))(var1โ€˜๐‘Ž)))))) = (๐‘š โˆˆ ๐ต โ†ฆ (๐‘„ ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹))))))
70 simpl 482 . . 3 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ ๐‘ โˆˆ Fin)
71 elex 3487 . . . 4 (๐‘… โˆˆ ๐‘‰ โ†’ ๐‘… โˆˆ V)
7271adantl 481 . . 3 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ ๐‘… โˆˆ V)
739fvexi 6899 . . . . 5 ๐ต โˆˆ V
7473mptex 7220 . . . 4 (๐‘š โˆˆ ๐ต โ†ฆ (๐‘„ ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹))))) โˆˆ V
7574a1i 11 . . 3 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ (๐‘š โˆˆ ๐ต โ†ฆ (๐‘„ ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹))))) โˆˆ V)
763, 69, 70, 72, 75ovmpod 7556 . 2 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ (๐‘ pMatToMatPoly ๐‘…) = (๐‘š โˆˆ ๐ต โ†ฆ (๐‘„ ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹))))))
771, 76eqtrid 2778 1 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ ๐‘‡ = (๐‘š โˆˆ ๐ต โ†ฆ (๐‘„ ฮฃg (๐‘˜ โˆˆ โ„•0 โ†ฆ ((๐‘š decompPMat ๐‘˜) โˆ— (๐‘˜ โ†‘ ๐‘‹))))))
Colors of variables: wff setvar class
Syntax hints:   โ†’ wi 4   โˆง wa 395   = wceq 1533   โˆˆ wcel 2098  Vcvv 3468  โฆ‹csb 3888   โ†ฆ cmpt 5224  โ€˜cfv 6537  (class class class)co 7405   โˆˆ cmpo 7407  Fincfn 8941  โ„•0cn0 12476  Basecbs 17153   ยท๐‘  cvsca 17210   ฮฃg cgsu 17395  .gcmg 18995  mulGrpcmgp 20039  var1cv1 22050  Poly1cpl1 22051   Mat cmat 22262   decompPMat cdecpmat 22619   pMatToMatPoly cpm2mp 22649
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2697  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pr 5420
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2704  df-cleq 2718  df-clel 2804  df-nfc 2879  df-ne 2935  df-ral 3056  df-rex 3065  df-reu 3371  df-rab 3427  df-v 3470  df-sbc 3773  df-csb 3889  df-dif 3946  df-un 3948  df-in 3950  df-ss 3960  df-nul 4318  df-if 4524  df-sn 4624  df-pr 4626  df-op 4630  df-uni 4903  df-iun 4992  df-br 5142  df-opab 5204  df-mpt 5225  df-id 5567  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-iota 6489  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-ov 7408  df-oprab 7409  df-mpo 7410  df-pm2mp 22650
This theorem is referenced by:  pm2mpfval  22653  pm2mpf  22655
  Copyright terms: Public domain W3C validator