Theorem pmatcollpw3lem 22729

Description: Lemma for pmatcollpw3 22730 and pmatcollpw3fi 22731: 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 5851	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → dom 𝑥 = dom 𝑦)
2	1	dmeqd 5853	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → dom dom 𝑥 = dom dom 𝑦)
3		oveq 7364	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (𝑖𝑥𝑗) = (𝑖𝑦𝑗))
4	3	fveq2d 6837	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (coe1‘(𝑖𝑥𝑗)) = (coe1‘(𝑖𝑦𝑗)))
5	4	fveq1d 6835	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → ((coe1‘(𝑖𝑥𝑗))‘𝑘) = ((coe1‘(𝑖𝑦𝑗))‘𝑘))
6	2, 2, 5	mpoeq123dv 7433	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
7		fveq2 6833	. . . . . . . 8 ⊢ (𝑘 = 𝑙 → ((coe1‘(𝑖𝑦𝑗))‘𝑘) = ((coe1‘(𝑖𝑦𝑗))‘𝑙))
8	7	mpoeq3dv 7437	. . . . . . 7 ⊢ (𝑘 = 𝑙 → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)))
9	6, 8	cbvmpov 7453	. . . . . 6 ⊢ (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑦 ∈ 𝐵, 𝑙 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)))
10		dmexg 7843	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝐵 → dom 𝑦 ∈ V)
11	10	dmexd 7845	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝐵 → dom dom 𝑦 ∈ V)
12	11, 11	jca 511	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝐵 → (dom dom 𝑦 ∈ V ∧ dom dom 𝑦 ∈ V))
13	12	ad2antrl 729	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ (𝑦 ∈ 𝐵 ∧ 𝑙 ∈ 𝐼)) → (dom dom 𝑦 ∈ V ∧ dom dom 𝑦 ∈ V))
14		mpoexga 8021	. . . . . . . 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 3178	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → ∀𝑦 ∈ 𝐵 ∀𝑙 ∈ 𝐼 (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) ∈ V)
17		simprr 773	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → 𝐼 ≠ ∅)
18		nn0ex 12409	. . . . . . . 8 ⊢ ℕ0 ∈ V
19	18	ssex 5265	. . . . . . 7 ⊢ (𝐼 ⊆ ℕ0 → 𝐼 ∈ V)
20	19	ad2antrl 729	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → 𝐼 ∈ V)
21		simp3 1139	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑀 ∈ 𝐵)
22	21	adantr 480	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → 𝑀 ∈ 𝐵)
23	9, 16, 17, 20, 22	mpocurryvald 8212	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑙 ∈ 𝐼 ↦ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙))))
24		fveq2 6833	. . . . . . . . 9 ⊢ (𝑙 = 𝑘 → ((coe1‘(𝑖𝑦𝑗))‘𝑙) = ((coe1‘(𝑖𝑦𝑗))‘𝑘))
25	24	mpoeq3dv 7437	. . . . . . . 8 ⊢ (𝑙 = 𝑘 → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
26	25	csbeq2dv 3855	. . . . . . 7 ⊢ (𝑙 = 𝑘 → ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
27		eqcom 2742	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 ↔ 𝑦 = 𝑥)
28		eqcom 2742	. . . . . . . . 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 3860	. . . . . . 7 ⊢ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) = ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))
31	26, 30	eqtrdi 2786	. . . . . 6 ⊢ (𝑙 = 𝑘 → ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
32	31	cbvmptv 5201	. . . . 5 ⊢ (𝑙 ∈ 𝐼 ↦ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙))) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
33	23, 32	eqtrdi 2786	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))))
34		dmeq 5851	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑀 → dom 𝑥 = dom 𝑀)
35	34	dmeqd 5853	. . . . . . . . . 10 ⊢ (𝑥 = 𝑀 → dom dom 𝑥 = dom dom 𝑀)
36		oveq 7364	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑀 → (𝑖𝑥𝑗) = (𝑖𝑀𝑗))
37	36	fveq2d 6837	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑀 → (coe1‘(𝑖𝑥𝑗)) = (coe1‘(𝑖𝑀𝑗)))
38	37	fveq1d 6835	. . . . . . . . . 10 ⊢ (𝑥 = 𝑀 → ((coe1‘(𝑖𝑥𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
39	35, 35, 38	mpoeq123dv 7433	. . . . . . . . 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 3884	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
42		pmatcollpw.c	. . . . . . . . . . . . 13 ⊢ 𝐶 = (𝑁 Mat 𝑃)
43		eqid 2735	. . . . . . . . . . . . 13 ⊢ (Base‘𝑃) = (Base‘𝑃)
44		pmatcollpw.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝐶)
45	42, 43, 44	matbas2i 22368	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ 𝐵 → 𝑀 ∈ ((Base‘𝑃) ↑m (𝑁 × 𝑁)))
46		elmapi 8788	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ ((Base‘𝑃) ↑m (𝑁 × 𝑁)) → 𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃))
47		fdm 6670	. . . . . . . . . . . . . 14 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → dom 𝑀 = (𝑁 × 𝑁))
48	47	dmeqd 5853	. . . . . . . . . . . . 13 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → dom dom 𝑀 = dom (𝑁 × 𝑁))
49		dmxpid 5878	. . . . . . . . . . . . 13 ⊢ dom (𝑁 × 𝑁) = 𝑁
50	48, 49	eqtr2di 2787	. . . . . . . . . . . 12 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → 𝑁 = dom dom 𝑀)
51	45, 46, 50	3syl 18	. . . . . . . . . . 11 ⊢ (𝑀 ∈ 𝐵 → 𝑁 = dom dom 𝑀)
52	51	3ad2ant3 1136	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑁 = dom dom 𝑀)
53	52	adantr 480	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → 𝑁 = dom dom 𝑀)
54		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → 𝑚 = 𝑀)
55	54	oveqd 7375	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
56	55	fveq2d 6837	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (coe1‘(𝑖𝑚𝑗)) = (coe1‘(𝑖𝑀𝑗)))
57	56	fveq1d 6835	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → ((coe1‘(𝑖𝑚𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
58	53, 53, 57	mpoeq123dv 7433	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
59	21, 58	csbied 3884	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
60	41, 59	eqtr4d 2773	. . . . . 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 5191	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))))
63	33, 62	eqtrd 2770	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))))
64		oveq 7364	. . . . . . . . . . . 12 ⊢ (𝑚 = 𝑀 → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
65	64	adantl 481	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
66	65	fveq2d 6837	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (coe1‘(𝑖𝑚𝑗)) = (coe1‘(𝑖𝑀𝑗)))
67	66	fveq1d 6835	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → ((coe1‘(𝑖𝑚𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
68	67	mpoeq3dv 7437	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
69	21, 68	csbied 3884	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
70	69	ad2antrr 727	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
71		pmatcollpw3.a	. . . . . . 7 ⊢ 𝐴 = (𝑁 Mat 𝑅)
72		eqid 2735	. . . . . . 7 ⊢ (Base‘𝑅) = (Base‘𝑅)
73		pmatcollpw3.d	. . . . . . 7 ⊢ 𝐷 = (Base‘𝐴)
74		simpll1 1214	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑁 ∈ Fin)
75		simpll2 1215	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑅 ∈ CRing)
76		simp2 1138	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑖 ∈ 𝑁)
77		simp3 1139	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑗 ∈ 𝑁)
78	22	adantr 480	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑀 ∈ 𝐵)
79	78	3ad2ant1 1134	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑀 ∈ 𝐵)
80	42, 43, 44, 76, 77, 79	matecld 22372	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑖𝑀𝑗) ∈ (Base‘𝑃))
81		ssel 3926	. . . . . . . . . . 11 ⊢ (𝐼 ⊆ ℕ0 → (𝑘 ∈ 𝐼 → 𝑘 ∈ ℕ0))
82	81	ad2antrl 729	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 → 𝑘 ∈ ℕ0))
83	82	imp 406	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → 𝑘 ∈ ℕ0)
84	83	3ad2ant1 1134	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑘 ∈ ℕ0)
85		eqid 2735	. . . . . . . . 9 ⊢ (coe1‘(𝑖𝑀𝑗)) = (coe1‘(𝑖𝑀𝑗))
86		pmatcollpw.p	. . . . . . . . 9 ⊢ 𝑃 = (Poly1‘𝑅)
87	85, 43, 86, 72	coe1fvalcl 22155	. . . . . . . 8 ⊢ (((𝑖𝑀𝑗) ∈ (Base‘𝑃) ∧ 𝑘 ∈ ℕ0) → ((coe1‘(𝑖𝑀𝑗))‘𝑘) ∈ (Base‘𝑅))
88	80, 84, 87	syl2anc 585	. . . . . . 7 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → ((coe1‘(𝑖𝑀𝑗))‘𝑘) ∈ (Base‘𝑅))
89	71, 72, 73, 74, 75, 88	matbas2d 22369	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)) ∈ 𝐷)
90	70, 89	eqeltrd 2835	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) ∈ 𝐷)
91	90	fmpttd 7060	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))):𝐼⟶𝐷)
92	73	fvexi 6847	. . . . . 6 ⊢ 𝐷 ∈ V
93	92	a1i 11	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝐷 ∈ V)
94	19	adantr 480	. . . . 5 ⊢ ((𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅) → 𝐼 ∈ V)
95		elmapg 8778	. . . . 5 ⊢ ((𝐷 ∈ V ∧ 𝐼 ∈ V) → ((𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))) ∈ (𝐷 ↑m 𝐼) ↔ (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))):𝐼⟶𝐷))
96	93, 94, 95	syl2an 597	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → ((𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))) ∈ (𝐷 ↑m 𝐼) ↔ (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))):𝐼⟶𝐷))
97	91, 96	mpbird 257	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))) ∈ (𝐷 ↑m 𝐼))
98	63, 97	eqeltrd 2835	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) ∈ (𝐷 ↑m 𝐼))
99		fveq1 6832	. . . . . . . . . . 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 2735	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
103		dmexg 7843	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ 𝐵 → dom 𝑥 ∈ V)
104	103	dmexd 7845	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ 𝐵 → dom dom 𝑥 ∈ V)
105	104, 104	jca 511	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ 𝐵 → (dom dom 𝑥 ∈ V ∧ dom dom 𝑥 ∈ V))
106	105	ad2antrl 729	. . . . . . . . . . . . . 14 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) ∧ (𝑥 ∈ 𝐵 ∧ 𝑘 ∈ 𝐼)) → (dom dom 𝑥 ∈ V ∧ dom dom 𝑥 ∈ V))
107		mpoexga 8021	. . . . . . . . . . . . . 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 3178	. . . . . . . . . . . 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 8213	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛) = (𝑀(𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))𝑛))
114		df-decpmat 22709	. . . . . . . . . . . . . 14 ⊢ decompPMat = (𝑥 ∈ V, 𝑘 ∈ ℕ0 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
115	114	reseq1i 5933	. . . . . . . . . . . . 13 ⊢ ( decompPMat ↾ (𝐵 × 𝐼)) = ((𝑥 ∈ V, 𝑘 ∈ ℕ0 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) ↾ (𝐵 × 𝐼))
116		ssv 3957	. . . . . . . . . . . . . . . . 17 ⊢ 𝐵 ⊆ V
117	116	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝐵 ⊆ V)
118		simpl 482	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅) → 𝐼 ⊆ ℕ0)
119	117, 118	anim12i 614	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝐵 ⊆ V ∧ 𝐼 ⊆ ℕ0))
120	119	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → (𝐵 ⊆ V ∧ 𝐼 ⊆ ℕ0))
121		resmpo 7478	. . . . . . . . . . . . . 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 2783	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = ( decompPMat ↾ (𝐵 × 𝐼)))
124	123	oveqd 7375	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → (𝑀(𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
125	113, 124	eqtrd 2770	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
126	125	adantlr 716	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
127	101, 126	eqtrd 2770	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑓‘𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
128	127	fveq2d 6837	. . . . . . 7 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑇‘(𝑓‘𝑛)) = (𝑇‘(𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛)))
129	21	ad2antrr 727	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → 𝑀 ∈ 𝐵)
130		ovres 7524	. . . . . . . . 9 ⊢ ((𝑀 ∈ 𝐵 ∧ 𝑛 ∈ 𝐼) → (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛) = (𝑀 decompPMat 𝑛))
131	129, 130	sylan 581	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛) = (𝑀 decompPMat 𝑛))
132	131	fveq2d 6837	. . . . . . 7 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑇‘(𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛)) = (𝑇‘(𝑀 decompPMat 𝑛)))
133	128, 132	eqtrd 2770	. . . . . 6 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑇‘(𝑓‘𝑛)) = (𝑇‘(𝑀 decompPMat 𝑛)))
134	133	oveq2d 7374	. . . . 5 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))) = ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))
135	134	mpteq2dva 5190	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))) = (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))))
136	135	oveq2d 7374	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))))
137	136	eqeq2d 2746	. 2 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ↔ 𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))))))
138	98, 137	rspcedv 3568	1 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))) → ∃𝑓 ∈ (𝐷 ↑m 𝐼)𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   ≠ wne 2931  ∃wrex 3059  Vcvv 3439  ⦋csb 3848   ⊆ wss 3900  ∅c0 4284   ↦ cmpt 5178   × cxp 5621  dom cdm 5623   ↾ cres 5625  ⟶wf 6487  ‘cfv 6491  (class class class)co 7358   ∈ cmpo 7360  curry ccur 8207   ↑_m cmap 8765  Fincfn 8885  ℕ₀cn0 12403  Basecbs 17138   ·_𝑠 cvsca 17183   Σ_g cgsu 17362  ._gcmg 18999  mulGrpcmgp 20077  CRingccrg 20171  var₁cv1 22118  Poly₁cpl1 22119  coe₁cco1 22120   Mat cmat 22353   matToPolyMat cmat2pmat 22650   decompPMat cdecpmat 22708

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2183  ax-ext 2707  ax-rep 5223  ax-sep 5240  ax-nul 5250  ax-pow 5309  ax-pr 5376  ax-un 7680  ax-cnex 11084  ax-resscn 11085  ax-1cn 11086  ax-icn 11087  ax-addcl 11088  ax-addrcl 11089  ax-mulcl 11090  ax-mulrcl 11091  ax-mulcom 11092  ax-addass 11093  ax-mulass 11094  ax-distr 11095  ax-i2m1 11096  ax-1ne0 11097  ax-1rid 11098  ax-rnegex 11099  ax-rrecex 11100  ax-cnre 11101  ax-pre-lttri 11102  ax-pre-lttrn 11103  ax-pre-ltadd 11104  ax-pre-mulgt0 11105

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2538  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2810  df-nfc 2884  df-ne 2932  df-nel 3036  df-ral 3051  df-rex 3060  df-reu 3350  df-rab 3399  df-v 3441  df-sbc 3740  df-csb 3849  df-dif 3903  df-un 3905  df-in 3907  df-ss 3917  df-pss 3920  df-nul 4285  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-ot 4588  df-uni 4863  df-iun 4947  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6258  df-ord 6319  df-on 6320  df-lim 6321  df-suc 6322  df-iota 6447  df-fun 6493  df-fn 6494  df-f 6495  df-f1 6496  df-fo 6497  df-f1o 6498  df-fv 6499  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-of 7622  df-om 7809  df-1st 7933  df-2nd 7934  df-supp 8103  df-cur 8209  df-frecs 8223  df-wrecs 8254  df-recs 8303  df-rdg 8341  df-1o 8397  df-er 8635  df-map 8767  df-ixp 8838  df-en 8886  df-dom 8887  df-sdom 8888  df-fin 8889  df-fsupp 9267  df-sup 9347  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11368  df-neg 11369  df-nn 12148  df-2 12210  df-3 12211  df-4 12212  df-5 12213  df-6 12214  df-7 12215  df-8 12216  df-9 12217  df-n0 12404  df-z 12491  df-dec 12610  df-uz 12754  df-fz 13426  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17139  df-ress 17160  df-plusg 17192  df-mulr 17193  df-sca 17195  df-vsca 17196  df-ip 17197  df-tset 17198  df-ple 17199  df-ds 17201  df-hom 17203  df-cco 17204  df-0g 17363  df-prds 17369  df-pws 17371  df-sra 21127  df-rgmod 21128  df-dsmm 21689  df-frlm 21704  df-psr 21867  df-opsr 21871  df-psr1 22122  df-ply1 22124  df-coe1 22125  df-mat 22354  df-decpmat 22709

This theorem is referenced by:  pmatcollpw3  22730  pmatcollpw3fi  22731