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

Theorem evlslem3 20269
Description: Lemma for evlseu 20272. Polynomial evaluation of a scaled monomial. (Contributed by Stefan O'Rear, 8-Mar-2015.) (Revised by AV, 11-Apr-2024.)
Hypotheses
Ref Expression
evlslem3.p 𝑃 = (𝐼 mPoly 𝑅)
evlslem3.b 𝐵 = (Base‘𝑃)
evlslem3.c 𝐶 = (Base‘𝑆)
evlslem3.k 𝐾 = (Base‘𝑅)
evlslem3.d 𝐷 = { ∈ (ℕ0m 𝐼) ∣ ( “ ℕ) ∈ Fin}
evlslem3.t 𝑇 = (mulGrp‘𝑆)
evlslem3.x = (.g𝑇)
evlslem3.m · = (.r𝑆)
evlslem3.v 𝑉 = (𝐼 mVar 𝑅)
evlslem3.e 𝐸 = (𝑝𝐵 ↦ (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘(𝑝𝑏)) · (𝑇 Σg (𝑏f 𝐺))))))
evlslem3.i (𝜑𝐼𝑊)
evlslem3.r (𝜑𝑅 ∈ CRing)
evlslem3.s (𝜑𝑆 ∈ CRing)
evlslem3.f (𝜑𝐹 ∈ (𝑅 RingHom 𝑆))
evlslem3.g (𝜑𝐺:𝐼𝐶)
evlslem3.z 0 = (0g𝑅)
evlslem3.a (𝜑𝐴𝐷)
evlslem3.q (𝜑𝐻𝐾)
Assertion
Ref Expression
evlslem3 (𝜑 → (𝐸‘(𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))) = ((𝐹𝐻) · (𝑇 Σg (𝐴f 𝐺))))
Distinct variable groups:   𝑝,𝑏,𝑥, 0   𝐵,𝑝   𝐶,𝑏   𝐷,𝑏,𝑝,𝑥   𝐹,𝑏,𝑝   ,𝑏,𝑝   ,𝑏,𝐴,𝑝,𝑥   ,𝐼   𝑥,𝐾   𝜑,𝑏,𝑥   𝐺,𝑏,𝑝   𝐻,𝑏,𝑝,𝑥   𝑆,𝑏,𝑝   𝑇,𝑏,𝑝   · ,𝑏,𝑝   𝑥,𝑅
Allowed substitution hints:   𝜑(,𝑝)   𝐵(𝑥,,𝑏)   𝐶(𝑥,,𝑝)   𝐷()   𝑃(𝑥,,𝑝,𝑏)   𝑅(,𝑝,𝑏)   𝑆(𝑥,)   𝑇(𝑥,)   · (𝑥,)   𝐸(𝑥,,𝑝,𝑏)   (𝑥,)   𝐹(𝑥,)   𝐺(𝑥,)   𝐻()   𝐼(𝑥,𝑝,𝑏)   𝐾(,𝑝,𝑏)   𝑉(𝑥,,𝑝,𝑏)   𝑊(𝑥,,𝑝,𝑏)   0 ()

Proof of Theorem evlslem3
Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 evlslem3.p . . . 4 𝑃 = (𝐼 mPoly 𝑅)
2 evlslem3.d . . . 4 𝐷 = { ∈ (ℕ0m 𝐼) ∣ ( “ ℕ) ∈ Fin}
3 evlslem3.z . . . 4 0 = (0g𝑅)
4 evlslem3.k . . . 4 𝐾 = (Base‘𝑅)
5 evlslem3.i . . . 4 (𝜑𝐼𝑊)
6 evlslem3.r . . . . 5 (𝜑𝑅 ∈ CRing)
7 crngring 19287 . . . . 5 (𝑅 ∈ CRing → 𝑅 ∈ Ring)
86, 7syl 17 . . . 4 (𝜑𝑅 ∈ Ring)
9 evlslem3.b . . . 4 𝐵 = (Base‘𝑃)
10 evlslem3.q . . . 4 (𝜑𝐻𝐾)
11 evlslem3.a . . . 4 (𝜑𝐴𝐷)
121, 2, 3, 4, 5, 8, 9, 10, 11mplmon2cl 20256 . . 3 (𝜑 → (𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) ∈ 𝐵)
13 fveq1 6642 . . . . . . . 8 (𝑝 = (𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) → (𝑝𝑏) = ((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏))
1413fveq2d 6647 . . . . . . 7 (𝑝 = (𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) → (𝐹‘(𝑝𝑏)) = (𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)))
1514oveq1d 7145 . . . . . 6 (𝑝 = (𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) → ((𝐹‘(𝑝𝑏)) · (𝑇 Σg (𝑏f 𝐺))) = ((𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏f 𝐺))))
1615mpteq2dv 5135 . . . . 5 (𝑝 = (𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) → (𝑏𝐷 ↦ ((𝐹‘(𝑝𝑏)) · (𝑇 Σg (𝑏f 𝐺)))) = (𝑏𝐷 ↦ ((𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏f 𝐺)))))
1716oveq2d 7146 . . . 4 (𝑝 = (𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) → (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘(𝑝𝑏)) · (𝑇 Σg (𝑏f 𝐺))))) = (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏f 𝐺))))))
18 evlslem3.e . . . 4 𝐸 = (𝑝𝐵 ↦ (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘(𝑝𝑏)) · (𝑇 Σg (𝑏f 𝐺))))))
19 ovex 7163 . . . 4 (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏f 𝐺))))) ∈ V
2017, 18, 19fvmpt 6741 . . 3 ((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) ∈ 𝐵 → (𝐸‘(𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))) = (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏f 𝐺))))))
2112, 20syl 17 . 2 (𝜑 → (𝐸‘(𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))) = (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏f 𝐺))))))
22 eqid 2821 . . . . . . . 8 (𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) = (𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))
23 eqeq1 2825 . . . . . . . . 9 (𝑥 = 𝑏 → (𝑥 = 𝐴𝑏 = 𝐴))
2423ifbid 4462 . . . . . . . 8 (𝑥 = 𝑏 → if(𝑥 = 𝐴, 𝐻, 0 ) = if(𝑏 = 𝐴, 𝐻, 0 ))
25 simpr 488 . . . . . . . 8 ((𝜑𝑏𝐷) → 𝑏𝐷)
263fvexi 6657 . . . . . . . . . . 11 0 ∈ V
2726a1i 11 . . . . . . . . . 10 (𝜑0 ∈ V)
28 ifexg 4487 . . . . . . . . . 10 ((𝐻𝐾0 ∈ V) → if(𝑏 = 𝐴, 𝐻, 0 ) ∈ V)
2910, 27, 28syl2anc 587 . . . . . . . . 9 (𝜑 → if(𝑏 = 𝐴, 𝐻, 0 ) ∈ V)
3029adantr 484 . . . . . . . 8 ((𝜑𝑏𝐷) → if(𝑏 = 𝐴, 𝐻, 0 ) ∈ V)
3122, 24, 25, 30fvmptd3 6764 . . . . . . 7 ((𝜑𝑏𝐷) → ((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏) = if(𝑏 = 𝐴, 𝐻, 0 ))
3231fveq2d 6647 . . . . . 6 ((𝜑𝑏𝐷) → (𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) = (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )))
3332oveq1d 7145 . . . . 5 ((𝜑𝑏𝐷) → ((𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏f 𝐺))) = ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))))
3433mpteq2dva 5134 . . . 4 (𝜑 → (𝑏𝐷 ↦ ((𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏f 𝐺)))) = (𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺)))))
3534oveq2d 7146 . . 3 (𝜑 → (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏f 𝐺))))) = (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))))))
36 evlslem3.c . . . 4 𝐶 = (Base‘𝑆)
37 eqid 2821 . . . 4 (0g𝑆) = (0g𝑆)
38 evlslem3.s . . . . . 6 (𝜑𝑆 ∈ CRing)
39 crngring 19287 . . . . . 6 (𝑆 ∈ CRing → 𝑆 ∈ Ring)
4038, 39syl 17 . . . . 5 (𝜑𝑆 ∈ Ring)
41 ringmnd 19285 . . . . 5 (𝑆 ∈ Ring → 𝑆 ∈ Mnd)
4240, 41syl 17 . . . 4 (𝜑𝑆 ∈ Mnd)
43 ovex 7163 . . . . . 6 (ℕ0m 𝐼) ∈ V
442, 43rabex2 5210 . . . . 5 𝐷 ∈ V
4544a1i 11 . . . 4 (𝜑𝐷 ∈ V)
4640adantr 484 . . . . . 6 ((𝜑𝑏𝐷) → 𝑆 ∈ Ring)
47 evlslem3.f . . . . . . . . 9 (𝜑𝐹 ∈ (𝑅 RingHom 𝑆))
484, 36rhmf 19457 . . . . . . . . 9 (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹:𝐾𝐶)
4947, 48syl 17 . . . . . . . 8 (𝜑𝐹:𝐾𝐶)
504, 3ring0cl 19298 . . . . . . . . . 10 (𝑅 ∈ Ring → 0𝐾)
518, 50syl 17 . . . . . . . . 9 (𝜑0𝐾)
5210, 51ifcld 4485 . . . . . . . 8 (𝜑 → if(𝑏 = 𝐴, 𝐻, 0 ) ∈ 𝐾)
5349, 52ffvelrnd 6825 . . . . . . 7 (𝜑 → (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) ∈ 𝐶)
5453adantr 484 . . . . . 6 ((𝜑𝑏𝐷) → (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) ∈ 𝐶)
55 evlslem3.t . . . . . . . 8 𝑇 = (mulGrp‘𝑆)
5655, 36mgpbas 19224 . . . . . . 7 𝐶 = (Base‘𝑇)
57 eqid 2821 . . . . . . 7 (0g𝑇) = (0g𝑇)
5855crngmgp 19284 . . . . . . . . 9 (𝑆 ∈ CRing → 𝑇 ∈ CMnd)
5938, 58syl 17 . . . . . . . 8 (𝜑𝑇 ∈ CMnd)
6059adantr 484 . . . . . . 7 ((𝜑𝑏𝐷) → 𝑇 ∈ CMnd)
615adantr 484 . . . . . . 7 ((𝜑𝑏𝐷) → 𝐼𝑊)
62 cmnmnd 18901 . . . . . . . . . . 11 (𝑇 ∈ CMnd → 𝑇 ∈ Mnd)
6359, 62syl 17 . . . . . . . . . 10 (𝜑𝑇 ∈ Mnd)
6463ad2antrr 725 . . . . . . . . 9 (((𝜑𝑏𝐷) ∧ (𝑦 ∈ ℕ0𝑧𝐶)) → 𝑇 ∈ Mnd)
65 simprl 770 . . . . . . . . 9 (((𝜑𝑏𝐷) ∧ (𝑦 ∈ ℕ0𝑧𝐶)) → 𝑦 ∈ ℕ0)
66 simprr 772 . . . . . . . . 9 (((𝜑𝑏𝐷) ∧ (𝑦 ∈ ℕ0𝑧𝐶)) → 𝑧𝐶)
67 evlslem3.x . . . . . . . . . 10 = (.g𝑇)
6856, 67mulgnn0cl 18223 . . . . . . . . 9 ((𝑇 ∈ Mnd ∧ 𝑦 ∈ ℕ0𝑧𝐶) → (𝑦 𝑧) ∈ 𝐶)
6964, 65, 66, 68syl3anc 1368 . . . . . . . 8 (((𝜑𝑏𝐷) ∧ (𝑦 ∈ ℕ0𝑧𝐶)) → (𝑦 𝑧) ∈ 𝐶)
702psrbagf 20121 . . . . . . . . 9 ((𝐼𝑊𝑏𝐷) → 𝑏:𝐼⟶ℕ0)
715, 70sylan 583 . . . . . . . 8 ((𝜑𝑏𝐷) → 𝑏:𝐼⟶ℕ0)
72 evlslem3.g . . . . . . . . 9 (𝜑𝐺:𝐼𝐶)
7372adantr 484 . . . . . . . 8 ((𝜑𝑏𝐷) → 𝐺:𝐼𝐶)
74 inidm 4170 . . . . . . . 8 (𝐼𝐼) = 𝐼
7569, 71, 73, 61, 61, 74off 7399 . . . . . . 7 ((𝜑𝑏𝐷) → (𝑏f 𝐺):𝐼𝐶)
76 ovex 7163 . . . . . . . . 9 (𝑏f 𝐺) ∈ V
7776a1i 11 . . . . . . . 8 ((𝜑𝑏𝐷) → (𝑏f 𝐺) ∈ V)
7875ffund 6491 . . . . . . . 8 ((𝜑𝑏𝐷) → Fun (𝑏f 𝐺))
79 fvexd 6658 . . . . . . . 8 ((𝜑𝑏𝐷) → (0g𝑇) ∈ V)
802psrbag 20120 . . . . . . . . . 10 (𝐼𝑊 → (𝑏𝐷 ↔ (𝑏:𝐼⟶ℕ0 ∧ (𝑏 “ ℕ) ∈ Fin)))
815, 80syl 17 . . . . . . . . 9 (𝜑 → (𝑏𝐷 ↔ (𝑏:𝐼⟶ℕ0 ∧ (𝑏 “ ℕ) ∈ Fin)))
8281simplbda 503 . . . . . . . 8 ((𝜑𝑏𝐷) → (𝑏 “ ℕ) ∈ Fin)
8371ffnd 6488 . . . . . . . . . . . 12 ((𝜑𝑏𝐷) → 𝑏 Fn 𝐼)
8483adantr 484 . . . . . . . . . . 11 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → 𝑏 Fn 𝐼)
8572ffnd 6488 . . . . . . . . . . . 12 (𝜑𝐺 Fn 𝐼)
8685ad2antrr 725 . . . . . . . . . . 11 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → 𝐺 Fn 𝐼)
875ad2antrr 725 . . . . . . . . . . 11 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → 𝐼𝑊)
88 eldifi 4079 . . . . . . . . . . . 12 (𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ)) → 𝑦𝐼)
8988adantl 485 . . . . . . . . . . 11 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → 𝑦𝐼)
90 fnfvof 7398 . . . . . . . . . . 11 (((𝑏 Fn 𝐼𝐺 Fn 𝐼) ∧ (𝐼𝑊𝑦𝐼)) → ((𝑏f 𝐺)‘𝑦) = ((𝑏𝑦) (𝐺𝑦)))
9184, 86, 87, 89, 90syl22anc 837 . . . . . . . . . 10 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → ((𝑏f 𝐺)‘𝑦) = ((𝑏𝑦) (𝐺𝑦)))
92 ffvelrn 6822 . . . . . . . . . . . . . 14 ((𝑏:𝐼⟶ℕ0𝑦𝐼) → (𝑏𝑦) ∈ ℕ0)
9371, 88, 92syl2an 598 . . . . . . . . . . . . 13 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → (𝑏𝑦) ∈ ℕ0)
94 elnn0 11877 . . . . . . . . . . . . 13 ((𝑏𝑦) ∈ ℕ0 ↔ ((𝑏𝑦) ∈ ℕ ∨ (𝑏𝑦) = 0))
9593, 94sylib 221 . . . . . . . . . . . 12 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → ((𝑏𝑦) ∈ ℕ ∨ (𝑏𝑦) = 0))
96 eldifn 4080 . . . . . . . . . . . . . 14 (𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ)) → ¬ 𝑦 ∈ (𝑏 “ ℕ))
9796adantl 485 . . . . . . . . . . . . 13 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → ¬ 𝑦 ∈ (𝑏 “ ℕ))
9883ad2antrr 725 . . . . . . . . . . . . . 14 ((((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) ∧ (𝑏𝑦) ∈ ℕ) → 𝑏 Fn 𝐼)
9988ad2antlr 726 . . . . . . . . . . . . . 14 ((((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) ∧ (𝑏𝑦) ∈ ℕ) → 𝑦𝐼)
100 simpr 488 . . . . . . . . . . . . . 14 ((((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) ∧ (𝑏𝑦) ∈ ℕ) → (𝑏𝑦) ∈ ℕ)
10198, 99, 100elpreimad 6802 . . . . . . . . . . . . 13 ((((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) ∧ (𝑏𝑦) ∈ ℕ) → 𝑦 ∈ (𝑏 “ ℕ))
10297, 101mtand 815 . . . . . . . . . . . 12 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → ¬ (𝑏𝑦) ∈ ℕ)
10395, 102orcnd 876 . . . . . . . . . . 11 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → (𝑏𝑦) = 0)
104103oveq1d 7145 . . . . . . . . . 10 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → ((𝑏𝑦) (𝐺𝑦)) = (0 (𝐺𝑦)))
105 ffvelrn 6822 . . . . . . . . . . . 12 ((𝐺:𝐼𝐶𝑦𝐼) → (𝐺𝑦) ∈ 𝐶)
10673, 88, 105syl2an 598 . . . . . . . . . . 11 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → (𝐺𝑦) ∈ 𝐶)
10756, 57, 67mulg0 18210 . . . . . . . . . . 11 ((𝐺𝑦) ∈ 𝐶 → (0 (𝐺𝑦)) = (0g𝑇))
108106, 107syl 17 . . . . . . . . . 10 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → (0 (𝐺𝑦)) = (0g𝑇))
10991, 104, 1083eqtrd 2860 . . . . . . . . 9 (((𝜑𝑏𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (𝑏 “ ℕ))) → ((𝑏f 𝐺)‘𝑦) = (0g𝑇))
11075, 109suppss 7835 . . . . . . . 8 ((𝜑𝑏𝐷) → ((𝑏f 𝐺) supp (0g𝑇)) ⊆ (𝑏 “ ℕ))
111 suppssfifsupp 8824 . . . . . . . 8 ((((𝑏f 𝐺) ∈ V ∧ Fun (𝑏f 𝐺) ∧ (0g𝑇) ∈ V) ∧ ((𝑏 “ ℕ) ∈ Fin ∧ ((𝑏f 𝐺) supp (0g𝑇)) ⊆ (𝑏 “ ℕ))) → (𝑏f 𝐺) finSupp (0g𝑇))
11277, 78, 79, 82, 110, 111syl32anc 1375 . . . . . . 7 ((𝜑𝑏𝐷) → (𝑏f 𝐺) finSupp (0g𝑇))
11356, 57, 60, 61, 75, 112gsumcl 19014 . . . . . 6 ((𝜑𝑏𝐷) → (𝑇 Σg (𝑏f 𝐺)) ∈ 𝐶)
114 evlslem3.m . . . . . . 7 · = (.r𝑆)
11536, 114ringcl 19290 . . . . . 6 ((𝑆 ∈ Ring ∧ (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) ∈ 𝐶 ∧ (𝑇 Σg (𝑏f 𝐺)) ∈ 𝐶) → ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))) ∈ 𝐶)
11646, 54, 113, 115syl3anc 1368 . . . . 5 ((𝜑𝑏𝐷) → ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))) ∈ 𝐶)
117116fmpttd 6852 . . . 4 (𝜑 → (𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺)))):𝐷𝐶)
118 eldifsnneq 4696 . . . . . . . . . . 11 (𝑏 ∈ (𝐷 ∖ {𝐴}) → ¬ 𝑏 = 𝐴)
119118iffalsed 4451 . . . . . . . . . 10 (𝑏 ∈ (𝐷 ∖ {𝐴}) → if(𝑏 = 𝐴, 𝐻, 0 ) = 0 )
120119adantl 485 . . . . . . . . 9 ((𝜑𝑏 ∈ (𝐷 ∖ {𝐴})) → if(𝑏 = 𝐴, 𝐻, 0 ) = 0 )
121120fveq2d 6647 . . . . . . . 8 ((𝜑𝑏 ∈ (𝐷 ∖ {𝐴})) → (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) = (𝐹0 ))
122 rhmghm 19456 . . . . . . . . . . 11 (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹 ∈ (𝑅 GrpHom 𝑆))
12347, 122syl 17 . . . . . . . . . 10 (𝜑𝐹 ∈ (𝑅 GrpHom 𝑆))
1243, 37ghmid 18343 . . . . . . . . . 10 (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝐹0 ) = (0g𝑆))
125123, 124syl 17 . . . . . . . . 9 (𝜑 → (𝐹0 ) = (0g𝑆))
126125adantr 484 . . . . . . . 8 ((𝜑𝑏 ∈ (𝐷 ∖ {𝐴})) → (𝐹0 ) = (0g𝑆))
127121, 126eqtrd 2856 . . . . . . 7 ((𝜑𝑏 ∈ (𝐷 ∖ {𝐴})) → (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) = (0g𝑆))
128127oveq1d 7145 . . . . . 6 ((𝜑𝑏 ∈ (𝐷 ∖ {𝐴})) → ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))) = ((0g𝑆) · (𝑇 Σg (𝑏f 𝐺))))
12940adantr 484 . . . . . . 7 ((𝜑𝑏 ∈ (𝐷 ∖ {𝐴})) → 𝑆 ∈ Ring)
130 eldifi 4079 . . . . . . . 8 (𝑏 ∈ (𝐷 ∖ {𝐴}) → 𝑏𝐷)
131130, 113sylan2 595 . . . . . . 7 ((𝜑𝑏 ∈ (𝐷 ∖ {𝐴})) → (𝑇 Σg (𝑏f 𝐺)) ∈ 𝐶)
13236, 114, 37ringlz 19316 . . . . . . 7 ((𝑆 ∈ Ring ∧ (𝑇 Σg (𝑏f 𝐺)) ∈ 𝐶) → ((0g𝑆) · (𝑇 Σg (𝑏f 𝐺))) = (0g𝑆))
133129, 131, 132syl2anc 587 . . . . . 6 ((𝜑𝑏 ∈ (𝐷 ∖ {𝐴})) → ((0g𝑆) · (𝑇 Σg (𝑏f 𝐺))) = (0g𝑆))
134128, 133eqtrd 2856 . . . . 5 ((𝜑𝑏 ∈ (𝐷 ∖ {𝐴})) → ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))) = (0g𝑆))
135134, 45suppss2 7839 . . . 4 (𝜑 → ((𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺)))) supp (0g𝑆)) ⊆ {𝐴})
13636, 37, 42, 45, 11, 117, 135gsumpt 19061 . . 3 (𝜑 → (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))))) = ((𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))))‘𝐴))
13735, 136eqtrd 2856 . 2 (𝜑 → (𝑆 Σg (𝑏𝐷 ↦ ((𝐹‘((𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏f 𝐺))))) = ((𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))))‘𝐴))
138 iftrue 4446 . . . . . 6 (𝑏 = 𝐴 → if(𝑏 = 𝐴, 𝐻, 0 ) = 𝐻)
139138fveq2d 6647 . . . . 5 (𝑏 = 𝐴 → (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) = (𝐹𝐻))
140 oveq1 7137 . . . . . 6 (𝑏 = 𝐴 → (𝑏f 𝐺) = (𝐴f 𝐺))
141140oveq2d 7146 . . . . 5 (𝑏 = 𝐴 → (𝑇 Σg (𝑏f 𝐺)) = (𝑇 Σg (𝐴f 𝐺)))
142139, 141oveq12d 7148 . . . 4 (𝑏 = 𝐴 → ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))) = ((𝐹𝐻) · (𝑇 Σg (𝐴f 𝐺))))
143 eqid 2821 . . . 4 (𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺)))) = (𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))))
144 ovex 7163 . . . 4 ((𝐹𝐻) · (𝑇 Σg (𝐴f 𝐺))) ∈ V
145142, 143, 144fvmpt 6741 . . 3 (𝐴𝐷 → ((𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))))‘𝐴) = ((𝐹𝐻) · (𝑇 Σg (𝐴f 𝐺))))
14611, 145syl 17 . 2 (𝜑 → ((𝑏𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏f 𝐺))))‘𝐴) = ((𝐹𝐻) · (𝑇 Σg (𝐴f 𝐺))))
14721, 137, 1463eqtrd 2860 1 (𝜑 → (𝐸‘(𝑥𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))) = ((𝐹𝐻) · (𝑇 Σg (𝐴f 𝐺))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  wo 844   = wceq 1538  wcel 2115  {crab 3130  Vcvv 3471  cdif 3907  wss 3910  ifcif 4440  {csn 4540   class class class wbr 5039  cmpt 5119  ccnv 5527  cima 5531  Fun wfun 6322   Fn wfn 6323  wf 6324  cfv 6328  (class class class)co 7130  f cof 7382   supp csupp 7805  m cmap 8381  Fincfn 8484   finSupp cfsupp 8809  0cc0 10514  cn 11615  0cn0 11875  Basecbs 16462  .rcmulr 16545  0gc0g 16692   Σg cgsu 16693  Mndcmnd 17890  .gcmg 18203   GrpHom cghm 18334  CMndccmn 18885  mulGrpcmgp 19218  Ringcrg 19276  CRingccrg 19277   RingHom crh 19443   mVar cmvr 20108   mPoly cmpl 20109
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 1971  ax-7 2016  ax-8 2117  ax-9 2125  ax-10 2146  ax-11 2162  ax-12 2178  ax-ext 2793  ax-rep 5163  ax-sep 5176  ax-nul 5183  ax-pow 5239  ax-pr 5303  ax-un 7436  ax-cnex 10570  ax-resscn 10571  ax-1cn 10572  ax-icn 10573  ax-addcl 10574  ax-addrcl 10575  ax-mulcl 10576  ax-mulrcl 10577  ax-mulcom 10578  ax-addass 10579  ax-mulass 10580  ax-distr 10581  ax-i2m1 10582  ax-1ne0 10583  ax-1rid 10584  ax-rnegex 10585  ax-rrecex 10586  ax-cnre 10587  ax-pre-lttri 10588  ax-pre-lttrn 10589  ax-pre-ltadd 10590  ax-pre-mulgt0 10591
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2071  df-mo 2623  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2892  df-nfc 2960  df-ne 3008  df-nel 3112  df-ral 3131  df-rex 3132  df-reu 3133  df-rmo 3134  df-rab 3135  df-v 3473  df-sbc 3750  df-csb 3858  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4267  df-if 4441  df-pw 4514  df-sn 4541  df-pr 4543  df-tp 4545  df-op 4547  df-uni 4812  df-int 4850  df-iun 4894  df-iin 4895  df-br 5040  df-opab 5102  df-mpt 5120  df-tr 5146  df-id 5433  df-eprel 5438  df-po 5447  df-so 5448  df-fr 5487  df-se 5488  df-we 5489  df-xp 5534  df-rel 5535  df-cnv 5536  df-co 5537  df-dm 5538  df-rn 5539  df-res 5540  df-ima 5541  df-pred 6121  df-ord 6167  df-on 6168  df-lim 6169  df-suc 6170  df-iota 6287  df-fun 6330  df-fn 6331  df-f 6332  df-f1 6333  df-fo 6334  df-f1o 6335  df-fv 6336  df-isom 6337  df-riota 7088  df-ov 7133  df-oprab 7134  df-mpo 7135  df-of 7384  df-om 7556  df-1st 7664  df-2nd 7665  df-supp 7806  df-wrecs 7922  df-recs 7983  df-rdg 8021  df-1o 8077  df-oadd 8081  df-er 8264  df-map 8383  df-en 8485  df-dom 8486  df-sdom 8487  df-fin 8488  df-fsupp 8810  df-oi 8950  df-card 9344  df-pnf 10654  df-mnf 10655  df-xr 10656  df-ltxr 10657  df-le 10658  df-sub 10849  df-neg 10850  df-nn 11616  df-2 11678  df-3 11679  df-4 11680  df-5 11681  df-6 11682  df-7 11683  df-8 11684  df-9 11685  df-n0 11876  df-z 11960  df-uz 12222  df-fz 12876  df-fzo 13017  df-seq 13353  df-hash 13675  df-struct 16464  df-ndx 16465  df-slot 16466  df-base 16468  df-sets 16469  df-ress 16470  df-plusg 16557  df-mulr 16558  df-sca 16560  df-vsca 16561  df-tset 16563  df-0g 16694  df-gsum 16695  df-mre 16836  df-mrc 16837  df-acs 16839  df-mgm 17831  df-sgrp 17880  df-mnd 17891  df-mhm 17935  df-submnd 17936  df-grp 18085  df-minusg 18086  df-sbg 18087  df-mulg 18204  df-subg 18255  df-ghm 18335  df-cntz 18426  df-cmn 18887  df-mgp 19219  df-ur 19231  df-ring 19278  df-cring 19279  df-rnghom 19446  df-lmod 19612  df-lss 19680  df-psr 20112  df-mpl 20114
This theorem is referenced by:  evlslem1  20271
  Copyright terms: Public domain W3C validator