Polynomial bounds for trigonometric functions #

THIS FILE IS SYNCHRONIZED WITH MATHLIB4. Any changes to this file require a corresponding PR to mathlib4.

Main statements #

This file contains upper and lower bounds for real trigonometric functions in terms of polynomials. See trigonometric.basic for more elementary inequalities, establishing the ranges of these functions, and their monotonicity in suitable intervals.

Here we prove the following:

sin_lt: for x > 0 we have sin x < x.
sin_gt_sub_cube: For 0 < x ≤ 1 we have x - x ^ 3 / 4 < sin x.
lt_tan: for 0 < x < π/2 we have x < tan x.
cos_le_one_div_sqrt_sq_add_one and cos_lt_one_div_sqrt_sq_add_one: for -3 * π / 2 ≤ x ≤ 3 * π / 2, we have cos x ≤ 1 / sqrt (x ^ 2 + 1), with strict inequality if x ≠ 0. (This bound is not quite optimal, but not far off)

Tags #

sin, cos, tan, angle

source

theorem real.sin_lt {x : ℝ} (h : 0 < x) :

real.sin x < x

For 0 < x, we have sin x < x.

source

theorem real.sin_gt_sub_cube {x : ℝ} (h : 0 < x) (h' : x ≤ 1) :

x - x ^ 3 / 4 < real.sin x

For 0 < x ≤ 1 we have x - x ^ 3 / 4 < sin x.

This is also true for x > 1, but it's nontrivial for x just above 1. This inequality is not tight; the tighter inequality is sin x > x - x ^ 3 / 6 for all x > 0, but this inequality has a simpler proof.

source

theorem real.deriv_tan_sub_id (x : ℝ) (h : real.cos x ≠ 0) :

deriv (λ (y : ℝ), real.tan y - y) x = 1 / real.cos x ^ 2 - 1

The derivative of tan x - x is 1/(cos x)^2 - 1 away from the zeroes of cos.

source

theorem real.lt_tan {x : ℝ} (h1 : 0 < x) (h2 : x < real.pi / 2) :

x < real.tan x

For all 0 < x < π/2 we have x < tan x.

This is proved by checking that the function tan x - x vanishes at zero and has non-negative derivative.

source

theorem real.le_tan {x : ℝ} (h1 : 0 ≤ x) (h2 : x < real.pi / 2) :

x ≤ real.tan x

source

theorem real.cos_lt_one_div_sqrt_sq_add_one {x : ℝ} (hx1 : -(3 * real.pi / 2) ≤ x) (hx2 : x ≤ 3 * real.pi / 2) (hx3 : x ≠ 0) :

real.cos x < 1 / √ (x ^ 2 + 1)

source

theorem real.cos_le_one_div_sqrt_sq_add_one {x : ℝ} (hx1 : -(3 * real.pi / 2) ≤ x) (hx2 : x ≤ 3 * real.pi / 2) :

real.cos x ≤ 1 / √ (x ^ 2 + 1)