Theorem: MeasureTheory.condexpL2_indicator_nonneg
File: Mathlib/MeasureTheory/Function/ConditionalExpectation/CondexpL2.lean

tactic: have h : AEStronglyMeasurable' m (condexpL2 ℝ ℝ hm (indicatorConstLp 2 hs hμs 1) : α → ℝ) μ :=
  aeStronglyMeasurable'_condexpL2 _ _
state_before: α : 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
⊢ 0 ≤ᶠ[ae μ] ↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))
state_after: α : 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ 0 ≤ᶠ[ae μ] ↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))

tactic: refine EventuallyLE.trans_eq ?_ h.ae_eq_mk.symm
state_before: α : 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ 0 ≤ᶠ[ae μ] ↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))
state_after: α : 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ 0 ≤ᶠ[ae μ] AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h

tactic: refine @ae_le_of_ae_le_trim _ _ _ _ _ _ hm (0 : α → ℝ) _ ?_
state_before: α : 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ 0 ≤ᶠ[ae μ] AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h
state_after: α : 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ 0 ≤ᶠ[ae (μ.trim hm)] AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h

tactic: refine ae_nonneg_of_forall_setIntegral_nonneg_of_sigmaFinite ?_ ?_
state_before: α : 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ 0 ≤ᶠ[ae (μ.trim hm)] AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h
state_after: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ ∀ (s_1 : Set α),
    MeasurableSet s_1 →
      (μ.trim hm) s_1 < ⊤ →
        IntegrableOn (AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h) s_1
          (μ.trim hm)

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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ ∀ (s_1 : Set α),
    MeasurableSet s_1 →
      (μ.trim hm) s_1 < ⊤ →
        0 ≤
          ∫ (x : α) in s_1,
            AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x ∂μ.trim hm

tactic: rintro t - -
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ ∀ (s_1 : Set α),
    MeasurableSet s_1 →
      (μ.trim hm) s_1 < ⊤ →
        IntegrableOn (AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h) s_1
          (μ.trim hm)
state_after: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.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 (μ.trim hm)

tactic: refine @Integrable.integrableOn _ _ m _ _ _ _ ?_
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.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 (μ.trim hm)
state_after: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.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) (μ.trim hm)

tactic: refine Integrable.trim hm ?_ ?_
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.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) (μ.trim hm)
state_after: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.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) μ

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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.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)

tactic: rw [integrable_congr h.ae_eq_mk.symm]
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.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) μ
state_after: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
⊢ Integrable (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ

tactic: exact integrable_condexpL2_indicator hm hs hμs _
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
⊢ Integrable (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
state_after: no goals

tactic: exact h.stronglyMeasurable_mk
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.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)
state_after: no goals

tactic: intro t ht hμt
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
⊢ ∀ (s_1 : Set α),
    MeasurableSet s_1 →
      (μ.trim hm) s_1 < ⊤ →
        0 ≤
          ∫ (x : α) in s_1,
            AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x ∂μ.trim hm
state_after: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.trim hm) t < ⊤
⊢ 0 ≤ ∫ (x : α) in t, AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x ∂μ.trim hm

tactic: rw [← setIntegral_trim hm h.stronglyMeasurable_mk ht]
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.trim hm) t < ⊤
⊢ 0 ≤ ∫ (x : α) in t, AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x ∂μ.trim hm
state_after: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.trim hm) t < ⊤
⊢ 0 ≤ ∫ (x : α) in t, AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x ∂μ

tactic: 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
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.trim hm) t < ⊤
⊢ 0 ≤ ∫ (x : α) in t, AEStronglyMeasurable'.mk (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) h x ∂μ
state_after: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.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 ∂μ

tactic: rw [setIntegral_congr_ae (hm t ht) h_ae,
  setIntegral_condexpL2_indicator ht hs ((le_trim hm).trans_lt hμt).ne hμs]
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.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 ∂μ
state_after: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.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 ≤ (μ (s ∩ t)).toReal

tactic: exact ENNReal.toReal_nonneg
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.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 ≤ (μ (s ∩ t)).toReal
state_after: no goals

tactic: filter_upwards [h.ae_eq_mk] with x hx
state_before: α : 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.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
state_after: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.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

tactic: exact fun _ => hx.symm
state_before: 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✝²⁰ : RCLike 𝕜
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✝⁶ : RCLike 𝕜'
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 (μ.trim hm)
h : AEStronglyMeasurable' m (↑↑↑((condexpL2 ℝ ℝ hm) (indicatorConstLp 2 hs hμs 1))) μ
t : Set α
ht : MeasurableSet t
hμt : (μ.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
state_after: no goals