-- Lean 4 proof step from Mathlib.MeasureTheory.Function.ConditionalExpectation.PullOut (goal)
Goal:
Ω : Type u_1
m mΩ : MeasurableSpace Ω
μ : Measure Ω
E : Type u_2
F : Type u_3
G : Type u_4
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
inst_2 : NormedAddCommGroup F
inst_3 : NormedSpace ℝ F
inst_4 : NormedAddCommGroup G
inst_5 : NormedSpace ℝ G
inst_6 : CompleteSpace G
B : F →L[ℝ] E →L[ℝ] G
inst_7 : CompleteSpace E
hm : m ≤ mΩ
inst_8 : IsFiniteMeasure μ
f : Ω → F
g : Ω → E
hf : StronglyMeasurable f
hg : Integrable g μ
c : ℝ
hf_bound : ∀ᵐ (ω : Ω) ∂μ, ‖f ω‖ ≤ c
fs : ℕ → SimpleFunc Ω F := hf.approxBounded c
hfs_tendsto : ∀ᵐ (ω : Ω) ∂μ, Tendsto (fun (x : ℕ) ↦ (fs x : (a : Ω) → F) ω) atTop (𝓝 (f ω))
hμ : ¬μ = 0
this_1 : (ae μ).NeBot
hc : 0 ≤ c
hfs_bound : ∀ (n : ℕ) (ω : Ω), norm.{u_3} (E := F) ((fs n : (a : Ω) → F) ω : F) ≤ c
this :
  Eq (α := Ω → G) μ[fun (ω : Ω) ↦ (((B : (a : F) → E →L[ℝ] G) (f ω) : E →L[ℝ] G) : (a : E) → G) (μ[g | m] ω) | m]
    fun (ω : Ω) ↦ (((B : (a : F) → E →L[ℝ] G) (f ω) : E →L[ℝ] G) : (a : E) → G) (μ[g | m] ω)
neg :
  ∀ (n : ℕ),
    Integrable.{u_4, u_1} (ε := G)
      ((fun (n : ℕ) (ω : Ω) ↦
          ((((B : (a : F) → E →L[ℝ] G) ((fs n : (a : Ω) → F) ω) : E →L[ℝ] G) : (a : E) → G) (g ω) : G))
        n)
      μ
neg₁ :
  ∀ (n : ℕ),
    Integrable.{u_4, u_1} (ε := G)
      ((fun (n : ℕ) (ω : Ω) ↦
          ((((B : (a : F) → E →L[ℝ] G) ((fs n : (a : Ω) → F) ω) : E →L[ℝ] G) : (a : E) → G) (μ[g | m] ω) : G))
        n)
      μ
neg₂ :
  ∀ᵐ (x : Ω) ∂μ,
    Tendsto.{0, u_4} (β := G)
      (fun (n : ℕ) ↦
        (fun (n : ℕ) (ω : Ω) ↦
            ((((B : (a : F) → E →L[ℝ] G) ((fs n : (a : Ω) → F) ω) : E →L[ℝ] G) : (a : E) → G) (g ω) : G))
          n x)
      atTop (𝓝 ((fun (ω : Ω) ↦ ((((B : (a : F) → E →L[ℝ] G) (f ω) : E →L[ℝ] G) : (a : E) → G) (g ω) : G)) x))
neg₃ :
  ∀ᵐ (x : Ω) ∂μ,
    Tendsto.{0, u_4} (β := G)
      (fun (n : ℕ) ↦
        (fun (n : ℕ) (ω : Ω) ↦
            ((((B : (a : F) → E →L[ℝ] G) ((fs n : (a : Ω) → F) ω) : E →L[ℝ] G) : (a : E) → G) (μ[g | m] ω) : G))
          n x)
      atTop (𝓝 ((fun (ω : Ω) ↦ ((((B : (a : F) → E →L[ℝ] G) (f ω) : E →L[ℝ] G) : (a : E) → G) (μ[g | m] ω) : G)) x))
neg₄ : Integrable (ε := ℝ) (fun (x : Ω) ↦ ‖B‖ * c * ‖g x‖) μ
neg₅ : Integrable (ε := ℝ) (fun (x : Ω) ↦ ‖B‖ * c * ‖μ[g | m] x‖) μ
neg₆ :
  ∀ (n : ℕ),
    ∀ᵐ (x : Ω) ∂μ,
      norm.{u_4} (E := G)
          ((fun (n : ℕ) (ω : Ω) ↦
              ((((B : (a : F) → E →L[ℝ] G) ((fs n : (a : Ω) → F) ω) : E →L[ℝ] G) : (a : E) → G) (g ω) : G))
            n x) ≤
        (fun (x : Ω) ↦ ‖B‖ * c * ‖g x‖) x
neg₇ :
  ∀ (n : ℕ),
    ∀ᵐ (x : Ω) ∂μ,
      norm.{u_4} (E := G)
          ((fun (n : ℕ) (ω : Ω) ↦
              ((((B : (a : F) → E →L[ℝ] G) ((fs n : (a : Ω) → F) ω) : E →L[ℝ] G) : (a : E) → G) (μ[g | m] ω) : G))
            n x) ≤
        (fun (x : Ω) ↦ ‖B‖ * c * ‖μ[g | m] x‖) x
⊢ EventuallyEq.{u_1, u_4} (β := G) (ae μ)
    μ[fun (ω : Ω) ↦ (((B : (a : F) → E →L[ℝ] G) (f ω) : E →L[ℝ] G) : (a : E) → G) (g ω) | m]
    μ[fun (ω : Ω) ↦ (((B : (a : F) → E →L[ℝ] G) (f ω) : E →L[ℝ] G) : (a : E) → G) (μ[g | m] ω) | m]
have neg₈ : ∀ (n : ℕ),
  EventuallyEq.{u_1, u_4} (β := G) (ae μ)
    μ[(fun (n : ℕ) (ω : Ω) ↦
          ((((B : (a : F) → E →L[ℝ] G) ((fs n : (a : Ω) → F) ω) : E →L[ℝ] G) : (a : E) → G) (g ω) : G))
        n |
      m]
    μ[(fun (n : ℕ) (ω : Ω) ↦
          ((((B : (a : F) → E →L[ℝ] G) ((fs n : (a : Ω) → F) ω) : E →L[ℝ] G) : (a : E) → G) (μ[g | m] ω) : G))
        n |
      m]
Tactic: refine tendsto_condExp_unique (fun n ω ↦ B (fs n ω) (g ω))
    (fun n ω ↦ B (fs n ω) (μ[g | m] ω)) (fun ω ↦ B (f ω) (g ω))
    (fun ω ↦ B (f ω) (μ[g | m] ω)) ?_ ?_ ?_ ?_ (‖B‖ * c * ‖g ·‖) ?_ (‖B‖ * c * ‖(μ[g | m]) ·‖)
    ?_ ?_ ?_ ?_