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 20534

Description: Lemma 5 for mp2pm2mp 20535. (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 11242	. . 3 ⊢ ℕ₀ ∈ V
2	1	a1i 11	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → ℕ₀ ∈ V)
3		mp2pm2mp.a	. . . . 5 ⊢ 𝐴 = (𝑁 Mat 𝑅)
4	3	matring 20168	. . . 4 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝐴 ∈ Ring)
5		mp2pm2mp.q	. . . . 5 ⊢ 𝑄 = (Poly₁‘𝐴)
6	5	ply1lmod 19541	. . . 4 ⊢ (𝐴 ∈ Ring → 𝑄 ∈ LMod)
7	4, 6	syl 17	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑄 ∈ LMod)
8	7	3adant3 1079	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → 𝑄 ∈ LMod)
9	4	3adant3 1079	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → 𝐴 ∈ Ring)
10	5	ply1sca 19542	. . 3 ⊢ (𝐴 ∈ Ring → 𝐴 = (Scalar‘𝑄))
11	9, 10	syl 17	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → 𝐴 = (Scalar‘𝑄))
12		mp2pm2mp.l	. 2 ⊢ 𝐿 = (Base‘𝑄)
13		simpl2 1063	. . 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 2621	. . . . 5 ⊢ (𝑁 Mat 𝑃) = (𝑁 Mat 𝑃)
20		eqid 2621	. . . . 5 ⊢ (Base‘(𝑁 Mat 𝑃)) = (Base‘(𝑁 Mat 𝑃))
21	3, 5, 12, 14, 15, 16, 17, 18, 19, 20	mply1topmatcl 20529	. . . 4 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝐼‘𝑂) ∈ (Base‘(𝑁 Mat 𝑃)))
22	21	adantr 481	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → (𝐼‘𝑂) ∈ (Base‘(𝑁 Mat 𝑃)))
23		simpr 477	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℕ₀)
24		eqid 2621	. . . 4 ⊢ (Base‘𝐴) = (Base‘𝐴)
25	14, 19, 20, 3, 24	decpmatcl 20491	. . 3 ⊢ ((𝑅 ∈ Ring ∧ (𝐼‘𝑂) ∈ (Base‘(𝑁 Mat 𝑃)) ∧ 𝑘 ∈ ℕ₀) → ((𝐼‘𝑂) decompPMat 𝑘) ∈ (Base‘𝐴))
26	13, 22, 23, 25	syl3anc 1323	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → ((𝐼‘𝑂) decompPMat 𝑘) ∈ (Base‘𝐴))
27		mp2pm2mplem5.x	. . . 4 ⊢ 𝑋 = (var₁‘𝐴)
28		eqid 2621	. . . 4 ⊢ (mulGrp‘𝑄) = (mulGrp‘𝑄)
29		mp2pm2mplem5.e	. . . 4 ⊢ ↑ = (._g‘(mulGrp‘𝑄))
30	5, 27, 28, 29, 12	ply1moncl 19560	. . 3 ⊢ ((𝐴 ∈ Ring ∧ 𝑘 ∈ ℕ₀) → (𝑘 ↑ 𝑋) ∈ 𝐿)
31	9, 30	sylan 488	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → (𝑘 ↑ 𝑋) ∈ 𝐿)
32		eqid 2621	. 2 ⊢ (0_g‘𝑄) = (0_g‘𝑄)
33		eqid 2621	. 2 ⊢ (0_g‘𝐴) = (0_g‘𝐴)
34		mp2pm2mplem5.m	. 2 ⊢ ∗ = ( ·_𝑠 ‘𝑄)
35		fveq2 6148	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑙 → ((coe₁‘𝑝)‘𝑘) = ((coe₁‘𝑝)‘𝑙))
36	35	oveqd 6621	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑙 → (𝑖((coe₁‘𝑝)‘𝑘)𝑗) = (𝑖((coe₁‘𝑝)‘𝑙)𝑗))
37		oveq1 6611	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑙 → (𝑘𝐸𝑌) = (𝑙𝐸𝑌))
38	36, 37	oveq12d 6622	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑙 → ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌)) = ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌)))
39	38	cbvmptv 4710	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌))) = (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌)))
40	39	oveq2i 6615	. . . . . . . . 9 ⊢ (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌)))) = (𝑃 Σ_g (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌))))
41	40	a1i 11	. . . . . . . 8 ⊢ ((𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌)))) = (𝑃 Σ_g (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌)))))
42	41	mpt2eq3ia 6673	. . . . . . 7 ⊢ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌))))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌)))))
43	42	mpteq2i 4701	. . . . . 6 ⊢ (𝑝 ∈ 𝐿 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑘)𝑗) · (𝑘𝐸𝑌)))))) = (𝑝 ∈ 𝐿 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌))))))
44	18, 43	eqtri 2643	. . . . 5 ⊢ 𝐼 = (𝑝 ∈ 𝐿 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑃 Σ_g (𝑙 ∈ ℕ₀ ↦ ((𝑖((coe₁‘𝑝)‘𝑙)𝑗) · (𝑙𝐸𝑌))))))
45	3, 5, 12, 15, 16, 17, 44, 14	mp2pm2mplem4 20533	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) ∧ 𝑘 ∈ ℕ₀) → ((𝐼‘𝑂) decompPMat 𝑘) = ((coe₁‘𝑂)‘𝑘))
46	45	mpteq2dva 4704	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ ((𝐼‘𝑂) decompPMat 𝑘)) = (𝑘 ∈ ℕ₀ ↦ ((coe₁‘𝑂)‘𝑘)))
47	5, 12, 33	mptcoe1fsupp 19504	. . . 4 ⊢ ((𝐴 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ ((coe₁‘𝑂)‘𝑘)) finSupp (0_g‘𝐴))
48	4, 47	stoic3 1698	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ ((coe₁‘𝑂)‘𝑘)) finSupp (0_g‘𝐴))
49	46, 48	eqbrtrd 4635	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ ((𝐼‘𝑂) decompPMat 𝑘)) finSupp (0_g‘𝐴))
50	2, 8, 11, 12, 26, 31, 32, 33, 34, 49	mptscmfsupp0 18849	1 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑂 ∈ 𝐿) → (𝑘 ∈ ℕ₀ ↦ (((𝐼‘𝑂) decompPMat 𝑘) ∗ (𝑘 ↑ 𝑋))) finSupp (0_g‘𝑄))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 384 ∧ w3a 1036 = wceq 1480 ∈ wcel 1987 Vcvv 3186 class class class wbr 4613 ↦ cmpt 4673 ‘cfv 5847 (class class class)co 6604 ↦ cmpt2 6606 Fincfn 7899 finSupp cfsupp 8219 ℕ₀cn0 11236 Basecbs 15781 Scalarcsca 15865 ·_𝑠 cvsca 15866 0_gc0g 16021 Σ_g cgsu 16022 ._gcmg 17461 mulGrpcmgp 18410 Ringcrg 18468 LModclmod 18784 var₁cv1 19465 Poly₁cpl1 19466 coe₁cco1 19467 Mat cmat 20132 decompPMat cdecpmat 20486

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1719 ax-4 1734 ax-5 1836 ax-6 1885 ax-7 1932 ax-8 1989 ax-9 1996 ax-10 2016 ax-11 2031 ax-12 2044 ax-13 2245 ax-ext 2601 ax-rep 4731 ax-sep 4741 ax-nul 4749 ax-pow 4803 ax-pr 4867 ax-un 6902 ax-inf2 8482 ax-cnex 9936 ax-resscn 9937 ax-1cn 9938 ax-icn 9939 ax-addcl 9940 ax-addrcl 9941 ax-mulcl 9942 ax-mulrcl 9943 ax-mulcom 9944 ax-addass 9945 ax-mulass 9946 ax-distr 9947 ax-i2m1 9948 ax-1ne0 9949 ax-1rid 9950 ax-rnegex 9951 ax-rrecex 9952 ax-cnre 9953 ax-pre-lttri 9954 ax-pre-lttrn 9955 ax-pre-ltadd 9956 ax-pre-mulgt0 9957

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3or 1037 df-3an 1038 df-tru 1483 df-fal 1486 df-ex 1702 df-nf 1707 df-sb 1878 df-eu 2473 df-mo 2474 df-clab 2608 df-cleq 2614 df-clel 2617 df-nfc 2750 df-ne 2791 df-nel 2894 df-ral 2912 df-rex 2913 df-reu 2914 df-rmo 2915 df-rab 2916 df-v 3188 df-sbc 3418 df-csb 3515 df-dif 3558 df-un 3560 df-in 3562 df-ss 3569 df-pss 3571 df-nul 3892 df-if 4059 df-pw 4132 df-sn 4149 df-pr 4151 df-tp 4153 df-op 4155 df-ot 4157 df-uni 4403 df-int 4441 df-iun 4487 df-iin 4488 df-br 4614 df-opab 4674 df-mpt 4675 df-tr 4713 df-eprel 4985 df-id 4989 df-po 4995 df-so 4996 df-fr 5033 df-se 5034 df-we 5035 df-xp 5080 df-rel 5081 df-cnv 5082 df-co 5083 df-dm 5084 df-rn 5085 df-res 5086 df-ima 5087 df-pred 5639 df-ord 5685 df-on 5686 df-lim 5687 df-suc 5688 df-iota 5810 df-fun 5849 df-fn 5850 df-f 5851 df-f1 5852 df-fo 5853 df-f1o 5854 df-fv 5855 df-isom 5856 df-riota 6565 df-ov 6607 df-oprab 6608 df-mpt2 6609 df-of 6850 df-ofr 6851 df-om 7013 df-1st 7113 df-2nd 7114 df-supp 7241 df-wrecs 7352 df-recs 7413 df-rdg 7451 df-1o 7505 df-2o 7506 df-oadd 7509 df-er 7687 df-map 7804 df-pm 7805 df-ixp 7853 df-en 7900 df-dom 7901 df-sdom 7902 df-fin 7903 df-fsupp 8220 df-sup 8292 df-oi 8359 df-card 8709 df-pnf 10020 df-mnf 10021 df-xr 10022 df-ltxr 10023 df-le 10024 df-sub 10212 df-neg 10213 df-nn 10965 df-2 11023 df-3 11024 df-4 11025 df-5 11026 df-6 11027 df-7 11028 df-8 11029 df-9 11030 df-n0 11237 df-z 11322 df-dec 11438 df-uz 11632 df-fz 12269 df-fzo 12407 df-seq 12742 df-hash 13058 df-struct 15783 df-ndx 15784 df-slot 15785 df-base 15786 df-sets 15787 df-ress 15788 df-plusg 15875 df-mulr 15876 df-sca 15878 df-vsca 15879 df-ip 15880 df-tset 15881 df-ple 15882 df-ds 15885 df-hom 15887 df-cco 15888 df-0g 16023 df-gsum 16024 df-prds 16029 df-pws 16031 df-mre 16167 df-mrc 16168 df-acs 16170 df-mgm 17163 df-sgrp 17205 df-mnd 17216 df-mhm 17256 df-submnd 17257 df-grp 17346 df-minusg 17347 df-sbg 17348 df-mulg 17462 df-subg 17512 df-ghm 17579 df-cntz 17671 df-cmn 18116 df-abl 18117 df-mgp 18411 df-ur 18423 df-ring 18470 df-subrg 18699 df-lmod 18786 df-lss 18852 df-sra 19091 df-rgmod 19092 df-psr 19275 df-mvr 19276 df-mpl 19277 df-opsr 19279 df-psr1 19469 df-vr1 19470 df-ply1 19471 df-coe1 19472 df-dsmm 19995 df-frlm 20010 df-mamu 20109 df-mat 20133 df-decpmat 20487

This theorem is referenced by: mp2pm2mp 20535

W3C validator