rw [setIntegral_congr (by simp)]
case calc_1
𝕂 : Type u_1
inst✝ : _root_.RCLike 𝕂
Ψ : ℝ → ℝ
Ψnonneg : ∀ x > 0, 0 ≤ Ψ x
mass_one : ∫ (x : ℝ) in Ioi 0, Ψ x / x = 1
ε : ℝ
εpos : 0 < ε
x : ℝ
xpos : 0 < x
this : ∫ (y : ℝ) in Ioi 0, Ψ ((x / y) ^ (1 / ε)) / ε / y = 1
⊢ ∫ (y : ℝ) in Ioi 0, (fun x => if 0 < x ∧ x ≤ 1 then 1 else 0) y * (Ψ ((x / y) ^ (1 / ε)) / ε) / ↑y =
    ∫ (y : ℝ) in Ioi 0, (fun y => if y ∈ Ioc 0 1 then 1 else 0) y * (Ψ ((x / y) ^ (1 / ε)) / ε / y)
case calc_1
𝕂 : Type u_1
inst✝ : _root_.RCLike 𝕂
Ψ : ℝ → ℝ
Ψnonneg : ∀ x > 0, 0 ≤ Ψ x
mass_one : ∫ (x : ℝ) in Ioi 0, Ψ x / x = 1
ε : ℝ
εpos : 0 < ε
x : ℝ
xpos : 0 < x
this : ∫ (y : ℝ) in Ioi 0, Ψ ((x / y) ^ (1 / ε)) / ε / y = 1
⊢ EqOn (fun y => (fun x => if 0 < x ∧ x ≤ 1 then 1 else 0) y * (Ψ ((x / y) ^ (1 / ε)) / ε) / ↑y)
    (fun x_1 => (fun y => if y ∈ Ioc 0 1 then 1 else 0) x_1 * (Ψ ((x / x_1) ^ (1 / ε)) / ε / x_1)) (Ioi 0)