Theorem: eq_zero_or_locallyCompactSpace_of_support_subset_isCompact_of_group
File: Mathlib/Topology/Algebra/Group/Basic.lean

tactic: refine or_iff_not_imp_left.mpr fun h => ?_
state_before: G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
⊢ f = 0 ∨ LocallyCompactSpace G
state_after: G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
h : ¬f = 0
⊢ LocallyCompactSpace G

tactic: simp_rw [funext_iff, Pi.zero_apply] at h
state_before: G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
h : ¬f = 0
⊢ LocallyCompactSpace G
state_after: G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
h : ¬∀ (a : G), f a = 0
⊢ LocallyCompactSpace G

tactic: push_neg at h
state_before: G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
h : ¬∀ (a : G), f a = 0
⊢ LocallyCompactSpace G
state_after: G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
h : ∃ a, f a ≠ 0
⊢ LocallyCompactSpace G

tactic: obtain ⟨x, hx⟩ : ∃ x, f x ≠ 0 := h
state_before: G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
h : ∃ a, f a ≠ 0
⊢ LocallyCompactSpace G
state_after: case intro
G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
x : G
hx : f x ≠ 0
⊢ LocallyCompactSpace G

tactic: have : k ∈ 𝓝 x :=
  mem_of_superset (h'f.isOpen_support.mem_nhds hx) hf
state_before: case intro
G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
x : G
hx : f x ≠ 0
⊢ LocallyCompactSpace G
state_after: case intro
G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
x : G
hx : f x ≠ 0
this : k ∈ 𝓝 x
⊢ LocallyCompactSpace G

tactic: exact IsCompact.locallyCompactSpace_of_mem_nhds_of_group hk this
state_before: case intro
G : Type w
H : Type x
α : Type u
β : Type v
inst✝⁵ : TopologicalSpace G
inst✝⁴ : Group G
inst✝³ : TopologicalGroup G
inst✝² : TopologicalSpace α
inst✝¹ : Zero α
inst✝ : T1Space α
f : G → α
k : Set G
hk : IsCompact k
hf : support f ⊆ k
h'f : Continuous f
x : G
hx : f x ≠ 0
this : k ∈ 𝓝 x
⊢ LocallyCompactSpace G
state_after: no goals