Theorem: intervalIntegral.continuousOn_primitive
File: Mathlib/MeasureTheory/Integral/IntervalIntegral.lean

tactic: by_cases h : a ≤ b
state_before: ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
⊢ ContinuousOn (fun x => ∫ (t : ℝ) in Ioc a x, f t ∂μ) (Icc a b)

tactic: have : ∀ x ∈ Icc a b, (∫ t in Ioc a x, f t ∂μ) = ∫ t in a..x, f t ∂μ := by
  intro x x_in
  simp_rw [← uIoc_of_le h, integral_of_le x_in.1]
state_before: case pos
ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
h : a ≤ b
⊢ ContinuousOn (fun x => ∫ (t : ℝ) in Ioc a x, f t ∂μ) (Icc a b)

tactic: rw [continuousOn_congr this]
state_before: case pos
ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
h : a ≤ b
this : ∀ (x : ℝ), x ∈ Icc a b → (∫ (t : ℝ) in Ioc a x, f t ∂μ) = ∫ (t : ℝ) in a..x, f t ∂μ
⊢ ContinuousOn (fun x => ∫ (t : ℝ) in Ioc a x, f t ∂μ) (Icc a b)

tactic: intro x₀ _
state_before: case pos
ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
h : a ≤ b
this : ∀ (x : ℝ), x ∈ Icc a b → (∫ (t : ℝ) in Ioc a x, f t ∂μ) = ∫ (t : ℝ) in a..x, f t ∂μ
⊢ ContinuousOn (fun x => ∫ (t : ℝ) in a..x, f t ∂μ) (Icc a b)

tactic: refine' continuousWithinAt_primitive (measure_singleton x₀) _
state_before: case pos
ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
h : a ≤ b
this : ∀ (x : ℝ), x ∈ Icc a b → (∫ (t : ℝ) in Ioc a x, f t ∂μ) = ∫ (t : ℝ) in a..x, f t ∂μ
x₀ : ℝ
a✝ : x₀ ∈ Icc a b
⊢ ContinuousWithinAt (fun x => ∫ (t : ℝ) in a..x, f t ∂μ) (Icc a b) x₀

tactic: simp only [intervalIntegrable_iff_integrable_Ioc_of_le, min_eq_left, max_eq_right, h, min_self]
state_before: case pos
ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
h : a ≤ b
this : ∀ (x : ℝ), x ∈ Icc a b → (∫ (t : ℝ) in Ioc a x, f t ∂μ) = ∫ (t : ℝ) in a..x, f t ∂μ
x₀ : ℝ
a✝ : x₀ ∈ Icc a b
⊢ IntervalIntegrable (fun t => f t) μ (min a a) (max a b)

tactic: exact h_int.mono Ioc_subset_Icc_self le_rfl
state_before: case pos
ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
h : a ≤ b
this : ∀ (x : ℝ), x ∈ Icc a b → (∫ (t : ℝ) in Ioc a x, f t ∂μ) = ∫ (t : ℝ) in a..x, f t ∂μ
x₀ : ℝ
a✝ : x₀ ∈ Icc a b
⊢ IntegrableOn (fun t => f t) (Ioc a b)

tactic: intro x x_in
state_before: ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
h : a ≤ b
⊢ ∀ (x : ℝ), x ∈ Icc a b → (∫ (t : ℝ) in Ioc a x, f t ∂μ) = ∫ (t : ℝ) in a..x, f t ∂μ

tactic: simp_rw [← uIoc_of_le h, integral_of_le x_in.1]
state_before: ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
h : a ≤ b
x : ℝ
x_in : x ∈ Icc a b
⊢ (∫ (t : ℝ) in Ioc a x, f t ∂μ) = ∫ (t : ℝ) in a..x, f t ∂μ

tactic: rw [Icc_eq_empty h]
state_before: case neg
ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
h : ¬a ≤ b
⊢ ContinuousOn (fun x => ∫ (t : ℝ) in Ioc a x, f t ∂μ) (Icc a b)

tactic: exact continuousOn_empty _
state_before: case neg
ι : Type ?u.18234336
𝕜 : Type ?u.18234339
E : Type u_1
F : Type ?u.18234345
A : Type ?u.18234348
inst✝³ : NormedAddCommGroup E
inst✝² : CompleteSpace E
inst✝¹ : NormedSpace ℝ E
a b b₀ b₁ b₂ : ℝ
μ : MeasureTheory.Measure ℝ
f g : ℝ → E
inst✝ : NoAtoms μ
h_int : IntegrableOn f (Icc a b)
h : ¬a ≤ b
⊢ ContinuousOn (fun x => ∫ (t : ℝ) in Ioc a x, f t ∂μ) ∅