intro y hy
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 => (if 0 < y ∧ y ≤ 1 then Ψ ((x / y) ^ (1 / ε)) / ε else 0) / y)
    (fun x_1 => if 0 < x_1 ∧ x_1 ≤ 1 then Ψ ((x / x_1) ^ (1 / ε)) / ε / x_1 else 0) (Ioi 0)
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 : ℝ
hy : y ∈ Ioi 0
⊢ (fun y => (if 0 < y ∧ y ≤ 1 then Ψ ((x / y) ^ (1 / ε)) / ε else 0) / y) y =
    (fun x_1 => if 0 < x_1 ∧ x_1 ≤ 1 then Ψ ((x / x_1) ^ (1 / ε)) / ε / x_1 else 0) y