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

Theorem mplcoe1 21438
Description: Decompose a polynomial into a finite sum of monomials. (Contributed by Mario Carneiro, 9-Jan-2015.)
Hypotheses
Ref Expression
mplcoe1.p 𝑃 = (𝐼 mPoly 𝑅)
mplcoe1.d 𝐷 = {𝑓 ∈ (ℕ0m 𝐼) ∣ (𝑓 “ ℕ) ∈ Fin}
mplcoe1.z 0 = (0g𝑅)
mplcoe1.o 1 = (1r𝑅)
mplcoe1.i (𝜑𝐼𝑊)
mplcoe1.b 𝐵 = (Base‘𝑃)
mplcoe1.n · = ( ·𝑠𝑃)
mplcoe1.r (𝜑𝑅 ∈ Ring)
mplcoe1.x (𝜑𝑋𝐵)
Assertion
Ref Expression
mplcoe1 (𝜑𝑋 = (𝑃 Σg (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
Distinct variable groups:   𝑦,𝑘, 1   𝐵,𝑘   𝑓,𝑘,𝑦,𝐼   𝜑,𝑘,𝑦   𝑅,𝑓,𝑦   𝐷,𝑘,𝑦   𝑃,𝑘   0 ,𝑓,𝑘,𝑦   𝑓,𝑋,𝑘,𝑦   𝑘,𝑊,𝑦   · ,𝑘
Allowed substitution hints:   𝜑(𝑓)   𝐵(𝑦,𝑓)   𝐷(𝑓)   𝑃(𝑦,𝑓)   𝑅(𝑘)   · (𝑦,𝑓)   1 (𝑓)   𝑊(𝑓)

Proof of Theorem mplcoe1
Dummy variables 𝑤 𝑥 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mplcoe1.p . . . . . 6 𝑃 = (𝐼 mPoly 𝑅)
2 eqid 2736 . . . . . 6 (Base‘𝑅) = (Base‘𝑅)
3 mplcoe1.b . . . . . 6 𝐵 = (Base‘𝑃)
4 mplcoe1.d . . . . . 6 𝐷 = {𝑓 ∈ (ℕ0m 𝐼) ∣ (𝑓 “ ℕ) ∈ Fin}
5 mplcoe1.x . . . . . 6 (𝜑𝑋𝐵)
61, 2, 3, 4, 5mplelf 21404 . . . . 5 (𝜑𝑋:𝐷⟶(Base‘𝑅))
76feqmptd 6910 . . . 4 (𝜑𝑋 = (𝑦𝐷 ↦ (𝑋𝑦)))
8 iftrue 4492 . . . . . . 7 (𝑦 ∈ (𝑋 supp 0 ) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ) = (𝑋𝑦))
98adantl 482 . . . . . 6 (((𝜑𝑦𝐷) ∧ 𝑦 ∈ (𝑋 supp 0 )) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ) = (𝑋𝑦))
10 eldif 3920 . . . . . . . 8 (𝑦 ∈ (𝐷 ∖ (𝑋 supp 0 )) ↔ (𝑦𝐷 ∧ ¬ 𝑦 ∈ (𝑋 supp 0 )))
11 ssidd 3967 . . . . . . . . . . 11 (𝜑 → (𝑋 supp 0 ) ⊆ (𝑋 supp 0 ))
12 ovex 7390 . . . . . . . . . . . . 13 (ℕ0m 𝐼) ∈ V
134, 12rabex2 5291 . . . . . . . . . . . 12 𝐷 ∈ V
1413a1i 11 . . . . . . . . . . 11 (𝜑𝐷 ∈ V)
15 mplcoe1.z . . . . . . . . . . . . 13 0 = (0g𝑅)
1615fvexi 6856 . . . . . . . . . . . 12 0 ∈ V
1716a1i 11 . . . . . . . . . . 11 (𝜑0 ∈ V)
186, 11, 14, 17suppssr 8127 . . . . . . . . . 10 ((𝜑𝑦 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → (𝑋𝑦) = 0 )
1918ifeq2d 4506 . . . . . . . . 9 ((𝜑𝑦 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), (𝑋𝑦)) = if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ))
20 ifid 4526 . . . . . . . . 9 if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), (𝑋𝑦)) = (𝑋𝑦)
2119, 20eqtr3di 2791 . . . . . . . 8 ((𝜑𝑦 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ) = (𝑋𝑦))
2210, 21sylan2br 595 . . . . . . 7 ((𝜑 ∧ (𝑦𝐷 ∧ ¬ 𝑦 ∈ (𝑋 supp 0 ))) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ) = (𝑋𝑦))
2322anassrs 468 . . . . . 6 (((𝜑𝑦𝐷) ∧ ¬ 𝑦 ∈ (𝑋 supp 0 )) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ) = (𝑋𝑦))
249, 23pm2.61dan 811 . . . . 5 ((𝜑𝑦𝐷) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ) = (𝑋𝑦))
2524mpteq2dva 5205 . . . 4 (𝜑 → (𝑦𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 )) = (𝑦𝐷 ↦ (𝑋𝑦)))
267, 25eqtr4d 2779 . . 3 (𝜑𝑋 = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 )))
27 suppssdm 8108 . . . . 5 (𝑋 supp 0 ) ⊆ dom 𝑋
2827, 6fssdm 6688 . . . 4 (𝜑 → (𝑋 supp 0 ) ⊆ 𝐷)
29 eqid 2736 . . . . . . . . 9 (𝐼 mPwSer 𝑅) = (𝐼 mPwSer 𝑅)
30 eqid 2736 . . . . . . . . 9 (Base‘(𝐼 mPwSer 𝑅)) = (Base‘(𝐼 mPwSer 𝑅))
311, 29, 30, 15, 3mplelbas 21399 . . . . . . . 8 (𝑋𝐵 ↔ (𝑋 ∈ (Base‘(𝐼 mPwSer 𝑅)) ∧ 𝑋 finSupp 0 ))
3231simprbi 497 . . . . . . 7 (𝑋𝐵𝑋 finSupp 0 )
335, 32syl 17 . . . . . 6 (𝜑𝑋 finSupp 0 )
3433fsuppimpd 9312 . . . . 5 (𝜑 → (𝑋 supp 0 ) ∈ Fin)
35 sseq1 3969 . . . . . . . 8 (𝑤 = ∅ → (𝑤𝐷 ↔ ∅ ⊆ 𝐷))
36 mpteq1 5198 . . . . . . . . . . . 12 (𝑤 = ∅ → (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = (𝑘 ∈ ∅ ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))
37 mpt0 6643 . . . . . . . . . . . 12 (𝑘 ∈ ∅ ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = ∅
3836, 37eqtrdi 2792 . . . . . . . . . . 11 (𝑤 = ∅ → (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = ∅)
3938oveq2d 7373 . . . . . . . . . 10 (𝑤 = ∅ → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑃 Σg ∅))
40 eqid 2736 . . . . . . . . . . 11 (0g𝑃) = (0g𝑃)
4140gsum0 18539 . . . . . . . . . 10 (𝑃 Σg ∅) = (0g𝑃)
4239, 41eqtrdi 2792 . . . . . . . . 9 (𝑤 = ∅ → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (0g𝑃))
43 noel 4290 . . . . . . . . . . . 12 ¬ 𝑦 ∈ ∅
44 eleq2 2826 . . . . . . . . . . . 12 (𝑤 = ∅ → (𝑦𝑤𝑦 ∈ ∅))
4543, 44mtbiri 326 . . . . . . . . . . 11 (𝑤 = ∅ → ¬ 𝑦𝑤)
4645iffalsed 4497 . . . . . . . . . 10 (𝑤 = ∅ → if(𝑦𝑤, (𝑋𝑦), 0 ) = 0 )
4746mpteq2dv 5207 . . . . . . . . 9 (𝑤 = ∅ → (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )) = (𝑦𝐷0 ))
4842, 47eqeq12d 2752 . . . . . . . 8 (𝑤 = ∅ → ((𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )) ↔ (0g𝑃) = (𝑦𝐷0 )))
4935, 48imbi12d 344 . . . . . . 7 (𝑤 = ∅ → ((𝑤𝐷 → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 ))) ↔ (∅ ⊆ 𝐷 → (0g𝑃) = (𝑦𝐷0 ))))
5049imbi2d 340 . . . . . 6 (𝑤 = ∅ → ((𝜑 → (𝑤𝐷 → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )))) ↔ (𝜑 → (∅ ⊆ 𝐷 → (0g𝑃) = (𝑦𝐷0 )))))
51 sseq1 3969 . . . . . . . 8 (𝑤 = 𝑥 → (𝑤𝐷𝑥𝐷))
52 mpteq1 5198 . . . . . . . . . 10 (𝑤 = 𝑥 → (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))
5352oveq2d 7373 . . . . . . . . 9 (𝑤 = 𝑥 → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
54 eleq2 2826 . . . . . . . . . . 11 (𝑤 = 𝑥 → (𝑦𝑤𝑦𝑥))
5554ifbid 4509 . . . . . . . . . 10 (𝑤 = 𝑥 → if(𝑦𝑤, (𝑋𝑦), 0 ) = if(𝑦𝑥, (𝑋𝑦), 0 ))
5655mpteq2dv 5207 . . . . . . . . 9 (𝑤 = 𝑥 → (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )))
5753, 56eqeq12d 2752 . . . . . . . 8 (𝑤 = 𝑥 → ((𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )) ↔ (𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))))
5851, 57imbi12d 344 . . . . . . 7 (𝑤 = 𝑥 → ((𝑤𝐷 → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 ))) ↔ (𝑥𝐷 → (𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )))))
5958imbi2d 340 . . . . . 6 (𝑤 = 𝑥 → ((𝜑 → (𝑤𝐷 → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )))) ↔ (𝜑 → (𝑥𝐷 → (𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))))))
60 sseq1 3969 . . . . . . . 8 (𝑤 = (𝑥 ∪ {𝑧}) → (𝑤𝐷 ↔ (𝑥 ∪ {𝑧}) ⊆ 𝐷))
61 mpteq1 5198 . . . . . . . . . 10 (𝑤 = (𝑥 ∪ {𝑧}) → (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))
6261oveq2d 7373 . . . . . . . . 9 (𝑤 = (𝑥 ∪ {𝑧}) → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
63 eleq2 2826 . . . . . . . . . . 11 (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦𝑤𝑦 ∈ (𝑥 ∪ {𝑧})))
6463ifbid 4509 . . . . . . . . . 10 (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑦𝑤, (𝑋𝑦), 0 ) = if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ))
6564mpteq2dv 5207 . . . . . . . . 9 (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 )))
6662, 65eqeq12d 2752 . . . . . . . 8 (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )) ↔ (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ))))
6760, 66imbi12d 344 . . . . . . 7 (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑤𝐷 → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 ))) ↔ ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 )))))
6867imbi2d 340 . . . . . 6 (𝑤 = (𝑥 ∪ {𝑧}) → ((𝜑 → (𝑤𝐷 → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )))) ↔ (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ))))))
69 sseq1 3969 . . . . . . . 8 (𝑤 = (𝑋 supp 0 ) → (𝑤𝐷 ↔ (𝑋 supp 0 ) ⊆ 𝐷))
70 mpteq1 5198 . . . . . . . . . 10 (𝑤 = (𝑋 supp 0 ) → (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))
7170oveq2d 7373 . . . . . . . . 9 (𝑤 = (𝑋 supp 0 ) → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑃 Σg (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
72 eleq2 2826 . . . . . . . . . . 11 (𝑤 = (𝑋 supp 0 ) → (𝑦𝑤𝑦 ∈ (𝑋 supp 0 )))
7372ifbid 4509 . . . . . . . . . 10 (𝑤 = (𝑋 supp 0 ) → if(𝑦𝑤, (𝑋𝑦), 0 ) = if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ))
7473mpteq2dv 5207 . . . . . . . . 9 (𝑤 = (𝑋 supp 0 ) → (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 )))
7571, 74eqeq12d 2752 . . . . . . . 8 (𝑤 = (𝑋 supp 0 ) → ((𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )) ↔ (𝑃 Σg (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ))))
7669, 75imbi12d 344 . . . . . . 7 (𝑤 = (𝑋 supp 0 ) → ((𝑤𝐷 → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 ))) ↔ ((𝑋 supp 0 ) ⊆ 𝐷 → (𝑃 Σg (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 )))))
7776imbi2d 340 . . . . . 6 (𝑤 = (𝑋 supp 0 ) → ((𝜑 → (𝑤𝐷 → (𝑃 Σg (𝑘𝑤 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑤, (𝑋𝑦), 0 )))) ↔ (𝜑 → ((𝑋 supp 0 ) ⊆ 𝐷 → (𝑃 Σg (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ))))))
78 mplcoe1.i . . . . . . . . 9 (𝜑𝐼𝑊)
79 mplcoe1.r . . . . . . . . . 10 (𝜑𝑅 ∈ Ring)
80 ringgrp 19969 . . . . . . . . . 10 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
8179, 80syl 17 . . . . . . . . 9 (𝜑𝑅 ∈ Grp)
821, 4, 15, 40, 78, 81mpl0 21412 . . . . . . . 8 (𝜑 → (0g𝑃) = (𝐷 × { 0 }))
83 fconstmpt 5694 . . . . . . . 8 (𝐷 × { 0 }) = (𝑦𝐷0 )
8482, 83eqtrdi 2792 . . . . . . 7 (𝜑 → (0g𝑃) = (𝑦𝐷0 ))
8584a1d 25 . . . . . 6 (𝜑 → (∅ ⊆ 𝐷 → (0g𝑃) = (𝑦𝐷0 )))
86 ssun1 4132 . . . . . . . . . . 11 𝑥 ⊆ (𝑥 ∪ {𝑧})
87 sstr2 3951 . . . . . . . . . . 11 (𝑥 ⊆ (𝑥 ∪ {𝑧}) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷𝑥𝐷))
8886, 87ax-mp 5 . . . . . . . . . 10 ((𝑥 ∪ {𝑧}) ⊆ 𝐷𝑥𝐷)
8988imim1i 63 . . . . . . . . 9 ((𝑥𝐷 → (𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))))
90 oveq1 7364 . . . . . . . . . . . 12 ((𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) → ((𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))(+g𝑃)((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))) = ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))(+g𝑃)((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))))
91 eqid 2736 . . . . . . . . . . . . . 14 (+g𝑃) = (+g𝑃)
921mplring 21424 . . . . . . . . . . . . . . . . 17 ((𝐼𝑊𝑅 ∈ Ring) → 𝑃 ∈ Ring)
9378, 79, 92syl2anc 584 . . . . . . . . . . . . . . . 16 (𝜑𝑃 ∈ Ring)
94 ringcmn 20003 . . . . . . . . . . . . . . . 16 (𝑃 ∈ Ring → 𝑃 ∈ CMnd)
9593, 94syl 17 . . . . . . . . . . . . . . 15 (𝜑𝑃 ∈ CMnd)
9695adantr 481 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑃 ∈ CMnd)
97 simprll 777 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑥 ∈ Fin)
98 simprr 771 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑥 ∪ {𝑧}) ⊆ 𝐷)
9998unssad 4147 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑥𝐷)
10099sselda 3944 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑘𝑥) → 𝑘𝐷)
10178adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘𝐷) → 𝐼𝑊)
10279adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘𝐷) → 𝑅 ∈ Ring)
1031mpllmod 21423 . . . . . . . . . . . . . . . . . 18 ((𝐼𝑊𝑅 ∈ Ring) → 𝑃 ∈ LMod)
104101, 102, 103syl2anc 584 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘𝐷) → 𝑃 ∈ LMod)
1056ffvelcdmda 7035 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘𝐷) → (𝑋𝑘) ∈ (Base‘𝑅))
1061, 78, 79mplsca 21417 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑅 = (Scalar‘𝑃))
107106adantr 481 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘𝐷) → 𝑅 = (Scalar‘𝑃))
108107fveq2d 6846 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘𝐷) → (Base‘𝑅) = (Base‘(Scalar‘𝑃)))
109105, 108eleqtrd 2840 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘𝐷) → (𝑋𝑘) ∈ (Base‘(Scalar‘𝑃)))
110 mplcoe1.o . . . . . . . . . . . . . . . . . 18 1 = (1r𝑅)
111 simpr 485 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘𝐷) → 𝑘𝐷)
1121, 3, 15, 110, 4, 101, 102, 111mplmon 21436 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘𝐷) → (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )) ∈ 𝐵)
113 eqid 2736 . . . . . . . . . . . . . . . . . 18 (Scalar‘𝑃) = (Scalar‘𝑃)
114 mplcoe1.n . . . . . . . . . . . . . . . . . 18 · = ( ·𝑠𝑃)
115 eqid 2736 . . . . . . . . . . . . . . . . . 18 (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
1163, 113, 114, 115lmodvscl 20339 . . . . . . . . . . . . . . . . 17 ((𝑃 ∈ LMod ∧ (𝑋𝑘) ∈ (Base‘(Scalar‘𝑃)) ∧ (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )) ∈ 𝐵) → ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) ∈ 𝐵)
117104, 109, 112, 116syl3anc 1371 . . . . . . . . . . . . . . . 16 ((𝜑𝑘𝐷) → ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) ∈ 𝐵)
118117adantlr 713 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑘𝐷) → ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) ∈ 𝐵)
119100, 118syldan 591 . . . . . . . . . . . . . 14 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑘𝑥) → ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) ∈ 𝐵)
120 vex 3449 . . . . . . . . . . . . . . 15 𝑧 ∈ V
121120a1i 11 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑧 ∈ V)
122 simprlr 778 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ¬ 𝑧𝑥)
12378, 79, 103syl2anc 584 . . . . . . . . . . . . . . . 16 (𝜑𝑃 ∈ LMod)
124123adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑃 ∈ LMod)
1256adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑋:𝐷⟶(Base‘𝑅))
12698unssbd 4148 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → {𝑧} ⊆ 𝐷)
127120snss 4746 . . . . . . . . . . . . . . . . . 18 (𝑧𝐷 ↔ {𝑧} ⊆ 𝐷)
128126, 127sylibr 233 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑧𝐷)
129125, 128ffvelcdmd 7036 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑋𝑧) ∈ (Base‘𝑅))
130106adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑅 = (Scalar‘𝑃))
131130fveq2d 6846 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (Base‘𝑅) = (Base‘(Scalar‘𝑃)))
132129, 131eleqtrd 2840 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑋𝑧) ∈ (Base‘(Scalar‘𝑃)))
13378adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝐼𝑊)
13479adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑅 ∈ Ring)
1351, 3, 15, 110, 4, 133, 134, 128mplmon 21436 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )) ∈ 𝐵)
1363, 113, 114, 115lmodvscl 20339 . . . . . . . . . . . . . . 15 ((𝑃 ∈ LMod ∧ (𝑋𝑧) ∈ (Base‘(Scalar‘𝑃)) ∧ (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )) ∈ 𝐵) → ((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))) ∈ 𝐵)
137124, 132, 135, 136syl3anc 1371 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))) ∈ 𝐵)
138 fveq2 6842 . . . . . . . . . . . . . . 15 (𝑘 = 𝑧 → (𝑋𝑘) = (𝑋𝑧))
139 equequ2 2029 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑧 → (𝑦 = 𝑘𝑦 = 𝑧))
140139ifbid 4509 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑧 → if(𝑦 = 𝑘, 1 , 0 ) = if(𝑦 = 𝑧, 1 , 0 ))
141140mpteq2dv 5207 . . . . . . . . . . . . . . 15 (𝑘 = 𝑧 → (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )) = (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))
142138, 141oveq12d 7375 . . . . . . . . . . . . . 14 (𝑘 = 𝑧 → ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = ((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))))
1433, 91, 96, 97, 119, 121, 122, 137, 142gsumunsn 19737 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = ((𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))(+g𝑃)((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))))
144 eqid 2736 . . . . . . . . . . . . . . 15 (+g𝑅) = (+g𝑅)
145125ffvelcdmda 7035 . . . . . . . . . . . . . . . . . . . 20 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) → (𝑋𝑦) ∈ (Base‘𝑅))
1462, 15ring0cl 19990 . . . . . . . . . . . . . . . . . . . . . 22 (𝑅 ∈ Ring → 0 ∈ (Base‘𝑅))
14779, 146syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑0 ∈ (Base‘𝑅))
148147ad2antrr 724 . . . . . . . . . . . . . . . . . . . 20 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) → 0 ∈ (Base‘𝑅))
149145, 148ifcld 4532 . . . . . . . . . . . . . . . . . . 19 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) → if(𝑦𝑥, (𝑋𝑦), 0 ) ∈ (Base‘𝑅))
150149fmpttd 7063 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )):𝐷⟶(Base‘𝑅))
151 fvex 6855 . . . . . . . . . . . . . . . . . . 19 (Base‘𝑅) ∈ V
152151, 13elmap 8809 . . . . . . . . . . . . . . . . . 18 ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∈ ((Base‘𝑅) ↑m 𝐷) ↔ (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )):𝐷⟶(Base‘𝑅))
153150, 152sylibr 233 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∈ ((Base‘𝑅) ↑m 𝐷))
15429, 2, 4, 30, 133psrbas 21346 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (Base‘(𝐼 mPwSer 𝑅)) = ((Base‘𝑅) ↑m 𝐷))
155153, 154eleqtrrd 2841 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∈ (Base‘(𝐼 mPwSer 𝑅)))
15613mptex 7173 . . . . . . . . . . . . . . . . . . 19 (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∈ V
157 funmpt 6539 . . . . . . . . . . . . . . . . . . 19 Fun (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))
158156, 157, 163pm3.2i 1339 . . . . . . . . . . . . . . . . . 18 ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∈ V ∧ Fun (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∧ 0 ∈ V)
159158a1i 11 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∈ V ∧ Fun (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∧ 0 ∈ V))
160 eldifn 4087 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ (𝐷𝑥) → ¬ 𝑦𝑥)
161160adantl 482 . . . . . . . . . . . . . . . . . . 19 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ (𝐷𝑥)) → ¬ 𝑦𝑥)
162161iffalsed 4497 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ (𝐷𝑥)) → if(𝑦𝑥, (𝑋𝑦), 0 ) = 0 )
16313a1i 11 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝐷 ∈ V)
164162, 163suppss2 8131 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) supp 0 ) ⊆ 𝑥)
165 suppssfifsupp 9320 . . . . . . . . . . . . . . . . 17 ((((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∈ V ∧ Fun (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∧ 0 ∈ V) ∧ (𝑥 ∈ Fin ∧ ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) supp 0 ) ⊆ 𝑥)) → (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) finSupp 0 )
166159, 97, 164, 165syl12anc 835 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) finSupp 0 )
1671, 29, 30, 15, 3mplelbas 21399 . . . . . . . . . . . . . . . 16 ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∈ 𝐵 ↔ ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∈ (Base‘(𝐼 mPwSer 𝑅)) ∧ (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) finSupp 0 ))
168155, 166, 167sylanbrc 583 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∈ 𝐵)
1691, 3, 144, 91, 168, 137mpladd 21413 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))(+g𝑃)((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))) = ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∘f (+g𝑅)((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))))
170 ovexd 7392 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) → ((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 )) ∈ V)
171 eqidd 2737 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )))
172 eqid 2736 . . . . . . . . . . . . . . . . 17 (.r𝑅) = (.r𝑅)
1731, 114, 2, 3, 172, 4, 129, 135mplvsca 21419 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))) = ((𝐷 × {(𝑋𝑧)}) ∘f (.r𝑅)(𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))))
174129adantr 481 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) → (𝑋𝑧) ∈ (Base‘𝑅))
1752, 110ringidcl 19989 . . . . . . . . . . . . . . . . . . . 20 (𝑅 ∈ Ring → 1 ∈ (Base‘𝑅))
176175, 146ifcld 4532 . . . . . . . . . . . . . . . . . . 19 (𝑅 ∈ Ring → if(𝑦 = 𝑧, 1 , 0 ) ∈ (Base‘𝑅))
17779, 176syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → if(𝑦 = 𝑧, 1 , 0 ) ∈ (Base‘𝑅))
178177ad2antrr 724 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) → if(𝑦 = 𝑧, 1 , 0 ) ∈ (Base‘𝑅))
179 fconstmpt 5694 . . . . . . . . . . . . . . . . . 18 (𝐷 × {(𝑋𝑧)}) = (𝑦𝐷 ↦ (𝑋𝑧))
180179a1i 11 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝐷 × {(𝑋𝑧)}) = (𝑦𝐷 ↦ (𝑋𝑧)))
181 eqidd 2737 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )) = (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))
182163, 174, 178, 180, 181offval2 7637 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝐷 × {(𝑋𝑧)}) ∘f (.r𝑅)(𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))) = (𝑦𝐷 ↦ ((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 ))))
183173, 182eqtrd 2776 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))) = (𝑦𝐷 ↦ ((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 ))))
184163, 149, 170, 171, 183offval2 7637 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) ∘f (+g𝑅)((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))) = (𝑦𝐷 ↦ (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅)((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 )))))
185134, 80syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑅 ∈ Grp)
1862, 144, 15grplid 18780 . . . . . . . . . . . . . . . . . . . 20 ((𝑅 ∈ Grp ∧ (𝑋𝑧) ∈ (Base‘𝑅)) → ( 0 (+g𝑅)(𝑋𝑧)) = (𝑋𝑧))
187185, 129, 186syl2anc 584 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ( 0 (+g𝑅)(𝑋𝑧)) = (𝑋𝑧))
188187ad2antrr 724 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → ( 0 (+g𝑅)(𝑋𝑧)) = (𝑋𝑧))
189 simpr 485 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → 𝑦 ∈ {𝑧})
190 velsn 4602 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ {𝑧} ↔ 𝑦 = 𝑧)
191189, 190sylib 217 . . . . . . . . . . . . . . . . . . 19 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → 𝑦 = 𝑧)
192191fveq2d 6846 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → (𝑋𝑦) = (𝑋𝑧))
193188, 192eqtr4d 2779 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → ( 0 (+g𝑅)(𝑋𝑧)) = (𝑋𝑦))
194122ad2antrr 724 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → ¬ 𝑧𝑥)
195191, 194eqneltrd 2857 . . . . . . . . . . . . . . . . . . 19 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → ¬ 𝑦𝑥)
196195iffalsed 4497 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → if(𝑦𝑥, (𝑋𝑦), 0 ) = 0 )
197191iftrued 4494 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → if(𝑦 = 𝑧, 1 , 0 ) = 1 )
198197oveq2d 7373 . . . . . . . . . . . . . . . . . . 19 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → ((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 )) = ((𝑋𝑧)(.r𝑅) 1 ))
1992, 172, 110ringridm 19993 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 ∈ Ring ∧ (𝑋𝑧) ∈ (Base‘𝑅)) → ((𝑋𝑧)(.r𝑅) 1 ) = (𝑋𝑧))
200134, 129, 199syl2anc 584 . . . . . . . . . . . . . . . . . . . 20 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑋𝑧)(.r𝑅) 1 ) = (𝑋𝑧))
201200ad2antrr 724 . . . . . . . . . . . . . . . . . . 19 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → ((𝑋𝑧)(.r𝑅) 1 ) = (𝑋𝑧))
202198, 201eqtrd 2776 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → ((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 )) = (𝑋𝑧))
203196, 202oveq12d 7375 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅)((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 ))) = ( 0 (+g𝑅)(𝑋𝑧)))
204 elun2 4137 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ {𝑧} → 𝑦 ∈ (𝑥 ∪ {𝑧}))
205204adantl 482 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → 𝑦 ∈ (𝑥 ∪ {𝑧}))
206205iftrued 4494 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ) = (𝑋𝑦))
207193, 203, 2063eqtr4d 2786 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ 𝑦 ∈ {𝑧}) → (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅)((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 ))) = if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ))
20881ad2antrr 724 . . . . . . . . . . . . . . . . . . 19 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) → 𝑅 ∈ Grp)
2092, 144, 15grprid 18781 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ Grp ∧ if(𝑦𝑥, (𝑋𝑦), 0 ) ∈ (Base‘𝑅)) → (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅) 0 ) = if(𝑦𝑥, (𝑋𝑦), 0 ))
210208, 149, 209syl2anc 584 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) → (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅) 0 ) = if(𝑦𝑥, (𝑋𝑦), 0 ))
211210adantr 481 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅) 0 ) = if(𝑦𝑥, (𝑋𝑦), 0 ))
212 simpr 485 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → ¬ 𝑦 ∈ {𝑧})
213212, 190sylnib 327 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → ¬ 𝑦 = 𝑧)
214213iffalsed 4497 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → if(𝑦 = 𝑧, 1 , 0 ) = 0 )
215214oveq2d 7373 . . . . . . . . . . . . . . . . . . 19 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → ((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 )) = ((𝑋𝑧)(.r𝑅) 0 ))
2162, 172, 15ringrz 20012 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 ∈ Ring ∧ (𝑋𝑧) ∈ (Base‘𝑅)) → ((𝑋𝑧)(.r𝑅) 0 ) = 0 )
217134, 129, 216syl2anc 584 . . . . . . . . . . . . . . . . . . . 20 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑋𝑧)(.r𝑅) 0 ) = 0 )
218217ad2antrr 724 . . . . . . . . . . . . . . . . . . 19 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → ((𝑋𝑧)(.r𝑅) 0 ) = 0 )
219215, 218eqtrd 2776 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → ((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 )) = 0 )
220219oveq2d 7373 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅)((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 ))) = (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅) 0 ))
221 elun 4108 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑦𝑥𝑦 ∈ {𝑧}))
222 orcom 868 . . . . . . . . . . . . . . . . . . . . 21 ((𝑦𝑥𝑦 ∈ {𝑧}) ↔ (𝑦 ∈ {𝑧} ∨ 𝑦𝑥))
223221, 222bitri 274 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑦 ∈ {𝑧} ∨ 𝑦𝑥))
224 biorf 935 . . . . . . . . . . . . . . . . . . . 20 𝑦 ∈ {𝑧} → (𝑦𝑥 ↔ (𝑦 ∈ {𝑧} ∨ 𝑦𝑥)))
225223, 224bitr4id 289 . . . . . . . . . . . . . . . . . . 19 𝑦 ∈ {𝑧} → (𝑦 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑦𝑥))
226225adantl 482 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → (𝑦 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑦𝑥))
227226ifbid 4509 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ) = if(𝑦𝑥, (𝑋𝑦), 0 ))
228211, 220, 2273eqtr4d 2786 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅)((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 ))) = if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ))
229207, 228pm2.61dan 811 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦𝐷) → (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅)((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 ))) = if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ))
230229mpteq2dva 5205 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦𝐷 ↦ (if(𝑦𝑥, (𝑋𝑦), 0 )(+g𝑅)((𝑋𝑧)(.r𝑅)if(𝑦 = 𝑧, 1 , 0 )))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 )))
231169, 184, 2303eqtrrd 2781 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 )) = ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))(+g𝑃)((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))))
232143, 231eqeq12d 2752 . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 )) ↔ ((𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))(+g𝑃)((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))) = ((𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))(+g𝑃)((𝑋𝑧) · (𝑦𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))))))
23390, 232syl5ibr 245 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) → (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ))))
234233expr 457 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧𝑥)) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → ((𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )) → (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 )))))
235234a2d 29 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧𝑥)) → (((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 )))))
23689, 235syl5 34 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧𝑥)) → ((𝑥𝐷 → (𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 )))))
237236expcom 414 . . . . . . 7 ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) → (𝜑 → ((𝑥𝐷 → (𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 ))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ))))))
238237a2d 29 . . . . . 6 ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) → ((𝜑 → (𝑥𝐷 → (𝑃 Σg (𝑘𝑥 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦𝑥, (𝑋𝑦), 0 )))) → (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋𝑦), 0 ))))))
23950, 59, 68, 77, 85, 238findcard2s 9109 . . . . 5 ((𝑋 supp 0 ) ∈ Fin → (𝜑 → ((𝑋 supp 0 ) ⊆ 𝐷 → (𝑃 Σg (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 )))))
24034, 239mpcom 38 . . . 4 (𝜑 → ((𝑋 supp 0 ) ⊆ 𝐷 → (𝑃 Σg (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 ))))
24128, 240mpd 15 . . 3 (𝜑 → (𝑃 Σg (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋𝑦), 0 )))
24226, 241eqtr4d 2779 . 2 (𝜑𝑋 = (𝑃 Σg (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
24328resmptd 5994 . . . 4 (𝜑 → ((𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ↾ (𝑋 supp 0 )) = (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))
244243oveq2d 7373 . . 3 (𝜑 → (𝑃 Σg ((𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ↾ (𝑋 supp 0 ))) = (𝑃 Σg (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
245117fmpttd 7063 . . . 4 (𝜑 → (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))):𝐷𝐵)
2466, 11, 14, 17suppssr 8127 . . . . . . 7 ((𝜑𝑘 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → (𝑋𝑘) = 0 )
247246oveq1d 7372 . . . . . 6 ((𝜑𝑘 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = ( 0 · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))
248 eldifi 4086 . . . . . . 7 (𝑘 ∈ (𝐷 ∖ (𝑋 supp 0 )) → 𝑘𝐷)
249107fveq2d 6846 . . . . . . . . . 10 ((𝜑𝑘𝐷) → (0g𝑅) = (0g‘(Scalar‘𝑃)))
25015, 249eqtrid 2788 . . . . . . . . 9 ((𝜑𝑘𝐷) → 0 = (0g‘(Scalar‘𝑃)))
251250oveq1d 7372 . . . . . . . 8 ((𝜑𝑘𝐷) → ( 0 · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = ((0g‘(Scalar‘𝑃)) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))
252 eqid 2736 . . . . . . . . . 10 (0g‘(Scalar‘𝑃)) = (0g‘(Scalar‘𝑃))
2533, 113, 114, 252, 40lmod0vs 20355 . . . . . . . . 9 ((𝑃 ∈ LMod ∧ (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )) ∈ 𝐵) → ((0g‘(Scalar‘𝑃)) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = (0g𝑃))
254104, 112, 253syl2anc 584 . . . . . . . 8 ((𝜑𝑘𝐷) → ((0g‘(Scalar‘𝑃)) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = (0g𝑃))
255251, 254eqtrd 2776 . . . . . . 7 ((𝜑𝑘𝐷) → ( 0 · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = (0g𝑃))
256248, 255sylan2 593 . . . . . 6 ((𝜑𝑘 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → ( 0 · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = (0g𝑃))
257247, 256eqtrd 2776 . . . . 5 ((𝜑𝑘 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = (0g𝑃))
258257, 14suppss2 8131 . . . 4 (𝜑 → ((𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) supp (0g𝑃)) ⊆ (𝑋 supp 0 ))
25913mptex 7173 . . . . . . 7 (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∈ V
260 funmpt 6539 . . . . . . 7 Fun (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))
261 fvex 6855 . . . . . . 7 (0g𝑃) ∈ V
262259, 260, 2613pm3.2i 1339 . . . . . 6 ((𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∈ V ∧ Fun (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∧ (0g𝑃) ∈ V)
263262a1i 11 . . . . 5 (𝜑 → ((𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∈ V ∧ Fun (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∧ (0g𝑃) ∈ V))
264 suppssfifsupp 9320 . . . . 5 ((((𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∈ V ∧ Fun (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∧ (0g𝑃) ∈ V) ∧ ((𝑋 supp 0 ) ∈ Fin ∧ ((𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) supp (0g𝑃)) ⊆ (𝑋 supp 0 ))) → (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) finSupp (0g𝑃))
265263, 34, 258, 264syl12anc 835 . . . 4 (𝜑 → (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) finSupp (0g𝑃))
2663, 40, 95, 14, 245, 258, 265gsumres 19690 . . 3 (𝜑 → (𝑃 Σg ((𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ↾ (𝑋 supp 0 ))) = (𝑃 Σg (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
267244, 266eqtr3d 2778 . 2 (𝜑 → (𝑃 Σg (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑃 Σg (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
268242, 267eqtrd 2776 1 (𝜑𝑋 = (𝑃 Σg (𝑘𝐷 ↦ ((𝑋𝑘) · (𝑦𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  wo 845  w3a 1087   = wceq 1541  wcel 2106  {crab 3407  Vcvv 3445  cdif 3907  cun 3908  wss 3910  c0 4282  ifcif 4486  {csn 4586   class class class wbr 5105  cmpt 5188   × cxp 5631  ccnv 5632  cres 5635  cima 5636  Fun wfun 6490  wf 6492  cfv 6496  (class class class)co 7357  f cof 7615   supp csupp 8092  m cmap 8765  Fincfn 8883   finSupp cfsupp 9305  cn 12153  0cn0 12413  Basecbs 17083  +gcplusg 17133  .rcmulr 17134  Scalarcsca 17136   ·𝑠 cvsca 17137  0gc0g 17321   Σg cgsu 17322  Grpcgrp 18748  CMndccmn 19562  1rcur 19913  Ringcrg 19964  LModclmod 20322   mPwSer cmps 21306   mPoly cmpl 21308
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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-tp 4591  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-iin 4957  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-se 5589  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-isom 6505  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-of 7617  df-ofr 7618  df-om 7803  df-1st 7921  df-2nd 7922  df-supp 8093  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-er 8648  df-map 8767  df-pm 8768  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9306  df-sup 9378  df-oi 9446  df-card 9875  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-nn 12154  df-2 12216  df-3 12217  df-4 12218  df-5 12219  df-6 12220  df-7 12221  df-8 12222  df-9 12223  df-n0 12414  df-z 12500  df-dec 12619  df-uz 12764  df-fz 13425  df-fzo 13568  df-seq 13907  df-hash 14231  df-struct 17019  df-sets 17036  df-slot 17054  df-ndx 17066  df-base 17084  df-ress 17113  df-plusg 17146  df-mulr 17147  df-sca 17149  df-vsca 17150  df-ip 17151  df-tset 17152  df-ple 17153  df-ds 17155  df-hom 17157  df-cco 17158  df-0g 17323  df-gsum 17324  df-prds 17329  df-pws 17331  df-mre 17466  df-mrc 17467  df-acs 17469  df-mgm 18497  df-sgrp 18546  df-mnd 18557  df-mhm 18601  df-submnd 18602  df-grp 18751  df-minusg 18752  df-sbg 18753  df-mulg 18873  df-subg 18925  df-ghm 19006  df-cntz 19097  df-cmn 19564  df-abl 19565  df-mgp 19897  df-ur 19914  df-ring 19966  df-subrg 20220  df-lmod 20324  df-lss 20393  df-psr 21311  df-mpl 21313
This theorem is referenced by:  mplbas2  21443  mplcoe4  21479  ply1coe  21667
  Copyright terms: Public domain W3C validator