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

tactic: 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 _
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
⊢ ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) =ᶠ[ae μ] fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
⊢ ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) =ᶠ[ae μ] fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜

tactic: have h_eq : h_mem_Lp.toLp _ =ᵐ[μ] fun a => ⟪c, (condexpL2 E 𝕜 hm f : α → E) a⟫ :=
  h_mem_Lp.coeFn_toLp
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
⊢ ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) =ᶠ[ae μ] fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) =ᶠ[ae μ] fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜

tactic: refine EventuallyEq.trans ?_ h_eq
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) =ᶠ[ae μ] fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) =ᶠ[ae μ]
    ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp)

tactic: refine Lp.ae_eq_of_forall_setIntegral_eq' 𝕜 hm _ _ two_ne_zero ENNReal.coe_ne_top
  (fun s _ hμs => integrableOn_condexpL2_of_measure_ne_top hm hμs.ne _) ?_ ?_ ?_ ?_
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) =ᶠ[ae μ]
    ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp)
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ ∀ (s : Set α),
    MeasurableSet s → μ s < ⊤ → IntegrableOn (↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp)) s μ

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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ ∀ (s : Set α),
    MeasurableSet s →
      μ s < ⊤ →
        ∫ (x : α) in s, ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) x ∂μ =
          ∫ (x : α) in s, ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) x ∂μ

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✝¹³ : 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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ AEStronglyMeasurable' m (↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯))) μ

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✝¹³ : 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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ AEStronglyMeasurable' m (↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp)) μ

tactic: refine Memℒp.const_inner _ ?_
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
⊢ Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
⊢ Memℒp (↑↑↑((condexpL2 E 𝕜 hm) f)) 2 μ

tactic: exact Lp.memℒp _
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
⊢ Memℒp (↑↑↑((condexpL2 E 𝕜 hm) f)) 2 μ
state_after: no goals

tactic: intro s _ hμs
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ ∀ (s : Set α),
    MeasurableSet s → μ s < ⊤ → IntegrableOn (↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp)) s μ
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
s : Set α
a✝ : MeasurableSet s
hμs : μ s < ⊤
⊢ IntegrableOn (↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp)) s μ

tactic: rw [IntegrableOn, integrable_congr (ae_restrict_of_ae h_eq)]
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
s : Set α
a✝ : MeasurableSet s
hμs : μ s < ⊤
⊢ IntegrableOn (↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp)) s μ
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
s : Set α
a✝ : MeasurableSet s
hμs : μ s < ⊤
⊢ Integrable (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) (μ.restrict s)

tactic: exact (integrableOn_condexpL2_of_measure_ne_top hm hμs.ne _).const_inner _
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
s : Set α
a✝ : MeasurableSet s
hμs : μ s < ⊤
⊢ Integrable (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) (μ.restrict s)
state_after: no goals

tactic: intro s hs 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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ ∀ (s : Set α),
    MeasurableSet s →
      μ s < ⊤ →
        ∫ (x : α) in s, ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) x ∂μ =
          ∫ (x : α) in s, ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) 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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
s : Set α
hs : MeasurableSet s
hμs : μ s < ⊤
⊢ ∫ (x : α) in s, ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) x ∂μ =
    ∫ (x : α) in s, ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) x ∂μ

tactic: 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_setIntegral_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_setIntegral_inner 𝕜 f (hm s hs) c hμs.ne,
  setIntegral_congr_ae (hm s hs)
    ((Memℒp.coeFn_toLp ((Lp.memℒp f).const_inner c)).mono fun x hx _ => hx)]
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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
s : Set α
hs : MeasurableSet s
hμs : μ s < ⊤
⊢ ∫ (x : α) in s, ↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯)) x ∂μ =
    ∫ (x : α) in s, ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) x ∂μ
state_after: no goals

tactic: exact lpMeas.aeStronglyMeasurable' _
state_before: 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✝¹³ : 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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ AEStronglyMeasurable' m (↑↑↑((condexpL2 𝕜 𝕜 hm) (Memℒp.toLp (fun a => ⟪c, ↑↑f a⟫_𝕜) ⋯))) μ
state_after: no goals

tactic: refine AEStronglyMeasurable'.congr ?_ h_eq.symm
state_before: 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✝¹³ : 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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ AEStronglyMeasurable' m (↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp)) μ
state_after: 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✝¹³ : 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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ AEStronglyMeasurable' m (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) μ

tactic: exact (lpMeas.aeStronglyMeasurable' _).const_inner _
state_before: 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✝¹³ : 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 α
hm : m ≤ m0
f : ↥(Lp E 2 μ)
c : E
h_mem_Lp : Memℒp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) 2 μ
h_eq :
  ↑↑(Memℒp.toLp (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) h_mem_Lp) =ᶠ[ae μ] fun a =>
    ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜
⊢ AEStronglyMeasurable' m (fun a => ⟪c, ↑↑↑((condexpL2 E 𝕜 hm) f) a⟫_𝕜) μ
state_after: no goals