Metamath Proof Explorer


Theorem plyn0mulidp

Description: Coefficients of a non-zero polynomial multiplied by the identity polynomial. (Contributed by Thierry Arnoux, 25-Sep-2018)

Ref Expression
Assertion plyn0mulidp ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → coeff ⁡ F × f X p = n ∈ ℕ 0 ⟼ if n = 0 0 coeff ⁡ F ⁡ n − 1

Proof

Step Hyp Ref Expression
1 eldifi ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → F ∈ Poly ⁡ ℝ
2 ax-resscn ⊢ ℝ ⊆ ℂ
3 1re ⊢ 1 ∈ ℝ
4 plyid ⊢ ℝ ⊆ ℂ ∧ 1 ∈ ℝ → X p ∈ Poly ⁡ ℝ
5 2 3 4 mp2an ⊢ X p ∈ Poly ⁡ ℝ
6 5 a1i ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → X p ∈ Poly ⁡ ℝ
7 simprl ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ x ∈ ℝ ∧ y ∈ ℝ → x ∈ ℝ
8 simprr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ x ∈ ℝ ∧ y ∈ ℝ → y ∈ ℝ
9 7 8 readdcld ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ x ∈ ℝ ∧ y ∈ ℝ → x + y ∈ ℝ
10 7 8 remulcld ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ x ∈ ℝ ∧ y ∈ ℝ → x ⁢ y ∈ ℝ
11 1 6 9 10 plymul ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → F × f X p ∈ Poly ⁡ ℝ
12 0re ⊢ 0 ∈ ℝ
13 eqid ⊢ coeff ⁡ F × f X p = coeff ⁡ F × f X p
14 13 coef2 ⊢ F × f X p ∈ Poly ⁡ ℝ ∧ 0 ∈ ℝ → coeff ⁡ F × f X p : ℕ 0 ⟶ ℝ
15 11 12 14 sylancl ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → coeff ⁡ F × f X p : ℕ 0 ⟶ ℝ
16 15 feqmptd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → coeff ⁡ F × f X p = n ∈ ℕ 0 ⟼ coeff ⁡ F × f X p ⁡ n
17 cnex ⊢ ℂ ∈ V
18 17 a1i ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → ℂ ∈ V
19 plyf ⊢ F ∈ Poly ⁡ ℝ → F : ℂ ⟶ ℂ
20 1 19 syl ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → F : ℂ ⟶ ℂ
21 plyf ⊢ X p ∈ Poly ⁡ ℝ → X p : ℂ ⟶ ℂ
22 5 21 ax-mp ⊢ X p : ℂ ⟶ ℂ
23 22 a1i ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → X p : ℂ ⟶ ℂ
24 simprl ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ x ∈ ℂ ∧ y ∈ ℂ → x ∈ ℂ
25 simprr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ x ∈ ℂ ∧ y ∈ ℂ → y ∈ ℂ
26 24 25 mulcomd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ x ∈ ℂ ∧ y ∈ ℂ → x ⁢ y = y ⁢ x
27 18 20 23 26 caofcom ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → F × f X p = X p × f F
28 27 fveq2d ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → coeff ⁡ F × f X p = coeff ⁡ X p × f F
29 28 fveq1d ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → coeff ⁡ F × f X p ⁡ n = coeff ⁡ X p × f F ⁡ n
30 29 adantr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → coeff ⁡ F × f X p ⁡ n = coeff ⁡ X p × f F ⁡ n
31 5 a1i ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → X p ∈ Poly ⁡ ℝ
32 1 adantr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → F ∈ Poly ⁡ ℝ
33 simpr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → n ∈ ℕ 0
34 eqid ⊢ coeff ⁡ X p = coeff ⁡ X p
35 eqid ⊢ coeff ⁡ F = coeff ⁡ F
36 34 35 coemul ⊢ X p ∈ Poly ⁡ ℝ ∧ F ∈ Poly ⁡ ℝ ∧ n ∈ ℕ 0 → coeff ⁡ X p × f F ⁡ n = ∑ i = 0 n coeff ⁡ X p ⁡ i ⁢ coeff ⁡ F ⁡ n − i
37 31 32 33 36 syl3anc ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → coeff ⁡ X p × f F ⁡ n = ∑ i = 0 n coeff ⁡ X p ⁡ i ⁢ coeff ⁡ F ⁡ n − i
38 elfznn0 ⊢ i ∈ 0 … n → i ∈ ℕ 0
39 coeidp ⊢ i ∈ ℕ 0 → coeff ⁡ X p ⁡ i = if i = 1 1 0
40 38 39 syl ⊢ i ∈ 0 … n → coeff ⁡ X p ⁡ i = if i = 1 1 0
41 40 oveq1d ⊢ i ∈ 0 … n → coeff ⁡ X p ⁡ i ⁢ coeff ⁡ F ⁡ n − i = if i = 1 1 0 ⁢ coeff ⁡ F ⁡ n − i
42 ovif ⊢ if i = 1 1 0 ⁢ coeff ⁡ F ⁡ n − i = if i = 1 1 ⁢ coeff ⁡ F ⁡ n − i 0 ⋅ coeff ⁡ F ⁡ n − i
43 41 42 eqtrdi ⊢ i ∈ 0 … n → coeff ⁡ X p ⁡ i ⁢ coeff ⁡ F ⁡ n − i = if i = 1 1 ⁢ coeff ⁡ F ⁡ n − i 0 ⋅ coeff ⁡ F ⁡ n − i
44 43 adantl ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ i ∈ 0 … n → coeff ⁡ X p ⁡ i ⁢ coeff ⁡ F ⁡ n − i = if i = 1 1 ⁢ coeff ⁡ F ⁡ n − i 0 ⋅ coeff ⁡ F ⁡ n − i
45 44 sumeq2dv ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → ∑ i = 0 n coeff ⁡ X p ⁡ i ⁢ coeff ⁡ F ⁡ n − i = ∑ i = 0 n if i = 1 1 ⁢ coeff ⁡ F ⁡ n − i 0 ⋅ coeff ⁡ F ⁡ n − i
46 velsn ⊢ i ∈ 1 ↔ i = 1
47 46 bicomi ⊢ i = 1 ↔ i ∈ 1
48 47 a1i ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ i ∈ 0 … n → i = 1 ↔ i ∈ 1
49 35 coef2 ⊢ F ∈ Poly ⁡ ℝ ∧ 0 ∈ ℝ → coeff ⁡ F : ℕ 0 ⟶ ℝ
50 1 12 49 sylancl ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → coeff ⁡ F : ℕ 0 ⟶ ℝ
51 50 ad2antrr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ i ∈ 0 … n → coeff ⁡ F : ℕ 0 ⟶ ℝ
52 fznn0sub ⊢ i ∈ 0 … n → n − i ∈ ℕ 0
53 52 adantl ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ i ∈ 0 … n → n − i ∈ ℕ 0
54 51 53 ffvelcdmd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ i ∈ 0 … n → coeff ⁡ F ⁡ n − i ∈ ℝ
55 54 recnd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ i ∈ 0 … n → coeff ⁡ F ⁡ n − i ∈ ℂ
56 55 mullidd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ i ∈ 0 … n → 1 ⁢ coeff ⁡ F ⁡ n − i = coeff ⁡ F ⁡ n − i
57 55 mul02d ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ i ∈ 0 … n → 0 ⋅ coeff ⁡ F ⁡ n − i = 0
58 48 56 57 ifbieq12d ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ i ∈ 0 … n → if i = 1 1 ⁢ coeff ⁡ F ⁡ n − i 0 ⋅ coeff ⁡ F ⁡ n − i = if i ∈ 1 coeff ⁡ F ⁡ n − i 0
59 58 sumeq2dv ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → ∑ i = 0 n if i = 1 1 ⁢ coeff ⁡ F ⁡ n − i 0 ⋅ coeff ⁡ F ⁡ n − i = ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0
60 eqeq2 ⊢ 0 = if n = 0 0 coeff ⁡ F ⁡ n − 1 → ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = 0 ↔ ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = if n = 0 0 coeff ⁡ F ⁡ n − 1
61 eqeq2 ⊢ coeff ⁡ F ⁡ n − 1 = if n = 0 0 coeff ⁡ F ⁡ n − 1 → ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = coeff ⁡ F ⁡ n − 1 ↔ ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = if n = 0 0 coeff ⁡ F ⁡ n − 1
62 oveq2 ⊢ n = 0 → 0 … n = 0 … 0
63 0z ⊢ 0 ∈ ℤ
64 fzsn ⊢ 0 ∈ ℤ → 0 … 0 = 0
65 63 64 ax-mp ⊢ 0 … 0 = 0
66 62 65 eqtrdi ⊢ n = 0 → 0 … n = 0
67 elsni ⊢ i ∈ 0 → i = 0
68 67 adantl ⊢ n = 0 ∧ i ∈ 0 → i = 0
69 ax-1ne0 ⊢ 1 ≠ 0
70 69 nesymi ⊢ ¬ 0 = 1
71 eqeq1 ⊢ i = 0 → i = 1 ↔ 0 = 1
72 70 71 mtbiri ⊢ i = 0 → ¬ i = 1
73 47 notbii ⊢ ¬ i = 1 ↔ ¬ i ∈ 1
74 73 biimpi ⊢ ¬ i = 1 → ¬ i ∈ 1
75 iffalse ⊢ ¬ i ∈ 1 → if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = 0
76 68 72 74 75 4syl ⊢ n = 0 ∧ i ∈ 0 → if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = 0
77 66 76 sumeq12rdv ⊢ n = 0 → ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = ∑ i ∈ 0 0
78 snfi ⊢ 0 ∈ Fin
79 78 olci ⊢ 0 ⊆ ℤ ≥ 0 ∨ 0 ∈ Fin
80 sumz ⊢ 0 ⊆ ℤ ≥ 0 ∨ 0 ∈ Fin → ∑ i ∈ 0 0 = 0
81 79 80 ax-mp ⊢ ∑ i ∈ 0 0 = 0
82 77 81 eqtrdi ⊢ n = 0 → ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = 0
83 82 adantl ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ n = 0 → ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = 0
84 simpll ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ ¬ n = 0 → F ∈ Poly ⁡ ℝ ∖ 0 𝑝
85 33 adantr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ ¬ n = 0 → n ∈ ℕ 0
86 simpr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ ¬ n = 0 → ¬ n = 0
87 86 neqned ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ ¬ n = 0 → n ≠ 0
88 elnnne0 ⊢ n ∈ ℕ ↔ n ∈ ℕ 0 ∧ n ≠ 0
89 85 87 88 sylanbrc ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ ¬ n = 0 → n ∈ ℕ
90 1nn0 ⊢ 1 ∈ ℕ 0
91 90 a1i ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → 1 ∈ ℕ 0
92 simpr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → n ∈ ℕ
93 92 nnnn0d ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → n ∈ ℕ 0
94 92 nnge1d ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → 1 ≤ n
95 elfz2nn0 ⊢ 1 ∈ 0 … n ↔ 1 ∈ ℕ 0 ∧ n ∈ ℕ 0 ∧ 1 ≤ n
96 91 93 94 95 syl3anbrc ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → 1 ∈ 0 … n
97 96 snssd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → 1 ⊆ 0 … n
98 50 ad2antrr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ ∧ i ∈ 1 → coeff ⁡ F : ℕ 0 ⟶ ℝ
99 oveq2 ⊢ i = 1 → n − i = n − 1
100 46 99 sylbi ⊢ i ∈ 1 → n − i = n − 1
101 100 adantl ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ ∧ i ∈ 1 → n − i = n − 1
102 nnm1nn0 ⊢ n ∈ ℕ → n − 1 ∈ ℕ 0
103 102 ad2antlr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ ∧ i ∈ 1 → n − 1 ∈ ℕ 0
104 101 103 eqeltrd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ ∧ i ∈ 1 → n − i ∈ ℕ 0
105 98 104 ffvelcdmd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ ∧ i ∈ 1 → coeff ⁡ F ⁡ n − i ∈ ℝ
106 105 recnd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ ∧ i ∈ 1 → coeff ⁡ F ⁡ n − i ∈ ℂ
107 106 ralrimiva ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → ∀ i ∈ 1 coeff ⁡ F ⁡ n − i ∈ ℂ
108 fzfi ⊢ 0 … n ∈ Fin
109 108 olci ⊢ 0 … n ⊆ ℤ ≥ 0 ∨ 0 … n ∈ Fin
110 109 a1i ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → 0 … n ⊆ ℤ ≥ 0 ∨ 0 … n ∈ Fin
111 sumss2 ⊢ 1 ⊆ 0 … n ∧ ∀ i ∈ 1 coeff ⁡ F ⁡ n − i ∈ ℂ ∧ 0 … n ⊆ ℤ ≥ 0 ∨ 0 … n ∈ Fin → ∑ i ∈ 1 coeff ⁡ F ⁡ n − i = ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0
112 97 107 110 111 syl21anc ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → ∑ i ∈ 1 coeff ⁡ F ⁡ n − i = ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0
113 50 adantr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → coeff ⁡ F : ℕ 0 ⟶ ℝ
114 102 adantl ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → n − 1 ∈ ℕ 0
115 113 114 ffvelcdmd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → coeff ⁡ F ⁡ n − 1 ∈ ℝ
116 115 recnd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → coeff ⁡ F ⁡ n − 1 ∈ ℂ
117 99 fveq2d ⊢ i = 1 → coeff ⁡ F ⁡ n − i = coeff ⁡ F ⁡ n − 1
118 117 sumsn ⊢ 1 ∈ ℝ ∧ coeff ⁡ F ⁡ n − 1 ∈ ℂ → ∑ i ∈ 1 coeff ⁡ F ⁡ n − i = coeff ⁡ F ⁡ n − 1
119 3 116 118 sylancr ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → ∑ i ∈ 1 coeff ⁡ F ⁡ n − i = coeff ⁡ F ⁡ n − 1
120 112 119 eqtr3d ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ → ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = coeff ⁡ F ⁡ n − 1
121 84 89 120 syl2anc ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 ∧ ¬ n = 0 → ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = coeff ⁡ F ⁡ n − 1
122 60 61 83 121 ifbothda ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → ∑ i = 0 n if i ∈ 1 coeff ⁡ F ⁡ n − i 0 = if n = 0 0 coeff ⁡ F ⁡ n − 1
123 59 122 eqtrd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → ∑ i = 0 n if i = 1 1 ⁢ coeff ⁡ F ⁡ n − i 0 ⋅ coeff ⁡ F ⁡ n − i = if n = 0 0 coeff ⁡ F ⁡ n − 1
124 37 45 123 3eqtrd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → coeff ⁡ X p × f F ⁡ n = if n = 0 0 coeff ⁡ F ⁡ n − 1
125 30 124 eqtrd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 ∧ n ∈ ℕ 0 → coeff ⁡ F × f X p ⁡ n = if n = 0 0 coeff ⁡ F ⁡ n − 1
126 125 mpteq2dva ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → n ∈ ℕ 0 ⟼ coeff ⁡ F × f X p ⁡ n = n ∈ ℕ 0 ⟼ if n = 0 0 coeff ⁡ F ⁡ n − 1
127 16 126 eqtrd ⊢ F ∈ Poly ⁡ ℝ ∖ 0 𝑝 → coeff ⁡ F × f X p = n ∈ ℕ 0 ⟼ if n = 0 0 coeff ⁡ F ⁡ n − 1