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

Theorem coe1tmmul2 22263
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 22259 . . . 4 ((𝑅 ∈ Ring ∧ 𝐶𝐾𝐷 ∈ ℕ0) → (𝐶 · (𝐷 𝑋)) ∈ 𝐵)
131, 3, 4, 12syl3anc 1368 . . 3 (𝜑 → (𝐶 · (𝐷 𝑋)) ∈ 𝐵)
14 coe1tmmul.t . . . 4 = (.r𝑃)
15 coe1tmmul.u . . . 4 × = (.r𝑅)
166, 14, 15, 11coe1mul 22257 . . 3 ((𝑅 ∈ Ring ∧ 𝐴𝐵 ∧ (𝐶 · (𝐷 𝑋)) ∈ 𝐵) → (coe1‘(𝐴 (𝐶 · (𝐷 𝑋)))) = (𝑥 ∈ ℕ0 ↦ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))))))
171, 2, 13, 16syl3anc 1368 . 2 (𝜑 → (coe1‘(𝐴 (𝐶 · (𝐷 𝑋)))) = (𝑥 ∈ ℕ0 ↦ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))))))
18 eqeq2 2738 . . . 4 ((((coe1𝐴)‘(𝑥𝐷)) × 𝐶) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 ) → ((𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶) ↔ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
19 eqeq2 2738 . . . 4 ( 0 = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 ) → ((𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = 0 ↔ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
20 coe1tm.z . . . . . . 7 0 = (0g𝑅)
211adantr 479 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑅 ∈ Ring)
22 ringmnd 20222 . . . . . . . 8 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
2321, 22syl 17 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑅 ∈ Mnd)
24 ovex 7449 . . . . . . . 8 (0...𝑥) ∈ V
2524a1i 11 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (0...𝑥) ∈ V)
26 simprr 771 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷𝑥)
274adantr 479 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷 ∈ ℕ0)
28 simprl 769 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑥 ∈ ℕ0)
29 nn0sub 12568 . . . . . . . . . 10 ((𝐷 ∈ ℕ0𝑥 ∈ ℕ0) → (𝐷𝑥 ↔ (𝑥𝐷) ∈ ℕ0))
3027, 28, 29syl2anc 582 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝐷𝑥 ↔ (𝑥𝐷) ∈ ℕ0))
3126, 30mpbid 231 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥𝐷) ∈ ℕ0)
3227nn0ge0d 12581 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 0 ≤ 𝐷)
33 nn0re 12527 . . . . . . . . . . 11 (𝑥 ∈ ℕ0𝑥 ∈ ℝ)
3433ad2antrl 726 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑥 ∈ ℝ)
354nn0red 12579 . . . . . . . . . . 11 (𝜑𝐷 ∈ ℝ)
3635adantr 479 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷 ∈ ℝ)
3734, 36subge02d 11847 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (0 ≤ 𝐷 ↔ (𝑥𝐷) ≤ 𝑥))
3832, 37mpbid 231 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥𝐷) ≤ 𝑥)
39 fznn0 13641 . . . . . . . . 9 (𝑥 ∈ ℕ0 → ((𝑥𝐷) ∈ (0...𝑥) ↔ ((𝑥𝐷) ∈ ℕ0 ∧ (𝑥𝐷) ≤ 𝑥)))
4039ad2antrl 726 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((𝑥𝐷) ∈ (0...𝑥) ↔ ((𝑥𝐷) ∈ ℕ0 ∧ (𝑥𝐷) ≤ 𝑥)))
4131, 38, 40mpbir2and 711 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥𝐷) ∈ (0...𝑥))
421ad2antrr 724 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑅 ∈ Ring)
43 eqid 2726 . . . . . . . . . . . . 13 (coe1𝐴) = (coe1𝐴)
4443, 11, 6, 5coe1f 22197 . . . . . . . . . . . 12 (𝐴𝐵 → (coe1𝐴):ℕ0𝐾)
452, 44syl 17 . . . . . . . . . . 11 (𝜑 → (coe1𝐴):ℕ0𝐾)
4645ad2antrr 724 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (coe1𝐴):ℕ0𝐾)
47 elfznn0 13642 . . . . . . . . . . 11 (𝑦 ∈ (0...𝑥) → 𝑦 ∈ ℕ0)
4847adantl 480 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑦 ∈ ℕ0)
4946, 48ffvelcdmd 7091 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → ((coe1𝐴)‘𝑦) ∈ 𝐾)
50 eqid 2726 . . . . . . . . . . . . 13 (coe1‘(𝐶 · (𝐷 𝑋))) = (coe1‘(𝐶 · (𝐷 𝑋)))
5150, 11, 6, 5coe1f 22197 . . . . . . . . . . . 12 ((𝐶 · (𝐷 𝑋)) ∈ 𝐵 → (coe1‘(𝐶 · (𝐷 𝑋))):ℕ0𝐾)
5213, 51syl 17 . . . . . . . . . . 11 (𝜑 → (coe1‘(𝐶 · (𝐷 𝑋))):ℕ0𝐾)
5352ad2antrr 724 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (coe1‘(𝐶 · (𝐷 𝑋))):ℕ0𝐾)
54 fznn0sub 13581 . . . . . . . . . . 11 (𝑦 ∈ (0...𝑥) → (𝑥𝑦) ∈ ℕ0)
5554adantl 480 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝑥𝑦) ∈ ℕ0)
5653, 55ffvelcdmd 7091 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) ∈ 𝐾)
575, 15ringcl 20229 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ ((coe1𝐴)‘𝑦) ∈ 𝐾 ∧ ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) ∈ 𝐾) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) ∈ 𝐾)
5842, 49, 56, 57syl3anc 1368 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) ∈ 𝐾)
5958fmpttd 7121 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))):(0...𝑥)⟶𝐾)
601ad2antrr 724 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝑅 ∈ Ring)
613ad2antrr 724 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝐶𝐾)
624ad2antrr 724 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝐷 ∈ ℕ0)
63 eldifi 4123 . . . . . . . . . . . . 13 (𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)}) → 𝑦 ∈ (0...𝑥))
6463, 54syl 17 . . . . . . . . . . . 12 (𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)}) → (𝑥𝑦) ∈ ℕ0)
6564adantl 480 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (𝑥𝑦) ∈ ℕ0)
66 eldifsn 4785 . . . . . . . . . . . 12 (𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)}) ↔ (𝑦 ∈ (0...𝑥) ∧ 𝑦 ≠ (𝑥𝐷)))
67 simplrl 775 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑥 ∈ ℕ0)
6867nn0cnd 12580 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑥 ∈ ℂ)
6947nn0cnd 12580 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (0...𝑥) → 𝑦 ∈ ℂ)
7069adantl 480 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑦 ∈ ℂ)
7168, 70nncand 11617 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝑥 − (𝑥𝑦)) = 𝑦)
7271eqcomd 2732 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → 𝑦 = (𝑥 − (𝑥𝑦)))
73 oveq2 7424 . . . . . . . . . . . . . . . 16 (𝐷 = (𝑥𝑦) → (𝑥𝐷) = (𝑥 − (𝑥𝑦)))
7473eqeq2d 2737 . . . . . . . . . . . . . . 15 (𝐷 = (𝑥𝑦) → (𝑦 = (𝑥𝐷) ↔ 𝑦 = (𝑥 − (𝑥𝑦))))
7572, 74syl5ibrcom 246 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝐷 = (𝑥𝑦) → 𝑦 = (𝑥𝐷)))
7675necon3d 2951 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (𝑦 ≠ (𝑥𝐷) → 𝐷 ≠ (𝑥𝑦)))
7776impr 453 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ (𝑦 ∈ (0...𝑥) ∧ 𝑦 ≠ (𝑥𝐷))) → 𝐷 ≠ (𝑥𝑦))
7866, 77sylan2b 592 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → 𝐷 ≠ (𝑥𝑦))
7920, 5, 6, 7, 8, 9, 10, 60, 61, 62, 65, 78coe1tmfv2 22262 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) = 0 )
8079oveq2d 7432 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = (((coe1𝐴)‘𝑦) × 0 ))
815, 15, 20ringrz 20269 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ ((coe1𝐴)‘𝑦) ∈ 𝐾) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
8242, 49, 81syl2anc 582 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ (0...𝑥)) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
8363, 82sylan2 591 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
8480, 83eqtrd 2766 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) ∧ 𝑦 ∈ ((0...𝑥) ∖ {(𝑥𝐷)})) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = 0 )
8584, 25suppss2 8207 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))) supp 0 ) ⊆ {(𝑥𝐷)})
865, 20, 23, 25, 41, 59, 85gsumpt 19956 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))‘(𝑥𝐷)))
87 fveq2 6893 . . . . . . . . 9 (𝑦 = (𝑥𝐷) → ((coe1𝐴)‘𝑦) = ((coe1𝐴)‘(𝑥𝐷)))
88 oveq2 7424 . . . . . . . . . 10 (𝑦 = (𝑥𝐷) → (𝑥𝑦) = (𝑥 − (𝑥𝐷)))
8988fveq2d 6897 . . . . . . . . 9 (𝑦 = (𝑥𝐷) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) = ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷))))
9087, 89oveq12d 7434 . . . . . . . 8 (𝑦 = (𝑥𝐷) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))))
91 eqid 2726 . . . . . . . 8 (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))) = (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))
92 ovex 7449 . . . . . . . 8 (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))) ∈ V
9390, 91, 92fvmpt 7001 . . . . . . 7 ((𝑥𝐷) ∈ (0...𝑥) → ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))‘(𝑥𝐷)) = (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))))
9441, 93syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))‘(𝑥𝐷)) = (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))))
9528nn0cnd 12580 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝑥 ∈ ℂ)
9627nn0cnd 12580 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐷 ∈ ℂ)
9795, 96nncand 11617 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑥 − (𝑥𝐷)) = 𝐷)
9897fveq2d 6897 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷))) = ((coe1‘(𝐶 · (𝐷 𝑋)))‘𝐷))
993adantr 479 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → 𝐶𝐾)
10020, 5, 6, 7, 8, 9, 10coe1tmfv1 22261 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐶𝐾𝐷 ∈ ℕ0) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘𝐷) = 𝐶)
10121, 99, 27, 100syl3anc 1368 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘𝐷) = 𝐶)
10298, 101eqtrd 2766 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷))) = 𝐶)
103102oveq2d 7432 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (((coe1𝐴)‘(𝑥𝐷)) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥 − (𝑥𝐷)))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶))
10486, 94, 1033eqtrd 2770 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ℕ0𝐷𝑥)) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶))
105104anassrs 466 . . . 4 (((𝜑𝑥 ∈ ℕ0) ∧ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (((coe1𝐴)‘(𝑥𝐷)) × 𝐶))
1061ad2antrr 724 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑅 ∈ Ring)
1073ad2antrr 724 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐶𝐾)
1084ad2antrr 724 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐷 ∈ ℕ0)
10954ad2antll 727 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) ∈ ℕ0)
11054nn0red 12579 . . . . . . . . . . . . 13 (𝑦 ∈ (0...𝑥) → (𝑥𝑦) ∈ ℝ)
111110ad2antll 727 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) ∈ ℝ)
11233ad2antlr 725 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑥 ∈ ℝ)
11335ad2antrr 724 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐷 ∈ ℝ)
11447ad2antll 727 . . . . . . . . . . . . . . 15 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑦 ∈ ℕ0)
115114nn0ge0d 12581 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 0 ≤ 𝑦)
11647nn0red 12579 . . . . . . . . . . . . . . . 16 (𝑦 ∈ (0...𝑥) → 𝑦 ∈ ℝ)
117116ad2antll 727 . . . . . . . . . . . . . . 15 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑦 ∈ ℝ)
118112, 117subge02d 11847 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (0 ≤ 𝑦 ↔ (𝑥𝑦) ≤ 𝑥))
119115, 118mpbid 231 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) ≤ 𝑥)
120 simprl 769 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → ¬ 𝐷𝑥)
121112, 113ltnled 11402 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥 < 𝐷 ↔ ¬ 𝐷𝑥))
122120, 121mpbird 256 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝑥 < 𝐷)
123111, 112, 113, 119, 122lelttrd 11413 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (𝑥𝑦) < 𝐷)
124111, 123gtned 11390 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → 𝐷 ≠ (𝑥𝑦))
12520, 5, 6, 7, 8, 9, 10, 106, 107, 108, 109, 124coe1tmfv2 22262 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)) = 0 )
126125oveq2d 7432 . . . . . . . . 9 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = (((coe1𝐴)‘𝑦) × 0 ))
12745ad2antrr 724 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (coe1𝐴):ℕ0𝐾)
128127, 114ffvelcdmd 7091 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → ((coe1𝐴)‘𝑦) ∈ 𝐾)
129106, 128, 81syl2anc 582 . . . . . . . . 9 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (((coe1𝐴)‘𝑦) × 0 ) = 0 )
130126, 129eqtrd 2766 . . . . . . . 8 (((𝜑𝑥 ∈ ℕ0) ∧ (¬ 𝐷𝑥𝑦 ∈ (0...𝑥))) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = 0 )
131130anassrs 466 . . . . . . 7 ((((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) ∧ 𝑦 ∈ (0...𝑥)) → (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))) = 0 )
132131mpteq2dva 5245 . . . . . 6 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))) = (𝑦 ∈ (0...𝑥) ↦ 0 ))
133132oveq2d 7432 . . . . 5 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )))
1341, 22syl 17 . . . . . . 7 (𝜑𝑅 ∈ Mnd)
13520gsumz 18821 . . . . . . 7 ((𝑅 ∈ Mnd ∧ (0...𝑥) ∈ V) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )) = 0 )
136134, 24, 135sylancl 584 . . . . . 6 (𝜑 → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )) = 0 )
137136ad2antrr 724 . . . . 5 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ 0 )) = 0 )
138133, 137eqtrd 2766 . . . 4 (((𝜑𝑥 ∈ ℕ0) ∧ ¬ 𝐷𝑥) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = 0 )
13918, 19, 105, 138ifbothda 4561 . . 3 ((𝜑𝑥 ∈ ℕ0) → (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦))))) = if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 ))
140139mpteq2dva 5245 . 2 (𝜑 → (𝑥 ∈ ℕ0 ↦ (𝑅 Σg (𝑦 ∈ (0...𝑥) ↦ (((coe1𝐴)‘𝑦) × ((coe1‘(𝐶 · (𝐷 𝑋)))‘(𝑥𝑦)))))) = (𝑥 ∈ ℕ0 ↦ if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
14117, 140eqtrd 2766 1 (𝜑 → (coe1‘(𝐴 (𝐶 · (𝐷 𝑋)))) = (𝑥 ∈ ℕ0 ↦ if(𝐷𝑥, (((coe1𝐴)‘(𝑥𝐷)) × 𝐶), 0 )))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 394   = wceq 1534  wcel 2099  wne 2930  Vcvv 3462  cdif 3943  ifcif 4523  {csn 4623   class class class wbr 5145  cmpt 5228  wf 6542  cfv 6546  (class class class)co 7416  cc 11147  cr 11148  0cc0 11149   < clt 11289  cle 11290  cmin 11485  0cn0 12518  ...cfz 13532  Basecbs 17208  .rcmulr 17262   ·𝑠 cvsca 17265  0gc0g 17449   Σg cgsu 17450  Mndcmnd 18722  .gcmg 19057  mulGrpcmgp 20113  Ringcrg 20212  var1cv1 22161  Poly1cpl1 22162  coe1cco1 22163
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2697  ax-rep 5282  ax-sep 5296  ax-nul 5303  ax-pow 5361  ax-pr 5425  ax-un 7738  ax-cnex 11205  ax-resscn 11206  ax-1cn 11207  ax-icn 11208  ax-addcl 11209  ax-addrcl 11210  ax-mulcl 11211  ax-mulrcl 11212  ax-mulcom 11213  ax-addass 11214  ax-mulass 11215  ax-distr 11216  ax-i2m1 11217  ax-1ne0 11218  ax-1rid 11219  ax-rnegex 11220  ax-rrecex 11221  ax-cnre 11222  ax-pre-lttri 11223  ax-pre-lttrn 11224  ax-pre-ltadd 11225  ax-pre-mulgt0 11226
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-nfc 2878  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3464  df-sbc 3776  df-csb 3892  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-pss 3966  df-nul 4323  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-tp 4628  df-op 4630  df-uni 4906  df-int 4947  df-iun 4995  df-iin 4996  df-br 5146  df-opab 5208  df-mpt 5229  df-tr 5263  df-id 5572  df-eprel 5578  df-po 5586  df-so 5587  df-fr 5629  df-se 5630  df-we 5631  df-xp 5680  df-rel 5681  df-cnv 5682  df-co 5683  df-dm 5684  df-rn 5685  df-res 5686  df-ima 5687  df-pred 6304  df-ord 6371  df-on 6372  df-lim 6373  df-suc 6374  df-iota 6498  df-fun 6548  df-fn 6549  df-f 6550  df-f1 6551  df-fo 6552  df-f1o 6553  df-fv 6554  df-isom 6555  df-riota 7372  df-ov 7419  df-oprab 7420  df-mpo 7421  df-of 7682  df-ofr 7683  df-om 7869  df-1st 7995  df-2nd 7996  df-supp 8167  df-frecs 8288  df-wrecs 8319  df-recs 8393  df-rdg 8432  df-1o 8488  df-2o 8489  df-er 8726  df-map 8849  df-pm 8850  df-ixp 8919  df-en 8967  df-dom 8968  df-sdom 8969  df-fin 8970  df-fsupp 9399  df-sup 9478  df-oi 9546  df-card 9975  df-pnf 11291  df-mnf 11292  df-xr 11293  df-ltxr 11294  df-le 11295  df-sub 11487  df-neg 11488  df-nn 12259  df-2 12321  df-3 12322  df-4 12323  df-5 12324  df-6 12325  df-7 12326  df-8 12327  df-9 12328  df-n0 12519  df-z 12605  df-dec 12724  df-uz 12869  df-fz 13533  df-fzo 13676  df-seq 14016  df-hash 14343  df-struct 17144  df-sets 17161  df-slot 17179  df-ndx 17191  df-base 17209  df-ress 17238  df-plusg 17274  df-mulr 17275  df-sca 17277  df-vsca 17278  df-ip 17279  df-tset 17280  df-ple 17281  df-ds 17283  df-hom 17285  df-cco 17286  df-0g 17451  df-gsum 17452  df-prds 17457  df-pws 17459  df-mre 17594  df-mrc 17595  df-acs 17597  df-mgm 18628  df-sgrp 18707  df-mnd 18723  df-mhm 18768  df-submnd 18769  df-grp 18926  df-minusg 18927  df-sbg 18928  df-mulg 19058  df-subg 19113  df-ghm 19203  df-cntz 19307  df-cmn 19776  df-abl 19777  df-mgp 20114  df-rng 20132  df-ur 20161  df-ring 20214  df-subrng 20524  df-subrg 20549  df-lmod 20834  df-lss 20905  df-psr 21902  df-mvr 21903  df-mpl 21904  df-opsr 21906  df-psr1 22165  df-vr1 22166  df-ply1 22167  df-coe1 22168
This theorem is referenced by:  coe1tmmul2fv  22265  coe1sclmul2  22271
  Copyright terms: Public domain W3C validator