Theorem pmatcollpw3lem 22748

Description: Lemma for pmatcollpw3 22749 and pmatcollpw3fi 22750: 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 5858	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → dom 𝑥 = dom 𝑦)
2	1	dmeqd 5860	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → dom dom 𝑥 = dom dom 𝑦)
3		oveq 7373	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (𝑖𝑥𝑗) = (𝑖𝑦𝑗))
4	3	fveq2d 6844	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (coe1‘(𝑖𝑥𝑗)) = (coe1‘(𝑖𝑦𝑗)))
5	4	fveq1d 6842	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → ((coe1‘(𝑖𝑥𝑗))‘𝑘) = ((coe1‘(𝑖𝑦𝑗))‘𝑘))
6	2, 2, 5	mpoeq123dv 7442	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
7		fveq2 6840	. . . . . . . 8 ⊢ (𝑘 = 𝑙 → ((coe1‘(𝑖𝑦𝑗))‘𝑘) = ((coe1‘(𝑖𝑦𝑗))‘𝑙))
8	7	mpoeq3dv 7446	. . . . . . 7 ⊢ (𝑘 = 𝑙 → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)))
9	6, 8	cbvmpov 7462	. . . . . 6 ⊢ (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑦 ∈ 𝐵, 𝑙 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)))
10		dmexg 7852	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝐵 → dom 𝑦 ∈ V)
11	10	dmexd 7854	. . . . . . . . . 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 8030	. . . . . . . 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 3180	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → ∀𝑦 ∈ 𝐵 ∀𝑙 ∈ 𝐼 (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) ∈ V)
17		simprr 773	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → 𝐼 ≠ ∅)
18		nn0ex 12443	. . . . . . . 8 ⊢ ℕ0 ∈ V
19	18	ssex 5262	. . . . . . 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 8220	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑙 ∈ 𝐼 ↦ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙))))
24		fveq2 6840	. . . . . . . . 9 ⊢ (𝑙 = 𝑘 → ((coe1‘(𝑖𝑦𝑗))‘𝑙) = ((coe1‘(𝑖𝑦𝑗))‘𝑘))
25	24	mpoeq3dv 7446	. . . . . . . 8 ⊢ (𝑙 = 𝑘 → (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = (𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
26	25	csbeq2dv 3844	. . . . . . 7 ⊢ (𝑙 = 𝑘 → ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)))
27		eqcom 2743	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 ↔ 𝑦 = 𝑥)
28		eqcom 2743	. . . . . . . . 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 3849	. . . . . . 7 ⊢ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑘)) = ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))
31	26, 30	eqtrdi 2787	. . . . . 6 ⊢ (𝑙 = 𝑘 → ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙)) = ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
32	31	cbvmptv 5189	. . . . 5 ⊢ (𝑙 ∈ 𝐼 ↦ ⦋𝑀 / 𝑦⦌(𝑖 ∈ dom dom 𝑦, 𝑗 ∈ dom dom 𝑦 ↦ ((coe1‘(𝑖𝑦𝑗))‘𝑙))) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
33	23, 32	eqtrdi 2787	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))))
34		dmeq 5858	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑀 → dom 𝑥 = dom 𝑀)
35	34	dmeqd 5860	. . . . . . . . . 10 ⊢ (𝑥 = 𝑀 → dom dom 𝑥 = dom dom 𝑀)
36		oveq 7373	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑀 → (𝑖𝑥𝑗) = (𝑖𝑀𝑗))
37	36	fveq2d 6844	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑀 → (coe1‘(𝑖𝑥𝑗)) = (coe1‘(𝑖𝑀𝑗)))
38	37	fveq1d 6842	. . . . . . . . . 10 ⊢ (𝑥 = 𝑀 → ((coe1‘(𝑖𝑥𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
39	35, 35, 38	mpoeq123dv 7442	. . . . . . . . 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 3873	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
42		pmatcollpw.c	. . . . . . . . . . . . 13 ⊢ 𝐶 = (𝑁 Mat 𝑃)
43		eqid 2736	. . . . . . . . . . . . 13 ⊢ (Base‘𝑃) = (Base‘𝑃)
44		pmatcollpw.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝐶)
45	42, 43, 44	matbas2i 22387	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ 𝐵 → 𝑀 ∈ ((Base‘𝑃) ↑m (𝑁 × 𝑁)))
46		elmapi 8796	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ ((Base‘𝑃) ↑m (𝑁 × 𝑁)) → 𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃))
47		fdm 6677	. . . . . . . . . . . . . 14 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → dom 𝑀 = (𝑁 × 𝑁))
48	47	dmeqd 5860	. . . . . . . . . . . . 13 ⊢ (𝑀:(𝑁 × 𝑁)⟶(Base‘𝑃) → dom dom 𝑀 = dom (𝑁 × 𝑁))
49		dmxpid 5885	. . . . . . . . . . . . 13 ⊢ dom (𝑁 × 𝑁) = 𝑁
50	48, 49	eqtr2di 2788	. . . . . . . . . . . 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 7384	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
56	55	fveq2d 6844	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (coe1‘(𝑖𝑚𝑗)) = (coe1‘(𝑖𝑀𝑗)))
57	56	fveq1d 6842	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → ((coe1‘(𝑖𝑚𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
58	53, 53, 57	mpoeq123dv 7442	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
59	21, 58	csbied 3873	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ dom dom 𝑀, 𝑗 ∈ dom dom 𝑀 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
60	41, 59	eqtr4d 2774	. . . . . 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 5179	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑥⦌(𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))))
63	33, 62	eqtrd 2771	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) = (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))))
64		oveq 7373	. . . . . . . . . . . 12 ⊢ (𝑚 = 𝑀 → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
65	64	adantl 481	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖𝑚𝑗) = (𝑖𝑀𝑗))
66	65	fveq2d 6844	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (coe1‘(𝑖𝑚𝑗)) = (coe1‘(𝑖𝑀𝑗)))
67	66	fveq1d 6842	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → ((coe1‘(𝑖𝑚𝑗))‘𝑘) = ((coe1‘(𝑖𝑀𝑗))‘𝑘))
68	67	mpoeq3dv 7446	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑚 = 𝑀) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
69	21, 68	csbied 3873	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
70	69	ad2antrr 727	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)))
71		pmatcollpw3.a	. . . . . . 7 ⊢ 𝐴 = (𝑁 Mat 𝑅)
72		eqid 2736	. . . . . . 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 22391	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑖𝑀𝑗) ∈ (Base‘𝑃))
81		ssel 3915	. . . . . . . . . . 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 2736	. . . . . . . . 9 ⊢ (coe1‘(𝑖𝑀𝑗)) = (coe1‘(𝑖𝑀𝑗))
86		pmatcollpw.p	. . . . . . . . 9 ⊢ 𝑃 = (Poly1‘𝑅)
87	85, 43, 86, 72	coe1fvalcl 22176	. . . . . . . 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 22388	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑀𝑗))‘𝑘)) ∈ 𝐷)
90	70, 89	eqeltrd 2836	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑘 ∈ 𝐼) → ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘)) ∈ 𝐷)
91	90	fmpttd 7067	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑘 ∈ 𝐼 ↦ ⦋𝑀 / 𝑚⦌(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((coe1‘(𝑖𝑚𝑗))‘𝑘))):𝐼⟶𝐷)
92	73	fvexi 6854	. . . . . 6 ⊢ 𝐷 ∈ V
93	92	a1i 11	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝐷 ∈ V)
94	19	adantr 480	. . . . 5 ⊢ ((𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅) → 𝐼 ∈ V)
95		elmapg 8786	. . . . 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 2836	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀) ∈ (𝐷 ↑m 𝐼))
99		fveq1 6839	. . . . . . . . . . 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 2736	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
103		dmexg 7852	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ 𝐵 → dom 𝑥 ∈ V)
104	103	dmexd 7854	. . . . . . . . . . . . . . . 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 8030	. . . . . . . . . . . . . 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 3180	. . . . . . . . . . . 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 8221	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → ((curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)‘𝑛) = (𝑀(𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))𝑛))
114		df-decpmat 22728	. . . . . . . . . . . . . 14 ⊢ decompPMat = (𝑥 ∈ V, 𝑘 ∈ ℕ0 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))
115	114	reseq1i 5940	. . . . . . . . . . . . 13 ⊢ ( decompPMat ↾ (𝐵 × 𝐼)) = ((𝑥 ∈ V, 𝑘 ∈ ℕ0 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) ↾ (𝐵 × 𝐼))
116		ssv 3946	. . . . . . . . . . . . . . . . 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 7487	. . . . . . . . . . . . . 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 2784	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘))) = ( decompPMat ↾ (𝐵 × 𝐼)))
124	123	oveqd 7384	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑛 ∈ 𝐼) → (𝑀(𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
125	113, 124	eqtrd 2771	. . . . . . . . . 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 2771	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑓‘𝑛) = (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛))
128	127	fveq2d 6844	. . . . . . 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 7533	. . . . . . . . 9 ⊢ ((𝑀 ∈ 𝐵 ∧ 𝑛 ∈ 𝐼) → (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛) = (𝑀 decompPMat 𝑛))
131	129, 130	sylan 581	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛) = (𝑀 decompPMat 𝑛))
132	131	fveq2d 6844	. . . . . . 7 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑇‘(𝑀( decompPMat ↾ (𝐵 × 𝐼))𝑛)) = (𝑇‘(𝑀 decompPMat 𝑛)))
133	128, 132	eqtrd 2771	. . . . . 6 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → (𝑇‘(𝑓‘𝑛)) = (𝑇‘(𝑀 decompPMat 𝑛)))
134	133	oveq2d 7383	. . . . 5 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) ∧ 𝑛 ∈ 𝐼) → ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))) = ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))
135	134	mpteq2dva 5178	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))) = (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))))
136	135	oveq2d 7383	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))))
137	136	eqeq2d 2747	. 2 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) ∧ 𝑓 = (curry (𝑥 ∈ 𝐵, 𝑘 ∈ 𝐼 ↦ (𝑖 ∈ dom dom 𝑥, 𝑗 ∈ dom dom 𝑥 ↦ ((coe1‘(𝑖𝑥𝑗))‘𝑘)))‘𝑀)) → (𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ↔ 𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))))))
138	98, 137	rspcedv 3557	1 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ⊆ ℕ0 ∧ 𝐼 ≠ ∅)) → (𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛))))) → ∃𝑓 ∈ (𝐷 ↑m 𝐼)𝑀 = (𝐶 Σg (𝑛 ∈ 𝐼 ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   ≠ wne 2932  ∃wrex 3061  Vcvv 3429  ⦋csb 3837   ⊆ wss 3889  ∅c0 4273   ↦ cmpt 5166   × cxp 5629  dom cdm 5631   ↾ cres 5633  ⟶wf 6494  ‘cfv 6498  (class class class)co 7367   ∈ cmpo 7369  curry ccur 8215   ↑_m cmap 8773  Fincfn 8893  ℕ₀cn0 12437  Basecbs 17179   ·_𝑠 cvsca 17224   Σ_g cgsu 17403  ._gcmg 19043  mulGrpcmgp 20121  CRingccrg 20215  var₁cv1 22139  Poly₁cpl1 22140  coe₁cco1 22141   Mat cmat 22372   matToPolyMat cmat2pmat 22669   decompPMat cdecpmat 22727

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 2185  ax-ext 2708  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5307  ax-pr 5375  ax-un 7689  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115

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 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3062  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-pss 3909  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-tp 4572  df-op 4574  df-ot 4576  df-uni 4851  df-iun 4935  df-br 5086  df-opab 5148  df-mpt 5167  df-tr 5193  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6265  df-ord 6326  df-on 6327  df-lim 6328  df-suc 6329  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-f1 6503  df-fo 6504  df-f1o 6505  df-fv 6506  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-of 7631  df-om 7818  df-1st 7942  df-2nd 7943  df-supp 8111  df-cur 8217  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-1o 8405  df-er 8643  df-map 8775  df-ixp 8846  df-en 8894  df-dom 8895  df-sdom 8896  df-fin 8897  df-fsupp 9275  df-sup 9355  df-pnf 11181  df-mnf 11182  df-xr 11183  df-ltxr 11184  df-le 11185  df-sub 11379  df-neg 11380  df-nn 12175  df-2 12244  df-3 12245  df-4 12246  df-5 12247  df-6 12248  df-7 12249  df-8 12250  df-9 12251  df-n0 12438  df-z 12525  df-dec 12645  df-uz 12789  df-fz 13462  df-struct 17117  df-sets 17134  df-slot 17152  df-ndx 17164  df-base 17180  df-ress 17201  df-plusg 17233  df-mulr 17234  df-sca 17236  df-vsca 17237  df-ip 17238  df-tset 17239  df-ple 17240  df-ds 17242  df-hom 17244  df-cco 17245  df-0g 17404  df-prds 17410  df-pws 17412  df-sra 21168  df-rgmod 21169  df-dsmm 21712  df-frlm 21727  df-psr 21889  df-opsr 21893  df-psr1 22143  df-ply1 22145  df-coe1 22146  df-mat 22373  df-decpmat 22728

This theorem is referenced by:  pmatcollpw3  22749  pmatcollpw3fi  22750