Theorem: MeasurableSet.mul_closure_one_eq
File: Mathlib/MeasureTheory/Group/Measure.lean

tactic: apply MeasurableSet.induction_on_open (C := fun t ↦ t • (closure {1} : Set G) = t) ?_ ?_ ?_ hs
state_before: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
⊢ s * closure {1} = s
state_after: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
⊢ ∀ (U : Set G), IsOpen U → (fun t => t • closure {1} = t) U

𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
⊢ ∀ (t : Set G), MeasurableSet t → (fun t => t • closure {1} = t) t → (fun t => t • closure {1} = t) tᶜ

𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
⊢ ∀ (f : ℕ → Set G),
    Pairwise (Disjoint on f) →
      (∀ (i : ℕ), MeasurableSet (f i)) →
        (∀ (i : ℕ), (fun t => t • closure {1} = t) (f i)) → (fun t => t • closure {1} = t) (⋃ i, f i)

tactic: intro U hU
state_before: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
⊢ ∀ (U : Set G), IsOpen U → (fun t => t • closure {1} = t) U
state_after: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
U : Set G
hU : IsOpen U
⊢ U • closure {1} = U

tactic: exact hU.mul_closure_one_eq
state_before: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
U : Set G
hU : IsOpen U
⊢ U • closure {1} = U
state_after: no goals

tactic: rintro t - ht
state_before: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
⊢ ∀ (t : Set G), MeasurableSet t → (fun t => t • closure {1} = t) t → (fun t => t • closure {1} = t) tᶜ
state_after: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
t : Set G
ht : t • closure {1} = t
⊢ tᶜ • closure {1} = tᶜ

tactic: exact compl_mul_closure_one_eq_iff.2 ht
state_before: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
t : Set G
ht : t • closure {1} = t
⊢ tᶜ • closure {1} = tᶜ
state_after: no goals

tactic: rintro f - - h''f
state_before: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
⊢ ∀ (f : ℕ → Set G),
    Pairwise (Disjoint on f) →
      (∀ (i : ℕ), MeasurableSet (f i)) →
        (∀ (i : ℕ), (fun t => t • closure {1} = t) (f i)) → (fun t => t • closure {1} = t) (⋃ i, f i)
state_after: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
f : ℕ → Set G
h''f : ∀ (i : ℕ), (fun t => t • closure {1} = t) (f i)
⊢ (⋃ i, f i) • closure {1} = ⋃ i, f i

tactic: simp only [iUnion_smul, h''f]
state_before: 𝕜 : Type u_1
G : Type u_2
H : Type u_3
inst✝⁶ : MeasurableSpace G
inst✝⁵ : MeasurableSpace H
inst✝⁴ : TopologicalSpace G
inst✝³ : BorelSpace G
μ : Measure G
inst✝² : Group G
inst✝¹ : TopologicalGroup G
inst✝ : μ.IsMulLeftInvariant
s : Set G
hs : MeasurableSet s
f : ℕ → Set G
h''f : ∀ (i : ℕ), (fun t => t • closure {1} = t) (f i)
⊢ (⋃ i, f i) • closure {1} = ⋃ i, f i
state_after: no goals