Skip to content

Commit

Permalink
Merge remote-tracking branch 'upstream/master' into LL/small
Browse files Browse the repository at this point in the history
  • Loading branch information
LorenzoLuccioli committed Aug 7, 2024
2 parents 83668a2 + 2685c64 commit 9648ab1
Show file tree
Hide file tree
Showing 11 changed files with 55 additions and 29 deletions.
18 changes: 13 additions & 5 deletions TestingLowerBounds/ForMathlib/ByParts.lean
Original file line number Diff line number Diff line change
Expand Up @@ -5,16 +5,24 @@ Here there is the statement of a version of the integration by parts theorem for
This is a generalization of the integration by parts theorem for the Riemann integral. We state it only for the case of Stieltjes functions, that is right continuous and non decreasing, this is because in that case the functions naturally gives rise to a measure. It may be generalized to the more general case with signed measures, but it is necessary to pinpoint the right conditions for that case and it may be necessary to write the definition of the signed measure that arises from a function (I don't know the exact hp for the function, maybe bounded variation?).
For now I am only stating the theorem and I'm leaving the proof for later.
Some references for potential candidates for the proof are:
http://mathonline.wikidot.com/the-formula-for-integration-by-parts-of-riemann-stieltjes-in
Mathematical analysis, Tom M. Apostol, 5th edition theorem 7.6, page 144 (seems similar to the previous link, in the link it is a bit longer, but maybe it's just that it has more details)
The integrals of Lebesgue, Denjoy, Perron, and Henstock, theorem 12.14
http://mathonline.wikidot.com/the-formula-for-integration-by-parts-of-riemann-stieltjes-in [1]
Mathematical analysis, Tom M. Apostol, 5th edition [2] theorem 7.6, page 144 (seems similar to the previous link, in the link it is a bit longer, but maybe it's just that it has more details)
The integrals of Lebesgue, Denjoy, Perron, and Henstock [3], theorem 12.14
See also https://math.ryerson.ca/~niushan/Stieltjes-integrals.pdf for some facts about Riemann-Stieltjes and Lebesgue integrals.
See also https://math.ryerson.ca/~niushan/Stieltjes-integrals.pdf [4] and Measure and Integration [5], Wheeden and Zygmund, for some facts about Riemann-Stieltjes and Lebesgue integrals.
Here I am stating the results in terms of interval integrals, since it is what I need and the RS integral is equal to the Lebesgue one if one of the functions is increasing and right continuous and the other is bounded and measurable (see 4.1 in the previous link).
To prove the general result it may be better to develop a theory of the Riemann-Stieltjes integral in mathlib and then prove the results for that integral and translate them for the lebesgue integral when possible.
To be sure that the result is correct:
Our integral is the same as the Lebesgue-Stieltjes integral defined in chapter 11.3 of [5], theorem 11.11 in [4] assures us that this integral corresponds to the Riemann-Stieltjes one in the case of a monotone right-continuous function and a bounded Borel-measurable one, if the Riemann-Stieltjes integral exists.
Then theorem 4.7 in [2] says that for `f α : ℝ → ℝ` such that `f` is Rieman-Stieltjes integrable with respect to `α` on `[a, b]` then `α` is Riemann-Stieltjes integrable with respect to `f` on `[a, b]` and `∫ x in a..b, f x ∂α + ∫ x in a..b, α x ∂f = f b * α b - f a * α a `.
Moreover theorem 7.27 of [2] says that if `f` is continuous on `[a, b]` and `α` is of bounded variation on `[a, b]` then `f` is Riemann-Stieltjes integrable with respect to `α` on `[a, b]`, the same is true if `f` is of bounded variation and `α` is continuous.
In our case both functions are Stieltjes functions, hence they are of bounded variation, bounded on finite intervals and Borel measurable. However we also need to ask for one of the functions to be continuous, otherwise the Riemann-Stieltjes integral may not be true, for example if `f` and `α` have a common point of left discontinuity (see theorem 7.29 in [2]).
-/
-- #check intervalIntegral.integral_deriv_mul_eq_sub_of_hasDeriv_right --one of the versions of the integration by parts that is currently in mathlib.

lemma integral_stieltjes_meas_by_parts (f g : StieltjesFunction) (a b : ℝ) :
lemma integral_stieltjes_meas_by_parts (f g : StieltjesFunction) (a b : ℝ)
(hf : ContinuousOn f (Set.Icc a b)) :
∫ x in a..b, f x ∂g.measure = (f b) * (g b) - (f a) * (g a) - ∫ x in a..b, g x ∂f.measure := by
sorry
21 changes: 12 additions & 9 deletions TestingLowerBounds/ForMathlib/CountableOrCountablyGenerated.lean
Original file line number Diff line number Diff line change
Expand Up @@ -4,17 +4,24 @@ namespace MeasurableSpace

variable {α β γ : Type*} [MeasurableSpace α] [MeasurableSpace β] [MeasurableSpace γ]


-- PRed, see #15418
lemma countable_left_of_prod_of_nonempty [Nonempty β] (h : Countable (α × β)) : Countable α := by
contrapose h
rw [not_countable_iff] at *
infer_instance

-- PRed, see #15418
lemma countable_right_of_prod_of_nonempty [Nonempty α] (h : Countable (α × β)) : Countable β := by
contrapose h
rw [not_countable_iff] at *
infer_instance

-- PRed, see #15418
instance [hα : CountableOrCountablyGenerated α γ] [hβ : CountableOrCountablyGenerated β γ] :
CountableOrCountablyGenerated (α × β) γ := by
rcases hα with (hα | hα) <;> rcases hβ with (hβ | hβ) <;> infer_instance

-- PRed, see #15418
lemma countableOrCountablyGenerated_left_of_prod_left_of_nonempty [Nonempty β]
[h : CountableOrCountablyGenerated (α × β) γ] :
CountableOrCountablyGenerated α γ := by
Expand All @@ -23,6 +30,7 @@ lemma countableOrCountablyGenerated_left_of_prod_left_of_nonempty [Nonempty β]
infer_instance
· infer_instance

-- PRed, see #15418
lemma countableOrCountablyGenerated_right_of_prod_left_of_nonempty [Nonempty α]
[h : CountableOrCountablyGenerated (α × β) γ] :
CountableOrCountablyGenerated β γ := by
Expand Down Expand Up @@ -61,9 +69,10 @@ lemma countableOrCountablyGenerated_left_of_prod_right_of_nonempty [Nonempty γ]
· have := countablyGenerated_left_of_prod_of_nonempty h
infer_instance

instance [Countable (α × β)] : Countable (β × α) :=
Countable.of_equiv _ (Equiv.prodComm α β)
-- PRed, see #15418
instance [Countable (α × β)] : Countable (β × α) := Countable.of_equiv _ (Equiv.prodComm α β)

-- PRed, see #15418
instance [h : CountableOrCountablyGenerated (α × β) γ] :
CountableOrCountablyGenerated (β × α) γ := by
rcases h with (h | h)
Expand All @@ -74,10 +83,4 @@ instance [h : CountableOrCountablyGenerated (α × β) γ] :
instance [CountablyGenerated (α × β)] : CountablyGenerated (β × α) := by
sorry

instance [h : CountableOrCountablyGenerated (α × β) γ] :
CountableOrCountablyGenerated (β × α) γ := by
rcases h with (h | h)
· exact ⟨Or.inl inferInstance⟩
· exact ⟨Or.inr h⟩

end MeasurableSpace
2 changes: 1 addition & 1 deletion TestingLowerBounds/ForMathlib/Indicator.lean
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@ variable {α M : Type*} [Preorder M] [One M] {s : Set α} {f g : α → M} {a :

namespace Set

--PR this to mathlib, just before `Set.mulIndicator_le_mulIndicator`.
--PRed, see #15437
@[to_additive]
lemma mulIndicator_le_mulIndicator' (h : a ∈ s → f a ≤ g a) :
mulIndicator s f a ≤ mulIndicator s g a :=
Expand Down
15 changes: 9 additions & 6 deletions TestingLowerBounds/ForMathlib/Integrable_of_empty.lean
Original file line number Diff line number Diff line change
Expand Up @@ -2,26 +2,29 @@ import Mathlib.MeasureTheory.Integral.Bochner

open Filter

--TODO: put this in mathlib, maybe just after:
-- #check Integrable.of_finite

namespace MeasureTheory

--PRed, see #15459
lemma Integrable.of_isEmpty {α β : Type*} [MeasurableSpace α] [NormedAddCommGroup β]
[IsEmpty α] (f : α → β) (μ : Measure α) : Integrable f μ := Integrable.of_finite μ f

--PRed, see #15459
@[simp]
lemma Integrable.of_isEmpty_codomain {α β : Type*} [MeasurableSpace α] [NormedAddCommGroup β]
[IsEmpty β] (f : α → β) (μ : Measure α) : Integrable f μ :=
have : IsEmpty α := f.isEmpty
Integrable.of_isEmpty f μ

--TODO: put this in mathlib, maybe just after:
-- #check integral_eq_zero_of_ae

--PRed, see #15459
@[simp]
lemma integral_of_isEmpty {α β : Type*} [MeasurableSpace α] [NormedAddCommGroup β]
[NormedSpace ℝ β] [IsEmpty α] (f : α → β) (μ : Measure α) : ∫ x, f x ∂μ = 0 :=
integral_eq_zero_of_ae <| eventually_of_forall (IsEmpty.forall_iff.mpr True.intro)

--PRed, see #15459
@[simp]
lemma integral_of_isEmpty_codomain {α β : Type*} [MeasurableSpace α] [NormedAddCommGroup β]
[NormedSpace ℝ β] [IsEmpty β] (f : α → β) (μ : Measure α) : ∫ x, f x ∂μ = 0 :=
Subsingleton.eq_zero _

end MeasureTheory
4 changes: 2 additions & 2 deletions TestingLowerBounds/ForMathlib/IntegralCongr2.lean
Original file line number Diff line number Diff line change
Expand Up @@ -15,20 +15,20 @@ namespace MeasureTheory
variable {α β : Type*} {mα : MeasurableSpace α} {mβ : MeasurableSpace β} {μ : Measure α}
{ν : Measure β} {κ : Kernel α β} {G : Type*} [NormedAddCommGroup G] [NormedSpace ℝ G]

--PRed, see #15460.
lemma integral_congr_ae₂ {f g : α → β → G} (h : ∀ᵐ a ∂μ, f a =ᵐ[κ a] g a) :
∫ a, ∫ b, f a b ∂(κ a) ∂μ = ∫ a, ∫ b, g a b ∂(κ a) ∂μ := by
apply integral_congr_ae
filter_upwards [h] with a ha
apply integral_congr_ae
filter_upwards [ha] with b hb using hb

--change the name of this one
--PRed as `ProbabilityTheory.Kernel.integral_congr_ae₂`, see #15460.
lemma integral_congr_ae₂' {f g : α → β → G} (h : ∀ᵐ a ∂μ, f a =ᵐ[ν] g a) :
∫ a, ∫ b, f a b ∂ν ∂μ = ∫ a, ∫ b, g a b ∂ν ∂μ := by
apply integral_congr_ae
filter_upwards [h] with a ha
apply integral_congr_ae
filter_upwards [ha] with b hb using hb

-- #find_home! ProbabilityTheory.integral_congr_ae₂
end MeasureTheory
2 changes: 2 additions & 0 deletions TestingLowerBounds/ForMathlib/KernelConstComp.lean
Original file line number Diff line number Diff line change
Expand Up @@ -10,12 +10,14 @@ variable {γ : Type*} {mγ : MeasurableSpace γ}
--TODO: PR this to mathlib, after `comp_deterministic_eq_comap`
-- #check comp_deterministic_eq_comap

--PRed, see #15461
lemma const_comp (μ : Measure γ) (κ : Kernel α β) :
const β μ ∘ₖ κ = fun a ↦ (κ a) Set.univ • μ := by
ext _ _ hs
simp_rw [comp_apply' _ _ _ hs, const_apply, MeasureTheory.lintegral_const, Measure.smul_apply,
smul_eq_mul, mul_comm]

--PRed, see #15461
@[simp]
lemma const_comp' (μ : Measure γ) (κ : Kernel α β) [IsMarkovKernel κ] :
const β μ ∘ₖ κ = const α μ := by
Expand Down
1 change: 1 addition & 0 deletions TestingLowerBounds/ForMathlib/KernelFstSnd.lean
Original file line number Diff line number Diff line change
Expand Up @@ -17,6 +17,7 @@ variable {δ : Type*} {mδ : MeasurableSpace δ}

--TODO: PR this to mathlib, a suitable place may be just under
-- `ProbabilityTheory.Kernel.snd_swapRight`
-- PRed, see #15466.

--I try to reproduce the code that is already there for Kernel.fst and Kernel.snd, but in this case
--the fst and snd are referred to the domain of the kernel, not the codomain
Expand Down
8 changes: 4 additions & 4 deletions TestingLowerBounds/ForMathlib/Measure.lean
Original file line number Diff line number Diff line change
Expand Up @@ -4,11 +4,11 @@ namespace MeasureTheory

variable {α β : Type*} {m mα : MeasurableSpace α} {mβ : MeasurableSpace β} {μ ν : Measure α}

lemma measure_univ_le_add_compl (s : Set α) : μ Set.univ ≤ μ s + μ sᶜ := by
rw [← Set.union_compl_self s]
exact measure_union_le s sᶜ
--PRed, see #15467
lemma measure_univ_le_add_compl (s : Set α) : μ Set.univ ≤ μ s + μ sᶜ :=
s.union_compl_self ▸ measure_union_le s sᶜ

-- PR this, just after `Measure.sub_add_cancel_of_le`
--PRed, see #15468
lemma Measure.add_sub_cancel [IsFiniteMeasure ν] : μ + ν - ν = μ := by
ext1 s hs
rw [sub_apply hs (Measure.le_add_left (le_refl _)), add_apply,
Expand Down
1 change: 1 addition & 0 deletions TestingLowerBounds/ForMathlib/MonotoneOnTendsto.lean
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,7 @@ import Mathlib.Topology.Order.Basic
open Set Filter Topology

-- Put this in Mathlib, replacing `Monotone.tendsto_nhdsWithin_Iio`
-- PRed, see #15470

lemma MonotoneOn.tendsto_nhdsWithin_Ioo_left {α β : Type*} [LinearOrder α] [TopologicalSpace α]
[OrderTopology α] [ConditionallyCompleteLinearOrder β] [TopologicalSpace β] [OrderTopology β]
Expand Down
8 changes: 6 additions & 2 deletions TestingLowerBounds/ForMathlib/RnDeriv.lean
Original file line number Diff line number Diff line change
Expand Up @@ -112,13 +112,13 @@ lemma rnDeriv_eq_zero_ae_of_zero_measure (ν : Measure α) {s : Set α} (hs : Me
rw [← MeasureTheory.setLIntegral_eq_zero_iff hs (Measure.measurable_rnDeriv μ ν)]
exact le_antisymm (hμ ▸ Measure.setLIntegral_rnDeriv_le s) (zero_le _)

--PR this, maybe it could go after `Measure.singularPart_restrict`?
--PRed, see #15540
lemma measure_sub_singularPart (μ ν : Measure α) [HaveLebesgueDecomposition μ ν] [IsFiniteMeasure μ] :
μ - μ.singularPart ν = ν.withDensity (μ.rnDeriv ν) := by
nth_rw 1 [← rnDeriv_add_singularPart μ ν]
exact add_sub_cancel

--PR this, maybe together with `Measure.measure_sub_singularPart`
--PRed, see #15540
lemma measure_sub_rnDeriv (μ ν : Measure α) [HaveLebesgueDecomposition μ ν] [IsFiniteMeasure μ] :
μ - ν.withDensity (μ.rnDeriv ν) = μ.singularPart ν := by
nth_rw 1 [← singularPart_add_rnDeriv μ ν]
Expand Down Expand Up @@ -298,19 +298,22 @@ lemma ae_integrable_of_ae_integrable_mul_rnDeriv {κ : α → Measure β} [Sigma
exact isUnit_iff_ne_zero.mpr h_pos.ne'

-- in mathlib this lemma could be put just before `MeasureTheory.Measure.rnDeriv_le_one_of_le`
-- PRed, see #15473
lemma rnDeriv_le_one_iff_le [SigmaFinite μ] [SigmaFinite ν] (hμν : μ ≪ ν) :
μ.rnDeriv ν ≤ᵐ[ν] 1 ↔ μ ≤ ν := by
refine ⟨fun h s ↦ ?_, fun h ↦ rnDeriv_le_one_of_le h⟩
rw [← withDensity_rnDeriv_eq _ _ hμν, withDensity_apply', ← setLIntegral_one]
exact setLIntegral_mono_ae aemeasurable_const (h.mono fun _ hh _ ↦ hh)

-- in mathlib this lemma could be put just before `MeasureTheory.Measure.rnDeriv_eq_zero_of_mutuallySingular`
-- PRed, see #15473
lemma rnDeriv_eq_one_iff_eq [SigmaFinite μ] [SigmaFinite ν] (hμν : μ ≪ ν) :
μ.rnDeriv ν =ᵐ[ν] 1 ↔ μ = ν := by
refine ⟨fun h ↦ ?_, fun h ↦ h ▸ Measure.rnDeriv_self ν⟩
rw [← withDensity_rnDeriv_eq _ _ hμν, MeasureTheory.withDensity_congr_ae h, withDensity_one]

-- in mathlib this lemma could be put just after `Measure.rnDeriv_mul_rnDeriv`
--PRed, see #15548.
lemma _root_.MeasureTheory.Measure.rnDeriv_mul_rnDeriv' {κ : Measure α} [SigmaFinite μ]
[SigmaFinite ν] [SigmaFinite κ] (hνκ : ν ≪ κ) :
μ.rnDeriv ν * ν.rnDeriv κ =ᵐ[ν] μ.rnDeriv κ := by
Expand All @@ -322,6 +325,7 @@ lemma _root_.MeasureTheory.Measure.rnDeriv_mul_rnDeriv' {κ : Measure α} [Sigma
rw [hx1, Pi.add_apply, hx2, Pi.mul_apply, hx3, Pi.zero_apply, zero_add]

--PR this to mathlib maybe just after `integral_toReal_rnDeriv` (we need to check that measure_sub_singularPart is imported there)?
--PRed, see #15545.
lemma _root_.MeasureTheory.Measure.integral_toReal_rnDeriv' {α : Type*} {m : MeasurableSpace α}
{μ : Measure α} {ν : Measure α} [IsFiniteMeasure μ] [SigmaFinite ν] :
∫ (x : α), (μ.rnDeriv ν x).toReal ∂ν
Expand Down
4 changes: 4 additions & 0 deletions TestingLowerBounds/ForMathlib/SetIntegral.lean
Original file line number Diff line number Diff line change
Expand Up @@ -6,23 +6,27 @@ open scoped ENNReal
variable {α E : Type*} [MeasurableSpace α] {μ ν : Measure α} [NormedAddCommGroup E] [NormedSpace ℝ E]

-- PR this, just after `integral_rnDeriv_smul`
--PRed, see #15551.
lemma setIntegral_rnDeriv_smul [Measure.HaveLebesgueDecomposition μ ν] (hμν : μ ≪ ν)
[SigmaFinite μ] {f : α → E} {s : Set α} (hs : MeasurableSet s) :
∫ x in s, (μ.rnDeriv ν x).toReal • f x ∂ν = ∫ x in s, f x ∂μ := by
simp_rw [← integral_indicator hs, Set.indicator_smul, integral_rnDeriv_smul hμν]

-- PR this, just after `integral_zero_measure`
--PRed, see #15551.
@[simp]
theorem setIntegral_zero_measure
(f : α → E) {μ : Measure α} {s : Set α} (hs : μ s = 0) :
∫ x in s, f x ∂μ = 0 := Measure.restrict_eq_zero.mpr hs ▸ integral_zero_measure f

--PR these two lemmas to mathlib, just under `lintegral_eq_zero_iff`
--PRed, see #15551.
theorem setLIntegral_eq_zero_iff' {s : Set α} (hs : MeasurableSet s)
{f : α → ℝ≥0∞} (hf : AEMeasurable f (μ.restrict s)) :
∫⁻ a in s, f a ∂μ = 0 ↔ ∀ᵐ x ∂μ, x ∈ s → f x = 0 :=
(lintegral_eq_zero_iff' hf).trans (ae_restrict_iff' hs)

--PRed, see #15551.
theorem setLIntegral_eq_zero_iff {s : Set α} (hs : MeasurableSet s) {f : α → ℝ≥0∞}
(hf : Measurable f) : ∫⁻ a in s, f a ∂μ = 0 ↔ ∀ᵐ x ∂μ, x ∈ s → f x = 0 :=
setLIntegral_eq_zero_iff' hs hf.aemeasurable
Expand Down

0 comments on commit 9648ab1

Please sign in to comment.