Integration of specific interval integrals

This file contains proofs of the integrals of various specific functions. This includes:

• Integrals of simple functions, such as id, pow, inv, exp, log
• Integrals of some trigonometric functions, such as sin, cos, 1 / (1 + x^2)
• The integral of cos x ^ 2 - sin x ^ 2
• Reduction formulae for the integrals of sin x ^ n and cos x ^ n for n ≥ 2
• The computation of ∫ x in 0..π, sin x ^ n as a product for even and odd n (used in proving the Wallis product for pi)
• Integrals of the form sin x ^ m * cos x ^ n

With these lemmas, many simple integrals can be computed by simp or norm_num.

This file is still being developed.

Tags

integrate, integration, integrable

Integrals of the form c * ∫ x in a..b, f (c * x + d)

@[simp]

theorem intervalIntegral.mul_integral_comp_mul_right {a b : ℝ} {f : ℝ → ℝ} (c : ℝ) : c * ∫ (x : ℝ) in a..b, f (x * c) = ∫ (x : ℝ) in a * c..b * c, f x

@[simp]

theorem intervalIntegral.mul_integral_comp_mul_left {a b : ℝ} {f : ℝ → ℝ} (c : ℝ) : c * ∫ (x : ℝ) in a..b, f (c * x) = ∫ (x : ℝ) in c * a..c * b, f x

@[simp]

theorem intervalIntegral.inv_mul_integral_comp_div {a b : ℝ} {f : ℝ → ℝ} (c : ℝ) : c⁻¹ * ∫ (x : ℝ) in a..b, f (x / c) = ∫ (x : ℝ) in a / c..b / c, f x

@[simp]

theorem intervalIntegral.mul_integral_comp_mul_add {a b : ℝ} {f : ℝ → ℝ} (c d : ℝ) : c * ∫ (x : ℝ) in a..b, f (c * x + d) = ∫ (x : ℝ) in c * a + d..c * b + d, f x

@[simp]

theorem intervalIntegral.mul_integral_comp_add_mul {a b : ℝ} {f : ℝ → ℝ} (c d : ℝ) : c * ∫ (x : ℝ) in a..b, f (d + c * x) = ∫ (x : ℝ) in d + c * a..d + c * b, f x

@[simp]

theorem intervalIntegral.inv_mul_integral_comp_div_add {a b : ℝ} {f : ℝ → ℝ} (c d : ℝ) : c⁻¹ * ∫ (x : ℝ) in a..b, f (x / c + d) = ∫ (x : ℝ) in a / c + d..b / c + d, f x

@[simp]

theorem intervalIntegral.inv_mul_integral_comp_add_div {a b : ℝ} {f : ℝ → ℝ} (c d : ℝ) : c⁻¹ * ∫ (x : ℝ) in a..b, f (d + x / c) = ∫ (x : ℝ) in d + a / c..d + b / c, f x

@[simp]

theorem intervalIntegral.mul_integral_comp_mul_sub {a b : ℝ} {f : ℝ → ℝ} (c d : ℝ) : c * ∫ (x : ℝ) in a..b, f (c * x - d) = ∫ (x : ℝ) in c * a - d..c * b - d, f x

@[simp]

theorem intervalIntegral.mul_integral_comp_sub_mul {a b : ℝ} {f : ℝ → ℝ} (c d : ℝ) : c * ∫ (x : ℝ) in a..b, f (d - c * x) = ∫ (x : ℝ) in d - c * b..d - c * a, f x

@[simp]

theorem intervalIntegral.inv_mul_integral_comp_div_sub {a b : ℝ} {f : ℝ → ℝ} (c d : ℝ) : c⁻¹ * ∫ (x : ℝ) in a..b, f (x / c - d) = ∫ (x : ℝ) in a / c - d..b / c - d, f x

@[simp]

theorem intervalIntegral.inv_mul_integral_comp_sub_div {a b : ℝ} {f : ℝ → ℝ} (c d : ℝ) : c⁻¹ * ∫ (x : ℝ) in a..b, f (d - x / c) = ∫ (x : ℝ) in d - b / c..d - a / c, f x

Integrals of simple functions

theorem integral_cpow {a b : ℝ} {r : ℂ} (h : -1 < r.re ∨ r ≠ -1 ∧ 0 ∉ Set.uIcc a b) : ∫ (x : ℝ) in a..b, ↑x ^ r = (↑b ^ (r + 1) - ↑a ^ (r + 1)) / (r + 1)

theorem integral_rpow {a b r : ℝ} (h : -1 < r ∨ r ≠ -1 ∧ 0 ∉ Set.uIcc a b) : ∫ (x : ℝ) in a..b, x ^ r = (b ^ (r + 1) - a ^ (r + 1)) / (r + 1)

theorem integral_zpow {a b : ℝ} {n : ℤ} (h : 0 ≤ n ∨ n ≠ -1 ∧ 0 ∉ Set.uIcc a b) : ∫ (x : ℝ) in a..b, x ^ n = (b ^ (n + 1) - a ^ (n + 1)) / (↑n + 1)

@[simp]

theorem integral_pow {a b : ℝ} (n : ℕ) : ∫ (x : ℝ) in a..b, x ^ n = (b ^ (n + 1) - a ^ (n + 1)) / (↑n + 1)

theorem integral_pow_abs_sub_uIoc {a b : ℝ} (n : ℕ) : ∫ (x : ℝ) in Set.uIoc a b, |x - a| ^ n = |b - a| ^ (n + 1) / (↑n + 1)

Integral of |x - a| ^ n over Ι a b. This integral appears in the proof of the Picard-Lindelöf/Cauchy-Lipschitz theorem.

@[simp]

theorem integral_id {a b : ℝ} : ∫ (x : ℝ) in a..b, x = (b ^ 2 - a ^ 2) / 2

theorem integral_one {a b : ℝ} : ∫ (x : ℝ) in a..b, 1 = b - a

theorem integral_const_on_unit_interval {a b : ℝ} : ∫ (x : ℝ) in a..a + 1, b = b

@[simp]

theorem integral_inv {a b : ℝ} (h : 0 ∉ Set.uIcc a b) : ∫ (x : ℝ) in a..b, x⁻¹ = Real.log (b / a)

@[simp]

theorem integral_inv_of_pos {a b : ℝ} (ha : 0 < a) (hb : 0 < b) : ∫ (x : ℝ) in a..b, x⁻¹ = Real.log (b / a)

@[simp]

theorem integral_inv_of_neg {a b : ℝ} (ha : a < 0) (hb : b < 0) : ∫ (x : ℝ) in a..b, x⁻¹ = Real.log (b / a)

theorem integral_one_div {a b : ℝ} (h : 0 ∉ Set.uIcc a b) : ∫ (x : ℝ) in a..b, 1 / x = Real.log (b / a)

theorem integral_one_div_of_pos {a b : ℝ} (ha : 0 < a) (hb : 0 < b) : ∫ (x : ℝ) in a..b, 1 / x = Real.log (b / a)

theorem integral_one_div_of_neg {a b : ℝ} (ha : a < 0) (hb : b < 0) : ∫ (x : ℝ) in a..b, 1 / x = Real.log (b / a)

@[simp]

theorem integral_exp {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.exp x = Real.exp b - Real.exp a

theorem integral_exp_mul_complex {a b : ℝ} {c : ℂ} (hc : c ≠ 0) : ∫ (x : ℝ) in a..b, Complex.exp (c * ↑x) = (Complex.exp (c * ↑b) - Complex.exp (c * ↑a)) / c

theorem integral_exp_mul_I_eq_sin (r : ℝ) : ∫ (t : ℝ) in -r..r, Complex.exp (↑t * Complex.I) = 2 * ↑(Real.sin r)

theorem integral_exp_mul_I_eq_sinc (r : ℝ) : ∫ (t : ℝ) in -r..r, Complex.exp (↑t * Complex.I) = 2 * ↑r * ↑(Real.sinc r)

theorem integral_log_from_zero_of_pos {b : ℝ} (ht : 0 < b) : ∫ (s : ℝ) in 0..b, Real.log s = b * Real.log b - b

Helper lemma for integral_log: case where a = 0 and b is positive.

theorem integral_log_from_zero {b : ℝ} : ∫ (s : ℝ) in 0..b, Real.log s = b * Real.log b - b

Helper lemma for integral_log: case where a = 0.

@[simp]

theorem integral_log {a b : ℝ} : ∫ (s : ℝ) in a..b, Real.log s = b * Real.log b - a * Real.log a - b + a

@[simp]

theorem integral_sin {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.sin x = Real.cos a - Real.cos b

@[simp]

theorem integral_cos {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.cos x = Real.sin b - Real.sin a

theorem integral_cos_mul_complex {z : ℂ} (hz : z ≠ 0) (a b : ℝ) : ∫ (x : ℝ) in a..b, Complex.cos (z * ↑x) = Complex.sin (z * ↑b) / z - Complex.sin (z * ↑a) / z

theorem integral_cos_sq_sub_sin_sq {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.cos x ^ 2 - Real.sin x ^ 2 = Real.sin b * Real.cos b - Real.sin a * Real.cos a

theorem integral_one_div_one_add_sq {a b : ℝ} : ∫ (x : ℝ) in a..b, 1 / (1 + x ^ 2) = Real.arctan b - Real.arctan a

@[simp]

theorem integral_inv_one_add_sq {a b : ℝ} : ∫ (x : ℝ) in a..b, (1 + x ^ 2)⁻¹ = Real.arctan b - Real.arctan a

@[simp]

theorem integral_inv_sq_add_sq {a b c : ℝ} (hc : c ≠ 0) : ∫ (x : ℝ) in a..b, (c ^ 2 + x ^ 2)⁻¹ = c⁻¹ * (Real.arctan (b / c) - Real.arctan (a / c))

theorem integral_div_sq_add_sq {a b c : ℝ} : ∫ (x : ℝ) in a..b, c / (c ^ 2 + x ^ 2) = Real.arctan (b / c) - Real.arctan (a / c)

theorem integral_mul_cpow_one_add_sq {a b : ℝ} {t : ℂ} (ht : t ≠ -1) : ∫ (x : ℝ) in a..b, ↑x * (1 + ↑x ^ 2) ^ t = (1 + ↑b ^ 2) ^ (t + 1) / (2 * (t + 1)) - (1 + ↑a ^ 2) ^ (t + 1) / (2 * (t + 1))

theorem integral_mul_rpow_one_add_sq {a b t : ℝ} (ht : t ≠ -1) : ∫ (x : ℝ) in a..b, x * (1 + x ^ 2) ^ t = (1 + b ^ 2) ^ (t + 1) / (2 * (t + 1)) - (1 + a ^ 2) ^ (t + 1) / (2 * (t + 1))

Integral of sin x ^ n

theorem integral_sin_pow_aux {a b : ℝ} (n : ℕ) : ∫ (x : ℝ) in a..b, Real.sin x ^ (n + 2) = (Real.sin a ^ (n + 1) * Real.cos a - Real.sin b ^ (n + 1) * Real.cos b + (↑n + 1) * ∫ (x : ℝ) in a..b, Real.sin x ^ n) - (↑n + 1) * ∫ (x : ℝ) in a..b, Real.sin x ^ (n + 2)

theorem integral_sin_pow {a b : ℝ} (n : ℕ) : ∫ (x : ℝ) in a..b, Real.sin x ^ (n + 2) = (Real.sin a ^ (n + 1) * Real.cos a - Real.sin b ^ (n + 1) * Real.cos b) / (↑n + 2) + (↑n + 1) / (↑n + 2) * ∫ (x : ℝ) in a..b, Real.sin x ^ n

The reduction formula for the integral of sin x ^ n for any natural n ≥ 2.

@[simp]

theorem integral_sin_sq {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.sin x ^ 2 = (Real.sin a * Real.cos a - Real.sin b * Real.cos b + b - a) / 2

theorem integral_sin_pow_odd (n : ℕ) : ∫ (x : ℝ) in 0..Real.pi, Real.sin x ^ (2 * n + 1) = 2 * ∏ i ∈ Finset.range n, (2 * ↑i + 2) / (2 * ↑i + 3)

theorem integral_sin_pow_even (n : ℕ) : ∫ (x : ℝ) in 0..Real.pi, Real.sin x ^ (2 * n) = Real.pi * ∏ i ∈ Finset.range n, (2 * ↑i + 1) / (2 * ↑i + 2)

theorem integral_sin_pow_pos (n : ℕ) : 0 < ∫ (x : ℝ) in 0..Real.pi, Real.sin x ^ n

theorem integral_sin_pow_succ_le (n : ℕ) : ∫ (x : ℝ) in 0..Real.pi, Real.sin x ^ (n + 1) ≤ ∫ (x : ℝ) in 0..Real.pi, Real.sin x ^ n

theorem integral_sin_pow_antitone : Antitone fun (n : ℕ) => ∫ (x : ℝ) in 0..Real.pi, Real.sin x ^ n

Integral of cos x ^ n

theorem integral_cos_pow_aux {a b : ℝ} (n : ℕ) : ∫ (x : ℝ) in a..b, Real.cos x ^ (n + 2) = (Real.cos b ^ (n + 1) * Real.sin b - Real.cos a ^ (n + 1) * Real.sin a + (↑n + 1) * ∫ (x : ℝ) in a..b, Real.cos x ^ n) - (↑n + 1) * ∫ (x : ℝ) in a..b, Real.cos x ^ (n + 2)

theorem integral_cos_pow {a b : ℝ} (n : ℕ) : ∫ (x : ℝ) in a..b, Real.cos x ^ (n + 2) = (Real.cos b ^ (n + 1) * Real.sin b - Real.cos a ^ (n + 1) * Real.sin a) / (↑n + 2) + (↑n + 1) / (↑n + 2) * ∫ (x : ℝ) in a..b, Real.cos x ^ n

The reduction formula for the integral of cos x ^ n for any natural n ≥ 2.

@[simp]

theorem integral_cos_sq {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.cos x ^ 2 = (Real.cos b * Real.sin b - Real.cos a * Real.sin a + b - a) / 2

Integral of sin x ^ m * cos x ^ n

theorem integral_sin_pow_mul_cos_pow_odd {a b : ℝ} (m n : ℕ) : ∫ (x : ℝ) in a..b, Real.sin x ^ m * Real.cos x ^ (2 * n + 1) = ∫ (u : ℝ) in Real.sin a..Real.sin b, u ^ m * (1 - u ^ 2) ^ n

Simplification of the integral of sin x ^ m * cos x ^ n, case n is odd.

@[simp]

theorem integral_sin_mul_cos₁ {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.sin x * Real.cos x = (Real.sin b ^ 2 - Real.sin a ^ 2) / 2

The integral of sin x * cos x, given in terms of sin². See integral_sin_mul_cos₂ below for the integral given in terms of cos².

@[simp]

theorem integral_sin_sq_mul_cos {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.sin x ^ 2 * Real.cos x = (Real.sin b ^ 3 - Real.sin a ^ 3) / 3

@[simp]

theorem integral_cos_pow_three {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.cos x ^ 3 = Real.sin b - Real.sin a - (Real.sin b ^ 3 - Real.sin a ^ 3) / 3

theorem integral_sin_pow_odd_mul_cos_pow {a b : ℝ} (m n : ℕ) : ∫ (x : ℝ) in a..b, Real.sin x ^ (2 * m + 1) * Real.cos x ^ n = ∫ (u : ℝ) in Real.cos b..Real.cos a, u ^ n * (1 - u ^ 2) ^ m

Simplification of the integral of sin x ^ m * cos x ^ n, case m is odd.

theorem integral_sin_mul_cos₂ {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.sin x * Real.cos x = (Real.cos a ^ 2 - Real.cos b ^ 2) / 2

The integral of sin x * cos x, given in terms of cos². See integral_sin_mul_cos₁ above for the integral given in terms of sin².

@[simp]

theorem integral_sin_mul_cos_sq {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.sin x * Real.cos x ^ 2 = (Real.cos a ^ 3 - Real.cos b ^ 3) / 3

@[simp]

theorem integral_sin_pow_three {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.sin x ^ 3 = Real.cos a - Real.cos b - (Real.cos a ^ 3 - Real.cos b ^ 3) / 3

theorem integral_sin_pow_even_mul_cos_pow_even {a b : ℝ} (m n : ℕ) : ∫ (x : ℝ) in a..b, Real.sin x ^ (2 * m) * Real.cos x ^ (2 * n) = ∫ (x : ℝ) in a..b, ((1 - Real.cos (2 * x)) / 2) ^ m * ((1 + Real.cos (2 * x)) / 2) ^ n

Simplification of the integral of sin x ^ m * cos x ^ n, case m and n are both even.

@[simp]

theorem integral_sin_sq_mul_cos_sq {a b : ℝ} : ∫ (x : ℝ) in a..b, Real.sin x ^ 2 * Real.cos x ^ 2 = (b - a) / 8 - (Real.sin (4 * b) - Real.sin (4 * a)) / 32

Integral of miscellaneous functions

theorem integral_sqrt_one_sub_sq : ∫ (x : ℝ) in -1..1, √(1 - x ^ 2) = Real.pi / 2