@@ -115,14 +115,14 @@ namespace Polynomial.Chebyshev
115115open Polynomial
116116open Real
117117
118- private theorem node_in_range {n j : ℕ} (hn : n ≠ 0 ) (hj : j ≤ n) :
118+ private lemma node_in_range {n j : ℕ} (hn : n ≠ 0 ) (hj : j ≤ n) :
119119 j * π / n ∈ Set.Icc 0 π := by
120120 constructor
121121 · positivity
122122 · calc j * π / n ≤ n * π / n := by gcongr
123123 _ = π := by rw [mul_div_assoc, mul_div_cancel₀]; convert hn; exact Nat.cast_eq_zero
124124
125- private theorem node_product_positive {n : ℕ} {i : ℕ} (hi : i ∈ Finset.Icc 0 n) :
125+ private lemma node_product_positive {n : ℕ} {i : ℕ} (hi : i ∈ Finset.Icc 0 n) :
126126 (-1 )^i * ∏ j ∈ (Finset.Icc 0 n).erase i, (cos (i * π / n) - cos (j * π / n)) > 0 := by
127127 by_cases n = 0
128128 case pos hn =>
@@ -178,7 +178,7 @@ private theorem node_product_positive {n : ℕ} {i : ℕ} (hi : i ∈ Finset.Icc
178178 replace hj₂ := Finset.mem_Ioc.mp hj₂
179179 linarith
180180
181- private theorem convex_combination {n : ℕ} (hn : n ≠ 0 )
181+ private lemma convex_combination {n : ℕ} (hn : n ≠ 0 )
182182 {P : ℝ[X]} (hP : P.degree = n) :
183183 ∃ (c : ℕ → ℝ),
184184 (∀ i ∈ Finset.Icc 0 n, 0 < c i) ∧
@@ -227,7 +227,7 @@ theorem bddAbove_poly_interval (P : ℝ[X]) :
227227 change BddAbove ((fun x => abs (P.eval x)) '' Set.Icc (-1 ) 1 )
228228 exact IsCompact.bddAbove_image hK hcont
229229
230- private theorem pointwise_bound (P : ℝ[X]) (n i : ℕ) :
230+ private lemma pointwise_bound (P : ℝ[X]) (n i : ℕ) :
231231 (-1 )^i * P.eval (cos (i * π / n)) ≤ sSup { abs (P.eval x) | x ∈ Set.Icc (-1 ) 1 } := by
232232 suffices abs (P.eval (cos (i * π / n))) ≤ sSup { abs (P.eval x) | x ∈ Set.Icc (-1 ) 1 } by
233233 cases neg_one_pow_eq_or ℝ i with
0 commit comments