mp2pm2mplem5 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > mp2pm2mplem5		Structured version Visualization version GIF version

Theorem mp2pm2mplem5 22775

Description: Lemma 5 for mp2pm2mp 22776. (Contributed by AV, 12-Oct-2019.) (Revised by AV, 5-Dec-2019.)

**Hypotheses**
Ref	Expression
mp2pm2mp.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
mp2pm2mp.q	⊢ 𝑄 = (Poly₁‘𝐴)
mp2pm2mp.l	⊢ 𝐿 = (Base‘𝑄)
mp2pm2mp.m	⊢ · = ( ·_𝑠 ‘𝑃)
mp2pm2mp.e	⊢ 𝐸 = (._g‘(mulGrp‘𝑃))
mp2pm2mp.y	⊢ 𝑌 = (var₁‘𝑅)
mp2pm2mp.i	⊢ 𝐼 = (𝑝 ∈ 𝐿 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌))))))
mp2pm2mplem2.p	⊢ 𝑃 = (Poly₁‘𝑅)
mp2pm2mplem5.m	⊢ ∗ = ( ·_𝑠 ‘𝑄)
mp2pm2mplem5.e	⊢ ↑ = (._g‘(mulGrp‘𝑄))
mp2pm2mplem5.x	⊢ 𝑋 = (var₁‘𝐴)

**Assertion**
Ref	Expression
mp2pm2mplem5	⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ (((𝐼‘𝑂) decompPMat 𝑘) ∗ (𝑘 ↑ 𝑋))) finSupp (0_g‘𝑄))

Distinct variable groups: 𝐸,𝑝 𝐿,𝑝 𝑖,𝑁,𝑗,𝑝 𝑖,𝑂,𝑗,𝑝,𝑘 𝑃,𝑝 𝑅,𝑝 𝑌,𝑝 · ,𝑝 𝑘,𝐿 𝑃,𝑖,𝑗,𝑘 𝑅,𝑘 · ,𝑘 𝑖,𝐸,𝑗 𝑖,𝐿,𝑗 𝑘,𝑁 𝑅,𝑖,𝑗 𝑖,𝑌,𝑗 · ,𝑖,𝑗 𝐴,𝑖,𝑗,𝑘 𝑘,𝐸 𝑘,𝑌 ∗ ,𝑘 Allowed substitution hints: 𝐴(𝑝) 𝑄(𝑖,𝑗,𝑘,𝑝) ↑ (𝑖,𝑗,𝑘,𝑝) 𝐼(𝑖,𝑗,𝑘,𝑝) ∗ (𝑖,𝑗,𝑝) 𝑋(𝑖,𝑗,𝑘,𝑝)

Proof of Theorem mp2pm2mplem5 Dummy variable 𝑙 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		nn0ex 12443	. . 3 ⊢ ℕ₀ ∈ V
2	1	a1i 11	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → ℕ₀ ∈ V)
3		mp2pm2mp.a	. . . . 5 ⊢ 𝐴 = (𝑁 Mat 𝑅)
4	3	matring 22408	. . . 4 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝐴 ∈ Ring)
5		mp2pm2mp.q	. . . . 5 ⊢ 𝑄 = (Poly₁‘𝐴)
6	5	ply1lmod 22215	. . . 4 ⊢ (𝐴 ∈ Ring → 𝑄 ∈ LMod)
7	4, 6	syl 17	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑄 ∈ LMod)
8	7	3adant3 1133	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → 𝑄 ∈ LMod)
9	4	3adant3 1133	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → 𝐴 ∈ Ring)
10	5	ply1sca 22216	. . 3 ⊢ (𝐴 ∈ Ring → 𝐴 = (Scalar‘𝑄))
11	9, 10	syl 17	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → 𝐴 = (Scalar‘𝑄))
12		mp2pm2mp.l	. 2 ⊢ 𝐿 = (Base‘𝑄)
13		simpl2 1194	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → 𝑅 ∈ Ring)
14		mp2pm2mplem2.p	. . . . 5 ⊢ 𝑃 = (Poly₁‘𝑅)
15		mp2pm2mp.m	. . . . 5 ⊢ · = ( ·_𝑠 ‘𝑃)
16		mp2pm2mp.e	. . . . 5 ⊢ 𝐸 = (._g‘(mulGrp‘𝑃))
17		mp2pm2mp.y	. . . . 5 ⊢ 𝑌 = (var₁‘𝑅)
18		mp2pm2mp.i	. . . . 5 ⊢ 𝐼 = (𝑝 ∈ 𝐿 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌))))))
19		eqid 2736	. . . . 5 ⊢ (𝑁 Mat 𝑃) = (𝑁 Mat 𝑃)
20		eqid 2736	. . . . 5 ⊢ (Base‘(𝑁 Mat 𝑃)) = (Base‘(𝑁 Mat 𝑃))
21	3, 5, 12, 14, 15, 16, 17, 18, 19, 20	mply1topmatcl 22770	. . . 4 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝐼‘𝑂) ∈ (Base‘(𝑁 Mat 𝑃)))
22	21	adantr 480	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → (𝐼‘𝑂) ∈ (Base‘(𝑁 Mat 𝑃)))
23		simpr 484	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℕ₀)
24		eqid 2736	. . . 4 ⊢ (Base‘𝐴) = (Base‘𝐴)
25	14, 19, 20, 3, 24	decpmatcl 22732	. . 3 ⊢ ((𝑅 ∈ Ring ∧ (𝐼‘𝑂) ∈ (Base‘(𝑁 Mat 𝑃)) ∧ 𝑘 ∈ ℕ₀) → ((𝐼‘𝑂) decompPMat 𝑘) ∈ (Base‘𝐴))
26	13, 22, 23, 25	syl3anc 1374	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → ((𝐼‘𝑂) decompPMat 𝑘) ∈ (Base‘𝐴))
27		mp2pm2mplem5.x	. . . 4 ⊢ 𝑋 = (var₁‘𝐴)
28		eqid 2736	. . . 4 ⊢ (mulGrp‘𝑄) = (mulGrp‘𝑄)
29		mp2pm2mplem5.e	. . . 4 ⊢ ↑ = (._g‘(mulGrp‘𝑄))
30	5, 27, 28, 29, 12	ply1moncl 22236	. . 3 ⊢ ((𝐴 ∈ Ring ∧ 𝑘 ∈ ℕ₀) → (𝑘 ↑ 𝑋) ∈ 𝐿)
31	9, 30	sylan 581	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → (𝑘 ↑ 𝑋) ∈ 𝐿)
32		eqid 2736	. 2 ⊢ (0_g‘𝑄) = (0_g‘𝑄)
33		eqid 2736	. 2 ⊢ (0_g‘𝐴) = (0_g‘𝐴)
34		mp2pm2mplem5.m	. 2 ⊢ ∗ = ( ·_𝑠 ‘𝑄)
35		fveq2 6840	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑙 → ((coe₁‘𝑝)‘𝑘) = ((coe₁‘𝑝)‘𝑙))
36	35	oveqd 7384	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑙 → (𝑖((coe₁‘𝑝)‘𝑘)𝑗) = (𝑖((coe₁‘𝑝)‘𝑙)𝑗))
37		oveq1 7374	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑙 → (𝑘𝐸𝑌) = (𝑙𝐸𝑌))
38	36, 37	oveq12d 7385	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑙 → ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌)) = ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌)))
39	38	cbvmptv 5189	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌))) = (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌)))
40	39	oveq2i 7378	. . . . . . . . 9 ⊢ (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌)))) = (𝑃 Σ_g (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌))))
41	40	a1i 11	. . . . . . . 8 ⊢ ((𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌)))) = (𝑃 Σ_g (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌)))))
42	41	mpoeq3ia 7445	. . . . . . 7 ⊢ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌))))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌)))))
43	42	mpteq2i 5181	. . . . . 6 ⊢ (𝑝 ∈ 𝐿 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌)))))) = (𝑝 ∈ 𝐿 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌))))))
44	18, 43	eqtri 2759	. . . . 5 ⊢ 𝐼 = (𝑝 ∈ 𝐿 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌))))))
45	3, 5, 12, 15, 16, 17, 44, 14	mp2pm2mplem4 22774	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → ((𝐼‘𝑂) decompPMat 𝑘) = ((coe₁‘𝑂)‘𝑘))
46	45	mpteq2dva 5178	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ ((𝐼‘𝑂) decompPMat 𝑘)) = (𝑘 ∈ ℕ₀ ↦ ((coe₁‘𝑂)‘𝑘)))
47	5, 12, 33	mptcoe1fsupp 22179	. . . 4 ⊢ ((𝐴 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ ((coe₁‘𝑂)‘𝑘)) finSupp (0_g‘𝐴))
48	4, 47	stoic3 1778	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ ((coe₁‘𝑂)‘𝑘)) finSupp (0_g‘𝐴))
49	46, 48	eqbrtrd 5107	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ ((𝐼‘𝑂) decompPMat 𝑘)) finSupp (0_g‘𝐴))
50	2, 8, 11, 12, 26, 31, 32, 33, 34, 49	mptscmfsupp0 20922	1 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ (((𝐼‘𝑂) decompPMat 𝑘) ∗ (𝑘 ↑ 𝑋))) finSupp (0_g‘𝑄))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 Vcvv 3429 class class class wbr 5085 ↦ cmpt 5166 ‘cfv 6498 (class class class)co 7367 ∈ cmpo 7369 Fincfn 8893 finSupp cfsupp 9274 ℕ₀cn0 12437 Basecbs 17179 Scalarcsca 17223 ·_𝑠 cvsca 17224 0_gc0g 17402 Σ_g cgsu 17403 ._gcmg 19043 mulGrpcmgp 20121 Ringcrg 20214 LModclmod 20855 var₁cv1 22139 Poly₁cpl1 22140 coe₁cco1 22141 Mat cmat 22372 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-rmo 3342 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-int 4890 df-iun 4935 df-iin 4936 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-se 5585 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-isom 6507 df-riota 7324 df-ov 7370 df-oprab 7371 df-mpo 7372 df-of 7631 df-ofr 7632 df-om 7818 df-1st 7942 df-2nd 7943 df-supp 8111 df-frecs 8231 df-wrecs 8262 df-recs 8311 df-rdg 8349 df-1o 8405 df-2o 8406 df-er 8643 df-map 8775 df-pm 8776 df-ixp 8846 df-en 8894 df-dom 8895 df-sdom 8896 df-fin 8897 df-fsupp 9275 df-sup 9355 df-oi 9425 df-card 9863 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-fzo 13609 df-seq 13964 df-hash 14293 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-gsum 17405 df-prds 17410 df-pws 17412 df-mre 17548 df-mrc 17549 df-acs 17551 df-mgm 18608 df-sgrp 18687 df-mnd 18703 df-mhm 18751 df-submnd 18752 df-grp 18912 df-minusg 18913 df-sbg 18914 df-mulg 19044 df-subg 19099 df-ghm 19188 df-cntz 19292 df-cmn 19757 df-abl 19758 df-mgp 20122 df-rng 20134 df-ur 20163 df-ring 20216 df-subrng 20523 df-subrg 20547 df-lmod 20857 df-lss 20927 df-sra 21168 df-rgmod 21169 df-dsmm 21712 df-frlm 21727 df-psr 21889 df-mvr 21890 df-mpl 21891 df-opsr 21893 df-psr1 22143 df-vr1 22144 df-ply1 22145 df-coe1 22146 df-mamu 22356 df-mat 22373 df-decpmat 22728

This theorem is referenced by: mp2pm2mp 22776

W3C validator