Theorem pmatcollpw3lem 22672

Description: Lemma for pmatcollpw3 22673 and pmatcollpw3fi 22674: 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 5900	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → dom 𝑥 = dom 𝑦)
2	1	dmeqd 5902	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → dom dom 𝑥 = dom dom 𝑦)
3		oveq 7420	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (𝑖𝑥𝑗) = (𝑖𝑦𝑗))
4	3	fveq2d 6895	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (coe1‘(𝑖𝑥𝑗)) = (coe1‘(𝑖𝑦𝑗)))
5	4	fveq1d 6893	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → ((coe1‘(𝑖𝑥𝑗))‘𝑘) = ((coe1‘(𝑖𝑦𝑗))‘𝑘))
6	2, 2, 5	mpoeq123dv 7489	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
7		fveq2 6891	. . . . . . . 8 ⊢ (𝑘 = 𝑙 → ((coe1‘(𝑖𝑦𝑗))‘𝑘) = ((coe1‘(𝑖𝑦𝑗))‘𝑙))
8	7	mpoeq3dv 7493	. . . . . . 7 ⊢ (𝑘 = 𝑙 → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)))
9	6, 8	cbvmpov 7509	. . . . . 6 ⊢ (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑦 ∈ 𝐵, 𝑙 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)))
10		dmexg 7903	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝐵 → dom 𝑦 ∈ V)
11	10	dmexd 7905	. . . . . . . . . 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 8076	. . . . . . . 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 3195	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → ∀𝑦 ∈ 𝐵 ∀𝑙 ∈ 𝐼 (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) ∈ V)
17		simprr 772	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → 𝐼 ≠ ∅)
18		nn0ex 12500	. . . . . . . 8 ⊢ ℕ0 ∈ V
19	18	ssex 5315	. . . . . . 7 ⊢ (𝐼 ⊆ ℕ0 → 𝐼 ∈ V)
20	19	ad2antrl 727	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → 𝐼 ∈ V)
21		simp3 1136	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑀 ∈ 𝐵)
22	21	adantr 480	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → 𝑀 ∈ 𝐵)
23	9, 16, 17, 20, 22	mpocurryvald 8269	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑙 ∈ 𝐼 ↦ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙))))
24		fveq2 6891	. . . . . . . . 9 ⊢ (𝑙 = 𝑘 → ((coe1‘(𝑖𝑦𝑗))‘𝑙) = ((coe1‘(𝑖𝑦𝑗))‘𝑘))
25	24	mpoeq3dv 7493	. . . . . . . 8 ⊢ (𝑙 = 𝑘 → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
26	25	csbeq2dv 3896	. . . . . . 7 ⊢ (𝑙 = 𝑘 → ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
27		eqcom 2734	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 ↔ 𝑦 = 𝑥)
28		eqcom 2734	. . . . . . . . 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 3901	. . . . . . 7 ⊢ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) = ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))
31	26, 30	eqtrdi 2783	. . . . . 6 ⊢ (𝑙 = 𝑘 → ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
32	31	cbvmptv 5255	. . . . 5 ⊢ (𝑙 ∈ 𝐼 ↦ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙))) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
33	23, 32	eqtrdi 2783	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))))
34		dmeq 5900	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑀 → dom 𝑥 = dom 𝑀)
35	34	dmeqd 5902	. . . . . . . . . 10 ⊢ (𝑥 = 𝑀 → dom dom 𝑥 = dom dom 𝑀)
36		oveq 7420	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑀 → (𝑖𝑥𝑗) = (𝑖𝑀𝑗))
37	36	fveq2d 6895	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑀 → (coe1‘(𝑖𝑥𝑗)) = (coe1‘(𝑖𝑀𝑗)))
38	37	fveq1d 6893	. . . . . . . . . 10 ⊢ (𝑥 = 𝑀 → ((coe1‘(𝑖𝑥𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
39	35, 35, 38	mpoeq123dv 7489	. . . . . . . . 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 3927	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
42		pmatcollpw.c	. . . . . . . . . . . . 13 ⊢ 𝐶 = (𝑁 Mat 𝑃)
43		eqid 2727	. . . . . . . . . . . . 13 ⊢ (Base‘𝑃) = (Base‘𝑃)
44		pmatcollpw.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝐶)
45	42, 43, 44	matbas2i 22311	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ 𝐵 → 𝑀 ∈ ((Base‘𝑃) ↑m (𝑁 × 𝑁)))
46		elmapi 8859	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ ((Base‘𝑃) ↑m (𝑁 × 𝑁)) → 𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃))
47		fdm 6725	. . . . . . . . . . . . . 14 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → dom 𝑀 = (𝑁 × 𝑁))
48	47	dmeqd 5902	. . . . . . . . . . . . 13 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → dom dom 𝑀 = dom (𝑁 × 𝑁))
49		dmxpid 5926	. . . . . . . . . . . . 13 ⊢ dom (𝑁 × 𝑁) = 𝑁
50	48, 49	eqtr2di 2784	. . . . . . . . . . . 12 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → 𝑁 = dom dom 𝑀)
51	45, 46, 50	3syl 18	. . . . . . . . . . 11 ⊢ (𝑀 ∈ 𝐵 → 𝑁 = dom dom 𝑀)
52	51	3ad2ant3 1133	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑁 = dom dom 𝑀)
53	52	adantr 480	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → 𝑁 = dom dom 𝑀)
54		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → 𝑚 = 𝑀)
55	54	oveqd 7431	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
56	55	fveq2d 6895	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (coe1‘(𝑖𝑚𝑗)) = (coe1‘(𝑖𝑀𝑗)))
57	56	fveq1d 6893	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → ((coe1‘(𝑖𝑚𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
58	53, 53, 57	mpoeq123dv 7489	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
59	21, 58	csbied 3927	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
60	41, 59	eqtr4d 2770	. . . . . 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 5244	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))))
63	33, 62	eqtrd 2767	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))))
64		oveq 7420	. . . . . . . . . . . 12 ⊢ (𝑚 = 𝑀 → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
65	64	adantl 481	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
66	65	fveq2d 6895	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (coe1‘(𝑖𝑚𝑗)) = (coe1‘(𝑖𝑀𝑗)))
67	66	fveq1d 6893	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → ((coe1‘(𝑖𝑚𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
68	67	mpoeq3dv 7493	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
69	21, 68	csbied 3927	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
70	69	ad2antrr 725	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
71		pmatcollpw3.a	. . . . . . 7 ⊢ 𝐴 = (𝑁 Mat 𝑅)
72		eqid 2727	. . . . . . 7 ⊢ (Base‘𝑅) = (Base‘𝑅)
73		pmatcollpw3.d	. . . . . . 7 ⊢ 𝐷 = (Base‘𝐴)
74		simpll1 1210	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑁 ∈ Fin)
75		simpll2 1211	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑅 ∈ CRing)
76		simp2 1135	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑖 ∈ 𝑁)
77		simp3 1136	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑗 ∈ 𝑁)
78	22	adantr 480	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑀 ∈ 𝐵)
79	78	3ad2ant1 1131	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑀 ∈ 𝐵)
80	42, 43, 44, 76, 77, 79	matecld 22315	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑖𝑀𝑗) ∈ (Base‘𝑃))
81		ssel 3971	. . . . . . . . . . 11 ⊢ (𝐼 ⊆ ℕ0 → (𝑘 ∈ 𝐼 → 𝑘 ∈ ℕ0))
82	81	ad2antrl 727	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 → 𝑘 ∈ ℕ0))
83	82	imp 406	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑘 ∈ ℕ0)
84	83	3ad2ant1 1131	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑘 ∈ ℕ0)
85		eqid 2727	. . . . . . . . 9 ⊢ (coe1‘(𝑖𝑀𝑗)) = (coe1‘(𝑖𝑀𝑗))
86		pmatcollpw.p	. . . . . . . . 9 ⊢ 𝑃 = (Poly1‘𝑅)
87	85, 43, 86, 72	coe1fvalcl 22118	. . . . . . . 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 22312	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)) ∈ 𝐷)
90	70, 89	eqeltrd 2828	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) ∈ 𝐷)
91	90	fmpttd 7119	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))):𝐼⟶𝐷)
92	73	fvexi 6905	. . . . . 6 ⊢ 𝐷 ∈ V
93	92	a1i 11	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝐷 ∈ V)
94	19	adantr 480	. . . . 5 ⊢ ((𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅) → 𝐼 ∈ V)
95		elmapg 8849	. . . . 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 2828	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) ∈ (𝐷 ↑m 𝐼))
99		fveq1 6890	. . . . . . . . . . 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 2727	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
103		dmexg 7903	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ 𝐵 → dom 𝑥 ∈ V)
104	103	dmexd 7905	. . . . . . . . . . . . . . . 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 8076	. . . . . . . . . . . . . 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 3195	. . . . . . . . . . . 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 8270	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛) = (𝑀(𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))𝑛))
114		df-decpmat 22652	. . . . . . . . . . . . . 14 ⊢ decompPMat = (𝑥 ∈ V, 𝑘 ∈ ℕ0 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
115	114	reseq1i 5975	. . . . . . . . . . . . 13 ⊢ ( decompPMat ↾ (𝐵 × 𝐼)) = ((𝑥 ∈ V, 𝑘 ∈ ℕ0 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) ↾ (𝐵 × 𝐼))
116		ssv 4002	. . . . . . . . . . . . . . . . 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 7534	. . . . . . . . . . . . . 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 2780	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = ( decompPMat ↾ (𝐵 × 𝐼)))
124	123	oveqd 7431	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → (𝑀(𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
125	113, 124	eqtrd 2767	. . . . . . . . . 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 2767	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑓‘𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
128	127	fveq2d 6895	. . . . . . 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 7581	. . . . . . . . 9 ⊢ ((𝑀 ∈ 𝐵 ∧ 𝑛 ∈ 𝐼) → (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛) = (𝑀 decompPMat 𝑛))
131	129, 130	sylan 579	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛) = (𝑀 decompPMat 𝑛))
132	131	fveq2d 6895	. . . . . . 7 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑇‘(𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛)) = (𝑇‘(𝑀 decompPMat 𝑛)))
133	128, 132	eqtrd 2767	. . . . . 6 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑇‘(𝑓‘𝑛)) = (𝑇‘(𝑀 decompPMat 𝑛)))
134	133	oveq2d 7430	. . . . 5 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))) = ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))
135	134	mpteq2dva 5242	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))) = (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))))
136	135	oveq2d 7430	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))))
137	136	eqeq2d 2738	. 2 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ↔ 𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))))))
138	98, 137	rspcedv 3600	1 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))) → ∃𝑓 ∈ (𝐷 ↑m 𝐼)𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 395   ∧ w3a 1085   = wceq 1534   ∈ wcel 2099   ≠ wne 2935  ∃wrex 3065  Vcvv 3469  ⦋csb 3889   ⊆ wss 3944  ∅c0 4318   ↦ cmpt 5225   × cxp 5670  dom cdm 5672   ↾ cres 5674  ⟶wf 6538  ‘cfv 6542  (class class class)co 7414   ∈ cmpo 7416  curry ccur 8264   ↑_m cmap 8836  Fincfn 8955  ℕ₀cn0 12494  Basecbs 17171   ·_𝑠 cvsca 17228   Σ_g cgsu 17413  ._gcmg 19014  mulGrpcmgp 20065  CRingccrg 20165  var₁cv1 22082  Poly₁cpl1 22083  coe₁cco1 22084   Mat cmat 22294   matToPolyMat cmat2pmat 22593   decompPMat cdecpmat 22651

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2164  ax-ext 2698  ax-rep 5279  ax-sep 5293  ax-nul 5300  ax-pow 5359  ax-pr 5423  ax-un 7734  ax-cnex 11186  ax-resscn 11187  ax-1cn 11188  ax-icn 11189  ax-addcl 11190  ax-addrcl 11191  ax-mulcl 11192  ax-mulrcl 11193  ax-mulcom 11194  ax-addass 11195  ax-mulass 11196  ax-distr 11197  ax-i2m1 11198  ax-1ne0 11199  ax-1rid 11200  ax-rnegex 11201  ax-rrecex 11202  ax-cnre 11203  ax-pre-lttri 11204  ax-pre-lttrn 11205  ax-pre-ltadd 11206  ax-pre-mulgt0 11207

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2705  df-cleq 2719  df-clel 2805  df-nfc 2880  df-ne 2936  df-nel 3042  df-ral 3057  df-rex 3066  df-reu 3372  df-rab 3428  df-v 3471  df-sbc 3775  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3963  df-nul 4319  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-tp 4629  df-op 4631  df-ot 4633  df-uni 4904  df-iun 4993  df-br 5143  df-opab 5205  df-mpt 5226  df-tr 5260  df-id 5570  df-eprel 5576  df-po 5584  df-so 5585  df-fr 5627  df-we 5629  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-pred 6299  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-riota 7370  df-ov 7417  df-oprab 7418  df-mpo 7419  df-of 7679  df-om 7865  df-1st 7987  df-2nd 7988  df-supp 8160  df-cur 8266  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-1o 8480  df-er 8718  df-map 8838  df-ixp 8908  df-en 8956  df-dom 8957  df-sdom 8958  df-fin 8959  df-fsupp 9378  df-sup 9457  df-pnf 11272  df-mnf 11273  df-xr 11274  df-ltxr 11275  df-le 11276  df-sub 11468  df-neg 11469  df-nn 12235  df-2 12297  df-3 12298  df-4 12299  df-5 12300  df-6 12301  df-7 12302  df-8 12303  df-9 12304  df-n0 12495  df-z 12581  df-dec 12700  df-uz 12845  df-fz 13509  df-struct 17107  df-sets 17124  df-slot 17142  df-ndx 17154  df-base 17172  df-ress 17201  df-plusg 17237  df-mulr 17238  df-sca 17240  df-vsca 17241  df-ip 17242  df-tset 17243  df-ple 17244  df-ds 17246  df-hom 17248  df-cco 17249  df-0g 17414  df-prds 17420  df-pws 17422  df-sra 21047  df-rgmod 21048  df-dsmm 21653  df-frlm 21668  df-psr 21829  df-opsr 21833  df-psr1 22086  df-ply1 22088  df-coe1 22089  df-mat 22295  df-decpmat 22652

This theorem is referenced by:  pmatcollpw3  22673  pmatcollpw3fi  22674