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

Theorem coe1tmmul2 20127
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 20123 . . . 4 ((𝑅 ∈ Ring ∧ 𝐶𝐾𝐷 ∈ ℕ0) → (𝐶 · (𝐷 𝑋)) ∈ 𝐵)
131, 3, 4, 12syl3anc 1364 . . 3 (𝜑 → (𝐶 · (𝐷 𝑋)) ∈ 𝐵)
14 coe1tmmul.t . . . 4 = (.r𝑃)
15 coe1tmmul.u . . . 4 × = (.r𝑅)
166, 14, 15, 11coe1mul 20121 . . 3 ((𝑅 ∈ Ring ∧ 𝐴𝐵 ∧ (𝐶 · (𝐷 𝑋)) ∈ 𝐵) → (coe1‘(𝐴 (𝐶 · (𝐷 𝑋)))) = (𝑥 ∈ ℕ0 ↦ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))))))
171, 2, 13, 16syl3anc 1364 . 2 (𝜑 → (coe1‘(𝐴 (𝐶 · (𝐷 𝑋)))) = (𝑥 ∈ ℕ0 ↦ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))))))
18 eqeq2 2806 . . . 4 ((((coe1𝐴)‘(𝑥𝐷)) × 𝐶) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 ) → ((𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶) ↔ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
19 eqeq2 2806 . . . 4 ( 0 = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 ) → ((𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = 0 ↔ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
20 coe1tm.z . . . . . . 7 0 = (0g𝑅)
211adantr 481 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑅 ∈ Ring)
22 ringmnd 18996 . . . . . . . 8 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
2321, 22syl 17 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑅 ∈ Mnd)
24 ovex 7048 . . . . . . . 8 (0...𝑥) ∈ V
2524a1i 11 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (0...𝑥) ∈ V)
26 simprr 769 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷𝑥)
274adantr 481 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷 ∈ ℕ0)
28 simprl 767 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑥 ∈ ℕ0)
29 nn0sub 11795 . . . . . . . . . 10 ((𝐷 ∈ ℕ0𝑥 ∈ ℕ0) → (𝐷𝑥 ↔ (𝑥𝐷) ∈ ℕ0))
3027, 28, 29syl2anc 584 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝐷𝑥 ↔ (𝑥𝐷) ∈ ℕ0))
3126, 30mpbid 233 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥𝐷) ∈ ℕ0)
3227nn0ge0d 11806 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 0 ≤ 𝐷)
33 nn0re 11754 . . . . . . . . . . 11 (𝑥 ∈ ℕ0𝑥 ∈ ℝ)
3433ad2antrl 724 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑥 ∈ ℝ)
354nn0red 11804 . . . . . . . . . . 11 (𝜑𝐷 ∈ ℝ)
3635adantr 481 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷 ∈ ℝ)
3734, 36subge02d 11080 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (0 ≤ 𝐷 ↔ (𝑥𝐷) ≤ 𝑥))
3832, 37mpbid 233 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥𝐷) ≤ 𝑥)
39 fznn0 12849 . . . . . . . . 9 (𝑥 ∈ ℕ0 → ((𝑥𝐷) ∈ (0...𝑥) ↔ ((𝑥𝐷) ∈ ℕ0 ∧ (𝑥𝐷) ≤ 𝑥)))
4039ad2antrl 724 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((𝑥𝐷) ∈ (0...𝑥) ↔ ((𝑥𝐷) ∈ ℕ0 ∧ (𝑥𝐷) ≤ 𝑥)))
4131, 38, 40mpbir2and 709 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥𝐷) ∈ (0...𝑥))
421ad2antrr 722 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑅 ∈ Ring)
43 eqid 2795 . . . . . . . . . . . . 13 (coe1𝐴) = (coe1𝐴)
4443, 11, 6, 5coe1f 20062 . . . . . . . . . . . 12 (𝐴𝐵 → (coe1𝐴):ℕ0𝐾)
452, 44syl 17 . . . . . . . . . . 11 (𝜑 → (coe1𝐴):ℕ0𝐾)
4645ad2antrr 722 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (coe1𝐴):ℕ0𝐾)
47 elfznn0 12850 . . . . . . . . . . 11 (𝑦 ∈ (0...𝑥) → 𝑦 ∈ ℕ0)
4847adantl 482 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑦 ∈ ℕ0)
4946, 48ffvelrnd 6717 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → ((coe1𝐴)‘𝑦) ∈ 𝐾)
50 eqid 2795 . . . . . . . . . . . . 13 (coe1‘(𝐶 · (𝐷 𝑋))) = (coe1‘(𝐶 · (𝐷 𝑋)))
5150, 11, 6, 5coe1f 20062 . . . . . . . . . . . 12 ((𝐶 · (𝐷 𝑋)) ∈ 𝐵 → (coe1‘(𝐶 · (𝐷 𝑋))):ℕ0𝐾)
5213, 51syl 17 . . . . . . . . . . 11 (𝜑 → (coe1‘(𝐶 · (𝐷 𝑋))):ℕ0𝐾)
5352ad2antrr 722 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (coe1‘(𝐶 · (𝐷 𝑋))):ℕ0𝐾)
54 fznn0sub 12789 . . . . . . . . . . 11 (𝑦 ∈ (0...𝑥) → (𝑥𝑦) ∈ ℕ0)
5554adantl 482 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝑥𝑦) ∈ ℕ0)
5653, 55ffvelrnd 6717 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) ∈ 𝐾)
575, 15ringcl 19001 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ ((coe1𝐴)‘𝑦) ∈ 𝐾 ∧ ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) ∈ 𝐾) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) ∈ 𝐾)
5842, 49, 56, 57syl3anc 1364 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) ∈ 𝐾)
5958fmpttd 6742 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))):(0...𝑥)⟶𝐾)
601ad2antrr 722 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝑅 ∈ Ring)
613ad2antrr 722 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝐶𝐾)
624ad2antrr 722 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝐷 ∈ ℕ0)
63 eldifi 4024 . . . . . . . . . . . . 13 (𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)}) → 𝑦 ∈ (0...𝑥))
6463, 54syl 17 . . . . . . . . . . . 12 (𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)}) → (𝑥𝑦) ∈ ℕ0)
6564adantl 482 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (𝑥𝑦) ∈ ℕ0)
66 eldifsn 4626 . . . . . . . . . . . 12 (𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)}) ↔ (𝑦 ∈ (0...𝑥) ∧ 𝑦 ≠ (𝑥𝐷)))
67 simplrl 773 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑥 ∈ ℕ0)
6867nn0cnd 11805 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑥 ∈ ℂ)
6947nn0cnd 11805 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (0...𝑥) → 𝑦 ∈ ℂ)
7069adantl 482 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑦 ∈ ℂ)
7168, 70nncand 10850 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝑥 − (𝑥𝑦)) = 𝑦)
7271eqcomd 2801 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑦 = (𝑥 − (𝑥𝑦)))
73 oveq2 7024 . . . . . . . . . . . . . . . 16 (𝐷 = (𝑥𝑦) → (𝑥𝐷) = (𝑥 − (𝑥𝑦)))
7473eqeq2d 2805 . . . . . . . . . . . . . . 15 (𝐷 = (𝑥𝑦) → (𝑦 = (𝑥𝐷) ↔ 𝑦 = (𝑥 − (𝑥𝑦))))
7572, 74syl5ibrcom 248 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝐷 = (𝑥𝑦) → 𝑦 = (𝑥𝐷)))
7675necon3d 3005 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝑦 ≠ (𝑥𝐷) → 𝐷 ≠ (𝑥𝑦)))
7776impr 455 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ (𝑦 ∈ (0...𝑥) ∧ 𝑦 ≠ (𝑥𝐷))) → 𝐷 ≠ (𝑥𝑦))
7866, 77sylan2b 593 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝐷 ≠ (𝑥𝑦))
7920, 5, 6, 7, 8, 9, 10, 60, 61, 62, 65, 78coe1tmfv2 20126 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) = 0 )
8079oveq2d 7032 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = (((coe1𝐴)‘𝑦) × 0 ))
815, 15, 20ringrz 19028 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ ((coe1𝐴)‘𝑦) ∈ 𝐾) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
8242, 49, 81syl2anc 584 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
8363, 82sylan2 592 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
8480, 83eqtrd 2831 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = 0 )
8584, 25suppss2 7715 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))) supp 0 ) ⊆ {(𝑥𝐷)})
865, 20, 23, 25, 41, 59, 85gsumpt 18802 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))‘(𝑥𝐷)))
87 fveq2 6538 . . . . . . . . 9 (𝑦 = (𝑥𝐷) → ((coe1𝐴)‘𝑦) = ((coe1𝐴)‘(𝑥𝐷)))
88 oveq2 7024 . . . . . . . . . 10 (𝑦 = (𝑥𝐷) → (𝑥𝑦) = (𝑥 − (𝑥𝐷)))
8988fveq2d 6542 . . . . . . . . 9 (𝑦 = (𝑥𝐷) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) = ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷))))
9087, 89oveq12d 7034 . . . . . . . 8 (𝑦 = (𝑥𝐷) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))))
91 eqid 2795 . . . . . . . 8 (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))) = (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))
92 ovex 7048 . . . . . . . 8 (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))) ∈ V
9390, 91, 92fvmpt 6635 . . . . . . 7 ((𝑥𝐷) ∈ (0...𝑥) → ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))‘(𝑥𝐷)) = (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))))
9441, 93syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))‘(𝑥𝐷)) = (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))))
9528nn0cnd 11805 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑥 ∈ ℂ)
9627nn0cnd 11805 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷 ∈ ℂ)
9795, 96nncand 10850 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥 − (𝑥𝐷)) = 𝐷)
9897fveq2d 6542 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷))) = ((coe1‘(𝐶 · (𝐷 𝑋)))‘𝐷))
993adantr 481 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐶𝐾)
10020, 5, 6, 7, 8, 9, 10coe1tmfv1 20125 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐶𝐾𝐷 ∈ ℕ0) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘𝐷) = 𝐶)
10121, 99, 27, 100syl3anc 1364 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘𝐷) = 𝐶)
10298, 101eqtrd 2831 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷))) = 𝐶)
103102oveq2d 7032 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶))
10486, 94, 1033eqtrd 2835 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶))
105104anassrs 468 . . . 4 (((𝜑𝑥 ∈ ℕ0) ∧ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶))
1061ad2antrr 722 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑅 ∈ Ring)
1073ad2antrr 722 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐶𝐾)
1084ad2antrr 722 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐷 ∈ ℕ0)
10954ad2antll 725 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) ∈ ℕ0)
11054nn0red 11804 . . . . . . . . . . . . 13 (𝑦 ∈ (0...𝑥) → (𝑥𝑦) ∈ ℝ)
111110ad2antll 725 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) ∈ ℝ)
11233ad2antlr 723 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑥 ∈ ℝ)
11335ad2antrr 722 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐷 ∈ ℝ)
11447ad2antll 725 . . . . . . . . . . . . . . 15 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑦 ∈ ℕ0)
115114nn0ge0d 11806 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 0 ≤ 𝑦)
11647nn0red 11804 . . . . . . . . . . . . . . . 16 (𝑦 ∈ (0...𝑥) → 𝑦 ∈ ℝ)
117116ad2antll 725 . . . . . . . . . . . . . . 15 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑦 ∈ ℝ)
118112, 117subge02d 11080 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (0 ≤ 𝑦 ↔ (𝑥𝑦) ≤ 𝑥))
119115, 118mpbid 233 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) ≤ 𝑥)
120 simprl 767 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → ¬ 𝐷𝑥)
121112, 113ltnled 10634 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥 < 𝐷 ↔ ¬ 𝐷𝑥))
122120, 121mpbird 258 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑥 < 𝐷)
123111, 112, 113, 119, 122lelttrd 10645 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) < 𝐷)
124111, 123gtned 10622 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐷 ≠ (𝑥𝑦))
12520, 5, 6, 7, 8, 9, 10, 106, 107, 108, 109, 124coe1tmfv2 20126 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) = 0 )
126125oveq2d 7032 . . . . . . . . 9 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = (((coe1𝐴)‘𝑦) × 0 ))
12745ad2antrr 722 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (coe1𝐴):ℕ0𝐾)
128127, 114ffvelrnd 6717 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → ((coe1𝐴)‘𝑦) ∈ 𝐾)
129106, 128, 81syl2anc 584 . . . . . . . . 9 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
130126, 129eqtrd 2831 . . . . . . . 8 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = 0 )
131130anassrs 468 . . . . . . 7 ((((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) ∧ 𝑦 ∈ (0...𝑥)) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = 0 )
132131mpteq2dva 5055 . . . . . 6 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))) = (𝑦 ∈ (0...𝑥) ↦ 0 ))
133132oveq2d 7032 . . . . 5 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )))
1341, 22syl 17 . . . . . . 7 (𝜑𝑅 ∈ Mnd)
13520gsumz 17813 . . . . . . 7 ((𝑅 ∈ Mnd ∧ (0...𝑥) ∈ V) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )) = 0 )
136134, 24, 135sylancl 586 . . . . . 6 (𝜑 → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )) = 0 )
137136ad2antrr 722 . . . . 5 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )) = 0 )
138133, 137eqtrd 2831 . . . 4 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = 0 )
13918, 19, 105, 138ifbothda 4418 . . 3 ((𝜑𝑥 ∈ ℕ0) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 ))
140139mpteq2dva 5055 . 2 (𝜑 → (𝑥 ∈ ℕ0 ↦ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))))) = (𝑥 ∈ ℕ0 ↦ if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
14117, 140eqtrd 2831 1 (𝜑 → (coe1‘(𝐴 (𝐶 · (𝐷 𝑋)))) = (𝑥 ∈ ℕ0 ↦ if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396   = wceq 1522  wcel 2081  wne 2984  Vcvv 3437  cdif 3856  ifcif 4381  {csn 4472   class class class wbr 4962  cmpt 5041  wf 6221  cfv 6225  (class class class)co 7016  cc 10381  cr 10382  0cc0 10383   < clt 10521  cle 10522  cmin 10717  0cn0 11745  ...cfz 12742  Basecbs 16312  .rcmulr 16395   ·𝑠 cvsca 16398  0gc0g 16542   Σg cgsu 16543  Mndcmnd 17733  .gcmg 17981  mulGrpcmgp 18929  Ringcrg 18987  var1cv1 20027  Poly1cpl1 20028  coe1cco1 20029
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5081  ax-sep 5094  ax-nul 5101  ax-pow 5157  ax-pr 5221  ax-un 7319  ax-cnex 10439  ax-resscn 10440  ax-1cn 10441  ax-icn 10442  ax-addcl 10443  ax-addrcl 10444  ax-mulcl 10445  ax-mulrcl 10446  ax-mulcom 10447  ax-addass 10448  ax-mulass 10449  ax-distr 10450  ax-i2m1 10451  ax-1ne0 10452  ax-1rid 10453  ax-rnegex 10454  ax-rrecex 10455  ax-cnre 10456  ax-pre-lttri 10457  ax-pre-lttrn 10458  ax-pre-ltadd 10459  ax-pre-mulgt0 10460
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-nel 3091  df-ral 3110  df-rex 3111  df-reu 3112  df-rmo 3113  df-rab 3114  df-v 3439  df-sbc 3707  df-csb 3812  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-pss 3876  df-nul 4212  df-if 4382  df-pw 4455  df-sn 4473  df-pr 4475  df-tp 4477  df-op 4479  df-uni 4746  df-int 4783  df-iun 4827  df-iin 4828  df-br 4963  df-opab 5025  df-mpt 5042  df-tr 5064  df-id 5348  df-eprel 5353  df-po 5362  df-so 5363  df-fr 5402  df-se 5403  df-we 5404  df-xp 5449  df-rel 5450  df-cnv 5451  df-co 5452  df-dm 5453  df-rn 5454  df-res 5455  df-ima 5456  df-pred 6023  df-ord 6069  df-on 6070  df-lim 6071  df-suc 6072  df-iota 6189  df-fun 6227  df-fn 6228  df-f 6229  df-f1 6230  df-fo 6231  df-f1o 6232  df-fv 6233  df-isom 6234  df-riota 6977  df-ov 7019  df-oprab 7020  df-mpo 7021  df-of 7267  df-ofr 7268  df-om 7437  df-1st 7545  df-2nd 7546  df-supp 7682  df-wrecs 7798  df-recs 7860  df-rdg 7898  df-1o 7953  df-2o 7954  df-oadd 7957  df-er 8139  df-map 8258  df-pm 8259  df-ixp 8311  df-en 8358  df-dom 8359  df-sdom 8360  df-fin 8361  df-fsupp 8680  df-oi 8820  df-card 9214  df-pnf 10523  df-mnf 10524  df-xr 10525  df-ltxr 10526  df-le 10527  df-sub 10719  df-neg 10720  df-nn 11487  df-2 11548  df-3 11549  df-4 11550  df-5 11551  df-6 11552  df-7 11553  df-8 11554  df-9 11555  df-n0 11746  df-z 11830  df-dec 11948  df-uz 12094  df-fz 12743  df-fzo 12884  df-seq 13220  df-hash 13541  df-struct 16314  df-ndx 16315  df-slot 16316  df-base 16318  df-sets 16319  df-ress 16320  df-plusg 16407  df-mulr 16408  df-sca 16410  df-vsca 16411  df-tset 16413  df-ple 16414  df-0g 16544  df-gsum 16545  df-mre 16686  df-mrc 16687  df-acs 16689  df-mgm 17681  df-sgrp 17723  df-mnd 17734  df-mhm 17774  df-submnd 17775  df-grp 17864  df-minusg 17865  df-sbg 17866  df-mulg 17982  df-subg 18030  df-ghm 18097  df-cntz 18188  df-cmn 18635  df-abl 18636  df-mgp 18930  df-ur 18942  df-ring 18989  df-subrg 19223  df-lmod 19326  df-lss 19394  df-psr 19824  df-mvr 19825  df-mpl 19826  df-opsr 19828  df-psr1 20031  df-vr1 20032  df-ply1 20033  df-coe1 20034
This theorem is referenced by:  coe1tmmul2fv  20129  coe1sclmul2  20135
  Copyright terms: Public domain W3C validator