Theorem pmatcollpwlem 22213

Description: Lemma for pmatcollpw 22214. (Contributed by AV, 26-Oct-2019.) (Revised by AV, 4-Dec-2019.)

Hypotheses

Ref	Expression
pmatcollpw.p	⊢ 𝑃 = (Poly1‘𝑅)
pmatcollpw.c	⊢ 𝐶 = (𝑁 Mat 𝑃)
pmatcollpw.b	⊢ 𝐵 = (Base‘𝐶)
pmatcollpw.m	⊢ ∗ = ( ·𝑠 ‘𝐶)
pmatcollpw.e	⊢ ↑ = (.g‘(mulGrp‘𝑃))
pmatcollpw.x	⊢ 𝑋 = (var1‘𝑅)
pmatcollpw.t	⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)

Assertion

Ref	Expression
pmatcollpwlem	⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑎(𝑀 decompPMat 𝑛)𝑏)( ·𝑠 ‘𝑃)(𝑛 ↑ 𝑋)) = (𝑎((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))𝑏))

Proof of Theorem pmatcollpwlem

Dummy variables 𝑖 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pmatcollpw.p	. . . . . . . 8 ⊢ 𝑃 = (Poly1‘𝑅)
2	1	ply1assa 21654	. . . . . . 7 ⊢ (𝑅 ∈ CRing → 𝑃 ∈ AssAlg)
3	2	3ad2ant2 1134	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 ∈ AssAlg)
4	3	adantr 481	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑃 ∈ AssAlg)
5	4	3ad2ant1 1133	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑃 ∈ AssAlg)
6		eqid 2732	. . . . . 6 ⊢ (𝑁 Mat 𝑅) = (𝑁 Mat 𝑅)
7		eqid 2732	. . . . . 6 ⊢ (Base‘𝑅) = (Base‘𝑅)
8		eqid 2732	. . . . . 6 ⊢ (Base‘(𝑁 Mat 𝑅)) = (Base‘(𝑁 Mat 𝑅))
9		simp2 1137	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
10		simp3 1138	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑏 ∈ 𝑁)
11		simp2 1137	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ CRing)
12	11	adantr 481	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑅 ∈ CRing)
13		simp3 1138	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑀 ∈ 𝐵)
14	13	adantr 481	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑀 ∈ 𝐵)
15		simpr 485	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑛 ∈ ℕ0)
16		pmatcollpw.c	. . . . . . . . 9 ⊢ 𝐶 = (𝑁 Mat 𝑃)
17		pmatcollpw.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐶)
18	1, 16, 17, 6, 8	decpmatcl 22200	. . . . . . . 8 ⊢ ((𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵 ∧ 𝑛 ∈ ℕ0) → (𝑀 decompPMat 𝑛) ∈ (Base‘(𝑁 Mat 𝑅)))
19	12, 14, 15, 18	syl3anc 1371	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑀 decompPMat 𝑛) ∈ (Base‘(𝑁 Mat 𝑅)))
20	19	3ad2ant1 1133	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑀 decompPMat 𝑛) ∈ (Base‘(𝑁 Mat 𝑅)))
21	6, 7, 8, 9, 10, 20	matecld 21859	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘𝑅))
22		crngring 20028	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
23	22	3ad2ant2 1134	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Ring)
24	1	ply1sca 21708	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑅 = (Scalar‘𝑃))
25	23, 24	syl 17	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 = (Scalar‘𝑃))
26	25	eqcomd 2738	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Scalar‘𝑃) = 𝑅)
27	26	fveq2d 6883	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Base‘(Scalar‘𝑃)) = (Base‘𝑅))
28	27	eleq2d 2819	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ((𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘(Scalar‘𝑃)) ↔ (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘𝑅)))
29	28	adantr 481	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → ((𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘(Scalar‘𝑃)) ↔ (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘𝑅)))
30	29	3ad2ant1 1133	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘(Scalar‘𝑃)) ↔ (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘𝑅)))
31	21, 30	mpbird 256	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘(Scalar‘𝑃)))
32		pmatcollpw.x	. . . . . . 7 ⊢ 𝑋 = (var1‘𝑅)
33		eqid 2732	. . . . . . 7 ⊢ (mulGrp‘𝑃) = (mulGrp‘𝑃)
34		pmatcollpw.e	. . . . . . 7 ⊢ ↑ = (.g‘(mulGrp‘𝑃))
35		eqid 2732	. . . . . . 7 ⊢ (Base‘𝑃) = (Base‘𝑃)
36	1, 32, 33, 34, 35	ply1moncl 21726	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑛 ∈ ℕ0) → (𝑛 ↑ 𝑋) ∈ (Base‘𝑃))
37	23, 36	sylan 580	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑛 ↑ 𝑋) ∈ (Base‘𝑃))
38	37	3ad2ant1 1133	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑛 ↑ 𝑋) ∈ (Base‘𝑃))
39		eqid 2732	. . . . 5 ⊢ (algSc‘𝑃) = (algSc‘𝑃)
40		eqid 2732	. . . . 5 ⊢ (Scalar‘𝑃) = (Scalar‘𝑃)
41		eqid 2732	. . . . 5 ⊢ (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
42		eqid 2732	. . . . 5 ⊢ (.r‘𝑃) = (.r‘𝑃)
43		eqid 2732	. . . . 5 ⊢ ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘𝑃)
44	39, 40, 41, 35, 42, 43	asclmul2 21374	. . . 4 ⊢ ((𝑃 ∈ AssAlg ∧ (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘(Scalar‘𝑃)) ∧ (𝑛 ↑ 𝑋) ∈ (Base‘𝑃)) → ((𝑛 ↑ 𝑋)(.r‘𝑃)((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏))) = ((𝑎(𝑀 decompPMat 𝑛)𝑏)( ·𝑠 ‘𝑃)(𝑛 ↑ 𝑋)))
45	5, 31, 38, 44	syl3anc 1371	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑛 ↑ 𝑋)(.r‘𝑃)((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏))) = ((𝑎(𝑀 decompPMat 𝑛)𝑏)( ·𝑠 ‘𝑃)(𝑛 ↑ 𝑋)))
46		eqidd 2733	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))
47		oveq12 7403	. . . . . . . 8 ⊢ ((𝑖 = 𝑎 ∧ 𝑗 = 𝑏) → (𝑖(𝑀 decompPMat 𝑛)𝑗) = (𝑎(𝑀 decompPMat 𝑛)𝑏))
48	47	fveq2d 6883	. . . . . . 7 ⊢ ((𝑖 = 𝑎 ∧ 𝑗 = 𝑏) → ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)) = ((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏)))
49	48	adantl 482	. . . . . 6 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) ∧ (𝑖 = 𝑎 ∧ 𝑗 = 𝑏)) → ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)) = ((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏)))
50		fvexd 6894	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏)) ∈ V)
51	46, 49, 9, 10, 50	ovmpod 7544	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏) = ((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏)))
52	51	eqcomd 2738	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏)) = (𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏))
53	52	oveq2d 7410	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑛 ↑ 𝑋)(.r‘𝑃)((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏))) = ((𝑛 ↑ 𝑋)(.r‘𝑃)(𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏)))
54	45, 53	eqtr3d 2774	. 2 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑎(𝑀 decompPMat 𝑛)𝑏)( ·𝑠 ‘𝑃)(𝑛 ↑ 𝑋)) = ((𝑛 ↑ 𝑋)(.r‘𝑃)(𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏)))
55	1	ply1ring 21703	. . . . . . 7 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring)
56	22, 55	syl 17	. . . . . 6 ⊢ (𝑅 ∈ CRing → 𝑃 ∈ Ring)
57	56	3ad2ant2 1134	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 ∈ Ring)
58	57	adantr 481	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑃 ∈ Ring)
59	58	3ad2ant1 1133	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑃 ∈ Ring)
60		simpl1 1191	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑁 ∈ Fin)
61	12, 22	syl 17	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑅 ∈ Ring)
62	61	3ad2ant1 1133	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑅 ∈ Ring)
63		simp2 1137	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑖 ∈ 𝑁)
64		simp3 1138	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑗 ∈ 𝑁)
65	19	3ad2ant1 1133	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑀 decompPMat 𝑛) ∈ (Base‘(𝑁 Mat 𝑅)))
66	6, 7, 8, 63, 64, 65	matecld 21859	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑖(𝑀 decompPMat 𝑛)𝑗) ∈ (Base‘𝑅))
67	1, 39, 7, 35	ply1sclcl 21741	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ (𝑖(𝑀 decompPMat 𝑛)𝑗) ∈ (Base‘𝑅)) → ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)) ∈ (Base‘𝑃))
68	62, 66, 67	syl2anc 584	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)) ∈ (Base‘𝑃))
69	16, 35, 17, 60, 58, 68	matbas2d 21856	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) ∈ 𝐵)
70	37, 69	jca 512	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → ((𝑛 ↑ 𝑋) ∈ (Base‘𝑃) ∧ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) ∈ 𝐵))
71	70	3ad2ant1 1133	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑛 ↑ 𝑋) ∈ (Base‘𝑃) ∧ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) ∈ 𝐵))
72	9, 10	jca 512	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁))
73		pmatcollpw.m	. . . 4 ⊢ ∗ = ( ·𝑠 ‘𝐶)
74	16, 17, 35, 73, 42	matvscacell 21869	. . 3 ⊢ ((𝑃 ∈ Ring ∧ ((𝑛 ↑ 𝑋) ∈ (Base‘𝑃) ∧ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) ∈ 𝐵) ∧ (𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁)) → (𝑎((𝑛 ↑ 𝑋) ∗ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))𝑏) = ((𝑛 ↑ 𝑋)(.r‘𝑃)(𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏)))
75	59, 71, 72, 74	syl3anc 1371	. 2 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎((𝑛 ↑ 𝑋) ∗ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))𝑏) = ((𝑛 ↑ 𝑋)(.r‘𝑃)(𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏)))
76	23	adantr 481	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑅 ∈ Ring)
77		pmatcollpw.t	. . . . . . . 8 ⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
78	77, 6, 8, 1, 39	mat2pmatval 22157	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑀 decompPMat 𝑛) ∈ (Base‘(𝑁 Mat 𝑅))) → (𝑇‘(𝑀 decompPMat 𝑛)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))
79	60, 76, 19, 78	syl3anc 1371	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑇‘(𝑀 decompPMat 𝑛)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))
80	79	eqcomd 2738	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) = (𝑇‘(𝑀 decompPMat 𝑛)))
81	80	oveq2d 7410	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → ((𝑛 ↑ 𝑋) ∗ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))) = ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))
82	81	oveqd 7411	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑎((𝑛 ↑ 𝑋) ∗ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))𝑏) = (𝑎((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))𝑏))
83	82	3ad2ant1 1133	. 2 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎((𝑛 ↑ 𝑋) ∗ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))𝑏) = (𝑎((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))𝑏))
84	54, 75, 83	3eqtr2d 2778	1 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑎(𝑀 decompPMat 𝑛)𝑏)( ·𝑠 ‘𝑃)(𝑛 ↑ 𝑋)) = (𝑎((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))𝑏))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106  Vcvv 3474  ‘cfv 6533  (class class class)co 7394   ∈ cmpo 7396  Fincfn 8924  ℕ₀cn0 12456  Basecbs 17128  ._rcmulr 17182  Scalarcsca 17184   ·_𝑠 cvsca 17185  ._gcmg 18924  mulGrpcmgp 19948  Ringcrg 20016  CRingccrg 20017  AssAlgcasa 21340  algSccascl 21342  var₁cv1 21631  Poly₁cpl1 21632   Mat cmat 21838   matToPolyMat cmat2pmat 22137   decompPMat cdecpmat 22195

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5279  ax-sep 5293  ax-nul 5300  ax-pow 5357  ax-pr 5421  ax-un 7709  ax-cnex 11150  ax-resscn 11151  ax-1cn 11152  ax-icn 11153  ax-addcl 11154  ax-addrcl 11155  ax-mulcl 11156  ax-mulrcl 11157  ax-mulcom 11158  ax-addass 11159  ax-mulass 11160  ax-distr 11161  ax-i2m1 11162  ax-1ne0 11163  ax-1rid 11164  ax-rnegex 11165  ax-rrecex 11166  ax-cnre 11167  ax-pre-lttri 11168  ax-pre-lttrn 11169  ax-pre-ltadd 11170  ax-pre-mulgt0 11171

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3775  df-csb 3891  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-pss 3964  df-nul 4320  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-tp 4628  df-op 4630  df-ot 4632  df-uni 4903  df-int 4945  df-iun 4993  df-iin 4994  df-br 5143  df-opab 5205  df-mpt 5226  df-tr 5260  df-id 5568  df-eprel 5574  df-po 5582  df-so 5583  df-fr 5625  df-se 5626  df-we 5627  df-xp 5676  df-rel 5677  df-cnv 5678  df-co 5679  df-dm 5680  df-rn 5681  df-res 5682  df-ima 5683  df-pred 6290  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7350  df-ov 7397  df-oprab 7398  df-mpo 7399  df-of 7654  df-ofr 7655  df-om 7840  df-1st 7959  df-2nd 7960  df-supp 8131  df-frecs 8250  df-wrecs 8281  df-recs 8355  df-rdg 8394  df-1o 8450  df-er 8688  df-map 8807  df-pm 8808  df-ixp 8877  df-en 8925  df-dom 8926  df-sdom 8927  df-fin 8928  df-fsupp 9347  df-sup 9421  df-oi 9489  df-card 9918  df-pnf 11234  df-mnf 11235  df-xr 11236  df-ltxr 11237  df-le 11238  df-sub 11430  df-neg 11431  df-nn 12197  df-2 12259  df-3 12260  df-4 12261  df-5 12262  df-6 12263  df-7 12264  df-8 12265  df-9 12266  df-n0 12457  df-z 12543  df-dec 12662  df-uz 12807  df-fz 13469  df-fzo 13612  df-seq 13951  df-hash 14275  df-struct 17064  df-sets 17081  df-slot 17099  df-ndx 17111  df-base 17129  df-ress 17158  df-plusg 17194  df-mulr 17195  df-sca 17197  df-vsca 17198  df-ip 17199  df-tset 17200  df-ple 17201  df-ds 17203  df-hom 17205  df-cco 17206  df-0g 17371  df-gsum 17372  df-prds 17377  df-pws 17379  df-mre 17514  df-mrc 17515  df-acs 17517  df-mgm 18545  df-sgrp 18594  df-mnd 18605  df-mhm 18649  df-submnd 18650  df-grp 18799  df-minusg 18800  df-sbg 18801  df-mulg 18925  df-subg 18977  df-ghm 19058  df-cntz 19149  df-cmn 19616  df-abl 19617  df-mgp 19949  df-ur 19966  df-ring 20018  df-cring 20019  df-subrg 20312  df-lmod 20424  df-lss 20494  df-sra 20736  df-rgmod 20737  df-dsmm 21222  df-frlm 21237  df-assa 21343  df-ascl 21345  df-psr 21395  df-mvr 21396  df-mpl 21397  df-opsr 21399  df-psr1 21635  df-vr1 21636  df-ply1 21637  df-coe1 21638  df-mat 21839  df-mat2pmat 22140  df-decpmat 22196

This theorem is referenced by:  pmatcollpw  22214