fun_prop
case right.refine_1
n : ℕ
A a b c d u x y t σ' : ℝ
ψ Ψ : ℝ → ℂ
F G : ℂ → ℂ
f : ℕ → ℂ
𝕜 : Type
inst✝ : _root_.RCLike 𝕜
hcont : Continuous ψ
hsupp : Integrable ψ volume
hσ : 1 < σ'
ν : Measure (ℝ × ℝ) := (volume.restrict (Ici (-x.log))).prod volume
f1 : ℝ → ENNReal := fun a1 => ↑‖cexp (-(↑a1 * (↑σ' - 1)))‖₊
f2 : ℝ → ENNReal := fun a2 => ↑‖ψ a2‖₊
⊢ AEMeasurable (fun a1 => ↑‖cexp (-(↑a1 * (↑σ' - 1)))‖₊) (volume.restrict (Ici (-x.log)))

case right.refine_2
n : ℕ
A a b c d u x y t σ' : ℝ
ψ Ψ : ℝ → ℂ
F G : ℂ → ℂ
f : ℕ → ℂ
𝕜 : Type
inst✝ : _root_.RCLike 𝕜
hcont : Continuous ψ
hsupp : Integrable ψ volume
hσ : 1 < σ'
ν : Measure (ℝ × ℝ) := (volume.restrict (Ici (-x.log))).prod volume
f1 : ℝ → ENNReal := fun a1 => ↑‖cexp (-(↑a1 * (↑σ' - 1)))‖₊
f2 : ℝ → ENNReal := fun a2 => ↑‖ψ a2‖₊
⊢ AEMeasurable (fun a2 => ↑‖ψ a2‖₊) volume

case right.refine_3
n : ℕ
A a b c d u x y t σ' : ℝ
ψ Ψ : ℝ → ℂ
F G : ℂ → ℂ
f : ℕ → ℂ
𝕜 : Type
inst✝ : _root_.RCLike 𝕜
hcont : Continuous ψ
hsupp : Integrable ψ volume
hσ : 1 < σ'
ν : Measure (ℝ × ℝ) := (volume.restrict (Ici (-x.log))).prod volume
f1 : ℝ → ENNReal := fun a1 => ↑‖cexp (-(↑a1 * (↑σ' - 1)))‖₊
f2 : ℝ → ENNReal := fun a2 => ↑‖ψ a2‖₊
⊢ (∫⁻ (x : ℝ) in Ici (-x.log), (fun a1 => ↑‖cexp (-(↑a1 * (↑σ' - 1)))‖₊) x) *
      ∫⁻ (y : ℝ), (fun a2 => ↑‖ψ a2‖₊) y ∂volume <
    ⊤
case right.refine_2
n : ℕ
A a b c d u x y t σ' : ℝ
ψ Ψ : ℝ → ℂ
F G : ℂ → ℂ
f : ℕ → ℂ
𝕜 : Type
inst✝ : _root_.RCLike 𝕜
hcont : Continuous ψ
hsupp : Integrable ψ volume
hσ : 1 < σ'
ν : Measure (ℝ × ℝ) := (volume.restrict (Ici (-x.log))).prod volume
f1 : ℝ → ENNReal := fun a1 => ↑‖cexp (-(↑a1 * (↑σ' - 1)))‖₊
f2 : ℝ → ENNReal := fun a2 => ↑‖ψ a2‖₊
⊢ AEMeasurable (fun a2 => ↑‖ψ a2‖₊) volume

case right.refine_3
n : ℕ
A a b c d u x y t σ' : ℝ
ψ Ψ : ℝ → ℂ
F G : ℂ → ℂ
f : ℕ → ℂ
𝕜 : Type
inst✝ : _root_.RCLike 𝕜
hcont : Continuous ψ
hsupp : Integrable ψ volume
hσ : 1 < σ'
ν : Measure (ℝ × ℝ) := (volume.restrict (Ici (-x.log))).prod volume
f1 : ℝ → ENNReal := fun a1 => ↑‖cexp (-(↑a1 * (↑σ' - 1)))‖₊
f2 : ℝ → ENNReal := fun a2 => ↑‖ψ a2‖₊
⊢ (∫⁻ (x : ℝ) in Ici (-x.log), (fun a1 => ↑‖cexp (-(↑a1 * (↑σ' - 1)))‖₊) x) *
      ∫⁻ (y : ℝ), (fun a2 => ↑‖ψ a2‖₊) y ∂volume <
    ⊤