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

Proof steps:
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
μ : Measure G
⊢ μ (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
μ : Measure G
⊢ μ (s * closure {1}) ≤ μ s
tactic: apply le_antisymm ?_ (measure_mono (subset_mul_closure_one s))
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
μ : Measure G
⊢ μ (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
μ : Measure G
⊢ μ (s * closure {1}) ≤ ⨅ t, ⨅ (_ : s ⊆ t), ⨅ (_ : MeasurableSet t), μ t
tactic: conv_rhs => rw [measure_eq_iInf]
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
μ : Measure G
⊢ μ (s * closure {1}) ≤ ⨅ t, ⨅ (_ : s ⊆ t), ⨅ (_ : MeasurableSet 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
μ : Measure G
⊢ ∀ (i : Set G), s ⊆ i → MeasurableSet i → μ (s * closure {1}) ≤ μ i
tactic: simp only [le_iInf_iff]
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
μ : Measure G
⊢ ∀ (i : Set G), s ⊆ i → MeasurableSet i → μ (s * closure {1}) ≤ μ 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
μ : Measure G
t : Set G
kt : s ⊆ t
t_meas : MeasurableSet t
⊢ μ (s * closure {1}) ≤ μ t
tactic: intro t kt t_meas
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
μ : Measure G
t : Set G
kt : s ⊆ t
t_meas : MeasurableSet t
⊢ μ (s * closure {1}) ≤ μ t
state_after: case h
𝕜 : 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
μ : Measure G
t : Set G
kt : s ⊆ t
t_meas : MeasurableSet t
⊢ s * closure {1} ⊆ t
tactic: apply measure_mono
state_before: case h
𝕜 : 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
μ : Measure G
t : Set G
kt : s ⊆ t
t_meas : MeasurableSet t
⊢ s * closure {1} ⊆ t
state_after: case h
𝕜 : 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
μ : Measure G
t : Set G
kt : s ⊆ t
t_meas : MeasurableSet t
⊢ s * closure {1} ⊆ t * closure {1}
tactic: rw [← t_meas.mul_closure_one_eq]
state_before: case h
𝕜 : 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
μ : Measure G
t : Set G
kt : s ⊆ t
t_meas : MeasurableSet t
⊢ s * closure {1} ⊆ t * closure {1}
state_after: no goals
tactic: exact smul_subset_smul_right kt