Theorem: MeasureTheory.locallyIntegrable_map_homeomorph
File: Mathlib/MeasureTheory/Function/LocallyIntegrable.lean

tactic: refine' ⟨fun h x => _, fun h x => _⟩
state_before: X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
⊢ LocallyIntegrable f ↔ LocallyIntegrable (f ∘ ↑e)

tactic: rcases h (e x) with ⟨U, hU, h'U⟩
state_before: case refine'_1
X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
h : LocallyIntegrable f
x : X
⊢ IntegrableAtFilter (f ∘ ↑e) (𝓝 x)

tactic: refine' ⟨e ⁻¹' U, e.continuous.continuousAt.preimage_mem_nhds hU, _⟩
state_before: case refine'_1.intro.intro
X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
h : LocallyIntegrable f
x : X
U : Set Y
hU : U ∈ 𝓝 (↑e x)
h'U : IntegrableOn f U
⊢ IntegrableAtFilter (f ∘ ↑e) (𝓝 x)

tactic: exact (integrableOn_map_equiv e.toMeasurableEquiv).1 h'U
state_before: case refine'_1.intro.intro
X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
h : LocallyIntegrable f
x : X
U : Set Y
hU : U ∈ 𝓝 (↑e x)
h'U : IntegrableOn f U
⊢ IntegrableOn (f ∘ ↑e) (↑e ⁻¹' U)

tactic: rcases h (e.symm x) with ⟨U, hU, h'U⟩
state_before: case refine'_2
X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
h : LocallyIntegrable (f ∘ ↑e)
x : Y
⊢ IntegrableAtFilter f (𝓝 x)

tactic: refine' ⟨e.symm ⁻¹' U, e.symm.continuous.continuousAt.preimage_mem_nhds hU, _⟩
state_before: case refine'_2.intro.intro
X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
h : LocallyIntegrable (f ∘ ↑e)
x : Y
U : Set X
hU : U ∈ 𝓝 (↑(Homeomorph.symm e) x)
h'U : IntegrableOn (f ∘ ↑e) U
⊢ IntegrableAtFilter f (𝓝 x)

tactic: apply (integrableOn_map_equiv e.toMeasurableEquiv).2
state_before: case refine'_2.intro.intro
X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
h : LocallyIntegrable (f ∘ ↑e)
x : Y
U : Set X
hU : U ∈ 𝓝 (↑(Homeomorph.symm e) x)
h'U : IntegrableOn (f ∘ ↑e) U
⊢ IntegrableOn f (↑(Homeomorph.symm e) ⁻¹' U)

tactic: simp only [Homeomorph.toMeasurableEquiv_coe]
state_before: case refine'_2.intro.intro
X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
h : LocallyIntegrable (f ∘ ↑e)
x : Y
U : Set X
hU : U ∈ 𝓝 (↑(Homeomorph.symm e) x)
h'U : IntegrableOn (f ∘ ↑e) U
⊢ IntegrableOn (f ∘ ↑(Homeomorph.toMeasurableEquiv e))
    (↑(Homeomorph.toMeasurableEquiv e) ⁻¹' (↑(Homeomorph.symm e) ⁻¹' U))

tactic: convert h'U
state_before: case refine'_2.intro.intro
X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
h : LocallyIntegrable (f ∘ ↑e)
x : Y
U : Set X
hU : U ∈ 𝓝 (↑(Homeomorph.symm e) x)
h'U : IntegrableOn (f ∘ ↑e) U
⊢ IntegrableOn (f ∘ ↑e) (↑e ⁻¹' (↑(Homeomorph.symm e) ⁻¹' U))

tactic: ext x
state_before: case h.e'_6
X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
h : LocallyIntegrable (f ∘ ↑e)
x : Y
U : Set X
hU : U ∈ 𝓝 (↑(Homeomorph.symm e) x)
h'U : IntegrableOn (f ∘ ↑e) U
⊢ ↑e ⁻¹' (↑(Homeomorph.symm e) ⁻¹' U) = U

tactic: simp only [mem_preimage, Homeomorph.symm_apply_apply]
state_before: case h.e'_6.h
X : Type u_1
Y : Type u_2
E : Type u_3
R : Type ?u.130650
inst✝⁶ : MeasurableSpace X
inst✝⁵ : TopologicalSpace X
inst✝⁴ : MeasurableSpace Y
inst✝³ : TopologicalSpace Y
inst✝² : NormedAddCommGroup E
f✝ : X → E
μ✝ : Measure X
s : Set X
inst✝¹ : BorelSpace X
inst✝ : BorelSpace Y
e : X ≃ₜ Y
f : Y → E
μ : Measure X
h : LocallyIntegrable (f ∘ ↑e)
x✝ : Y
U : Set X
hU : U ∈ 𝓝 (↑(Homeomorph.symm e) x✝)
h'U : IntegrableOn (f ∘ ↑e) U
x : X
⊢ x ∈ ↑e ⁻¹' (↑(Homeomorph.symm e) ⁻¹' U) ↔ x ∈ U