have := integral_comp_rpow_I0i_haar_real (fun y ↦ Ψ y) (one_div_ne_zero εpos.ne')
case calc_2
𝕂 : Type u_1
inst✝ : _root_.RCLike 𝕂
x ε : ℝ
Ψ : ℝ → ℝ
xpos : 0 < x
εpos : 0 < ε
mass_one : ∫ (x : ℝ) in Ioi 0, Ψ x / x = 1
⊢ ∫ (y : ℝ) in Ioi 0, Ψ (y ^ (1 / ε)) / ε / y = ∫ (y : ℝ) in Ioi 0, Ψ y / y
case calc_2
𝕂 : Type u_1
inst✝ : _root_.RCLike 𝕂
x ε : ℝ
Ψ : ℝ → ℝ
xpos : 0 < x
εpos : 0 < ε
mass_one : ∫ (x : ℝ) in Ioi 0, Ψ x / x = 1
this : ∫ (y : ℝ) in Ioi 0, |1 / ε| * (fun y => Ψ y) (y ^ (1 / ε)) / y = ∫ (y : ℝ) in Ioi 0, (fun y => Ψ y) y / y
⊢ ∫ (y : ℝ) in Ioi 0, Ψ (y ^ (1 / ε)) / ε / y = ∫ (y : ℝ) in Ioi 0, Ψ y / y