Theorem pmatcollpw3lem 22810

Description: Lemma for pmatcollpw3 22811 and pmatcollpw3fi 22812: Write a polynomial matrix (over a commutative ring) as a sum of products of variable powers and constant matrices with scalar entries. (Contributed by AV, 8-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 𝑅)
pmatcollpw3.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
pmatcollpw3.d	⊢ 𝐷 = (Base‘𝐴)

Assertion

Ref	Expression
pmatcollpw3lem	⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))) → ∃𝑓 ∈ (𝐷 ↑m 𝐼)𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))

Distinct variable groups:   𝐵,𝑛   𝑛,𝑀   𝑛,𝑁   𝑃,𝑛   𝑅,𝑛   𝑛,𝑋   ↑ ,𝑛   𝐶,𝑛   𝐵,𝑓   𝐶,𝑓,𝑛   𝐷,𝑓   𝑓,𝐼,𝑛   𝑓,𝑀   𝑓,𝑁   𝑅,𝑓   𝑇,𝑓   𝑓,𝑋   ↑ ,𝑓   ∗ ,𝑓

Allowed substitution hints:   𝐴(𝑓,𝑛)   𝐷(𝑛)   𝑃(𝑓)   𝑇(𝑛)   ∗ (𝑛)

Proof of Theorem pmatcollpw3lem

Dummy variables 𝑖 𝑗 𝑘 𝑙 𝑥 𝑦 𝑚 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dmeq 5928	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → dom 𝑥 = dom 𝑦)
2	1	dmeqd 5930	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → dom dom 𝑥 = dom dom 𝑦)
3		oveq 7454	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (𝑖𝑥𝑗) = (𝑖𝑦𝑗))
4	3	fveq2d 6924	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (coe1‘(𝑖𝑥𝑗)) = (coe1‘(𝑖𝑦𝑗)))
5	4	fveq1d 6922	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → ((coe1‘(𝑖𝑥𝑗))‘𝑘) = ((coe1‘(𝑖𝑦𝑗))‘𝑘))
6	2, 2, 5	mpoeq123dv 7525	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
7		fveq2 6920	. . . . . . . 8 ⊢ (𝑘 = 𝑙 → ((coe1‘(𝑖𝑦𝑗))‘𝑘) = ((coe1‘(𝑖𝑦𝑗))‘𝑙))
8	7	mpoeq3dv 7529	. . . . . . 7 ⊢ (𝑘 = 𝑙 → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)))
9	6, 8	cbvmpov 7545	. . . . . 6 ⊢ (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑦 ∈ 𝐵, 𝑙 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)))
10		dmexg 7941	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝐵 → dom 𝑦 ∈ V)
11	10	dmexd 7943	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝐵 → dom dom 𝑦 ∈ V)
12	11, 11	jca 511	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝐵 → (dom dom 𝑦 ∈ V ∧ dom dom 𝑦 ∈ V))
13	12	ad2antrl 727	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ (𝑦 ∈ 𝐵 ∧ 𝑙 ∈ 𝐼)) → (dom dom 𝑦 ∈ V ∧ dom dom 𝑦 ∈ V))
14		mpoexga 8118	. . . . . . . 8 ⊢ ((dom dom 𝑦 ∈ V ∧ dom dom 𝑦 ∈ V) → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) ∈ V)
15	13, 14	syl 17	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ (𝑦 ∈ 𝐵 ∧ 𝑙 ∈ 𝐼)) → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) ∈ V)
16	15	ralrimivva 3208	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → ∀𝑦 ∈ 𝐵 ∀𝑙 ∈ 𝐼 (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) ∈ V)
17		simprr 772	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → 𝐼 ≠ ∅)
18		nn0ex 12559	. . . . . . . 8 ⊢ ℕ0 ∈ V
19	18	ssex 5339	. . . . . . 7 ⊢ (𝐼 ⊆ ℕ0 → 𝐼 ∈ V)
20	19	ad2antrl 727	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → 𝐼 ∈ V)
21		simp3 1138	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑀 ∈ 𝐵)
22	21	adantr 480	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → 𝑀 ∈ 𝐵)
23	9, 16, 17, 20, 22	mpocurryvald 8311	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑙 ∈ 𝐼 ↦ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙))))
24		fveq2 6920	. . . . . . . . 9 ⊢ (𝑙 = 𝑘 → ((coe1‘(𝑖𝑦𝑗))‘𝑙) = ((coe1‘(𝑖𝑦𝑗))‘𝑘))
25	24	mpoeq3dv 7529	. . . . . . . 8 ⊢ (𝑙 = 𝑘 → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
26	25	csbeq2dv 3928	. . . . . . 7 ⊢ (𝑙 = 𝑘 → ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
27		eqcom 2747	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 ↔ 𝑦 = 𝑥)
28		eqcom 2747	. . . . . . . . 9 ⊢ ((𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) ↔ (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
29	6, 27, 28	3imtr3i 291	. . . . . . . 8 ⊢ (𝑦 = 𝑥 → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
30	29	cbvcsbv 3933	. . . . . . 7 ⊢ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) = ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))
31	26, 30	eqtrdi 2796	. . . . . 6 ⊢ (𝑙 = 𝑘 → ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
32	31	cbvmptv 5279	. . . . 5 ⊢ (𝑙 ∈ 𝐼 ↦ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙))) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
33	23, 32	eqtrdi 2796	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))))
34		dmeq 5928	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑀 → dom 𝑥 = dom 𝑀)
35	34	dmeqd 5930	. . . . . . . . . 10 ⊢ (𝑥 = 𝑀 → dom dom 𝑥 = dom dom 𝑀)
36		oveq 7454	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑀 → (𝑖𝑥𝑗) = (𝑖𝑀𝑗))
37	36	fveq2d 6924	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑀 → (coe1‘(𝑖𝑥𝑗)) = (coe1‘(𝑖𝑀𝑗)))
38	37	fveq1d 6922	. . . . . . . . . 10 ⊢ (𝑥 = 𝑀 → ((coe1‘(𝑖𝑥𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
39	35, 35, 38	mpoeq123dv 7525	. . . . . . . . 9 ⊢ (𝑥 = 𝑀 → (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
40	39	adantl 481	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑥 = 𝑀) → (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
41	21, 40	csbied 3959	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
42		pmatcollpw.c	. . . . . . . . . . . . 13 ⊢ 𝐶 = (𝑁 Mat 𝑃)
43		eqid 2740	. . . . . . . . . . . . 13 ⊢ (Base‘𝑃) = (Base‘𝑃)
44		pmatcollpw.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝐶)
45	42, 43, 44	matbas2i 22449	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ 𝐵 → 𝑀 ∈ ((Base‘𝑃) ↑m (𝑁 × 𝑁)))
46		elmapi 8907	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ ((Base‘𝑃) ↑m (𝑁 × 𝑁)) → 𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃))
47		fdm 6756	. . . . . . . . . . . . . 14 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → dom 𝑀 = (𝑁 × 𝑁))
48	47	dmeqd 5930	. . . . . . . . . . . . 13 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → dom dom 𝑀 = dom (𝑁 × 𝑁))
49		dmxpid 5955	. . . . . . . . . . . . 13 ⊢ dom (𝑁 × 𝑁) = 𝑁
50	48, 49	eqtr2di 2797	. . . . . . . . . . . 12 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → 𝑁 = dom dom 𝑀)
51	45, 46, 50	3syl 18	. . . . . . . . . . 11 ⊢ (𝑀 ∈ 𝐵 → 𝑁 = dom dom 𝑀)
52	51	3ad2ant3 1135	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑁 = dom dom 𝑀)
53	52	adantr 480	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → 𝑁 = dom dom 𝑀)
54		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → 𝑚 = 𝑀)
55	54	oveqd 7465	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
56	55	fveq2d 6924	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (coe1‘(𝑖𝑚𝑗)) = (coe1‘(𝑖𝑀𝑗)))
57	56	fveq1d 6922	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → ((coe1‘(𝑖𝑚𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
58	53, 53, 57	mpoeq123dv 7525	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
59	21, 58	csbied 3959	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
60	41, 59	eqtr4d 2783	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)))
61	60	adantr 480	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)))
62	61	mpteq2dv 5268	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))))
63	33, 62	eqtrd 2780	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))))
64		oveq 7454	. . . . . . . . . . . 12 ⊢ (𝑚 = 𝑀 → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
65	64	adantl 481	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
66	65	fveq2d 6924	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (coe1‘(𝑖𝑚𝑗)) = (coe1‘(𝑖𝑀𝑗)))
67	66	fveq1d 6922	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → ((coe1‘(𝑖𝑚𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
68	67	mpoeq3dv 7529	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
69	21, 68	csbied 3959	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
70	69	ad2antrr 725	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
71		pmatcollpw3.a	. . . . . . 7 ⊢ 𝐴 = (𝑁 Mat 𝑅)
72		eqid 2740	. . . . . . 7 ⊢ (Base‘𝑅) = (Base‘𝑅)
73		pmatcollpw3.d	. . . . . . 7 ⊢ 𝐷 = (Base‘𝐴)
74		simpll1 1212	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑁 ∈ Fin)
75		simpll2 1213	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑅 ∈ CRing)
76		simp2 1137	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑖 ∈ 𝑁)
77		simp3 1138	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑗 ∈ 𝑁)
78	22	adantr 480	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑀 ∈ 𝐵)
79	78	3ad2ant1 1133	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑀 ∈ 𝐵)
80	42, 43, 44, 76, 77, 79	matecld 22453	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑖𝑀𝑗) ∈ (Base‘𝑃))
81		ssel 4002	. . . . . . . . . . 11 ⊢ (𝐼 ⊆ ℕ0 → (𝑘 ∈ 𝐼 → 𝑘 ∈ ℕ0))
82	81	ad2antrl 727	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 → 𝑘 ∈ ℕ0))
83	82	imp 406	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑘 ∈ ℕ0)
84	83	3ad2ant1 1133	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑘 ∈ ℕ0)
85		eqid 2740	. . . . . . . . 9 ⊢ (coe1‘(𝑖𝑀𝑗)) = (coe1‘(𝑖𝑀𝑗))
86		pmatcollpw.p	. . . . . . . . 9 ⊢ 𝑃 = (Poly1‘𝑅)
87	85, 43, 86, 72	coe1fvalcl 22235	. . . . . . . 8 ⊢ (((𝑖𝑀𝑗) ∈ (Base‘𝑃) ∧ 𝑘 ∈ ℕ0) → ((coe1‘(𝑖𝑀𝑗))‘𝑘) ∈ (Base‘𝑅))
88	80, 84, 87	syl2anc 583	. . . . . . 7 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → ((coe1‘(𝑖𝑀𝑗))‘𝑘) ∈ (Base‘𝑅))
89	71, 72, 73, 74, 75, 88	matbas2d 22450	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)) ∈ 𝐷)
90	70, 89	eqeltrd 2844	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) ∈ 𝐷)
91	90	fmpttd 7149	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))):𝐼⟶𝐷)
92	73	fvexi 6934	. . . . . 6 ⊢ 𝐷 ∈ V
93	92	a1i 11	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝐷 ∈ V)
94	19	adantr 480	. . . . 5 ⊢ ((𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅) → 𝐼 ∈ V)
95		elmapg 8897	. . . . 5 ⊢ ((𝐷 ∈ V ∧ 𝐼 ∈ V) → ((𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))) ∈ (𝐷 ↑m 𝐼) ↔ (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))):𝐼⟶𝐷))
96	93, 94, 95	syl2an 595	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → ((𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))) ∈ (𝐷 ↑m 𝐼) ↔ (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))):𝐼⟶𝐷))
97	91, 96	mpbird 257	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))) ∈ (𝐷 ↑m 𝐼))
98	63, 97	eqeltrd 2844	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) ∈ (𝐷 ↑m 𝐼))
99		fveq1 6919	. . . . . . . . . . 11 ⊢ (𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) → (𝑓‘𝑛) = ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛))
100	99	adantl 481	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝑓‘𝑛) = ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛))
101	100	adantr 480	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑓‘𝑛) = ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛))
102		eqid 2740	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
103		dmexg 7941	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ 𝐵 → dom 𝑥 ∈ V)
104	103	dmexd 7943	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ 𝐵 → dom dom 𝑥 ∈ V)
105	104, 104	jca 511	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ 𝐵 → (dom dom 𝑥 ∈ V ∧ dom dom 𝑥 ∈ V))
106	105	ad2antrl 727	. . . . . . . . . . . . . 14 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) ∧ (𝑥 ∈ 𝐵 ∧ 𝑘 ∈ 𝐼)) → (dom dom 𝑥 ∈ V ∧ dom dom 𝑥 ∈ V))
107		mpoexga 8118	. . . . . . . . . . . . . 14 ⊢ ((dom dom 𝑥 ∈ V ∧ dom dom 𝑥 ∈ V) → (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) ∈ V)
108	106, 107	syl 17	. . . . . . . . . . . . 13 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) ∧ (𝑥 ∈ 𝐵 ∧ 𝑘 ∈ 𝐼)) → (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) ∈ V)
109	108	ralrimivva 3208	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → ∀𝑥 ∈ 𝐵 ∀𝑘 ∈ 𝐼 (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) ∈ V)
110	20	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → 𝐼 ∈ V)
111	22	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → 𝑀 ∈ 𝐵)
112		simpr 484	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → 𝑛 ∈ 𝐼)
113	102, 109, 110, 111, 112	fvmpocurryd 8312	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛) = (𝑀(𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))𝑛))
114		df-decpmat 22790	. . . . . . . . . . . . . 14 ⊢ decompPMat = (𝑥 ∈ V, 𝑘 ∈ ℕ0 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
115	114	reseq1i 6005	. . . . . . . . . . . . 13 ⊢ ( decompPMat ↾ (𝐵 × 𝐼)) = ((𝑥 ∈ V, 𝑘 ∈ ℕ0 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) ↾ (𝐵 × 𝐼))
116		ssv 4033	. . . . . . . . . . . . . . . . 17 ⊢ 𝐵 ⊆ V
117	116	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝐵 ⊆ V)
118		simpl 482	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅) → 𝐼 ⊆ ℕ0)
119	117, 118	anim12i 612	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝐵 ⊆ V ∧ 𝐼 ⊆ ℕ0))
120	119	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → (𝐵 ⊆ V ∧ 𝐼 ⊆ ℕ0))
121		resmpo 7570	. . . . . . . . . . . . . 14 ⊢ ((𝐵 ⊆ V ∧ 𝐼 ⊆ ℕ0) → ((𝑥 ∈ V, 𝑘 ∈ ℕ0 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) ↾ (𝐵 × 𝐼)) = (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))))
122	120, 121	syl 17	. . . . . . . . . . . . 13 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → ((𝑥 ∈ V, 𝑘 ∈ ℕ0 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) ↾ (𝐵 × 𝐼)) = (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))))
123	115, 122	eqtr2id 2793	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = ( decompPMat ↾ (𝐵 × 𝐼)))
124	123	oveqd 7465	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → (𝑀(𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
125	113, 124	eqtrd 2780	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
126	125	adantlr 714	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
127	101, 126	eqtrd 2780	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑓‘𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
128	127	fveq2d 6924	. . . . . . 7 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑇‘(𝑓‘𝑛)) = (𝑇‘(𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛)))
129	21	ad2antrr 725	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → 𝑀 ∈ 𝐵)
130		ovres 7616	. . . . . . . . 9 ⊢ ((𝑀 ∈ 𝐵 ∧ 𝑛 ∈ 𝐼) → (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛) = (𝑀 decompPMat 𝑛))
131	129, 130	sylan 579	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛) = (𝑀 decompPMat 𝑛))
132	131	fveq2d 6924	. . . . . . 7 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑇‘(𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛)) = (𝑇‘(𝑀 decompPMat 𝑛)))
133	128, 132	eqtrd 2780	. . . . . 6 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑇‘(𝑓‘𝑛)) = (𝑇‘(𝑀 decompPMat 𝑛)))
134	133	oveq2d 7464	. . . . 5 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))) = ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))
135	134	mpteq2dva 5266	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))) = (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))))
136	135	oveq2d 7464	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))))
137	136	eqeq2d 2751	. 2 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ↔ 𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))))))
138	98, 137	rspcedv 3628	1 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))) → ∃𝑓 ∈ (𝐷 ↑m 𝐼)𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1537   ∈ wcel 2108   ≠ wne 2946  ∃wrex 3076  Vcvv 3488  ⦋csb 3921   ⊆ wss 3976  ∅c0 4352   ↦ cmpt 5249   × cxp 5698  dom cdm 5700   ↾ cres 5702  ⟶wf 6569  ‘cfv 6573  (class class class)co 7448   ∈ cmpo 7450  curry ccur 8306   ↑_m cmap 8884  Fincfn 9003  ℕ₀cn0 12553  Basecbs 17258   ·_𝑠 cvsca 17315   Σ_g cgsu 17500  ._gcmg 19107  mulGrpcmgp 20161  CRingccrg 20261  var₁cv1 22198  Poly₁cpl1 22199  coe₁cco1 22200   Mat cmat 22432   matToPolyMat cmat2pmat 22731   decompPMat cdecpmat 22789

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-ot 4657  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-of 7714  df-om 7904  df-1st 8030  df-2nd 8031  df-supp 8202  df-cur 8308  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-er 8763  df-map 8886  df-ixp 8956  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-fsupp 9432  df-sup 9511  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-z 12640  df-dec 12759  df-uz 12904  df-fz 13568  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-hom 17335  df-cco 17336  df-0g 17501  df-prds 17507  df-pws 17509  df-sra 21195  df-rgmod 21196  df-dsmm 21775  df-frlm 21790  df-psr 21952  df-opsr 21956  df-psr1 22202  df-ply1 22204  df-coe1 22205  df-mat 22433  df-decpmat 22790

This theorem is referenced by:  pmatcollpw3  22811  pmatcollpw3fi  22812