[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
⊢ snorm (↑↑↑(↑(condexpL2 E 𝕜 hm) f)) 2 μ ≤ snorm (↑↑f) 2 μ
[PROOFSTEP]
rw [lpMeas_coe, ← ENNReal.toReal_le_toReal (Lp.snorm_ne_top _) (Lp.snorm_ne_top _), ← Lp.norm_def, ← Lp.norm_def,
  Submodule.norm_coe]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
⊢ ‖↑(condexpL2 E 𝕜 hm) f‖ ≤ ‖f‖
[PROOFSTEP]
exact norm_condexpL2_le hm f
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
⊢ ‖↑(↑(condexpL2 E 𝕜 hm) f)‖ ≤ ‖f‖
[PROOFSTEP]
rw [Lp.norm_def, Lp.norm_def, ← lpMeas_coe]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
⊢ ENNReal.toReal (snorm (↑↑↑(↑(condexpL2 E 𝕜 hm) f)) 2 μ) ≤ ENNReal.toReal (snorm (↑↑f) 2 μ)
[PROOFSTEP]
refine' (ENNReal.toReal_le_toReal _ (Lp.snorm_ne_top _)).mpr (snorm_condexpL2_le hm f)
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
⊢ snorm (↑↑↑(↑(condexpL2 E 𝕜 hm) f)) 2 μ ≠ ⊤
[PROOFSTEP]
exact Lp.snorm_ne_top _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
⊢ ↑(↑(condexpL2 E 𝕜 hm) (indicatorConstLp 2 (_ : MeasurableSet s) hμs c)) =
    indicatorConstLp 2 (_ : MeasurableSet s) hμs c
[PROOFSTEP]
rw [condexpL2]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
⊢ ↑(↑(orthogonalProjection (lpMeas E 𝕜 m 2 μ)) (indicatorConstLp 2 (_ : MeasurableSet s) hμs c)) =
    indicatorConstLp 2 (_ : MeasurableSet s) hμs c
[PROOFSTEP]
haveI : Fact (m ≤ m0) := ⟨hm⟩
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
this : Fact (m ≤ m0)
⊢ ↑(↑(orthogonalProjection (lpMeas E 𝕜 m 2 μ)) (indicatorConstLp 2 (_ : MeasurableSet s) hμs c)) =
    indicatorConstLp 2 (_ : MeasurableSet s) hμs c
[PROOFSTEP]
have h_mem : indicatorConstLp 2 (hm s hs) hμs c ∈ lpMeas E 𝕜 m 2 μ := mem_lpMeas_indicatorConstLp hm hs hμs
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
this : Fact (m ≤ m0)
h_mem : indicatorConstLp 2 (_ : MeasurableSet s) hμs c ∈ lpMeas E 𝕜 m 2 μ
⊢ ↑(↑(orthogonalProjection (lpMeas E 𝕜 m 2 μ)) (indicatorConstLp 2 (_ : MeasurableSet s) hμs c)) =
    indicatorConstLp 2 (_ : MeasurableSet s) hμs c
[PROOFSTEP]
let ind := (⟨indicatorConstLp 2 (hm s hs) hμs c, h_mem⟩ : lpMeas E 𝕜 m 2 μ)
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
this : Fact (m ≤ m0)
h_mem : indicatorConstLp 2 (_ : MeasurableSet s) hμs c ∈ lpMeas E 𝕜 m 2 μ
ind : { x // x ∈ lpMeas E 𝕜 m 2 μ } := { val := indicatorConstLp 2 (_ : MeasurableSet s) hμs c, property := h_mem }
⊢ ↑(↑(orthogonalProjection (lpMeas E 𝕜 m 2 μ)) (indicatorConstLp 2 (_ : MeasurableSet s) hμs c)) =
    indicatorConstLp 2 (_ : MeasurableSet s) hμs c
[PROOFSTEP]
have h_coe_ind : (ind : α →₂[μ] E) = indicatorConstLp 2 (hm s hs) hμs c := by rfl
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
this : Fact (m ≤ m0)
h_mem : indicatorConstLp 2 (_ : MeasurableSet s) hμs c ∈ lpMeas E 𝕜 m 2 μ
ind : { x // x ∈ lpMeas E 𝕜 m 2 μ } := { val := indicatorConstLp 2 (_ : MeasurableSet s) hμs c, property := h_mem }
⊢ ↑ind = indicatorConstLp 2 (_ : MeasurableSet s) hμs c
[PROOFSTEP]
rfl
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
this : Fact (m ≤ m0)
h_mem : indicatorConstLp 2 (_ : MeasurableSet s) hμs c ∈ lpMeas E 𝕜 m 2 μ
ind : { x // x ∈ lpMeas E 𝕜 m 2 μ } := { val := indicatorConstLp 2 (_ : MeasurableSet s) hμs c, property := h_mem }
h_coe_ind : ↑ind = indicatorConstLp 2 (_ : MeasurableSet s) hμs c
⊢ ↑(↑(orthogonalProjection (lpMeas E 𝕜 m 2 μ)) (indicatorConstLp 2 (_ : MeasurableSet s) hμs c)) =
    indicatorConstLp 2 (_ : MeasurableSet s) hμs c
[PROOFSTEP]
have h_orth_mem := orthogonalProjection_mem_subspace_eq_self ind
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
this : Fact (m ≤ m0)
h_mem : indicatorConstLp 2 (_ : MeasurableSet s) hμs c ∈ lpMeas E 𝕜 m 2 μ
ind : { x // x ∈ lpMeas E 𝕜 m 2 μ } := { val := indicatorConstLp 2 (_ : MeasurableSet s) hμs c, property := h_mem }
h_coe_ind : ↑ind = indicatorConstLp 2 (_ : MeasurableSet s) hμs c
h_orth_mem : ↑(orthogonalProjection (lpMeas E 𝕜 m 2 μ)) ↑ind = ind
⊢ ↑(↑(orthogonalProjection (lpMeas E 𝕜 m 2 μ)) (indicatorConstLp 2 (_ : MeasurableSet s) hμs c)) =
    indicatorConstLp 2 (_ : MeasurableSet s) hμs c
[PROOFSTEP]
rw [← h_coe_ind, h_orth_mem]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f g : { x // x ∈ Lp E 2 }
hg : AEStronglyMeasurable' m (↑↑g) μ
⊢ inner (↑(↑(condexpL2 E 𝕜 hm) f)) g = inner f g
[PROOFSTEP]
symm
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f g : { x // x ∈ Lp E 2 }
hg : AEStronglyMeasurable' m (↑↑g) μ
⊢ inner f g = inner (↑(↑(condexpL2 E 𝕜 hm) f)) g
[PROOFSTEP]
rw [← sub_eq_zero, ← inner_sub_left, condexpL2]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f g : { x // x ∈ Lp E 2 }
hg : AEStronglyMeasurable' m (↑↑g) μ
⊢ inner (f - ↑(↑(orthogonalProjection (lpMeas E 𝕜 m 2 μ)) f)) g = 0
[PROOFSTEP]
simp only [mem_lpMeas_iff_aeStronglyMeasurable'.mpr hg, orthogonalProjection_inner_eq_zero f g]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp 𝕜 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
⊢ ∫ (x : α) in s, ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) f) x ∂μ = ∫ (x : α) in s, ↑↑f x ∂μ
[PROOFSTEP]
rw [← L2.inner_indicatorConstLp_one (𝕜 := 𝕜) (hm s hs) hμs f]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp 𝕜 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
⊢ ∫ (x : α) in s, ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) f) x ∂μ = inner (indicatorConstLp 2 (_ : MeasurableSet s) hμs 1) f
[PROOFSTEP]
have h_eq_inner :
  ∫ x in s, (condexpL2 𝕜 𝕜 hm f : α → 𝕜) x ∂μ = inner (indicatorConstLp 2 (hm s hs) hμs (1 : 𝕜)) (condexpL2 𝕜 𝕜 hm f) :=
  by rw [L2.inner_indicatorConstLp_one (hm s hs) hμs]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp 𝕜 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
⊢ ∫ (x : α) in s, ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) f) x ∂μ =
    inner (indicatorConstLp 2 (_ : MeasurableSet s) hμs 1) ↑(↑(condexpL2 𝕜 𝕜 hm) f)
[PROOFSTEP]
rw [L2.inner_indicatorConstLp_one (hm s hs) hμs]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp 𝕜 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
h_eq_inner :
  ∫ (x : α) in s, ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) f) x ∂μ =
    inner (indicatorConstLp 2 (_ : MeasurableSet s) hμs 1) ↑(↑(condexpL2 𝕜 𝕜 hm) f)
⊢ ∫ (x : α) in s, ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) f) x ∂μ = inner (indicatorConstLp 2 (_ : MeasurableSet s) hμs 1) f
[PROOFSTEP]
rw [h_eq_inner, ← inner_condexpL2_left_eq_right, condexpL2_indicator_of_measurable hm hs hμs]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
⊢ ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ ≤ ∫⁻ (x : α) in s, ↑‖↑↑f x‖₊ ∂μ
[PROOFSTEP]
let h_meas := lpMeas.aeStronglyMeasurable' (condexpL2 ℝ ℝ hm f)
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
⊢ ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ ≤ ∫⁻ (x : α) in s, ↑‖↑↑f x‖₊ ∂μ
[PROOFSTEP]
let g := h_meas.choose
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
⊢ ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ ≤ ∫⁻ (x : α) in s, ↑‖↑↑f x‖₊ ∂μ
[PROOFSTEP]
have hg_meas : StronglyMeasurable[m] g := h_meas.choose_spec.1
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
⊢ ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ ≤ ∫⁻ (x : α) in s, ↑‖↑↑f x‖₊ ∂μ
[PROOFSTEP]
have hg_eq : g =ᵐ[μ] condexpL2 ℝ ℝ hm f := h_meas.choose_spec.2.symm
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
⊢ ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ ≤ ∫⁻ (x : α) in s, ↑‖↑↑f x‖₊ ∂μ
[PROOFSTEP]
have hg_eq_restrict : g =ᵐ[μ.restrict s] condexpL2 ℝ ℝ hm f := ae_restrict_of_ae hg_eq
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
⊢ ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ ≤ ∫⁻ (x : α) in s, ↑‖↑↑f x‖₊ ∂μ
[PROOFSTEP]
have hg_nnnorm_eq : (fun x => (‖g x‖₊ : ℝ≥0∞)) =ᵐ[μ.restrict s] fun x => (‖(condexpL2 ℝ ℝ hm f : α → ℝ) x‖₊ : ℝ≥0∞) :=
  by
  refine' hg_eq_restrict.mono fun x hx => _
  dsimp only
  simp_rw [hx]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
⊢ (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
[PROOFSTEP]
refine' hg_eq_restrict.mono fun x hx => _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
x : α
hx : g x = ↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x
⊢ (fun x => ↑‖g x‖₊) x = (fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊) x
[PROOFSTEP]
dsimp only
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
x : α
hx : g x = ↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x
⊢ ↑‖Exists.choose (_ : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ) x‖₊ = ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
[PROOFSTEP]
simp_rw [hx]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_nnnorm_eq : (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
⊢ ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ ≤ ∫⁻ (x : α) in s, ↑‖↑↑f x‖₊ ∂μ
[PROOFSTEP]
rw [lintegral_congr_ae hg_nnnorm_eq.symm]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_nnnorm_eq : (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
⊢ ∫⁻ (a : α) in s, ↑‖g a‖₊ ∂μ ≤ ∫⁻ (x : α) in s, ↑‖↑↑f x‖₊ ∂μ
[PROOFSTEP]
refine' lintegral_nnnorm_le_of_forall_fin_meas_integral_eq hm (Lp.stronglyMeasurable f) _ _ _ _ hs hμs
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_nnnorm_eq : (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
⊢ IntegrableOn (fun x => ↑↑f x) s
[PROOFSTEP]
exact integrableOn_Lp_of_measure_ne_top f fact_one_le_two_ennreal.elim hμs
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_nnnorm_eq : (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
⊢ StronglyMeasurable fun a => g a
[PROOFSTEP]
exact hg_meas
[GOAL]
case refine'_3
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_nnnorm_eq : (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
⊢ IntegrableOn (fun a => g a) s
[PROOFSTEP]
rw [IntegrableOn, integrable_congr hg_eq_restrict]
[GOAL]
case refine'_3
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_nnnorm_eq : (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
⊢ Integrable ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
[PROOFSTEP]
exact integrableOn_condexpL2_of_measure_ne_top hm hμs f
[GOAL]
case refine'_4
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_nnnorm_eq : (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
⊢ ∀ (t : Set α), MeasurableSet t → ↑↑μ t < ⊤ → ∫ (x : α) in t, g x ∂μ = ∫ (x : α) in t, ↑↑f x ∂μ
[PROOFSTEP]
intro t ht hμt
[GOAL]
case refine'_4
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_nnnorm_eq : (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t < ⊤
⊢ ∫ (x : α) in t, g x ∂μ = ∫ (x : α) in t, ↑↑f x ∂μ
[PROOFSTEP]
rw [← integral_condexpL2_eq_of_fin_meas_real f ht hμt.ne]
[GOAL]
case refine'_4
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_nnnorm_eq : (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t < ⊤
⊢ ∫ (x : α) in t, g x ∂μ = ∫ (x : α) in t, ↑↑↑(↑(condexpL2 ℝ ℝ ?m.662736) f) x ∂μ
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
h_meas : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) f)) μ := lpMeas.aeStronglyMeasurable' (↑(condexpL2 ℝ ℝ hm) f)
g : α → ℝ := Exists.choose h_meas
hg_meas : StronglyMeasurable g
hg_eq : g =ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_eq_restrict : g =ᵐ[Measure.restrict μ s] ↑↑↑(↑(condexpL2 ℝ ℝ hm) f)
hg_nnnorm_eq : (fun x => ↑‖g x‖₊) =ᵐ[Measure.restrict μ s] fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t < ⊤
⊢ m ≤ m0
[PROOFSTEP]
exact set_integral_congr_ae (hm t ht) (hg_eq.mono fun x hx _ => hx)
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
⊢ ↑↑↑(↑(condexpL2 ℝ ℝ hm) f) =ᵐ[Measure.restrict μ s] 0
[PROOFSTEP]
suffices h_nnnorm_eq_zero : ∫⁻ x in s, ‖(condexpL2 ℝ ℝ hm f : α → ℝ) x‖₊ ∂μ = 0
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ = 0
⊢ ↑↑↑(↑(condexpL2 ℝ ℝ hm) f) =ᵐ[Measure.restrict μ s] 0
[PROOFSTEP]
rw [lintegral_eq_zero_iff] at h_nnnorm_eq_zero
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : (fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊) =ᵐ[Measure.restrict μ s] 0
⊢ ↑↑↑(↑(condexpL2 ℝ ℝ hm) f) =ᵐ[Measure.restrict μ s] 0
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ = 0
⊢ Measurable fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
[PROOFSTEP]
refine' h_nnnorm_eq_zero.mono fun x hx => _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : (fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊) =ᵐ[Measure.restrict μ s] 0
x : α
hx : (fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊) x = OfNat.ofNat 0 x
⊢ ↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x = OfNat.ofNat 0 x
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ = 0
⊢ Measurable fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
[PROOFSTEP]
dsimp only at hx
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : (fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊) =ᵐ[Measure.restrict μ s] 0
x : α
hx : ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ = OfNat.ofNat 0 x
⊢ ↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x = OfNat.ofNat 0 x
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ = 0
⊢ Measurable fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
[PROOFSTEP]
rw [Pi.zero_apply] at hx ⊢
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : (fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊) =ᵐ[Measure.restrict μ s] 0
x : α
hx : ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ = 0
⊢ ↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x = 0
[PROOFSTEP]
rwa [ENNReal.coe_eq_zero, nnnorm_eq_zero] at hx
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ = 0
⊢ Measurable fun x => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊
[PROOFSTEP]
refine' Measurable.coe_nnreal_ennreal (Measurable.nnnorm _)
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ = 0
⊢ Measurable fun x => ↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x
[PROOFSTEP]
rw [lpMeas_coe]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
h_nnnorm_eq_zero : ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ = 0
⊢ Measurable fun x => ↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x
[PROOFSTEP]
exact (Lp.stronglyMeasurable _).measurable
[GOAL]
case h_nnnorm_eq_zero
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
⊢ ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ = 0
[PROOFSTEP]
refine' le_antisymm _ (zero_le _)
[GOAL]
case h_nnnorm_eq_zero
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
⊢ ∫⁻ (x : α) in s, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) f) x‖₊ ∂μ ≤ 0
[PROOFSTEP]
refine' (lintegral_nnnorm_condexpL2_le hs hμs f).trans (le_of_eq _)
[GOAL]
case h_nnnorm_eq_zero
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
⊢ ∫⁻ (x : α) in s, ↑‖↑↑f x‖₊ ∂μ = 0
[PROOFSTEP]
rw [lintegral_eq_zero_iff]
[GOAL]
case h_nnnorm_eq_zero
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
⊢ (fun x => ↑‖↑↑f x‖₊) =ᵐ[Measure.restrict μ s] 0
[PROOFSTEP]
refine' hf.mono fun x hx => _
[GOAL]
case h_nnnorm_eq_zero
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
x : α
hx : ↑↑f x = OfNat.ofNat 0 x
⊢ (fun x => ↑‖↑↑f x‖₊) x = OfNat.ofNat 0 x
[PROOFSTEP]
dsimp only
[GOAL]
case h_nnnorm_eq_zero
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
x : α
hx : ↑↑f x = OfNat.ofNat 0 x
⊢ ↑‖↑↑f x‖₊ = OfNat.ofNat 0 x
[PROOFSTEP]
rw [hx]
[GOAL]
case h_nnnorm_eq_zero
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
x : α
hx : ↑↑f x = OfNat.ofNat 0 x
⊢ ↑‖OfNat.ofNat 0 x‖₊ = OfNat.ofNat 0 x
[PROOFSTEP]
simp
[GOAL]
case h_nnnorm_eq_zero
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
f : { x // x ∈ Lp ℝ 2 }
hf : ↑↑f =ᵐ[Measure.restrict μ s] 0
⊢ Measurable fun x => ↑‖↑↑f x‖₊
[PROOFSTEP]
exact (Lp.stronglyMeasurable _).ennnorm
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ∫⁻ (a : α) in t, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a‖₊ ∂μ ≤ ↑↑μ (s ∩ t)
[PROOFSTEP]
refine' (lintegral_nnnorm_condexpL2_le ht hμt _).trans (le_of_eq _)
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ∫⁻ (x : α) in t, ↑‖↑↑(indicatorConstLp 2 hs hμs 1) x‖₊ ∂μ = ↑↑μ (s ∩ t)
[PROOFSTEP]
have h_eq :
  ∫⁻ x in t, ‖(indicatorConstLp 2 hs hμs (1 : ℝ)) x‖₊ ∂μ = ∫⁻ x in t, s.indicator (fun _ => (1 : ℝ≥0∞)) x ∂μ :=
  by
  refine' lintegral_congr_ae (ae_restrict_of_ae _)
  refine' (@indicatorConstLp_coeFn _ _ _ 2 _ _ _ hs hμs (1 : ℝ)).mono fun x hx => _
  dsimp only
  rw [hx]
  classical
  simp_rw [Set.indicator_apply]
  split_ifs <;> simp
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ∫⁻ (x : α) in t, ↑‖↑↑(indicatorConstLp 2 hs hμs 1) x‖₊ ∂μ = ∫⁻ (x : α) in t, Set.indicator s (fun x => 1) x ∂μ
[PROOFSTEP]
refine' lintegral_congr_ae (ae_restrict_of_ae _)
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ∀ᵐ (x : α) ∂μ, (fun x => ↑‖↑↑(indicatorConstLp 2 hs hμs 1) x‖₊) x = (fun x => Set.indicator s (fun x => 1) x) x
[PROOFSTEP]
refine' (@indicatorConstLp_coeFn _ _ _ 2 _ _ _ hs hμs (1 : ℝ)).mono fun x hx => _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
x : α
hx : ↑↑(indicatorConstLp 2 hs hμs 1) x = Set.indicator s (fun x => 1) x
⊢ (fun x => ↑‖↑↑(indicatorConstLp 2 hs hμs 1) x‖₊) x = (fun x => Set.indicator s (fun x => 1) x) x
[PROOFSTEP]
dsimp only
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
x : α
hx : ↑↑(indicatorConstLp 2 hs hμs 1) x = Set.indicator s (fun x => 1) x
⊢ ↑‖↑↑(indicatorConstLp 2 hs hμs 1) x‖₊ = Set.indicator s (fun x => 1) x
[PROOFSTEP]
rw [hx]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
x : α
hx : ↑↑(indicatorConstLp 2 hs hμs 1) x = Set.indicator s (fun x => 1) x
⊢ ↑‖Set.indicator s (fun x => 1) x‖₊ = Set.indicator s (fun x => 1) x
[PROOFSTEP]
classical
simp_rw [Set.indicator_apply]
split_ifs <;> simp
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
x : α
hx : ↑↑(indicatorConstLp 2 hs hμs 1) x = Set.indicator s (fun x => 1) x
⊢ ↑‖Set.indicator s (fun x => 1) x‖₊ = Set.indicator s (fun x => 1) x
[PROOFSTEP]
simp_rw [Set.indicator_apply]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
x : α
hx : ↑↑(indicatorConstLp 2 hs hμs 1) x = Set.indicator s (fun x => 1) x
⊢ ↑‖if x ∈ s then 1 else 0‖₊ = if x ∈ s then 1 else 0
[PROOFSTEP]
split_ifs
[GOAL]
case pos
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
x : α
hx : ↑↑(indicatorConstLp 2 hs hμs 1) x = Set.indicator s (fun x => 1) x
h✝ : x ∈ s
⊢ ↑‖1‖₊ = 1
[PROOFSTEP]
simp
[GOAL]
case neg
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
x : α
hx : ↑↑(indicatorConstLp 2 hs hμs 1) x = Set.indicator s (fun x => 1) x
h✝ : ¬x ∈ s
⊢ ↑‖0‖₊ = 0
[PROOFSTEP]
simp
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
h_eq : ∫⁻ (x : α) in t, ↑‖↑↑(indicatorConstLp 2 hs hμs 1) x‖₊ ∂μ = ∫⁻ (x : α) in t, Set.indicator s (fun x => 1) x ∂μ
⊢ ∫⁻ (x : α) in t, ↑‖↑↑(indicatorConstLp 2 hs hμs 1) x‖₊ ∂μ = ↑↑μ (s ∩ t)
[PROOFSTEP]
rw [h_eq, lintegral_indicator _ hs, lintegral_const, Measure.restrict_restrict hs]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
h_eq : ∫⁻ (x : α) in t, ↑‖↑↑(indicatorConstLp 2 hs hμs 1) x‖₊ ∂μ = ∫⁻ (x : α) in t, Set.indicator s (fun x => 1) x ∂μ
⊢ 1 * ↑↑(Measure.restrict μ (s ∩ t)) Set.univ = ↑↑μ (s ∩ t)
[PROOFSTEP]
simp only [one_mul, Set.univ_inter, MeasurableSet.univ, Measure.restrict_apply]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
⊢ ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2))) =ᵐ[μ]
    fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
[PROOFSTEP]
rw [lpMeas_coe]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
⊢ ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2))) =ᵐ[μ]
    fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
[PROOFSTEP]
have h_mem_Lp : Memℒp (fun a => ⟪c, (condexpL2 E 𝕜 hm f : α → E) a⟫) 2 μ := by refine' Memℒp.const_inner _ _;
  rw [lpMeas_coe]; exact Lp.memℒp _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
⊢ Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
[PROOFSTEP]
refine' Memℒp.const_inner _ _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
⊢ Memℒp (fun a => ↑↑↑(↑(condexpL2 E 𝕜 hm) f) a) 2
[PROOFSTEP]
rw [lpMeas_coe]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
⊢ Memℒp (fun a => ↑↑↑(↑(condexpL2 E 𝕜 hm) f) a) 2
[PROOFSTEP]
exact Lp.memℒp _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
⊢ ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2))) =ᵐ[μ]
    fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
[PROOFSTEP]
have h_eq : h_mem_Lp.toLp _ =ᵐ[μ] fun a => ⟪c, (condexpL2 E 𝕜 hm f : α → E) a⟫ := h_mem_Lp.coeFn_toLp
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
⊢ ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2))) =ᵐ[μ]
    fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
[PROOFSTEP]
refine' EventuallyEq.trans _ h_eq
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
⊢ ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2))) =ᵐ[μ]
    ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp)
[PROOFSTEP]
refine'
  Lp.ae_eq_of_forall_set_integral_eq' 𝕜 hm _ _ two_ne_zero ENNReal.coe_ne_top
    (fun s _ hμs => integrableOn_condexpL2_of_measure_ne_top hm hμs.ne _) _ _ _ _
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
⊢ ∀ (s : Set α),
    MeasurableSet s →
      ↑↑μ s < ⊤ → IntegrableOn (↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp)) s
[PROOFSTEP]
intro s _ hμs
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s✝ t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
s : Set α
a✝ : MeasurableSet s
hμs : ↑↑μ s < ⊤
⊢ IntegrableOn (↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp)) s
[PROOFSTEP]
rw [IntegrableOn, integrable_congr (ae_restrict_of_ae h_eq)]
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s✝ t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
s : Set α
a✝ : MeasurableSet s
hμs : ↑↑μ s < ⊤
⊢ Integrable fun x => (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) x
[PROOFSTEP]
exact (integrableOn_condexpL2_of_measure_ne_top hm hμs.ne _).const_inner _
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
⊢ ∀ (s : Set α),
    MeasurableSet s →
      ↑↑μ s < ⊤ →
        ∫ (x : α) in s,
            ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2)))
              x ∂μ =
          ∫ (x : α) in s, ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) x ∂μ
[PROOFSTEP]
intro s hs hμs
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s✝ t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
s : Set α
hs : MeasurableSet s
hμs : ↑↑μ s < ⊤
⊢ ∫ (x : α) in s,
      ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2))) x ∂μ =
    ∫ (x : α) in s, ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) x ∂μ
[PROOFSTEP]
rw [← lpMeas_coe, integral_condexpL2_eq_of_fin_meas_real _ hs hμs.ne, integral_congr_ae (ae_restrict_of_ae h_eq),
  lpMeas_coe, ← L2.inner_indicatorConstLp_eq_set_integral_inner 𝕜 (↑(condexpL2 E 𝕜 hm f)) (hm s hs) c hμs.ne, ←
  inner_condexpL2_left_eq_right, condexpL2_indicator_of_measurable _ hs,
  L2.inner_indicatorConstLp_eq_set_integral_inner 𝕜 f (hm s hs) c hμs.ne,
  set_integral_congr_ae (hm s hs) ((Memℒp.coeFn_toLp ((Lp.memℒp f).const_inner c)).mono fun x hx _ => hx)]
[GOAL]
case refine'_3
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
⊢ AEStronglyMeasurable' m
    (↑↑↑(↑(condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2)))) μ
[PROOFSTEP]
rw [← lpMeas_coe]
[GOAL]
case refine'_3
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
⊢ AEStronglyMeasurable' m
    (↑↑↑(↑(condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2)))) μ
[PROOFSTEP]
exact lpMeas.aeStronglyMeasurable' _
[GOAL]
case refine'_4
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
⊢ AEStronglyMeasurable' m (↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp)) μ
[PROOFSTEP]
refine' AEStronglyMeasurable'.congr _ h_eq.symm
[GOAL]
case refine'_4
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E 2 }
c : E
h_mem_Lp : Memℒp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) 2
h_eq :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) h_mem_Lp) =ᵐ[μ] fun a =>
    inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)
⊢ AEStronglyMeasurable' m (fun a => inner c (↑↑↑(↑(condexpL2 E 𝕜 hm) f) a)) μ
[PROOFSTEP]
exact (lpMeas.aeStronglyMeasurable' _).const_inner _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E' 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
⊢ ∫ (x : α) in s, ↑↑↑(↑(condexpL2 E' 𝕜 hm) f) x ∂μ = ∫ (x : α) in s, ↑↑f x ∂μ
[PROOFSTEP]
rw [← sub_eq_zero, lpMeas_coe, ←
  integral_sub' (integrableOn_Lp_of_measure_ne_top _ fact_one_le_two_ennreal.elim hμs)
    (integrableOn_Lp_of_measure_ne_top _ fact_one_le_two_ennreal.elim hμs)]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E' 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
⊢ ∫ (a : α) in s, (↑↑↑(↑(condexpL2 E' 𝕜 hm) f) - ↑↑f) a ∂μ = 0
[PROOFSTEP]
refine' integral_eq_zero_of_forall_integral_inner_eq_zero 𝕜 _ _ _
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E' 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
⊢ Integrable fun a => (↑↑↑(↑(condexpL2 E' 𝕜 hm) f) - ↑↑f) a
[PROOFSTEP]
rw [integrable_congr (ae_restrict_of_ae (Lp.coeFn_sub (↑(condexpL2 E' 𝕜 hm f)) f).symm)]
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E' 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
⊢ Integrable fun x => ↑↑(↑(↑(condexpL2 E' 𝕜 hm) f) - f) x
[PROOFSTEP]
exact integrableOn_Lp_of_measure_ne_top _ fact_one_le_two_ennreal.elim hμs
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E' 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
⊢ ∀ (c : E'), ∫ (x : α) in s, inner c ((↑↑↑(↑(condexpL2 E' 𝕜 hm) f) - ↑↑f) x) ∂μ = 0
[PROOFSTEP]
intro c
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E' 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E'
⊢ ∫ (x : α) in s, inner c ((↑↑↑(↑(condexpL2 E' 𝕜 hm) f) - ↑↑f) x) ∂μ = 0
[PROOFSTEP]
simp_rw [Pi.sub_apply, inner_sub_right]
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E' 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E'
⊢ ∫ (x : α) in s, inner c (↑↑↑(↑(condexpL2 E' 𝕜 hm) f) x) - inner c (↑↑f x) ∂μ = 0
[PROOFSTEP]
rw [integral_sub ((integrableOn_Lp_of_measure_ne_top _ fact_one_le_two_ennreal.elim hμs).const_inner c)
    ((integrableOn_Lp_of_measure_ne_top _ fact_one_le_two_ennreal.elim hμs).const_inner c)]
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E' 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E'
⊢ ∫ (a : α) in s, inner c (↑↑↑(↑(condexpL2 E' 𝕜 hm) f) a) ∂μ - ∫ (a : α) in s, inner c (↑↑f a) ∂μ = 0
[PROOFSTEP]
have h_ae_eq_f := Memℒp.coeFn_toLp (E := 𝕜) ((Lp.memℒp f).const_inner c)
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E' 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E'
h_ae_eq_f :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2)) =ᵐ[μ] fun a => inner c (↑↑f a)
⊢ ∫ (a : α) in s, inner c (↑↑↑(↑(condexpL2 E' 𝕜 hm) f) a) ∂μ - ∫ (a : α) in s, inner c (↑↑f a) ∂μ = 0
[PROOFSTEP]
rw [← lpMeas_coe, sub_eq_zero, ← set_integral_congr_ae (hm s hs) ((condexpL2_const_inner hm f c).mono fun x hx _ => hx),
  ← set_integral_congr_ae (hm s hs) (h_ae_eq_f.mono fun x hx _ => hx)]
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹³ : IsROrC 𝕜
inst✝¹² : NormedAddCommGroup E
inst✝¹¹ : InnerProductSpace 𝕜 E
inst✝¹⁰ : CompleteSpace E
inst✝⁹ : NormedAddCommGroup E'
inst✝⁸ : InnerProductSpace 𝕜 E'
inst✝⁷ : CompleteSpace E'
inst✝⁶ : NormedSpace ℝ E'
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace 𝕜 F
inst✝³ : NormedAddCommGroup G
inst✝² : NormedAddCommGroup G'
inst✝¹ : NormedSpace ℝ G'
inst✝ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
hm : m ≤ m0
f : { x // x ∈ Lp E' 2 }
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E'
h_ae_eq_f :
  ↑↑(Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2)) =ᵐ[μ] fun a => inner c (↑↑f a)
⊢ ∫ (x : α) in s,
      ↑↑↑(↑(condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2))) x ∂μ =
    ∫ (x : α) in s, ↑↑(Memℒp.toLp (fun a => inner c (↑↑f a)) (_ : Memℒp (fun a => inner c (↑↑f a)) 2)) x ∂μ
[PROOFSTEP]
exact integral_condexpL2_eq_of_fin_meas_real _ hs hμs
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
T : E' →L[ℝ] E''
f : { x // x ∈ Lp E' 2 }
⊢ ↑↑↑(↑(condexpL2 E'' 𝕜' hm) (compLp T f)) =ᵐ[μ] ↑↑(compLp T ↑(↑(condexpL2 E' 𝕜 hm) f))
[PROOFSTEP]
refine'
  Lp.ae_eq_of_forall_set_integral_eq' 𝕜' hm _ _ two_ne_zero ENNReal.coe_ne_top
    (fun s _ hμs => integrableOn_condexpL2_of_measure_ne_top hm hμs.ne _)
    (fun s _ hμs => integrableOn_Lp_of_measure_ne_top _ fact_one_le_two_ennreal.elim hμs.ne) _ _ _
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
T : E' →L[ℝ] E''
f : { x // x ∈ Lp E' 2 }
⊢ ∀ (s : Set α),
    MeasurableSet s →
      ↑↑μ s < ⊤ →
        ∫ (x : α) in s, ↑↑↑(↑(condexpL2 E'' 𝕜' hm) (compLp T f)) x ∂μ =
          ∫ (x : α) in s, ↑↑(compLp T ↑(↑(condexpL2 E' 𝕜 hm) f)) x ∂μ
[PROOFSTEP]
intro s hs hμs
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s✝ t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
T : E' →L[ℝ] E''
f : { x // x ∈ Lp E' 2 }
s : Set α
hs : MeasurableSet s
hμs : ↑↑μ s < ⊤
⊢ ∫ (x : α) in s, ↑↑↑(↑(condexpL2 E'' 𝕜' hm) (compLp T f)) x ∂μ =
    ∫ (x : α) in s, ↑↑(compLp T ↑(↑(condexpL2 E' 𝕜 hm) f)) x ∂μ
[PROOFSTEP]
rw [T.set_integral_compLp _ (hm s hs),
  T.integral_comp_comm (integrableOn_Lp_of_measure_ne_top _ fact_one_le_two_ennreal.elim hμs.ne), ← lpMeas_coe, ←
  lpMeas_coe, integral_condexpL2_eq hm f hs hμs.ne, integral_condexpL2_eq hm (T.compLp f) hs hμs.ne,
  T.set_integral_compLp _ (hm s hs),
  T.integral_comp_comm (integrableOn_Lp_of_measure_ne_top f fact_one_le_two_ennreal.elim hμs.ne)]
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
T : E' →L[ℝ] E''
f : { x // x ∈ Lp E' 2 }
⊢ AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 E'' 𝕜' hm) (compLp T f))) μ
[PROOFSTEP]
rw [← lpMeas_coe]
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
T : E' →L[ℝ] E''
f : { x // x ∈ Lp E' 2 }
⊢ AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 E'' 𝕜' hm) (compLp T f))) μ
[PROOFSTEP]
exact lpMeas.aeStronglyMeasurable' _
[GOAL]
case refine'_3
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
T : E' →L[ℝ] E''
f : { x // x ∈ Lp E' 2 }
⊢ AEStronglyMeasurable' m (↑↑(compLp T ↑(↑(condexpL2 E' 𝕜 hm) f))) μ
[PROOFSTEP]
have h_coe := T.coeFn_compLp (condexpL2 E' 𝕜 hm f : α →₂[μ] E')
[GOAL]
case refine'_3
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
T : E' →L[ℝ] E''
f : { x // x ∈ Lp E' 2 }
h_coe : ∀ᵐ (a : α) ∂μ, ↑↑(compLp T ↑(↑(condexpL2 E' 𝕜 hm) f)) a = ↑T (↑↑↑(↑(condexpL2 E' 𝕜 hm) f) a)
⊢ AEStronglyMeasurable' m (↑↑(compLp T ↑(↑(condexpL2 E' 𝕜 hm) f))) μ
[PROOFSTEP]
rw [← EventuallyEq] at h_coe
[GOAL]
case refine'_3
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
T : E' →L[ℝ] E''
f : { x // x ∈ Lp E' 2 }
h_coe : (fun a => ↑↑(compLp T ↑(↑(condexpL2 E' 𝕜 hm) f)) a) =ᵐ[μ] fun a => ↑T (↑↑↑(↑(condexpL2 E' 𝕜 hm) f) a)
⊢ AEStronglyMeasurable' m (↑↑(compLp T ↑(↑(condexpL2 E' 𝕜 hm) f))) μ
[PROOFSTEP]
refine' AEStronglyMeasurable'.congr _ h_coe.symm
[GOAL]
case refine'_3
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
T : E' →L[ℝ] E''
f : { x // x ∈ Lp E' 2 }
h_coe : (fun a => ↑↑(compLp T ↑(↑(condexpL2 E' 𝕜 hm) f)) a) =ᵐ[μ] fun a => ↑T (↑↑↑(↑(condexpL2 E' 𝕜 hm) f) a)
⊢ AEStronglyMeasurable' m (fun a => ↑T (↑↑↑(↑(condexpL2 E' 𝕜 hm) f) a)) μ
[PROOFSTEP]
exact (lpMeas.aeStronglyMeasurable' (condexpL2 E' 𝕜 hm f)).continuous_comp T.continuous
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
⊢ ↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) =ᵐ[μ] fun a =>
    ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x
[PROOFSTEP]
rw [indicatorConstLp_eq_toSpanSingleton_compLp hs hμs x]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
⊢ ↑↑↑(↑(condexpL2 E' 𝕜 hm) (compLp (toSpanSingleton ℝ x) (indicatorConstLp 2 hs hμs 1))) =ᵐ[μ] fun a =>
    ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x
[PROOFSTEP]
have h_comp := condexpL2_comp_continuousLinearMap ℝ 𝕜 hm (toSpanSingleton ℝ x) (indicatorConstLp 2 hs hμs (1 : ℝ))
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
h_comp :
  ↑↑↑(↑(condexpL2 E' 𝕜 hm) (compLp (toSpanSingleton ℝ x) (indicatorConstLp 2 hs hμs 1))) =ᵐ[μ]
    ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))
⊢ ↑↑↑(↑(condexpL2 E' 𝕜 hm) (compLp (toSpanSingleton ℝ x) (indicatorConstLp 2 hs hμs 1))) =ᵐ[μ] fun a =>
    ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x
[PROOFSTEP]
rw [← lpMeas_coe] at h_comp
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
h_comp :
  ↑↑↑(↑(condexpL2 E' 𝕜 hm) (compLp (toSpanSingleton ℝ x) (indicatorConstLp 2 hs hμs 1))) =ᵐ[μ]
    ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))
⊢ ↑↑↑(↑(condexpL2 E' 𝕜 hm) (compLp (toSpanSingleton ℝ x) (indicatorConstLp 2 hs hμs 1))) =ᵐ[μ] fun a =>
    ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x
[PROOFSTEP]
refine' h_comp.trans _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
h_comp :
  ↑↑↑(↑(condexpL2 E' 𝕜 hm) (compLp (toSpanSingleton ℝ x) (indicatorConstLp 2 hs hμs 1))) =ᵐ[μ]
    ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))
⊢ ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) =ᵐ[μ] fun a =>
    ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x
[PROOFSTEP]
exact (toSpanSingleton ℝ x).coeFn_compLp _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
⊢ ↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) =
    compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))
[PROOFSTEP]
ext1
[GOAL]
case h
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
⊢ ↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) =ᵐ[μ]
    ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))
[PROOFSTEP]
rw [← lpMeas_coe]
[GOAL]
case h
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
⊢ ↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) =ᵐ[μ]
    ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))
[PROOFSTEP]
refine' (condexpL2_indicator_ae_eq_smul 𝕜 hm hs hμs x).trans _
[GOAL]
case h
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
⊢ (fun a => ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x) =ᵐ[μ]
    ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))
[PROOFSTEP]
have h_comp := (toSpanSingleton ℝ x).coeFn_compLp (condexpL2 ℝ ℝ hm (indicatorConstLp 2 hs hμs 1) : α →₂[μ] ℝ)
[GOAL]
case h
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
h_comp :
  ∀ᵐ (a : α) ∂μ,
    ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) a =
      ↑(toSpanSingleton ℝ x) (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a)
⊢ (fun a => ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x) =ᵐ[μ]
    ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))
[PROOFSTEP]
rw [← EventuallyEq] at h_comp
[GOAL]
case h
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
h_comp :
  (fun a => ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) a) =ᵐ[μ] fun a =>
    ↑(toSpanSingleton ℝ x) (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a)
⊢ (fun a => ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x) =ᵐ[μ]
    ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))
[PROOFSTEP]
refine' EventuallyEq.trans _ h_comp.symm
[GOAL]
case h
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
h_comp :
  (fun a => ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) a) =ᵐ[μ] fun a =>
    ↑(toSpanSingleton ℝ x) (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a)
⊢ (fun a => ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x) =ᵐ[μ] fun a =>
    ↑(toSpanSingleton ℝ x) (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a)
[PROOFSTEP]
refine' eventually_of_forall fun y => _
[GOAL]
case h
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
h_comp :
  (fun a => ↑↑(compLp (toSpanSingleton ℝ x) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) a) =ᵐ[μ] fun a =>
    ↑(toSpanSingleton ℝ x) (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a)
y : α
⊢ (fun a => ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x) y =
    (fun a => ↑(toSpanSingleton ℝ x) (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a)) y
[PROOFSTEP]
rfl
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
a : α
ha :
  ↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) a =
    (fun a => ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x) a
x✝ : a ∈ t
⊢ ↑‖↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) a‖₊ =
    ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x‖₊
[PROOFSTEP]
rw [ha]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ∫⁻ (a : α) in t, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x‖₊ ∂μ =
    (∫⁻ (a : α) in t, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a‖₊ ∂μ) * ↑‖x‖₊
[PROOFSTEP]
simp_rw [nnnorm_smul, ENNReal.coe_mul]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ∫⁻ (a : α) in t, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a‖₊ * ↑‖x‖₊ ∂μ =
    (∫⁻ (a : α) in t, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a‖₊ ∂μ) * ↑‖x‖₊
[PROOFSTEP]
rw [lintegral_mul_const, lpMeas_coe]
[GOAL]
case hf
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁸ : IsROrC 𝕜
inst✝¹⁷ : NormedAddCommGroup E
inst✝¹⁶ : InnerProductSpace 𝕜 E
inst✝¹⁵ : CompleteSpace E
inst✝¹⁴ : NormedAddCommGroup E'
inst✝¹³ : InnerProductSpace 𝕜 E'
inst✝¹² : CompleteSpace E'
inst✝¹¹ : NormedSpace ℝ E'
inst✝¹⁰ : NormedAddCommGroup F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedAddCommGroup G'
inst✝⁶ : NormedSpace ℝ G'
inst✝⁵ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁴ : IsROrC 𝕜'
inst✝³ : NormedAddCommGroup E''
inst✝² : InnerProductSpace 𝕜' E''
inst✝¹ : CompleteSpace E''
inst✝ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ Measurable fun a => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a‖₊
[PROOFSTEP]
exact (Lp.stronglyMeasurable _).ennnorm
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
inst✝ : SigmaFinite (Measure.trim μ hm)
⊢ ∫⁻ (a : α), ↑‖↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) a‖₊ ∂μ ≤ ↑↑μ s * ↑‖x‖₊
[PROOFSTEP]
refine' lintegral_le_of_forall_fin_meas_le' hm (μ s * ‖x‖₊) _ fun t ht hμt => _
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
inst✝ : SigmaFinite (Measure.trim μ hm)
⊢ AEMeasurable fun a => ↑‖↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) a‖₊
[PROOFSTEP]
rw [lpMeas_coe]
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
inst✝ : SigmaFinite (Measure.trim μ hm)
⊢ AEMeasurable fun a => ↑‖↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) a‖₊
[PROOFSTEP]
exact (Lp.aestronglyMeasurable _).ennnorm
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
inst✝ : SigmaFinite (Measure.trim μ hm)
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ∫⁻ (x_1 : α) in t, ↑‖↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) x_1‖₊ ∂μ ≤ ↑↑μ s * ↑‖x‖₊
[PROOFSTEP]
refine' (set_lintegral_nnnorm_condexpL2_indicator_le hm hs hμs x ht hμt).trans _
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
inst✝ : SigmaFinite (Measure.trim μ hm)
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ↑↑μ (s ∩ t) * ↑‖x‖₊ ≤ ↑↑μ s * ↑‖x‖₊
[PROOFSTEP]
exact mul_le_mul_right' (measure_mono (Set.inter_subset_left _ _)) _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
hm : m ≤ m0
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
⊢ Integrable ↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x))
[PROOFSTEP]
refine' integrable_of_forall_fin_meas_le' hm (μ s * ‖x‖₊) (ENNReal.mul_lt_top hμs ENNReal.coe_ne_top) _ _
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
hm : m ≤ m0
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
⊢ AEStronglyMeasurable (↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x))) μ
[PROOFSTEP]
rw [lpMeas_coe]
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
hm : m ≤ m0
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
⊢ AEStronglyMeasurable (↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x))) μ
[PROOFSTEP]
exact Lp.aestronglyMeasurable _
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
hm : m ≤ m0
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
⊢ ∀ (s_1 : Set α),
    MeasurableSet s_1 →
      ↑↑μ s_1 ≠ ⊤ →
        ∫⁻ (x_1 : α) in s_1, ↑‖↑↑↑(↑(condexpL2 E' 𝕜 hm) (indicatorConstLp 2 hs hμs x)) x_1‖₊ ∂μ ≤ ↑↑μ s * ↑‖x‖₊
[PROOFSTEP]
refine' fun t ht hμt => (set_lintegral_nnnorm_condexpL2_indicator_le hm hs hμs x ht hμt).trans _
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
hm : m ≤ m0
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E'
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ↑↑μ (s ∩ t) * ↑‖x‖₊ ≤ ↑↑μ s * ↑‖x‖₊
[PROOFSTEP]
exact mul_le_mul_right' (measure_mono (Set.inter_subset_left _ _)) _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
⊢ AEStronglyMeasurable' m (↑↑(condexpIndSMul hm hs hμs x)) μ
[PROOFSTEP]
have h : AEStronglyMeasurable' m (condexpL2 ℝ ℝ hm (indicatorConstLp 2 hs hμs 1) : α → ℝ) μ :=
  aeStronglyMeasurable'_condexpL2 _ _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ AEStronglyMeasurable' m (↑↑(condexpIndSMul hm hs hμs x)) μ
[PROOFSTEP]
rw [condexpIndSMul]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ AEStronglyMeasurable' m
    (↑↑(↑(compLpL 2 μ (toSpanSingleton ℝ x)) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))) μ
[PROOFSTEP]
suffices AEStronglyMeasurable' m (toSpanSingleton ℝ x ∘ condexpL2 ℝ ℝ hm (indicatorConstLp 2 hs hμs 1)) μ
  by
  refine' AEStronglyMeasurable'.congr this _
  refine' EventuallyEq.trans _ (coeFn_compLpL _ _).symm
  rfl
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
this : AEStronglyMeasurable' m (↑(toSpanSingleton ℝ x) ∘ ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ AEStronglyMeasurable' m
    (↑↑(↑(compLpL 2 μ (toSpanSingleton ℝ x)) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))) μ
[PROOFSTEP]
refine' AEStronglyMeasurable'.congr this _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
this : AEStronglyMeasurable' m (↑(toSpanSingleton ℝ x) ∘ ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ ↑(toSpanSingleton ℝ x) ∘ ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) =ᵐ[μ]
    ↑↑(↑(compLpL 2 μ (toSpanSingleton ℝ x)) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)))
[PROOFSTEP]
refine' EventuallyEq.trans _ (coeFn_compLpL _ _).symm
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
this : AEStronglyMeasurable' m (↑(toSpanSingleton ℝ x) ∘ ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ ↑(toSpanSingleton ℝ x) ∘ ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) =ᵐ[μ] fun a =>
    ↑(toSpanSingleton ℝ x) (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a)
[PROOFSTEP]
rfl
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ AEStronglyMeasurable' m (↑(toSpanSingleton ℝ x) ∘ ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
[PROOFSTEP]
exact AEStronglyMeasurable'.continuous_comp (toSpanSingleton ℝ x).continuous h
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x y : G
⊢ condexpIndSMul hm hs hμs (x + y) = condexpIndSMul hm hs hμs x + condexpIndSMul hm hs hμs y
[PROOFSTEP]
simp_rw [condexpIndSMul]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x y : G
⊢ ↑(compLpL 2 μ (toSpanSingleton ℝ (x + y))) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) =
    ↑(compLpL 2 μ (toSpanSingleton ℝ x)) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) +
      ↑(compLpL 2 μ (toSpanSingleton ℝ y)) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))
[PROOFSTEP]
rw [toSpanSingleton_add, add_compLpL, add_apply]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : ℝ
x : G
⊢ condexpIndSMul hm hs hμs (c • x) = c • condexpIndSMul hm hs hμs x
[PROOFSTEP]
simp_rw [condexpIndSMul]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : ℝ
x : G
⊢ ↑(compLpL 2 μ (toSpanSingleton ℝ (c • x))) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) =
    c • ↑(compLpL 2 μ (toSpanSingleton ℝ x)) ↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))
[PROOFSTEP]
rw [toSpanSingleton_smul, smul_compLpL, smul_apply]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²¹ : IsROrC 𝕜
inst✝²⁰ : NormedAddCommGroup E
inst✝¹⁹ : InnerProductSpace 𝕜 E
inst✝¹⁸ : CompleteSpace E
inst✝¹⁷ : NormedAddCommGroup E'
inst✝¹⁶ : InnerProductSpace 𝕜 E'
inst✝¹⁵ : CompleteSpace E'
inst✝¹⁴ : NormedSpace ℝ E'
inst✝¹³ : NormedAddCommGroup F
inst✝¹² : NormedSpace 𝕜 F
inst✝¹¹ : NormedAddCommGroup G
inst✝¹⁰ : NormedAddCommGroup G'
inst✝⁹ : NormedSpace ℝ G'
inst✝⁸ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁷ : IsROrC 𝕜'
inst✝⁶ : NormedAddCommGroup E''
inst✝⁵ : InnerProductSpace 𝕜' E''
inst✝⁴ : CompleteSpace E''
inst✝³ : NormedSpace ℝ E''
inst✝² : NormedSpace ℝ G
hm : m ≤ m0
inst✝¹ : NormedSpace ℝ F
inst✝ : SMulCommClass ℝ 𝕜 F
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : 𝕜
x : F
⊢ condexpIndSMul hm hs hμs (c • x) = c • condexpIndSMul hm hs hμs x
[PROOFSTEP]
rw [condexpIndSMul, condexpIndSMul, toSpanSingleton_smul', (toSpanSingleton ℝ x).smul_compLpL c, smul_apply]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
a : α
ha : ↑↑(condexpIndSMul hm hs hμs x) a = (fun a => ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x) a
x✝ : a ∈ t
⊢ ↑‖↑↑(condexpIndSMul hm hs hμs x) a‖₊ = ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x‖₊
[PROOFSTEP]
rw [ha]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ∫⁻ (a : α) in t, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x‖₊ ∂μ =
    (∫⁻ (a : α) in t, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a‖₊ ∂μ) * ↑‖x‖₊
[PROOFSTEP]
simp_rw [nnnorm_smul, ENNReal.coe_mul]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ∫⁻ (a : α) in t, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a‖₊ * ↑‖x‖₊ ∂μ =
    (∫⁻ (a : α) in t, ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a‖₊ ∂μ) * ↑‖x‖₊
[PROOFSTEP]
rw [lintegral_mul_const, lpMeas_coe]
[GOAL]
case hf
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ Measurable fun a => ↑‖↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a‖₊
[PROOFSTEP]
exact (Lp.stronglyMeasurable _).ennnorm
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
inst✝ : SigmaFinite (Measure.trim μ hm)
⊢ ∫⁻ (a : α), ↑‖↑↑(condexpIndSMul hm hs hμs x) a‖₊ ∂μ ≤ ↑↑μ s * ↑‖x‖₊
[PROOFSTEP]
refine' lintegral_le_of_forall_fin_meas_le' hm (μ s * ‖x‖₊) _ fun t ht hμt => _
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
inst✝ : SigmaFinite (Measure.trim μ hm)
⊢ AEMeasurable fun a => ↑‖↑↑(condexpIndSMul hm hs hμs x) a‖₊
[PROOFSTEP]
exact (Lp.aestronglyMeasurable _).ennnorm
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
inst✝ : SigmaFinite (Measure.trim μ hm)
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ∫⁻ (x_1 : α) in t, ↑‖↑↑(condexpIndSMul hm hs hμs x) x_1‖₊ ∂μ ≤ ↑↑μ s * ↑‖x‖₊
[PROOFSTEP]
refine' (set_lintegral_nnnorm_condexpIndSMul_le hm hs hμs x ht hμt).trans _
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
inst✝ : SigmaFinite (Measure.trim μ hm)
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ↑↑μ (s ∩ t) * ↑‖x‖₊ ≤ ↑↑μ s * ↑‖x‖₊
[PROOFSTEP]
exact mul_le_mul_right' (measure_mono (Set.inter_subset_left _ _)) _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
⊢ Integrable ↑↑(condexpIndSMul hm hs hμs x)
[PROOFSTEP]
refine' integrable_of_forall_fin_meas_le' hm (μ s * ‖x‖₊) (ENNReal.mul_lt_top hμs ENNReal.coe_ne_top) _ _
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
⊢ AEStronglyMeasurable (↑↑(condexpIndSMul hm hs hμs x)) μ
[PROOFSTEP]
exact Lp.aestronglyMeasurable _
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
⊢ ∀ (s_1 : Set α),
    MeasurableSet s_1 → ↑↑μ s_1 ≠ ⊤ → ∫⁻ (x_1 : α) in s_1, ↑‖↑↑(condexpIndSMul hm hs hμs x) x_1‖₊ ∂μ ≤ ↑↑μ s * ↑‖x‖₊
[PROOFSTEP]
refine' fun t ht hμt => (set_lintegral_nnnorm_condexpIndSMul_le hm hs hμs x ht hμt).trans _
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : G
t : Set α
ht : MeasurableSet t
hμt : ↑↑μ t ≠ ⊤
⊢ ↑↑μ (s ∩ t) * ↑‖x‖₊ ≤ ↑↑μ s * ↑‖x‖₊
[PROOFSTEP]
exact mul_le_mul_right' (measure_mono (Set.inter_subset_left _ _)) _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm : m ≤ m0
x : G
⊢ condexpIndSMul hm (_ : MeasurableSet ∅) (_ : ↑↑μ ∅ ≠ ⊤) x = 0
[PROOFSTEP]
rw [condexpIndSMul, indicatorConstLp_empty]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm : m ≤ m0
x : G
⊢ ↑(compLpL 2 μ (toSpanSingleton ℝ x)) ↑(↑(condexpL2 ℝ ℝ hm) 0) = 0
[PROOFSTEP]
simp only [Submodule.coe_zero, ContinuousLinearMap.map_zero]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm : m ≤ m0
hs : MeasurableSet s
ht : MeasurableSet t
hμs : ↑↑μ s ≠ ⊤
hμt : ↑↑μ t ≠ ⊤
⊢ ENNReal.toReal (↑↑μ (t ∩ s)) • 1 = ENNReal.toReal (↑↑μ (t ∩ s))
[PROOFSTEP]
rw [smul_eq_mul, mul_one]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝¹⁹ : IsROrC 𝕜
inst✝¹⁸ : NormedAddCommGroup E
inst✝¹⁷ : InnerProductSpace 𝕜 E
inst✝¹⁶ : CompleteSpace E
inst✝¹⁵ : NormedAddCommGroup E'
inst✝¹⁴ : InnerProductSpace 𝕜 E'
inst✝¹³ : CompleteSpace E'
inst✝¹² : NormedSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace 𝕜 F
inst✝⁹ : NormedAddCommGroup G
inst✝⁸ : NormedAddCommGroup G'
inst✝⁷ : NormedSpace ℝ G'
inst✝⁶ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁵ : IsROrC 𝕜'
inst✝⁴ : NormedAddCommGroup E''
inst✝³ : InnerProductSpace 𝕜' E''
inst✝² : CompleteSpace E''
inst✝¹ : NormedSpace ℝ E''
inst✝ : NormedSpace ℝ G
hm : m ≤ m0
hs : MeasurableSet s
ht : MeasurableSet t
hμs : ↑↑μ s ≠ ⊤
hμt : ↑↑μ t ≠ ⊤
x : G'
⊢ (∫ (a : α) in s, ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 ht hμt 1)) a ∂μ) • x = ENNReal.toReal (↑↑μ (t ∩ s)) • x
[PROOFSTEP]
rw [set_integral_condexpL2_indicator hs ht hμs hμt]
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
⊢ 0 ≤ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))
[PROOFSTEP]
have h : AEStronglyMeasurable' m (condexpL2 ℝ ℝ hm (indicatorConstLp 2 hs hμs 1) : α → ℝ) μ :=
  aeStronglyMeasurable'_condexpL2 _ _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ 0 ≤ᵐ[μ] ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))
[PROOFSTEP]
refine' EventuallyLE.trans_eq _ h.ae_eq_mk.symm
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ 0 ≤ᵐ[μ] AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h
[PROOFSTEP]
refine' @ae_le_of_ae_le_trim _ _ _ _ _ _ hm (0 : α → ℝ) _ _
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ 0 ≤ᵐ[Measure.trim μ hm] AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h
[PROOFSTEP]
refine' ae_nonneg_of_forall_set_integral_nonneg_of_sigmaFinite _ _
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ ∀ (s_1 : Set α),
    MeasurableSet s_1 →
      ↑↑(Measure.trim μ hm) s_1 < ⊤ →
        IntegrableOn (AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h) s_1
[PROOFSTEP]
rintro t - -
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
⊢ IntegrableOn (AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h) t
[PROOFSTEP]
refine @Integrable.integrableOn _ _ m _ _ _ _ ?_
[GOAL]
case refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
⊢ Integrable (AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h)
[PROOFSTEP]
refine' Integrable.trim hm _ _
[GOAL]
case refine'_1.refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
⊢ Integrable (AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h)
[PROOFSTEP]
rw [integrable_congr h.ae_eq_mk.symm]
[GOAL]
case refine'_1.refine'_1
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
⊢ Integrable ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))
[PROOFSTEP]
exact integrable_condexpL2_indicator hm hs hμs _
[GOAL]
case refine'_1.refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
⊢ StronglyMeasurable (AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h)
[PROOFSTEP]
exact h.stronglyMeasurable_mk
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ ∀ (s_1 : Set α),
    MeasurableSet s_1 →
      ↑↑(Measure.trim μ hm) s_1 < ⊤ →
        0 ≤
          ∫ (x : α) in s_1,
            AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x ∂Measure.trim μ hm
[PROOFSTEP]
intro t ht hμt
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : ↑↑(Measure.trim μ hm) t < ⊤
⊢ 0 ≤
    ∫ (x : α) in t,
      AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x ∂Measure.trim μ hm
[PROOFSTEP]
rw [← set_integral_trim hm h.stronglyMeasurable_mk ht]
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : ↑↑(Measure.trim μ hm) t < ⊤
⊢ 0 ≤ ∫ (x : α) in t, AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x ∂μ
[PROOFSTEP]
have h_ae : ∀ᵐ x ∂μ, x ∈ t → h.mk _ x = (condexpL2 ℝ ℝ hm (indicatorConstLp 2 hs hμs 1) : α → ℝ) x :=
  by
  filter_upwards [h.ae_eq_mk] with x hx
  exact fun _ => hx.symm
[GOAL]
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : ↑↑(Measure.trim μ hm) t < ⊤
⊢ ∀ᵐ (x : α) ∂μ,
    x ∈ t →
      AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x =
        ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) x
[PROOFSTEP]
filter_upwards [h.ae_eq_mk] with x hx
[GOAL]
case h
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : ↑↑(Measure.trim μ hm) t < ⊤
x : α
hx :
  ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) x =
    AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x
⊢ x ∈ t →
    AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x =
      ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) x
[PROOFSTEP]
exact fun _ => hx.symm
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : ↑↑(Measure.trim μ hm) t < ⊤
h_ae :
  ∀ᵐ (x : α) ∂μ,
    x ∈ t →
      AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x =
        ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) x
⊢ 0 ≤ ∫ (x : α) in t, AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x ∂μ
[PROOFSTEP]
rw [set_integral_congr_ae (hm t ht) h_ae, set_integral_condexpL2_indicator ht hs ((le_trim hm).trans_lt hμt).ne hμs]
[GOAL]
case refine'_2
α : Type u_1
E : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²⁰ : IsROrC 𝕜
inst✝¹⁹ : NormedAddCommGroup E
inst✝¹⁸ : InnerProductSpace 𝕜 E
inst✝¹⁷ : CompleteSpace E
inst✝¹⁶ : NormedAddCommGroup E'
inst✝¹⁵ : InnerProductSpace 𝕜 E'
inst✝¹⁴ : CompleteSpace E'
inst✝¹³ : NormedSpace ℝ E'
inst✝¹² : NormedAddCommGroup F
inst✝¹¹ : NormedSpace 𝕜 F
inst✝¹⁰ : NormedAddCommGroup G
inst✝⁹ : NormedAddCommGroup G'
inst✝⁸ : NormedSpace ℝ G'
inst✝⁷ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t✝ : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁶ : IsROrC 𝕜'
inst✝⁵ : NormedAddCommGroup E''
inst✝⁴ : InnerProductSpace 𝕜' E''
inst✝³ : CompleteSpace E''
inst✝² : NormedSpace ℝ E''
inst✝¹ : NormedSpace ℝ G
hm✝ hm : m ≤ m0
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
inst✝ : SigmaFinite (Measure.trim μ hm)
h : AEStronglyMeasurable' m (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : ↑↑(Measure.trim μ hm) t < ⊤
h_ae :
  ∀ᵐ (x : α) ∂μ,
    x ∈ t →
      AEStronglyMeasurable'.mk (↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x =
        ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) x
⊢ 0 ≤ ENNReal.toReal (↑↑μ (s ∩ t))
[PROOFSTEP]
exact ENNReal.toReal_nonneg
[GOAL]
α : Type u_1
E✝ : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²³ : IsROrC 𝕜
inst✝²² : NormedAddCommGroup E✝
inst✝²¹ : InnerProductSpace 𝕜 E✝
inst✝²⁰ : CompleteSpace E✝
inst✝¹⁹ : NormedAddCommGroup E'
inst✝¹⁸ : InnerProductSpace 𝕜 E'
inst✝¹⁷ : CompleteSpace E'
inst✝¹⁶ : NormedSpace ℝ E'
inst✝¹⁵ : NormedAddCommGroup F
inst✝¹⁴ : NormedSpace 𝕜 F
inst✝¹³ : NormedAddCommGroup G
inst✝¹² : NormedAddCommGroup G'
inst✝¹¹ : NormedSpace ℝ G'
inst✝¹⁰ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁹ : IsROrC 𝕜'
inst✝⁸ : NormedAddCommGroup E''
inst✝⁷ : InnerProductSpace 𝕜' E''
inst✝⁶ : CompleteSpace E''
inst✝⁵ : NormedSpace ℝ E''
inst✝⁴ : NormedSpace ℝ G
hm : m ≤ m0
E : Type u_10
inst✝³ : NormedLatticeAddCommGroup E
inst✝² : NormedSpace ℝ E
inst✝¹ : OrderedSMul ℝ E
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E
hx : 0 ≤ x
⊢ 0 ≤ᵐ[μ] ↑↑(condexpIndSMul hm hs hμs x)
[PROOFSTEP]
refine' EventuallyLE.trans_eq _ (condexpIndSMul_ae_eq_smul hm hs hμs x).symm
[GOAL]
α : Type u_1
E✝ : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²³ : IsROrC 𝕜
inst✝²² : NormedAddCommGroup E✝
inst✝²¹ : InnerProductSpace 𝕜 E✝
inst✝²⁰ : CompleteSpace E✝
inst✝¹⁹ : NormedAddCommGroup E'
inst✝¹⁸ : InnerProductSpace 𝕜 E'
inst✝¹⁷ : CompleteSpace E'
inst✝¹⁶ : NormedSpace ℝ E'
inst✝¹⁵ : NormedAddCommGroup F
inst✝¹⁴ : NormedSpace 𝕜 F
inst✝¹³ : NormedAddCommGroup G
inst✝¹² : NormedAddCommGroup G'
inst✝¹¹ : NormedSpace ℝ G'
inst✝¹⁰ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁹ : IsROrC 𝕜'
inst✝⁸ : NormedAddCommGroup E''
inst✝⁷ : InnerProductSpace 𝕜' E''
inst✝⁶ : CompleteSpace E''
inst✝⁵ : NormedSpace ℝ E''
inst✝⁴ : NormedSpace ℝ G
hm : m ≤ m0
E : Type u_10
inst✝³ : NormedLatticeAddCommGroup E
inst✝² : NormedSpace ℝ E
inst✝¹ : OrderedSMul ℝ E
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E
hx : 0 ≤ x
⊢ 0 ≤ᵐ[μ] fun a => ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x
[PROOFSTEP]
filter_upwards [condexpL2_indicator_nonneg hm hs hμs] with a ha
[GOAL]
case h
α : Type u_1
E✝ : Type u_2
E' : Type u_3
F : Type u_4
G : Type u_5
G' : Type u_6
𝕜 : Type u_7
p : ℝ≥0∞
inst✝²³ : IsROrC 𝕜
inst✝²² : NormedAddCommGroup E✝
inst✝²¹ : InnerProductSpace 𝕜 E✝
inst✝²⁰ : CompleteSpace E✝
inst✝¹⁹ : NormedAddCommGroup E'
inst✝¹⁸ : InnerProductSpace 𝕜 E'
inst✝¹⁷ : CompleteSpace E'
inst✝¹⁶ : NormedSpace ℝ E'
inst✝¹⁵ : NormedAddCommGroup F
inst✝¹⁴ : NormedSpace 𝕜 F
inst✝¹³ : NormedAddCommGroup G
inst✝¹² : NormedAddCommGroup G'
inst✝¹¹ : NormedSpace ℝ G'
inst✝¹⁰ : CompleteSpace G'
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
E'' : Type u_8
𝕜' : Type u_9
inst✝⁹ : IsROrC 𝕜'
inst✝⁸ : NormedAddCommGroup E''
inst✝⁷ : InnerProductSpace 𝕜' E''
inst✝⁶ : CompleteSpace E''
inst✝⁵ : NormedSpace ℝ E''
inst✝⁴ : NormedSpace ℝ G
hm : m ≤ m0
E : Type u_10
inst✝³ : NormedLatticeAddCommGroup E
inst✝² : NormedSpace ℝ E
inst✝¹ : OrderedSMul ℝ E
inst✝ : SigmaFinite (Measure.trim μ hm)
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
x : E
hx : 0 ≤ x
a : α
ha : OfNat.ofNat 0 a ≤ ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a
⊢ OfNat.ofNat 0 a ≤ ↑↑↑(↑(condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1)) a • x
[PROOFSTEP]
exact smul_nonneg ha hx