Skip to content

Commit 946e648

Browse files
authored
improvements to BoundedFiniteSupport (#265)
1 parent a1603ef commit 946e648

File tree

1 file changed

+31
-5
lines changed

1 file changed

+31
-5
lines changed

Carleson/ToMathlib/BoundedFiniteSupport.lean

Lines changed: 31 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -5,20 +5,46 @@ This file defines BoundedFiniteSupport.
55
TODO It should be suitably generalized in analogy to `BoundedCompactSupport`.
66
-/
77

8-
open MeasureTheory Function ENNReal
8+
open MeasureTheory Function ENNReal TopologicalSpace
99

1010
noncomputable section
1111

12-
variable {X : Type*} [MeasureSpace X]
13-
variable {f : X → }
12+
variable {X E : Type*} [MeasurableSpace X]
13+
variable {f : X → E} [TopologicalSpace E] [ENorm E] [Zero E] {μ : Measure X}
1414

1515
/-- Definition to avoid repeating ourselves.
1616
Blueprint states: *bounded measurable function $g$ on $X$ supported on a set of finite measure*.
1717
Slightly weaker than `BoundedCompactSupport`.
1818
TODO probably want this as a `structure` instead of an explicit conjunction. -/
19-
def BoundedFiniteSupport (f : X → ℂ) : Prop :=
20-
MemLp f ∞ volume ∧ volume (support f) < ∞
19+
@[fun_prop]
20+
structure BoundedFiniteSupport (f : X → E) (μ : Measure X := by volume_tac) : Prop where
21+
memLp : MemLp f ∞ μ
22+
measure_support_lt : μ (support f) < ∞
23+
aestronglyMeasurable : AEStronglyMeasurable f μ
24+
25+
attribute [fun_prop] BoundedFiniteSupport.aestronglyMeasurable
2126

2227
/-
2328
TODO prove suitable lemmas e.g. BFS f implies Measurable f
2429
-/
30+
namespace BoundedFiniteSupport
31+
32+
@[fun_prop]
33+
theorem aemeasurable [MeasurableSpace E] [PseudoMetrizableSpace E]
34+
[BorelSpace E]
35+
(bfs : BoundedFiniteSupport f μ) : AEMeasurable f μ :=
36+
bfs.aestronglyMeasurable.aemeasurable
37+
38+
@[fun_prop]
39+
theorem aestronglyMeasurable_restrict {s : Set X} (bfs : BoundedFiniteSupport f μ) :
40+
AEStronglyMeasurable f (μ.restrict s) :=
41+
bfs.aestronglyMeasurable.restrict
42+
43+
@[fun_prop]
44+
theorem aemeasurable_restrict [MeasurableSpace E] [PseudoMetrizableSpace E]
45+
[BorelSpace E] {s : Set X} (bfs : BoundedFiniteSupport f μ) :
46+
AEMeasurable f (μ.restrict s) :=
47+
bfs.aemeasurable.restrict
48+
49+
theorem measurable [MeasurableSpace E] (bfs : BoundedFiniteSupport f μ) : Measurable f := by
50+
sorry -- not true, but we keep it temporarily to not break code

0 commit comments

Comments
 (0)