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

Theorem coe1tmmul2 21197
Description: Coefficient vector of a polynomial multiplied on the right by a term. (Contributed by Stefan O'Rear, 27-Mar-2015.)
Hypotheses
Ref Expression
coe1tm.z 0 = (0g𝑅)
coe1tm.k 𝐾 = (Base‘𝑅)
coe1tm.p 𝑃 = (Poly1𝑅)
coe1tm.x 𝑋 = (var1𝑅)
coe1tm.m · = ( ·𝑠𝑃)
coe1tm.n 𝑁 = (mulGrp‘𝑃)
coe1tm.e = (.g𝑁)
coe1tmmul.b 𝐵 = (Base‘𝑃)
coe1tmmul.t = (.r𝑃)
coe1tmmul.u × = (.r𝑅)
coe1tmmul.a (𝜑𝐴𝐵)
coe1tmmul.r (𝜑𝑅 ∈ Ring)
coe1tmmul.c (𝜑𝐶𝐾)
coe1tmmul.d (𝜑𝐷 ∈ ℕ0)
Assertion
Ref Expression
coe1tmmul2 (𝜑 → (coe1‘(𝐴 (𝐶 · (𝐷 𝑋)))) = (𝑥 ∈ ℕ0 ↦ if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
Distinct variable groups:   𝑥, 0   𝑥,𝐶   𝑥,𝐷   𝑥,𝐾   𝑥,   𝑥,𝐴   𝑥,𝑁   𝑥,𝑃   𝑥,𝑋   𝜑,𝑥   𝑥,𝑅   𝑥, ·   𝑥, ×   𝑥,
Allowed substitution hint:   𝐵(𝑥)

Proof of Theorem coe1tmmul2
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 coe1tmmul.r . . 3 (𝜑𝑅 ∈ Ring)
2 coe1tmmul.a . . 3 (𝜑𝐴𝐵)
3 coe1tmmul.c . . . 4 (𝜑𝐶𝐾)
4 coe1tmmul.d . . . 4 (𝜑𝐷 ∈ ℕ0)
5 coe1tm.k . . . . 5 𝐾 = (Base‘𝑅)
6 coe1tm.p . . . . 5 𝑃 = (Poly1𝑅)
7 coe1tm.x . . . . 5 𝑋 = (var1𝑅)
8 coe1tm.m . . . . 5 · = ( ·𝑠𝑃)
9 coe1tm.n . . . . 5 𝑁 = (mulGrp‘𝑃)
10 coe1tm.e . . . . 5 = (.g𝑁)
11 coe1tmmul.b . . . . 5 𝐵 = (Base‘𝑃)
125, 6, 7, 8, 9, 10, 11ply1tmcl 21193 . . . 4 ((𝑅 ∈ Ring ∧ 𝐶𝐾𝐷 ∈ ℕ0) → (𝐶 · (𝐷 𝑋)) ∈ 𝐵)
131, 3, 4, 12syl3anc 1373 . . 3 (𝜑 → (𝐶 · (𝐷 𝑋)) ∈ 𝐵)
14 coe1tmmul.t . . . 4 = (.r𝑃)
15 coe1tmmul.u . . . 4 × = (.r𝑅)
166, 14, 15, 11coe1mul 21191 . . 3 ((𝑅 ∈ Ring ∧ 𝐴𝐵 ∧ (𝐶 · (𝐷 𝑋)) ∈ 𝐵) → (coe1‘(𝐴 (𝐶 · (𝐷 𝑋)))) = (𝑥 ∈ ℕ0 ↦ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))))))
171, 2, 13, 16syl3anc 1373 . 2 (𝜑 → (coe1‘(𝐴 (𝐶 · (𝐷 𝑋)))) = (𝑥 ∈ ℕ0 ↦ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))))))
18 eqeq2 2749 . . . 4 ((((coe1𝐴)‘(𝑥𝐷)) × 𝐶) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 ) → ((𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶) ↔ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
19 eqeq2 2749 . . . 4 ( 0 = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 ) → ((𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = 0 ↔ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
20 coe1tm.z . . . . . . 7 0 = (0g𝑅)
211adantr 484 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑅 ∈ Ring)
22 ringmnd 19572 . . . . . . . 8 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
2321, 22syl 17 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑅 ∈ Mnd)
24 ovex 7246 . . . . . . . 8 (0...𝑥) ∈ V
2524a1i 11 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (0...𝑥) ∈ V)
26 simprr 773 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷𝑥)
274adantr 484 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷 ∈ ℕ0)
28 simprl 771 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑥 ∈ ℕ0)
29 nn0sub 12140 . . . . . . . . . 10 ((𝐷 ∈ ℕ0𝑥 ∈ ℕ0) → (𝐷𝑥 ↔ (𝑥𝐷) ∈ ℕ0))
3027, 28, 29syl2anc 587 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝐷𝑥 ↔ (𝑥𝐷) ∈ ℕ0))
3126, 30mpbid 235 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥𝐷) ∈ ℕ0)
3227nn0ge0d 12153 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 0 ≤ 𝐷)
33 nn0re 12099 . . . . . . . . . . 11 (𝑥 ∈ ℕ0𝑥 ∈ ℝ)
3433ad2antrl 728 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑥 ∈ ℝ)
354nn0red 12151 . . . . . . . . . . 11 (𝜑𝐷 ∈ ℝ)
3635adantr 484 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷 ∈ ℝ)
3734, 36subge02d 11424 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (0 ≤ 𝐷 ↔ (𝑥𝐷) ≤ 𝑥))
3832, 37mpbid 235 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥𝐷) ≤ 𝑥)
39 fznn0 13204 . . . . . . . . 9 (𝑥 ∈ ℕ0 → ((𝑥𝐷) ∈ (0...𝑥) ↔ ((𝑥𝐷) ∈ ℕ0 ∧ (𝑥𝐷) ≤ 𝑥)))
4039ad2antrl 728 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((𝑥𝐷) ∈ (0...𝑥) ↔ ((𝑥𝐷) ∈ ℕ0 ∧ (𝑥𝐷) ≤ 𝑥)))
4131, 38, 40mpbir2and 713 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥𝐷) ∈ (0...𝑥))
421ad2antrr 726 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑅 ∈ Ring)
43 eqid 2737 . . . . . . . . . . . . 13 (coe1𝐴) = (coe1𝐴)
4443, 11, 6, 5coe1f 21132 . . . . . . . . . . . 12 (𝐴𝐵 → (coe1𝐴):ℕ0𝐾)
452, 44syl 17 . . . . . . . . . . 11 (𝜑 → (coe1𝐴):ℕ0𝐾)
4645ad2antrr 726 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (coe1𝐴):ℕ0𝐾)
47 elfznn0 13205 . . . . . . . . . . 11 (𝑦 ∈ (0...𝑥) → 𝑦 ∈ ℕ0)
4847adantl 485 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑦 ∈ ℕ0)
4946, 48ffvelrnd 6905 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → ((coe1𝐴)‘𝑦) ∈ 𝐾)
50 eqid 2737 . . . . . . . . . . . . 13 (coe1‘(𝐶 · (𝐷 𝑋))) = (coe1‘(𝐶 · (𝐷 𝑋)))
5150, 11, 6, 5coe1f 21132 . . . . . . . . . . . 12 ((𝐶 · (𝐷 𝑋)) ∈ 𝐵 → (coe1‘(𝐶 · (𝐷 𝑋))):ℕ0𝐾)
5213, 51syl 17 . . . . . . . . . . 11 (𝜑 → (coe1‘(𝐶 · (𝐷 𝑋))):ℕ0𝐾)
5352ad2antrr 726 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (coe1‘(𝐶 · (𝐷 𝑋))):ℕ0𝐾)
54 fznn0sub 13144 . . . . . . . . . . 11 (𝑦 ∈ (0...𝑥) → (𝑥𝑦) ∈ ℕ0)
5554adantl 485 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝑥𝑦) ∈ ℕ0)
5653, 55ffvelrnd 6905 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) ∈ 𝐾)
575, 15ringcl 19579 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ ((coe1𝐴)‘𝑦) ∈ 𝐾 ∧ ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) ∈ 𝐾) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) ∈ 𝐾)
5842, 49, 56, 57syl3anc 1373 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) ∈ 𝐾)
5958fmpttd 6932 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))):(0...𝑥)⟶𝐾)
601ad2antrr 726 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝑅 ∈ Ring)
613ad2antrr 726 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝐶𝐾)
624ad2antrr 726 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝐷 ∈ ℕ0)
63 eldifi 4041 . . . . . . . . . . . . 13 (𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)}) → 𝑦 ∈ (0...𝑥))
6463, 54syl 17 . . . . . . . . . . . 12 (𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)}) → (𝑥𝑦) ∈ ℕ0)
6564adantl 485 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (𝑥𝑦) ∈ ℕ0)
66 eldifsn 4700 . . . . . . . . . . . 12 (𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)}) ↔ (𝑦 ∈ (0...𝑥) ∧ 𝑦 ≠ (𝑥𝐷)))
67 simplrl 777 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑥 ∈ ℕ0)
6867nn0cnd 12152 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑥 ∈ ℂ)
6947nn0cnd 12152 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (0...𝑥) → 𝑦 ∈ ℂ)
7069adantl 485 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑦 ∈ ℂ)
7168, 70nncand 11194 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝑥 − (𝑥𝑦)) = 𝑦)
7271eqcomd 2743 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑦 = (𝑥 − (𝑥𝑦)))
73 oveq2 7221 . . . . . . . . . . . . . . . 16 (𝐷 = (𝑥𝑦) → (𝑥𝐷) = (𝑥 − (𝑥𝑦)))
7473eqeq2d 2748 . . . . . . . . . . . . . . 15 (𝐷 = (𝑥𝑦) → (𝑦 = (𝑥𝐷) ↔ 𝑦 = (𝑥 − (𝑥𝑦))))
7572, 74syl5ibrcom 250 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝐷 = (𝑥𝑦) → 𝑦 = (𝑥𝐷)))
7675necon3d 2961 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝑦 ≠ (𝑥𝐷) → 𝐷 ≠ (𝑥𝑦)))
7776impr 458 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ (𝑦 ∈ (0...𝑥) ∧ 𝑦 ≠ (𝑥𝐷))) → 𝐷 ≠ (𝑥𝑦))
7866, 77sylan2b 597 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝐷 ≠ (𝑥𝑦))
7920, 5, 6, 7, 8, 9, 10, 60, 61, 62, 65, 78coe1tmfv2 21196 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) = 0 )
8079oveq2d 7229 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = (((coe1𝐴)‘𝑦) × 0 ))
815, 15, 20ringrz 19606 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ ((coe1𝐴)‘𝑦) ∈ 𝐾) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
8242, 49, 81syl2anc 587 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
8363, 82sylan2 596 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
8480, 83eqtrd 2777 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = 0 )
8584, 25suppss2 7942 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))) supp 0 ) ⊆ {(𝑥𝐷)})
865, 20, 23, 25, 41, 59, 85gsumpt 19347 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))‘(𝑥𝐷)))
87 fveq2 6717 . . . . . . . . 9 (𝑦 = (𝑥𝐷) → ((coe1𝐴)‘𝑦) = ((coe1𝐴)‘(𝑥𝐷)))
88 oveq2 7221 . . . . . . . . . 10 (𝑦 = (𝑥𝐷) → (𝑥𝑦) = (𝑥 − (𝑥𝐷)))
8988fveq2d 6721 . . . . . . . . 9 (𝑦 = (𝑥𝐷) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) = ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷))))
9087, 89oveq12d 7231 . . . . . . . 8 (𝑦 = (𝑥𝐷) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))))
91 eqid 2737 . . . . . . . 8 (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))) = (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))
92 ovex 7246 . . . . . . . 8 (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))) ∈ V
9390, 91, 92fvmpt 6818 . . . . . . 7 ((𝑥𝐷) ∈ (0...𝑥) → ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))‘(𝑥𝐷)) = (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))))
9441, 93syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))‘(𝑥𝐷)) = (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))))
9528nn0cnd 12152 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑥 ∈ ℂ)
9627nn0cnd 12152 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷 ∈ ℂ)
9795, 96nncand 11194 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥 − (𝑥𝐷)) = 𝐷)
9897fveq2d 6721 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷))) = ((coe1‘(𝐶 · (𝐷 𝑋)))‘𝐷))
993adantr 484 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐶𝐾)
10020, 5, 6, 7, 8, 9, 10coe1tmfv1 21195 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐶𝐾𝐷 ∈ ℕ0) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘𝐷) = 𝐶)
10121, 99, 27, 100syl3anc 1373 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘𝐷) = 𝐶)
10298, 101eqtrd 2777 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷))) = 𝐶)
103102oveq2d 7229 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶))
10486, 94, 1033eqtrd 2781 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶))
105104anassrs 471 . . . 4 (((𝜑𝑥 ∈ ℕ0) ∧ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶))
1061ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑅 ∈ Ring)
1073ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐶𝐾)
1084ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐷 ∈ ℕ0)
10954ad2antll 729 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) ∈ ℕ0)
11054nn0red 12151 . . . . . . . . . . . . 13 (𝑦 ∈ (0...𝑥) → (𝑥𝑦) ∈ ℝ)
111110ad2antll 729 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) ∈ ℝ)
11233ad2antlr 727 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑥 ∈ ℝ)
11335ad2antrr 726 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐷 ∈ ℝ)
11447ad2antll 729 . . . . . . . . . . . . . . 15 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑦 ∈ ℕ0)
115114nn0ge0d 12153 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 0 ≤ 𝑦)
11647nn0red 12151 . . . . . . . . . . . . . . . 16 (𝑦 ∈ (0...𝑥) → 𝑦 ∈ ℝ)
117116ad2antll 729 . . . . . . . . . . . . . . 15 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑦 ∈ ℝ)
118112, 117subge02d 11424 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (0 ≤ 𝑦 ↔ (𝑥𝑦) ≤ 𝑥))
119115, 118mpbid 235 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) ≤ 𝑥)
120 simprl 771 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → ¬ 𝐷𝑥)
121112, 113ltnled 10979 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥 < 𝐷 ↔ ¬ 𝐷𝑥))
122120, 121mpbird 260 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑥 < 𝐷)
123111, 112, 113, 119, 122lelttrd 10990 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) < 𝐷)
124111, 123gtned 10967 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐷 ≠ (𝑥𝑦))
12520, 5, 6, 7, 8, 9, 10, 106, 107, 108, 109, 124coe1tmfv2 21196 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) = 0 )
126125oveq2d 7229 . . . . . . . . 9 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = (((coe1𝐴)‘𝑦) × 0 ))
12745ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (coe1𝐴):ℕ0𝐾)
128127, 114ffvelrnd 6905 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → ((coe1𝐴)‘𝑦) ∈ 𝐾)
129106, 128, 81syl2anc 587 . . . . . . . . 9 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
130126, 129eqtrd 2777 . . . . . . . 8 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = 0 )
131130anassrs 471 . . . . . . 7 ((((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) ∧ 𝑦 ∈ (0...𝑥)) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = 0 )
132131mpteq2dva 5150 . . . . . 6 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))) = (𝑦 ∈ (0...𝑥) ↦ 0 ))
133132oveq2d 7229 . . . . 5 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )))
1341, 22syl 17 . . . . . . 7 (𝜑𝑅 ∈ Mnd)
13520gsumz 18262 . . . . . . 7 ((𝑅 ∈ Mnd ∧ (0...𝑥) ∈ V) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )) = 0 )
136134, 24, 135sylancl 589 . . . . . 6 (𝜑 → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )) = 0 )
137136ad2antrr 726 . . . . 5 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )) = 0 )
138133, 137eqtrd 2777 . . . 4 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = 0 )
13918, 19, 105, 138ifbothda 4477 . . 3 ((𝜑𝑥 ∈ ℕ0) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 ))
140139mpteq2dva 5150 . 2 (𝜑 → (𝑥 ∈ ℕ0 ↦ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))))) = (𝑥 ∈ ℕ0 ↦ if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
14117, 140eqtrd 2777 1 (𝜑 → (coe1‘(𝐴 (𝐶 · (𝐷 𝑋)))) = (𝑥 ∈ ℕ0 ↦ if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399   = wceq 1543  wcel 2110  wne 2940  Vcvv 3408  cdif 3863  ifcif 4439  {csn 4541   class class class wbr 5053  cmpt 5135  wf 6376  cfv 6380  (class class class)co 7213  cc 10727  cr 10728  0cc0 10729   < clt 10867  cle 10868  cmin 11062  0cn0 12090  ...cfz 13095  Basecbs 16760  .rcmulr 16803   ·𝑠 cvsca 16806  0gc0g 16944   Σg cgsu 16945  Mndcmnd 18173  .gcmg 18488  mulGrpcmgp 19504  Ringcrg 19562  var1cv1 21097  Poly1cpl1 21098  coe1cco1 21099
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-rep 5179  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523  ax-cnex 10785  ax-resscn 10786  ax-1cn 10787  ax-icn 10788  ax-addcl 10789  ax-addrcl 10790  ax-mulcl 10791  ax-mulrcl 10792  ax-mulcom 10793  ax-addass 10794  ax-mulass 10795  ax-distr 10796  ax-i2m1 10797  ax-1ne0 10798  ax-1rid 10799  ax-rnegex 10800  ax-rrecex 10801  ax-cnre 10802  ax-pre-lttri 10803  ax-pre-lttrn 10804  ax-pre-ltadd 10805  ax-pre-mulgt0 10806
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-pss 3885  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-tp 4546  df-op 4548  df-uni 4820  df-int 4860  df-iun 4906  df-iin 4907  df-br 5054  df-opab 5116  df-mpt 5136  df-tr 5162  df-id 5455  df-eprel 5460  df-po 5468  df-so 5469  df-fr 5509  df-se 5510  df-we 5511  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-pred 6160  df-ord 6216  df-on 6217  df-lim 6218  df-suc 6219  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-isom 6389  df-riota 7170  df-ov 7216  df-oprab 7217  df-mpo 7218  df-of 7469  df-ofr 7470  df-om 7645  df-1st 7761  df-2nd 7762  df-supp 7904  df-wrecs 8047  df-recs 8108  df-rdg 8146  df-1o 8202  df-er 8391  df-map 8510  df-pm 8511  df-ixp 8579  df-en 8627  df-dom 8628  df-sdom 8629  df-fin 8630  df-fsupp 8986  df-oi 9126  df-card 9555  df-pnf 10869  df-mnf 10870  df-xr 10871  df-ltxr 10872  df-le 10873  df-sub 11064  df-neg 11065  df-nn 11831  df-2 11893  df-3 11894  df-4 11895  df-5 11896  df-6 11897  df-7 11898  df-8 11899  df-9 11900  df-n0 12091  df-z 12177  df-dec 12294  df-uz 12439  df-fz 13096  df-fzo 13239  df-seq 13575  df-hash 13897  df-struct 16700  df-sets 16717  df-slot 16735  df-ndx 16745  df-base 16761  df-ress 16785  df-plusg 16815  df-mulr 16816  df-sca 16818  df-vsca 16819  df-tset 16821  df-ple 16822  df-0g 16946  df-gsum 16947  df-mre 17089  df-mrc 17090  df-acs 17092  df-mgm 18114  df-sgrp 18163  df-mnd 18174  df-mhm 18218  df-submnd 18219  df-grp 18368  df-minusg 18369  df-sbg 18370  df-mulg 18489  df-subg 18540  df-ghm 18620  df-cntz 18711  df-cmn 19172  df-abl 19173  df-mgp 19505  df-ur 19517  df-ring 19564  df-subrg 19798  df-lmod 19901  df-lss 19969  df-psr 20868  df-mvr 20869  df-mpl 20870  df-opsr 20872  df-psr1 21101  df-vr1 21102  df-ply1 21103  df-coe1 21104
This theorem is referenced by:  coe1tmmul2fv  21199  coe1sclmul2  21205
  Copyright terms: Public domain W3C validator