Theorem pmatcollpw3fi1 22683

Description: Write a polynomial matrix (over a commutative ring) as a finite sum of (at least two) products of variable powers and constant matrices with scalar entries. (Contributed by AV, 6-Nov-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 𝑅)
pmatcollpw3.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
pmatcollpw3.d	⊢ 𝐷 = (Base‘𝐴)

Assertion

Ref	Expression
pmatcollpw3fi1	⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ∃𝑠 ∈ ℕ ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))))

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

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

Proof of Theorem pmatcollpw3fi1

Step	Hyp	Ref	Expression
1		pmatcollpw.p	. . 3 ⊢ 𝑃 = (Poly1‘𝑅)
2		pmatcollpw.c	. . 3 ⊢ 𝐶 = (𝑁 Mat 𝑃)
3		pmatcollpw.b	. . 3 ⊢ 𝐵 = (Base‘𝐶)
4		pmatcollpw.m	. . 3 ⊢ ∗ = ( ·𝑠 ‘𝐶)
5		pmatcollpw.e	. . 3 ⊢ ↑ = (.g‘(mulGrp‘𝑃))
6		pmatcollpw.x	. . 3 ⊢ 𝑋 = (var1‘𝑅)
7		pmatcollpw.t	. . 3 ⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
8		pmatcollpw3.a	. . 3 ⊢ 𝐴 = (𝑁 Mat 𝑅)
9		pmatcollpw3.d	. . 3 ⊢ 𝐷 = (Base‘𝐴)
10	1, 2, 3, 4, 5, 6, 7, 8, 9	pmatcollpw3fi 22680	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ∃𝑠 ∈ ℕ0 ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))))
11		df-n0 12497	. . . . 5 ⊢ ℕ0 = (ℕ ∪ {0})
12	11	rexeqi 3319	. . . 4 ⊢ (∃𝑠 ∈ ℕ0 ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ↔ ∃𝑠 ∈ (ℕ ∪ {0})∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))))
13		rexun 4186	. . . 4 ⊢ (∃𝑠 ∈ (ℕ ∪ {0})∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ↔ (∃𝑠 ∈ ℕ ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ∨ ∃𝑠 ∈ {0}∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))
14	12, 13	bitri 275	. . 3 ⊢ (∃𝑠 ∈ ℕ0 ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ↔ (∃𝑠 ∈ ℕ ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ∨ ∃𝑠 ∈ {0}∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))
15		c0ex 11232	. . . . . 6 ⊢ 0 ∈ V
16		oveq2 7422	. . . . . . . . 9 ⊢ (𝑠 = 0 → (0...𝑠) = (0...0))
17		0z 12593	. . . . . . . . . 10 ⊢ 0 ∈ ℤ
18		fzsn 13569	. . . . . . . . . 10 ⊢ (0 ∈ ℤ → (0...0) = {0})
19	17, 18	mp1i 13	. . . . . . . . 9 ⊢ (𝑠 = 0 → (0...0) = {0})
20	16, 19	eqtrd 2767	. . . . . . . 8 ⊢ (𝑠 = 0 → (0...𝑠) = {0})
21	20	oveq2d 7430	. . . . . . 7 ⊢ (𝑠 = 0 → (𝐷 ↑m (0...𝑠)) = (𝐷 ↑m {0}))
22	20	mpteq1d 5237	. . . . . . . . 9 ⊢ (𝑠 = 0 → (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))) = (𝑛 ∈ {0} ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))
23	22	oveq2d 7430	. . . . . . . 8 ⊢ (𝑠 = 0 → (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) = (𝐶 Σg (𝑛 ∈ {0} ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))))
24	23	eqeq2d 2738	. . . . . . 7 ⊢ (𝑠 = 0 → (𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ↔ 𝑀 = (𝐶 Σg (𝑛 ∈ {0} ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))
25	21, 24	rexeqbidv 3338	. . . . . 6 ⊢ (𝑠 = 0 → (∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ↔ ∃𝑓 ∈ (𝐷 ↑m {0})𝑀 = (𝐶 Σg (𝑛 ∈ {0} ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))
26	15, 25	rexsn 4682	. . . . 5 ⊢ (∃𝑠 ∈ {0}∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ↔ ∃𝑓 ∈ (𝐷 ↑m {0})𝑀 = (𝐶 Σg (𝑛 ∈ {0} ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))))
27	1, 2, 3, 4, 5, 6, 7, 8, 9	pmatcollpw3fi1lem2 22682	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (∃𝑓 ∈ (𝐷 ↑m {0})𝑀 = (𝐶 Σg (𝑛 ∈ {0} ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) → ∃𝑠 ∈ ℕ ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))
28	27	com12 32	. . . . 5 ⊢ (∃𝑓 ∈ (𝐷 ↑m {0})𝑀 = (𝐶 Σg (𝑛 ∈ {0} ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ∃𝑠 ∈ ℕ ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))
29	26, 28	sylbi 216	. . . 4 ⊢ (∃𝑠 ∈ {0}∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ∃𝑠 ∈ ℕ ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))
30	29	jao1i 857	. . 3 ⊢ ((∃𝑠 ∈ ℕ ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) ∨ ∃𝑠 ∈ {0}∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ∃𝑠 ∈ ℕ ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))
31	14, 30	sylbi 216	. 2 ⊢ (∃𝑠 ∈ ℕ0 ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ∃𝑠 ∈ ℕ ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛)))))))
32	10, 31	mpcom 38	1 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ∃𝑠 ∈ ℕ ∃𝑓 ∈ (𝐷 ↑m (0...𝑠))𝑀 = (𝐶 Σg (𝑛 ∈ (0...𝑠) ↦ ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑓‘𝑛))))))

Syntax hints:   → wi 4   ∨ wo 846   ∧ w3a 1085   = wceq 1534   ∈ wcel 2099  ∃wrex 3065   ∪ cun 3942  {csn 4624   ↦ cmpt 5225  ‘cfv 6542  (class class class)co 7414   ↑_m cmap 8838  Fincfn 8957  0cc0 11132  ℕcn 12236  ℕ₀cn0 12496  ℤcz 12582  ...cfz 13510  Basecbs 17173   ·_𝑠 cvsca 17230   Σ_g cgsu 17415  ._gcmg 19016  mulGrpcmgp 20067  CRingccrg 20167  var₁cv1 22088  Poly₁cpl1 22089   Mat cmat 22300   matToPolyMat cmat2pmat 22599

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 11188  ax-resscn 11189  ax-1cn 11190  ax-icn 11191  ax-addcl 11192  ax-addrcl 11193  ax-mulcl 11194  ax-mulrcl 11195  ax-mulcom 11196  ax-addass 11197  ax-mulass 11198  ax-distr 11199  ax-i2m1 11200  ax-1ne0 11201  ax-1rid 11202  ax-rnegex 11203  ax-rrecex 11204  ax-cnre 11205  ax-pre-lttri 11206  ax-pre-lttrn 11207  ax-pre-ltadd 11208  ax-pre-mulgt0 11209

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-rmo 3371  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-int 4945  df-iun 4993  df-iin 4994  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-se 5628  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-isom 6551  df-riota 7370  df-ov 7417  df-oprab 7418  df-mpo 7419  df-of 7679  df-ofr 7680  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 8840  df-pm 8841  df-ixp 8910  df-en 8958  df-dom 8959  df-sdom 8960  df-fin 8961  df-fsupp 9380  df-sup 9459  df-oi 9527  df-card 9956  df-pnf 11274  df-mnf 11275  df-xr 11276  df-ltxr 11277  df-le 11278  df-sub 11470  df-neg 11471  df-nn 12237  df-2 12299  df-3 12300  df-4 12301  df-5 12302  df-6 12303  df-7 12304  df-8 12305  df-9 12306  df-n0 12497  df-z 12583  df-dec 12702  df-uz 12847  df-fz 13511  df-fzo 13654  df-seq 13993  df-hash 14316  df-struct 17109  df-sets 17126  df-slot 17144  df-ndx 17156  df-base 17174  df-ress 17203  df-plusg 17239  df-mulr 17240  df-sca 17242  df-vsca 17243  df-ip 17244  df-tset 17245  df-ple 17246  df-ds 17248  df-hom 17250  df-cco 17251  df-0g 17416  df-gsum 17417  df-prds 17422  df-pws 17424  df-mre 17559  df-mrc 17560  df-acs 17562  df-mgm 18593  df-sgrp 18672  df-mnd 18688  df-mhm 18733  df-submnd 18734  df-grp 18886  df-minusg 18887  df-sbg 18888  df-mulg 19017  df-subg 19071  df-ghm 19161  df-cntz 19261  df-cmn 19730  df-abl 19731  df-mgp 20068  df-rng 20086  df-ur 20115  df-srg 20120  df-ring 20168  df-cring 20169  df-subrng 20476  df-subrg 20501  df-lmod 20738  df-lss 20809  df-sra 21051  df-rgmod 21052  df-dsmm 21659  df-frlm 21674  df-assa 21780  df-ascl 21782  df-psr 21835  df-mvr 21836  df-mpl 21837  df-opsr 21839  df-psr1 22092  df-vr1 22093  df-ply1 22094  df-coe1 22095  df-mamu 22279  df-mat 22301  df-mat2pmat 22602  df-decpmat 22658

This theorem is referenced by:  cpmadugsumfi  22772