mplmon2 - Metamath Proof Explorer

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

Theorem mplmon2 21989

Description: Express a scaled monomial. (Contributed by Stefan O'Rear, 8-Mar-2015.)

**Hypotheses**
Ref	Expression
mplmon2.p	⊢ 𝑃 = (𝐼 mPoly 𝑅)
mplmon2.v	⊢ · = ( ·_𝑠 ‘𝑃)
mplmon2.d	⊢ 𝐷 = {𝑓 ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡𝑓 “ ℕ) ∈ Fin}
mplmon2.o	⊢ 1 = (1_r‘𝑅)
mplmon2.z	⊢ 0 = (0_g‘𝑅)
mplmon2.b	⊢ 𝐵 = (Base‘𝑅)
mplmon2.i	⊢ (𝜑 → 𝐼 ∈ 𝑊)
mplmon2.r	⊢ (𝜑 → 𝑅 ∈ Ring)
mplmon2.k	⊢ (𝜑 → 𝐾 ∈ 𝐷)
mplmon2.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)

**Assertion**
Ref	Expression
mplmon2	⊢ (𝜑 → (𝑋 · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 𝑋, 0 )))

Distinct variable groups: 𝜑,𝑦 𝑦,𝐵 𝑦,𝐷 𝑓,𝐼 𝑓,𝐾,𝑦 𝑦, 1 𝑦,𝑅 𝑦,𝑋 𝑦, 0 Allowed substitution hints: 𝜑(𝑓) 𝐵(𝑓) 𝐷(𝑓) 𝑃(𝑦,𝑓) 𝑅(𝑓) · (𝑦,𝑓) 1 (𝑓) 𝐼(𝑦) 𝑊(𝑦,𝑓) 𝑋(𝑓) 0 (𝑓)

**Proof of Theorem mplmon2**
Step	Hyp	Ref	Expression
1		mplmon2.p	. . 3 ⊢ 𝑃 = (𝐼 mPoly 𝑅)
2		mplmon2.v	. . 3 ⊢ · = ( ·_𝑠 ‘𝑃)
3		mplmon2.b	. . 3 ⊢ 𝐵 = (Base‘𝑅)
4		eqid 2730	. . 3 ⊢ (Base‘𝑃) = (Base‘𝑃)
5		eqid 2730	. . 3 ⊢ (._r‘𝑅) = (._r‘𝑅)
6		mplmon2.d	. . 3 ⊢ 𝐷 = {𝑓 ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡𝑓 “ ℕ) ∈ Fin}
7		mplmon2.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
8		mplmon2.z	. . . 4 ⊢ 0 = (0_g‘𝑅)
9		mplmon2.o	. . . 4 ⊢ 1 = (1_r‘𝑅)
10		mplmon2.i	. . . 4 ⊢ (𝜑 → 𝐼 ∈ 𝑊)
11		mplmon2.r	. . . 4 ⊢ (𝜑 → 𝑅 ∈ Ring)
12		mplmon2.k	. . . 4 ⊢ (𝜑 → 𝐾 ∈ 𝐷)
13	1, 4, 8, 9, 6, 10, 11, 12	mplmon 21963	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 1 , 0 )) ∈ (Base‘𝑃))
14	1, 2, 3, 4, 5, 6, 7, 13	mplvsca 21945	. 2 ⊢ (𝜑 → (𝑋 · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 1 , 0 ))) = ((𝐷 × {𝑋}) ∘_f (._r‘𝑅)(𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 1 , 0 ))))
15		ovex 7374	. . . . 5 ⊢ (ℕ₀ ↑_m 𝐼) ∈ V
16	6, 15	rabex2 5277	. . . 4 ⊢ 𝐷 ∈ V
17	16	a1i 11	. . 3 ⊢ (𝜑 → 𝐷 ∈ V)
18	7	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑋 ∈ 𝐵)
19	9	fvexi 6831	. . . . 5 ⊢ 1 ∈ V
20	8	fvexi 6831	. . . . 5 ⊢ 0 ∈ V
21	19, 20	ifex 4524	. . . 4 ⊢ if(𝑦 = 𝐾, 1 , 0 ) ∈ V
22	21	a1i 11	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → if(𝑦 = 𝐾, 1 , 0 ) ∈ V)
23		fconstmpt 5676	. . . 4 ⊢ (𝐷 × {𝑋}) = (𝑦 ∈ 𝐷 ↦ 𝑋)
24	23	a1i 11	. . 3 ⊢ (𝜑 → (𝐷 × {𝑋}) = (𝑦 ∈ 𝐷 ↦ 𝑋))
25		eqidd 2731	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 1 , 0 )))
26	17, 18, 22, 24, 25	offval2 7625	. 2 ⊢ (𝜑 → ((𝐷 × {𝑋}) ∘_f (._r‘𝑅)(𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ (𝑋(._r‘𝑅)if(𝑦 = 𝐾, 1 , 0 ))))
27		oveq2 7349	. . . . 5 ⊢ ( 1 = if(𝑦 = 𝐾, 1 , 0 ) → (𝑋(._r‘𝑅) 1 ) = (𝑋(._r‘𝑅)if(𝑦 = 𝐾, 1 , 0 )))
28	27	eqeq1d 2732	. . . 4 ⊢ ( 1 = if(𝑦 = 𝐾, 1 , 0 ) → ((𝑋(._r‘𝑅) 1 ) = if(𝑦 = 𝐾, 𝑋, 0 ) ↔ (𝑋(._r‘𝑅)if(𝑦 = 𝐾, 1 , 0 )) = if(𝑦 = 𝐾, 𝑋, 0 )))
29		oveq2 7349	. . . . 5 ⊢ ( 0 = if(𝑦 = 𝐾, 1 , 0 ) → (𝑋(._r‘𝑅) 0 ) = (𝑋(._r‘𝑅)if(𝑦 = 𝐾, 1 , 0 )))
30	29	eqeq1d 2732	. . . 4 ⊢ ( 0 = if(𝑦 = 𝐾, 1 , 0 ) → ((𝑋(._r‘𝑅) 0 ) = if(𝑦 = 𝐾, 𝑋, 0 ) ↔ (𝑋(._r‘𝑅)if(𝑦 = 𝐾, 1 , 0 )) = if(𝑦 = 𝐾, 𝑋, 0 )))
31	3, 5, 9	ringridm 20181	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝐵) → (𝑋(._r‘𝑅) 1 ) = 𝑋)
32	11, 7, 31	syl2anc 584	. . . . 5 ⊢ (𝜑 → (𝑋(._r‘𝑅) 1 ) = 𝑋)
33		iftrue 4479	. . . . . 6 ⊢ (𝑦 = 𝐾 → if(𝑦 = 𝐾, 𝑋, 0 ) = 𝑋)
34	33	eqcomd 2736	. . . . 5 ⊢ (𝑦 = 𝐾 → 𝑋 = if(𝑦 = 𝐾, 𝑋, 0 ))
35	32, 34	sylan9eq 2785	. . . 4 ⊢ ((𝜑 ∧ 𝑦 = 𝐾) → (𝑋(._r‘𝑅) 1 ) = if(𝑦 = 𝐾, 𝑋, 0 ))
36	3, 5, 8	ringrz 20205	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝐵) → (𝑋(._r‘𝑅) 0 ) = 0 )
37	11, 7, 36	syl2anc 584	. . . . 5 ⊢ (𝜑 → (𝑋(._r‘𝑅) 0 ) = 0 )
38		iffalse 4482	. . . . . 6 ⊢ (¬ 𝑦 = 𝐾 → if(𝑦 = 𝐾, 𝑋, 0 ) = 0 )
39	38	eqcomd 2736	. . . . 5 ⊢ (¬ 𝑦 = 𝐾 → 0 = if(𝑦 = 𝐾, 𝑋, 0 ))
40	37, 39	sylan9eq 2785	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑦 = 𝐾) → (𝑋(._r‘𝑅) 0 ) = if(𝑦 = 𝐾, 𝑋, 0 ))
41	28, 30, 35, 40	ifbothda 4512	. . 3 ⊢ (𝜑 → (𝑋(._r‘𝑅)if(𝑦 = 𝐾, 1 , 0 )) = if(𝑦 = 𝐾, 𝑋, 0 ))
42	41	mpteq2dv 5183	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ (𝑋(._r‘𝑅)if(𝑦 = 𝐾, 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 𝑋, 0 )))
43	14, 26, 42	3eqtrd 2769	1 ⊢ (𝜑 → (𝑋 · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝐾, 𝑋, 0 )))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 = wceq 1541 ∈ wcel 2110 {crab 3393 Vcvv 3434 ifcif 4473 {csn 4574 ↦ cmpt 5170 × cxp 5612 ^◡ccnv 5613 “ cima 5617 ‘cfv 6477 (class class class)co 7341 ∘_f cof 7603 ↑_m cmap 8745 Fincfn 8864 ℕcn 12117 ℕ₀cn0 12373 Basecbs 17112 ._rcmulr 17154 ·_𝑠 cvsca 17157 0_gc0g 17335 1_rcur 20092 Ringcrg 20144 mPoly cmpl 21836

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2112 ax-9 2120 ax-10 2143 ax-11 2159 ax-12 2179 ax-ext 2702 ax-rep 5215 ax-sep 5232 ax-nul 5242 ax-pow 5301 ax-pr 5368 ax-un 7663 ax-cnex 11054 ax-resscn 11055 ax-1cn 11056 ax-icn 11057 ax-addcl 11058 ax-addrcl 11059 ax-mulcl 11060 ax-mulrcl 11061 ax-mulcom 11062 ax-addass 11063 ax-mulass 11064 ax-distr 11065 ax-i2m1 11066 ax-1ne0 11067 ax-1rid 11068 ax-rnegex 11069 ax-rrecex 11070 ax-cnre 11071 ax-pre-lttri 11072 ax-pre-lttrn 11073 ax-pre-ltadd 11074 ax-pre-mulgt0 11075

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2067 df-mo 2534 df-eu 2563 df-clab 2709 df-cleq 2722 df-clel 2804 df-nfc 2879 df-ne 2927 df-nel 3031 df-ral 3046 df-rex 3055 df-rmo 3344 df-reu 3345 df-rab 3394 df-v 3436 df-sbc 3740 df-csb 3849 df-dif 3903 df-un 3905 df-in 3907 df-ss 3917 df-pss 3920 df-nul 4282 df-if 4474 df-pw 4550 df-sn 4575 df-pr 4577 df-tp 4579 df-op 4581 df-uni 4858 df-iun 4941 df-br 5090 df-opab 5152 df-mpt 5171 df-tr 5197 df-id 5509 df-eprel 5514 df-po 5522 df-so 5523 df-fr 5567 df-we 5569 df-xp 5620 df-rel 5621 df-cnv 5622 df-co 5623 df-dm 5624 df-rn 5625 df-res 5626 df-ima 5627 df-pred 6244 df-ord 6305 df-on 6306 df-lim 6307 df-suc 6308 df-iota 6433 df-fun 6479 df-fn 6480 df-f 6481 df-f1 6482 df-fo 6483 df-f1o 6484 df-fv 6485 df-riota 7298 df-ov 7344 df-oprab 7345 df-mpo 7346 df-of 7605 df-om 7792 df-1st 7916 df-2nd 7917 df-supp 8086 df-frecs 8206 df-wrecs 8237 df-recs 8286 df-rdg 8324 df-1o 8380 df-er 8617 df-map 8747 df-en 8865 df-dom 8866 df-sdom 8867 df-fin 8868 df-fsupp 9241 df-pnf 11140 df-mnf 11141 df-xr 11142 df-ltxr 11143 df-le 11144 df-sub 11338 df-neg 11339 df-nn 12118 df-2 12180 df-3 12181 df-4 12182 df-5 12183 df-6 12184 df-7 12185 df-8 12186 df-9 12187 df-n0 12374 df-z 12461 df-uz 12725 df-fz 13400 df-struct 17050 df-sets 17067 df-slot 17085 df-ndx 17097 df-base 17113 df-ress 17134 df-plusg 17166 df-mulr 17167 df-sca 17169 df-vsca 17170 df-tset 17172 df-0g 17337 df-mgm 18540 df-sgrp 18619 df-mnd 18635 df-grp 18841 df-minusg 18842 df-cmn 19687 df-abl 19688 df-mgp 20052 df-rng 20064 df-ur 20093 df-ring 20146 df-psr 21839 df-mpl 21841

This theorem is referenced by: mplascl 21992 mplmon2cl 21996 mplmon2mul 21997 mplcoe4 21999 coe1tm 22180

W3C validator