rw [← integral_comp_mul_right_I0i_haar (fun y ↦ f y * g (x / y)) xpos]
case calc_1
𝕂 : Type u_1
inst✝ : _root_.RCLike 𝕂
f g : ℝ → 𝕂
x : ℝ
xpos : 0 < x
⊢ ∫ (y : ℝ) in Ioi 0, f y * g (x / y) / ↑y = ∫ (y : ℝ) in Ioi 0, f (y * x) * g (1 / y) / ↑y
case calc_1
𝕂 : Type u_1
inst✝ : _root_.RCLike 𝕂
f g : ℝ → 𝕂
x : ℝ
xpos : 0 < x
⊢ ∫ (y : ℝ) in Ioi 0, f (y * x) * g (x / (y * x)) / ↑y = ∫ (y : ℝ) in Ioi 0, f (y * x) * g (1 / y) / ↑y