Theorem: MeasureTheory.measure_univ_of_isMulLeftInvariant
File: Mathlib/MeasureTheory/Group/Measure.lean

tactic: obtain ⟨K, hK, Kclosed, Kint⟩ : ∃ K : Set G, IsCompact K ∧ IsClosed K ∧ (1 : G) ∈ interior K := by
  rcases local_isCompact_isClosed_nhds_of_group (isOpen_univ.mem_nhds (mem_univ (1 : G))) with
    ⟨K, hK⟩
  exact ⟨K, hK.1, hK.2.1, hK.2.2.2⟩
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
⊢ ↑↑μ univ = ⊤

tactic: have K_pos : 0 < μ K := measure_pos_of_nonempty_interior _ ⟨_, Kint⟩
state_before: case intro.intro.intro
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
⊢ ↑↑μ univ = ⊤

tactic: have A : ∀ L : Set G, IsCompact L → ∃ g : G, Disjoint L (g • K) := fun L hL =>
  exists_disjoint_smul_of_isCompact hL hK
state_before: case intro.intro.intro
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
⊢ ↑↑μ univ = ⊤

tactic: choose! g hg using A
state_before: case intro.intro.intro
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
A : ∀ (L : Set G), IsCompact L → ∃ g, Disjoint L (g • K)
⊢ ↑↑μ univ = ⊤

tactic: set L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
state_before: case intro.intro.intro
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
⊢ ↑↑μ univ = ⊤

tactic: have N : Tendsto (fun n => μ (L n)) atTop (𝓝 (∞ * μ K)) := by
  simp_rw [M]
  apply ENNReal.Tendsto.mul_const _ (Or.inl ENNReal.top_ne_zero)
  exact ENNReal.tendsto_nat_nhds_top.comp (tendsto_add_atTop_nat _)
state_before: case intro.intro.intro
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
M : ∀ (n : ℕ), ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
⊢ ↑↑μ univ = ⊤

tactic: simp only [ENNReal.top_mul', K_pos.ne', if_false] at N
state_before: case intro.intro.intro
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
M : ∀ (n : ℕ), ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
N : Tendsto (fun n => ↑↑μ (L n)) atTop (𝓝 (⊤ * ↑↑μ K))
⊢ ↑↑μ univ = ⊤

tactic: apply top_le_iff.1
state_before: case intro.intro.intro
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
M : ∀ (n : ℕ), ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
N : Tendsto (fun n => ↑↑μ (((fun T => T ∪ g T • K)^[n]) K)) atTop (𝓝 ⊤)
⊢ ↑↑μ univ = ⊤

tactic: exact le_of_tendsto' N fun n => measure_mono (subset_univ _)
state_before: case intro.intro.intro
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
M : ∀ (n : ℕ), ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
N : Tendsto (fun n => ↑↑μ (((fun T => T ∪ g T • K)^[n]) K)) atTop (𝓝 ⊤)
⊢ ⊤ ≤ ↑↑μ univ

tactic: rcases local_isCompact_isClosed_nhds_of_group (isOpen_univ.mem_nhds (mem_univ (1 : G))) with
  ⟨K, hK⟩
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
⊢ ∃ K, IsCompact K ∧ IsClosed K ∧ 1 ∈ interior K

tactic: exact ⟨K, hK.1, hK.2.1, hK.2.2.2⟩
state_before: case intro
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K ∧ IsClosed K ∧ K ⊆ univ ∧ 1 ∈ interior K
⊢ ∃ K, IsCompact K ∧ IsClosed K ∧ 1 ∈ interior K

tactic: intro n
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
⊢ ∀ (n : ℕ), IsCompact (L n)

tactic: induction' n with n IH
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
n : ℕ
⊢ IsCompact (L n)

tactic: exact hK
state_before: case zero
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
⊢ IsCompact (L Nat.zero)

tactic: simp_rw [iterate_succ']
state_before: case succ
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
n : ℕ
IH : IsCompact (L n)
⊢ IsCompact (L (Nat.succ n))

tactic: apply IsCompact.union IH (hK.smul (g (L n)))
state_before: case succ
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
n : ℕ
IH : IsCompact (L n)
⊢ IsCompact (((fun T => T ∪ g T • K) ∘ (fun T => T ∪ g T • K)^[n]) K)

tactic: intro n
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
⊢ ∀ (n : ℕ), IsClosed (L n)

tactic: induction' n with n IH
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
n : ℕ
⊢ IsClosed (L n)

tactic: exact Kclosed
state_before: case zero
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
⊢ IsClosed (L Nat.zero)

tactic: simp_rw [iterate_succ']
state_before: case succ
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
n : ℕ
IH : IsClosed (L n)
⊢ IsClosed (L (Nat.succ n))

tactic: apply IsClosed.union IH (Kclosed.smul (g (L n)))
state_before: case succ
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
n : ℕ
IH : IsClosed (L n)
⊢ IsClosed (((fun T => T ∪ g T • K) ∘ (fun T => T ∪ g T • K)^[n]) K)

tactic: intro n
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
⊢ ∀ (n : ℕ), ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K

tactic: induction' n with n IH
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
n : ℕ
⊢ ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K

tactic: simp only [one_mul, Nat.cast_one, iterate_zero, id.def, Nat.zero_eq, Nat.zero_add]
state_before: case zero
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
⊢ ↑↑μ (L Nat.zero) = ↑(Nat.zero + 1) * ↑↑μ K

tactic: calc
  μ (L (n + 1)) = μ (L n) + μ (g (L n) • K) := by
    simp_rw [iterate_succ']
    exact measure_union' (hg _ (Lcompact _)) (Lclosed _).measurableSet
  _ = (n + 1 + 1 : ℕ) * μ K := by
    simp only [IH, measure_smul, add_mul, Nat.cast_add, Nat.cast_one, one_mul]
state_before: case succ
𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
n : ℕ
IH : ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
⊢ ↑↑μ (L (Nat.succ n)) = ↑(Nat.succ n + 1) * ↑↑μ K

tactic: simp_rw [iterate_succ']
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
n : ℕ
IH : ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
⊢ ↑↑μ (L (n + 1)) = ↑↑μ (L n) + ↑↑μ (g (L n) • K)

tactic: exact measure_union' (hg _ (Lcompact _)) (Lclosed _).measurableSet
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
n : ℕ
IH : ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
⊢ ↑↑μ (((fun T => T ∪ g T • K) ∘ (fun T => T ∪ g T • K)^[n]) K) =
    ↑↑μ (((fun T => T ∪ g T • K)^[n]) K) + ↑↑μ (g (((fun T => T ∪ g T • K)^[n]) K) • K)

tactic: simp only [IH, measure_smul, add_mul, Nat.cast_add, Nat.cast_one, one_mul]
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
n : ℕ
IH : ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
⊢ ↑↑μ (L n) + ↑↑μ (g (L n) • K) = ↑(n + 1 + 1) * ↑↑μ K

tactic: simp_rw [M]
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
M : ∀ (n : ℕ), ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
⊢ Tendsto (fun n => ↑↑μ (L n)) atTop (𝓝 (⊤ * ↑↑μ K))

tactic: apply ENNReal.Tendsto.mul_const _ (Or.inl ENNReal.top_ne_zero)
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
M : ∀ (n : ℕ), ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
⊢ Tendsto (fun n => ↑(n + 1) * ↑↑μ K) atTop (𝓝 (⊤ * ↑↑μ K))

tactic: exact ENNReal.tendsto_nat_nhds_top.comp (tendsto_add_atTop_nat _)
state_before: 𝕜 : Type ?u.542119
G : Type u_1
H : Type ?u.542125
inst✝¹⁰ : MeasurableSpace G
inst✝⁹ : MeasurableSpace H
inst✝⁸ : TopologicalSpace G
inst✝⁷ : BorelSpace G
μ✝ : Measure G
inst✝⁶ : Group G
inst✝⁵ : TopologicalGroup G
inst✝⁴ : IsMulLeftInvariant μ✝
inst✝³ : LocallyCompactSpace G
inst✝² : NoncompactSpace G
μ : Measure G
inst✝¹ : IsOpenPosMeasure μ
inst✝ : IsMulLeftInvariant μ
K : Set G
hK : IsCompact K
Kclosed : IsClosed K
Kint : 1 ∈ interior K
K_pos : 0 < ↑↑μ K
g : Set G → G
hg : ∀ (L : Set G), IsCompact L → Disjoint L (g L • K)
L : ℕ → Set G := fun n => ((fun T => T ∪ g T • K)^[n]) K
Lcompact : ∀ (n : ℕ), IsCompact (L n)
Lclosed : ∀ (n : ℕ), IsClosed (L n)
M : ∀ (n : ℕ), ↑↑μ (L n) = ↑(n + 1) * ↑↑μ K
⊢ Tendsto (fun x => ↑(x + 1)) atTop (𝓝 ⊤)