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

Theorem evlslem2 20211
Description: A linear function on the polynomial ring which is multiplicative on scaled monomials is generally multiplicative. (Contributed by Stefan O'Rear, 9-Mar-2015.)
Hypotheses
Ref Expression
evlslem2.p 𝑃 = (𝐼 mPoly 𝑅)
evlslem2.b 𝐵 = (Base‘𝑃)
evlslem2.m · = (.r𝑆)
evlslem2.z 0 = (0g𝑅)
evlslem2.d 𝐷 = { ∈ (ℕ0m 𝐼) ∣ ( “ ℕ) ∈ Fin}
evlslem2.i (𝜑𝐼 ∈ V)
evlslem2.r (𝜑𝑅 ∈ CRing)
evlslem2.s (𝜑𝑆 ∈ CRing)
evlslem2.e1 (𝜑𝐸 ∈ (𝑃 GrpHom 𝑆))
evlslem2.e2 ((𝜑 ∧ ((𝑥𝐵𝑦𝐵) ∧ (𝑗𝐷𝑖𝐷))) → (𝐸‘(𝑘𝐷 ↦ if(𝑘 = (𝑗f + 𝑖), ((𝑥𝑗)(.r𝑅)(𝑦𝑖)), 0 ))) = ((𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) · (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))
Assertion
Ref Expression
evlslem2 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸‘(𝑥(.r𝑃)𝑦)) = ((𝐸𝑥) · (𝐸𝑦)))
Distinct variable groups:   𝜑,𝑖,𝑗,𝑘,𝑦   𝐵,𝑖,𝑗,𝑘,𝑥,𝑦   𝐷,𝑖,𝑗,𝑘,𝑥,𝑦   𝑖,𝐸,𝑗   ,𝐼,𝑖,𝑗,𝑘   · ,𝑖,𝑗   𝑃,𝑖,𝑗,𝑘,𝑥,𝑦   𝑅,,𝑖,𝑗,𝑘   𝑆,𝑖,𝑗   0 ,,𝑖,𝑗,𝑘,𝑥,𝑦
Allowed substitution hints:   𝜑(𝑥,)   𝐵()   𝐷()   𝑃()   𝑅(𝑥,𝑦)   𝑆(𝑥,𝑦,,𝑘)   · (𝑥,𝑦,,𝑘)   𝐸(𝑥,𝑦,,𝑘)   𝐼(𝑥,𝑦)

Proof of Theorem evlslem2
Dummy variable 𝑧 is distinct from all other variables.
StepHypRef Expression
1 evlslem2.b . . . . 5 𝐵 = (Base‘𝑃)
2 eqid 2826 . . . . 5 (.r𝑃) = (.r𝑃)
3 eqid 2826 . . . . 5 (0g𝑃) = (0g𝑃)
4 evlslem2.d . . . . . . 7 𝐷 = { ∈ (ℕ0m 𝐼) ∣ ( “ ℕ) ∈ Fin}
5 ovex 7181 . . . . . . 7 (ℕ0m 𝐼) ∈ V
64, 5rabex2 5234 . . . . . 6 𝐷 ∈ V
76a1i 11 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝐷 ∈ V)
8 evlslem2.i . . . . . . 7 (𝜑𝐼 ∈ V)
9 evlslem2.r . . . . . . . 8 (𝜑𝑅 ∈ CRing)
10 crngring 19228 . . . . . . . 8 (𝑅 ∈ CRing → 𝑅 ∈ Ring)
119, 10syl 17 . . . . . . 7 (𝜑𝑅 ∈ Ring)
12 evlslem2.p . . . . . . . 8 𝑃 = (𝐼 mPoly 𝑅)
1312mplring 20151 . . . . . . 7 ((𝐼 ∈ V ∧ 𝑅 ∈ Ring) → 𝑃 ∈ Ring)
148, 11, 13syl2anc 584 . . . . . 6 (𝜑𝑃 ∈ Ring)
1514adantr 481 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑃 ∈ Ring)
16 evlslem2.z . . . . . 6 0 = (0g𝑅)
17 eqid 2826 . . . . . 6 (Base‘𝑅) = (Base‘𝑅)
188ad2antrr 722 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑗𝐷) → 𝐼 ∈ V)
1911ad2antrr 722 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑗𝐷) → 𝑅 ∈ Ring)
20 simprl 767 . . . . . . . 8 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑥𝐵)
2112, 17, 1, 4, 20mplelf 20132 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑥:𝐷⟶(Base‘𝑅))
2221ffvelrnda 6847 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑗𝐷) → (𝑥𝑗) ∈ (Base‘𝑅))
23 simpr 485 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑗𝐷) → 𝑗𝐷)
2412, 4, 16, 17, 18, 19, 1, 22, 23mplmon2cl 20199 . . . . 5 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑗𝐷) → (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )) ∈ 𝐵)
258ad2antrr 722 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑖𝐷) → 𝐼 ∈ V)
2611ad2antrr 722 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑖𝐷) → 𝑅 ∈ Ring)
27 simprr 769 . . . . . . . 8 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑦𝐵)
2812, 17, 1, 4, 27mplelf 20132 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑦:𝐷⟶(Base‘𝑅))
2928ffvelrnda 6847 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑖𝐷) → (𝑦𝑖) ∈ (Base‘𝑅))
30 simpr 485 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑖𝐷) → 𝑖𝐷)
3112, 4, 16, 17, 25, 26, 1, 29, 30mplmon2cl 20199 . . . . 5 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑖𝐷) → (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )) ∈ 𝐵)
326mptex 6981 . . . . . . . . . . . 12 (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) ∈ V
33 funmpt 6390 . . . . . . . . . . . 12 Fun (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 )))
34 fvex 6680 . . . . . . . . . . . 12 (0g𝑃) ∈ V
3532, 33, 343pm3.2i 1333 . . . . . . . . . . 11 ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) ∈ V ∧ Fun (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) ∧ (0g𝑃) ∈ V)
3635a1i 11 . . . . . . . . . 10 ((𝜑𝑦𝐵) → ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) ∈ V ∧ Fun (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) ∧ (0g𝑃) ∈ V))
37 simpr 485 . . . . . . . . . . . 12 ((𝜑𝑦𝐵) → 𝑦𝐵)
389adantr 481 . . . . . . . . . . . 12 ((𝜑𝑦𝐵) → 𝑅 ∈ CRing)
3912, 1, 16, 37, 38mplelsfi 20190 . . . . . . . . . . 11 ((𝜑𝑦𝐵) → 𝑦 finSupp 0 )
4039fsuppimpd 8829 . . . . . . . . . 10 ((𝜑𝑦𝐵) → (𝑦 supp 0 ) ∈ Fin)
4112, 17, 1, 4, 37mplelf 20132 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐵) → 𝑦:𝐷⟶(Base‘𝑅))
42 ssidd 3994 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐵) → (𝑦 supp 0 ) ⊆ (𝑦 supp 0 ))
436a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐵) → 𝐷 ∈ V)
4416fvexi 6681 . . . . . . . . . . . . . . . . 17 0 ∈ V
4544a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐵) → 0 ∈ V)
4641, 42, 43, 45suppssr 7852 . . . . . . . . . . . . . . 15 (((𝜑𝑦𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → (𝑦𝑗) = 0 )
4746ifeq1d 4488 . . . . . . . . . . . . . 14 (((𝜑𝑦𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → if(𝑘 = 𝑗, (𝑦𝑗), 0 ) = if(𝑘 = 𝑗, 0 , 0 ))
48 ifid 4509 . . . . . . . . . . . . . 14 if(𝑘 = 𝑗, 0 , 0 ) = 0
4947, 48syl6eq 2877 . . . . . . . . . . . . 13 (((𝜑𝑦𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → if(𝑘 = 𝑗, (𝑦𝑗), 0 ) = 0 )
5049mpteq2dv 5159 . . . . . . . . . . . 12 (((𝜑𝑦𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 )) = (𝑘𝐷0 ))
51 ringgrp 19222 . . . . . . . . . . . . . . . 16 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
5211, 51syl 17 . . . . . . . . . . . . . . 15 (𝜑𝑅 ∈ Grp)
5312, 4, 16, 3, 8, 52mpl0 20140 . . . . . . . . . . . . . 14 (𝜑 → (0g𝑃) = (𝐷 × { 0 }))
54 fconstmpt 5613 . . . . . . . . . . . . . 14 (𝐷 × { 0 }) = (𝑘𝐷0 )
5553, 54syl6eq 2877 . . . . . . . . . . . . 13 (𝜑 → (0g𝑃) = (𝑘𝐷0 ))
5655ad2antrr 722 . . . . . . . . . . . 12 (((𝜑𝑦𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → (0g𝑃) = (𝑘𝐷0 ))
5750, 56eqtr4d 2864 . . . . . . . . . . 11 (((𝜑𝑦𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 )) = (0g𝑃))
5857, 43suppss2 7855 . . . . . . . . . 10 ((𝜑𝑦𝐵) → ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) supp (0g𝑃)) ⊆ (𝑦 supp 0 ))
59 suppssfifsupp 8837 . . . . . . . . . 10 ((((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) ∈ V ∧ Fun (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) ∧ (0g𝑃) ∈ V) ∧ ((𝑦 supp 0 ) ∈ Fin ∧ ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) supp (0g𝑃)) ⊆ (𝑦 supp 0 ))) → (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) finSupp (0g𝑃))
6036, 40, 58, 59syl12anc 834 . . . . . . . . 9 ((𝜑𝑦𝐵) → (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) finSupp (0g𝑃))
6160ralrimiva 3187 . . . . . . . 8 (𝜑 → ∀𝑦𝐵 (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) finSupp (0g𝑃))
62 fveq1 6666 . . . . . . . . . . . . 13 (𝑦 = 𝑥 → (𝑦𝑗) = (𝑥𝑗))
6362ifeq1d 4488 . . . . . . . . . . . 12 (𝑦 = 𝑥 → if(𝑘 = 𝑗, (𝑦𝑗), 0 ) = if(𝑘 = 𝑗, (𝑥𝑗), 0 ))
6463mpteq2dv 5159 . . . . . . . . . . 11 (𝑦 = 𝑥 → (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 )) = (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))
6564mpteq2dv 5159 . . . . . . . . . 10 (𝑦 = 𝑥 → (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) = (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))
6665breq1d 5073 . . . . . . . . 9 (𝑦 = 𝑥 → ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) finSupp (0g𝑃) ↔ (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) finSupp (0g𝑃)))
6766cbvralvw 3455 . . . . . . . 8 (∀𝑦𝐵 (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) finSupp (0g𝑃) ↔ ∀𝑥𝐵 (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) finSupp (0g𝑃))
6861, 67sylib 219 . . . . . . 7 (𝜑 → ∀𝑥𝐵 (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) finSupp (0g𝑃))
6968r19.21bi 3213 . . . . . 6 ((𝜑𝑥𝐵) → (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) finSupp (0g𝑃))
7069adantrr 713 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) finSupp (0g𝑃))
71 equequ2 2026 . . . . . . . . 9 (𝑖 = 𝑗 → (𝑘 = 𝑖𝑘 = 𝑗))
72 fveq2 6667 . . . . . . . . 9 (𝑖 = 𝑗 → (𝑦𝑖) = (𝑦𝑗))
7371, 72ifbieq1d 4493 . . . . . . . 8 (𝑖 = 𝑗 → if(𝑘 = 𝑖, (𝑦𝑖), 0 ) = if(𝑘 = 𝑗, (𝑦𝑗), 0 ))
7473mpteq2dv 5159 . . . . . . 7 (𝑖 = 𝑗 → (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )) = (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 )))
7574cbvmptv 5166 . . . . . 6 (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) = (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 )))
7660adantrl 712 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑦𝑗), 0 ))) finSupp (0g𝑃))
7775, 76eqbrtrid 5098 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) finSupp (0g𝑃))
781, 2, 3, 7, 7, 15, 24, 31, 70, 77gsumdixp 19279 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑃 Σg (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))(.r𝑃)(𝑃 Σg (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))) = (𝑃 Σg (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))))
7978fveq2d 6671 . . 3 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸‘((𝑃 Σg (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))(.r𝑃)(𝑃 Σg (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))) = (𝐸‘(𝑃 Σg (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
80 ringcmn 19251 . . . . . 6 (𝑃 ∈ Ring → 𝑃 ∈ CMnd)
8114, 80syl 17 . . . . 5 (𝜑𝑃 ∈ CMnd)
8281adantr 481 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑃 ∈ CMnd)
83 evlslem2.s . . . . . . 7 (𝜑𝑆 ∈ CRing)
84 crngring 19228 . . . . . . 7 (𝑆 ∈ CRing → 𝑆 ∈ Ring)
8583, 84syl 17 . . . . . 6 (𝜑𝑆 ∈ Ring)
8685adantr 481 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑆 ∈ Ring)
87 ringmnd 19226 . . . . 5 (𝑆 ∈ Ring → 𝑆 ∈ Mnd)
8886, 87syl 17 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑆 ∈ Mnd)
896, 6xpex 7465 . . . . 5 (𝐷 × 𝐷) ∈ V
9089a1i 11 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐷 × 𝐷) ∈ V)
91 evlslem2.e1 . . . . . 6 (𝜑𝐸 ∈ (𝑃 GrpHom 𝑆))
92 ghmmhm 18298 . . . . . 6 (𝐸 ∈ (𝑃 GrpHom 𝑆) → 𝐸 ∈ (𝑃 MndHom 𝑆))
9391, 92syl 17 . . . . 5 (𝜑𝐸 ∈ (𝑃 MndHom 𝑆))
9493adantr 481 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝐸 ∈ (𝑃 MndHom 𝑆))
9514ad2antrr 722 . . . . . . 7 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → 𝑃 ∈ Ring)
9624adantrr 713 . . . . . . 7 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )) ∈ 𝐵)
9731adantrl 712 . . . . . . 7 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )) ∈ 𝐵)
981, 2ringcl 19231 . . . . . . 7 ((𝑃 ∈ Ring ∧ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )) ∈ 𝐵 ∧ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )) ∈ 𝐵) → ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) ∈ 𝐵)
9995, 96, 97, 98syl3anc 1365 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) ∈ 𝐵)
10099ralrimivva 3196 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ∀𝑗𝐷𝑖𝐷 ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) ∈ 𝐵)
101 eqid 2826 . . . . . 6 (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) = (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))
102101fmpo 7757 . . . . 5 (∀𝑗𝐷𝑖𝐷 ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) ∈ 𝐵 ↔ (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))):(𝐷 × 𝐷)⟶𝐵)
103100, 102sylib 219 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))):(𝐷 × 𝐷)⟶𝐵)
1046, 6mpoex 7768 . . . . . . 7 (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∈ V
105101mpofun 7266 . . . . . . 7 Fun (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))
106104, 105, 343pm3.2i 1333 . . . . . 6 ((𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∈ V ∧ Fun (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∧ (0g𝑃) ∈ V)
107106a1i 11 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∈ V ∧ Fun (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∧ (0g𝑃) ∈ V))
10870fsuppimpd 8829 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)) ∈ Fin)
10977fsuppimpd 8829 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃)) ∈ Fin)
110 xpfi 8778 . . . . . 6 ((((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)) ∈ Fin ∧ ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃)) ∈ Fin) → (((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)) × ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃))) ∈ Fin)
111108, 109, 110syl2anc 584 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)) × ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃))) ∈ Fin)
1121, 3, 2, 15, 24, 31, 7, 7evlslem4 20207 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) supp (0g𝑃)) ⊆ (((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)) × ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃))))
113 suppssfifsupp 8837 . . . . 5 ((((𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∈ V ∧ Fun (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∧ (0g𝑃) ∈ V) ∧ ((((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)) × ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃))) ∈ Fin ∧ ((𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) supp (0g𝑃)) ⊆ (((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)) × ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃))))) → (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) finSupp (0g𝑃))
114107, 111, 112, 113syl12anc 834 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) finSupp (0g𝑃))
1151, 3, 82, 88, 90, 94, 103, 114gsummhm 18978 . . 3 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))) = (𝐸‘(𝑃 Σg (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
1168ad2antrr 722 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → 𝐼 ∈ V)
1179ad2antrr 722 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → 𝑅 ∈ CRing)
118 eqid 2826 . . . . . . . . . 10 (.r𝑅) = (.r𝑅)
119 simprl 767 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → 𝑗𝐷)
120 simprr 769 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → 𝑖𝐷)
12122adantrr 713 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → (𝑥𝑗) ∈ (Base‘𝑅))
12229adantrl 712 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → (𝑦𝑖) ∈ (Base‘𝑅))
12312, 4, 16, 17, 116, 117, 2, 118, 119, 120, 121, 122mplmon2mul 20200 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) = (𝑘𝐷 ↦ if(𝑘 = (𝑗f + 𝑖), ((𝑥𝑗)(.r𝑅)(𝑦𝑖)), 0 )))
124123fveq2d 6671 . . . . . . . 8 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → (𝐸‘((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) = (𝐸‘(𝑘𝐷 ↦ if(𝑘 = (𝑗f + 𝑖), ((𝑥𝑗)(.r𝑅)(𝑦𝑖)), 0 ))))
125 evlslem2.e2 . . . . . . . . 9 ((𝜑 ∧ ((𝑥𝐵𝑦𝐵) ∧ (𝑗𝐷𝑖𝐷))) → (𝐸‘(𝑘𝐷 ↦ if(𝑘 = (𝑗f + 𝑖), ((𝑥𝑗)(.r𝑅)(𝑦𝑖)), 0 ))) = ((𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) · (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))
126125anassrs 468 . . . . . . . 8 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → (𝐸‘(𝑘𝐷 ↦ if(𝑘 = (𝑗f + 𝑖), ((𝑥𝑗)(.r𝑅)(𝑦𝑖)), 0 ))) = ((𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) · (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))
127124, 126eqtrd 2861 . . . . . . 7 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑗𝐷𝑖𝐷)) → (𝐸‘((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) = ((𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) · (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))
1281273impb 1109 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑗𝐷𝑖𝐷) → (𝐸‘((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) = ((𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) · (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))
129128mpoeq3dva 7223 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑗𝐷, 𝑖𝐷 ↦ (𝐸‘((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))) = (𝑗𝐷, 𝑖𝐷 ↦ ((𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) · (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))))
130129oveq2d 7164 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑆 Σg (𝑗𝐷, 𝑖𝐷 ↦ (𝐸‘((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))) = (𝑆 Σg (𝑗𝐷, 𝑖𝐷 ↦ ((𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) · (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
131 eqidd 2827 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) = (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))
132 eqid 2826 . . . . . . . . . 10 (Base‘𝑆) = (Base‘𝑆)
1331, 132ghmf 18292 . . . . . . . . 9 (𝐸 ∈ (𝑃 GrpHom 𝑆) → 𝐸:𝐵⟶(Base‘𝑆))
13491, 133syl 17 . . . . . . . 8 (𝜑𝐸:𝐵⟶(Base‘𝑆))
135134feqmptd 6730 . . . . . . 7 (𝜑𝐸 = (𝑧𝐵 ↦ (𝐸𝑧)))
136135adantr 481 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝐸 = (𝑧𝐵 ↦ (𝐸𝑧)))
137 fveq2 6667 . . . . . 6 (𝑧 = ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) → (𝐸𝑧) = (𝐸‘((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))
13899, 131, 136, 137fmpoco 7781 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸 ∘ (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))) = (𝑗𝐷, 𝑖𝐷 ↦ (𝐸‘((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))))
139138oveq2d 7164 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))) = (𝑆 Σg (𝑗𝐷, 𝑖𝐷 ↦ (𝐸‘((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
140 eqidd 2827 . . . . . . . 8 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) = (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))
141 fveq2 6667 . . . . . . . 8 (𝑧 = (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )) → (𝐸𝑧) = (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))
14224, 140, 136, 141fmptco 6887 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸 ∘ (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) = (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))))
143142oveq2d 7164 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))) = (𝑆 Σg (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))))
144 eqidd 2827 . . . . . . . 8 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) = (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))
145 fveq2 6667 . . . . . . . 8 (𝑧 = (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )) → (𝐸𝑧) = (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))
14631, 144, 136, 145fmptco 6887 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸 ∘ (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) = (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))
147146oveq2d 7164 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))) = (𝑆 Σg (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))))
148143, 147oveq12d 7166 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑆 Σg (𝐸 ∘ (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))) · (𝑆 Σg (𝐸 ∘ (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))) = ((𝑆 Σg (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))) · (𝑆 Σg (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
149 evlslem2.m . . . . . 6 · = (.r𝑆)
150 eqid 2826 . . . . . 6 (0g𝑆) = (0g𝑆)
151134ad2antrr 722 . . . . . . 7 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑗𝐷) → 𝐸:𝐵⟶(Base‘𝑆))
152151, 24ffvelrnd 6848 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑗𝐷) → (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) ∈ (Base‘𝑆))
153134ad2antrr 722 . . . . . . 7 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑖𝐷) → 𝐸:𝐵⟶(Base‘𝑆))
154153, 31ffvelrnd 6848 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ 𝑖𝐷) → (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) ∈ (Base‘𝑆))
1556mptex 6981 . . . . . . . . 9 (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) ∈ V
156 funmpt 6390 . . . . . . . . 9 Fun (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))
157 fvex 6680 . . . . . . . . 9 (0g𝑆) ∈ V
158155, 156, 1573pm3.2i 1333 . . . . . . . 8 ((𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) ∈ V ∧ Fun (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) ∧ (0g𝑆) ∈ V)
159158a1i 11 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) ∈ V ∧ Fun (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) ∧ (0g𝑆) ∈ V))
160 ssidd 3994 . . . . . . . . 9 (𝜑 → ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)) ⊆ ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)))
1613, 150ghmid 18294 . . . . . . . . . 10 (𝐸 ∈ (𝑃 GrpHom 𝑆) → (𝐸‘(0g𝑃)) = (0g𝑆))
16291, 161syl 17 . . . . . . . . 9 (𝜑 → (𝐸‘(0g𝑃)) = (0g𝑆))
1636mptex 6981 . . . . . . . . . 10 (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )) ∈ V
164163a1i 11 . . . . . . . . 9 ((𝜑𝑗𝐷) → (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )) ∈ V)
16534a1i 11 . . . . . . . . 9 (𝜑 → (0g𝑃) ∈ V)
166160, 162, 164, 165suppssfv 7857 . . . . . . . 8 (𝜑 → ((𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) supp (0g𝑆)) ⊆ ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)))
167166adantr 481 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) supp (0g𝑆)) ⊆ ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)))
168 suppssfifsupp 8837 . . . . . . 7 ((((𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) ∈ V ∧ Fun (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) ∧ (0g𝑆) ∈ V) ∧ (((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)) ∈ Fin ∧ ((𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) supp (0g𝑆)) ⊆ ((𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) supp (0g𝑃)))) → (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) finSupp (0g𝑆))
169159, 108, 167, 168syl12anc 834 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))) finSupp (0g𝑆))
1706mptex 6981 . . . . . . . . 9 (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∈ V
171 funmpt 6390 . . . . . . . . 9 Fun (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))
172170, 171, 1573pm3.2i 1333 . . . . . . . 8 ((𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∈ V ∧ Fun (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∧ (0g𝑆) ∈ V)
173172a1i 11 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∈ V ∧ Fun (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∧ (0g𝑆) ∈ V))
174 ssidd 3994 . . . . . . . . 9 (𝜑 → ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃)) ⊆ ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃)))
1756mptex 6981 . . . . . . . . . 10 (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )) ∈ V
176175a1i 11 . . . . . . . . 9 ((𝜑𝑖𝐷) → (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )) ∈ V)
177174, 162, 176, 165suppssfv 7857 . . . . . . . 8 (𝜑 → ((𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) supp (0g𝑆)) ⊆ ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃)))
178177adantr 481 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) supp (0g𝑆)) ⊆ ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃)))
179 suppssfifsupp 8837 . . . . . . 7 ((((𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∈ V ∧ Fun (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) ∧ (0g𝑆) ∈ V) ∧ (((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃)) ∈ Fin ∧ ((𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) supp (0g𝑆)) ⊆ ((𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))) supp (0g𝑃)))) → (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) finSupp (0g𝑆))
180173, 109, 178, 179syl12anc 834 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))) finSupp (0g𝑆))
181132, 149, 150, 7, 7, 86, 152, 154, 169, 180gsumdixp 19279 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑆 Σg (𝑗𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))) · (𝑆 Σg (𝑖𝐷 ↦ (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))) = (𝑆 Σg (𝑗𝐷, 𝑖𝐷 ↦ ((𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) · (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
182148, 181eqtrd 2861 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑆 Σg (𝐸 ∘ (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))) · (𝑆 Σg (𝐸 ∘ (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))) = (𝑆 Σg (𝑗𝐷, 𝑖𝐷 ↦ ((𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))) · (𝐸‘(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
183130, 139, 1823eqtr4d 2871 . . 3 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑗𝐷, 𝑖𝐷 ↦ ((𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))(.r𝑃)(𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))) = ((𝑆 Σg (𝐸 ∘ (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))) · (𝑆 Σg (𝐸 ∘ (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
18479, 115, 1833eqtr2d 2867 . 2 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸‘((𝑃 Σg (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))(.r𝑃)(𝑃 Σg (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))) = ((𝑆 Σg (𝐸 ∘ (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))) · (𝑆 Σg (𝐸 ∘ (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
1858adantr 481 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝐼 ∈ V)
18611adantr 481 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑅 ∈ Ring)
18712, 4, 16, 1, 185, 186, 20mplcoe4 20202 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑥 = (𝑃 Σg (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 )))))
18812, 4, 16, 1, 185, 186, 27mplcoe4 20202 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → 𝑦 = (𝑃 Σg (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))
189187, 188oveq12d 7166 . . 3 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑥(.r𝑃)𝑦) = ((𝑃 Σg (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))(.r𝑃)(𝑃 Σg (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))))
190189fveq2d 6671 . 2 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸‘(𝑥(.r𝑃)𝑦)) = (𝐸‘((𝑃 Σg (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))(.r𝑃)(𝑃 Σg (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
191187fveq2d 6671 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸𝑥) = (𝐸‘(𝑃 Σg (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))))
19224fmpttd 6875 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))):𝐷𝐵)
1931, 3, 82, 88, 7, 94, 192, 70gsummhm 18978 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))) = (𝐸‘(𝑃 Σg (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))))
194191, 193eqtr4d 2864 . . 3 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸𝑥) = (𝑆 Σg (𝐸 ∘ (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))))
195188fveq2d 6671 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸𝑦) = (𝐸‘(𝑃 Σg (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))))
19631fmpttd 6875 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))):𝐷𝐵)
1971, 3, 82, 88, 7, 94, 196, 77gsummhm 18978 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))) = (𝐸‘(𝑃 Σg (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))))
198195, 197eqtr4d 2864 . . 3 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸𝑦) = (𝑆 Σg (𝐸 ∘ (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 ))))))
199194, 198oveq12d 7166 . 2 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝐸𝑥) · (𝐸𝑦)) = ((𝑆 Σg (𝐸 ∘ (𝑗𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑗, (𝑥𝑗), 0 ))))) · (𝑆 Σg (𝐸 ∘ (𝑖𝐷 ↦ (𝑘𝐷 ↦ if(𝑘 = 𝑖, (𝑦𝑖), 0 )))))))
200184, 190, 1993eqtr4d 2871 1 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝐸‘(𝑥(.r𝑃)𝑦)) = ((𝐸𝑥) · (𝐸𝑦)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3a 1081   = wceq 1530  wcel 2107  wral 3143  {crab 3147  Vcvv 3500  cdif 3937  wss 3940  ifcif 4470  {csn 4564   class class class wbr 5063  cmpt 5143   × cxp 5552  ccnv 5553  cima 5557  ccom 5558  Fun wfun 6346  wf 6348  cfv 6352  (class class class)co 7148  cmpo 7150  f cof 7397   supp csupp 7821  m cmap 8396  Fincfn 8498   finSupp cfsupp 8822   + caddc 10529  cn 11627  0cn0 11886  Basecbs 16473  .rcmulr 16556  0gc0g 16703   Σg cgsu 16704  Mndcmnd 17900   MndHom cmhm 17942  Grpcgrp 18033   GrpHom cghm 18285  CMndccmn 18826  Ringcrg 19217  CRingccrg 19218   mPoly cmpl 20052
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1904  ax-6 1963  ax-7 2008  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2153  ax-12 2169  ax-ext 2798  ax-rep 5187  ax-sep 5200  ax-nul 5207  ax-pow 5263  ax-pr 5326  ax-un 7451  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 844  df-3or 1082  df-3an 1083  df-tru 1533  df-ex 1774  df-nf 1778  df-sb 2063  df-mo 2620  df-eu 2652  df-clab 2805  df-cleq 2819  df-clel 2898  df-nfc 2968  df-ne 3022  df-nel 3129  df-ral 3148  df-rex 3149  df-reu 3150  df-rmo 3151  df-rab 3152  df-v 3502  df-sbc 3777  df-csb 3888  df-dif 3943  df-un 3945  df-in 3947  df-ss 3956  df-pss 3958  df-nul 4296  df-if 4471  df-pw 4544  df-sn 4565  df-pr 4567  df-tp 4569  df-op 4571  df-uni 4838  df-int 4875  df-iun 4919  df-iin 4920  df-br 5064  df-opab 5126  df-mpt 5144  df-tr 5170  df-id 5459  df-eprel 5464  df-po 5473  df-so 5474  df-fr 5513  df-se 5514  df-we 5515  df-xp 5560  df-rel 5561  df-cnv 5562  df-co 5563  df-dm 5564  df-rn 5565  df-res 5566  df-ima 5567  df-pred 6146  df-ord 6192  df-on 6193  df-lim 6194  df-suc 6195  df-iota 6312  df-fun 6354  df-fn 6355  df-f 6356  df-f1 6357  df-fo 6358  df-f1o 6359  df-fv 6360  df-isom 6361  df-riota 7106  df-ov 7151  df-oprab 7152  df-mpo 7153  df-of 7399  df-ofr 7400  df-om 7569  df-1st 7680  df-2nd 7681  df-supp 7822  df-wrecs 7938  df-recs 7999  df-rdg 8037  df-1o 8093  df-2o 8094  df-oadd 8097  df-er 8279  df-map 8398  df-pm 8399  df-ixp 8451  df-en 8499  df-dom 8500  df-sdom 8501  df-fin 8502  df-fsupp 8823  df-oi 8963  df-card 9357  df-pnf 10666  df-mnf 10667  df-xr 10668  df-ltxr 10669  df-le 10670  df-sub 10861  df-neg 10862  df-nn 11628  df-2 11689  df-3 11690  df-4 11691  df-5 11692  df-6 11693  df-7 11694  df-8 11695  df-9 11696  df-n0 11887  df-z 11971  df-uz 12233  df-fz 12883  df-fzo 13024  df-seq 13360  df-hash 13681  df-struct 16475  df-ndx 16476  df-slot 16477  df-base 16479  df-sets 16480  df-ress 16481  df-plusg 16568  df-mulr 16569  df-sca 16571  df-vsca 16572  df-tset 16574  df-0g 16705  df-gsum 16706  df-mre 16847  df-mrc 16848  df-acs 16850  df-mgm 17842  df-sgrp 17890  df-mnd 17901  df-mhm 17944  df-submnd 17945  df-grp 18036  df-minusg 18037  df-sbg 18038  df-mulg 18155  df-subg 18206  df-ghm 18286  df-cntz 18377  df-cmn 18828  df-abl 18829  df-mgp 19160  df-ur 19172  df-ring 19219  df-cring 19220  df-subrg 19453  df-lmod 19556  df-lss 19624  df-assa 20004  df-psr 20055  df-mpl 20057
This theorem is referenced by:  evlslem1  20214
  Copyright terms: Public domain W3C validator