Theorem: ContinuousMap.continuous_coev
File: Mathlib/Topology/CompactOpen.lean

tactic: have : ∀ {a K U}, MapsTo (coev X Y a) K U ↔ {a} ×ˢ K ⊆ U := by simp [mapsTo']
state_before: α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K : Set X
U : Set Y
⊢ Continuous (coev X Y)
state_after: α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K : Set X
U : Set Y
this : ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
⊢ Continuous (coev X Y)

tactic: simp only [continuous_iff_continuousAt, ContinuousAt, tendsto_nhds_compactOpen, this]
state_before: α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K : Set X
U : Set Y
this : ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
⊢ Continuous (coev X Y)
state_after: α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K : Set X
U : Set Y
this : ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
⊢ ∀ (x : Y) (K : Set X), IsCompact K → ∀ (U : Set (Y × X)), IsOpen U → {x} ×ˢ K ⊆ U → ∀ᶠ (a : Y) in 𝓝 x, {a} ×ˢ K ⊆ U

tactic: intro x K hK U hU hKU
state_before: α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K : Set X
U : Set Y
this : ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
⊢ ∀ (x : Y) (K : Set X), IsCompact K → ∀ (U : Set (Y × X)), IsOpen U → {x} ×ˢ K ⊆ U → ∀ᶠ (a : Y) in 𝓝 x, {a} ×ˢ K ⊆ U
state_after: α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K✝ : Set X
U✝ : Set Y
this : ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
x : Y
K : Set X
hK : IsCompact K
U : Set (Y × X)
hU : IsOpen U
hKU : {x} ×ˢ K ⊆ U
⊢ ∀ᶠ (a : Y) in 𝓝 x, {a} ×ˢ K ⊆ U

tactic: rcases generalized_tube_lemma isCompact_singleton hK hU hKU with ⟨V, W, hV, -, hxV, hKW, hVWU⟩
state_before: α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K✝ : Set X
U✝ : Set Y
this : ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
x : Y
K : Set X
hK : IsCompact K
U : Set (Y × X)
hU : IsOpen U
hKU : {x} ×ˢ K ⊆ U
⊢ ∀ᶠ (a : Y) in 𝓝 x, {a} ×ˢ K ⊆ U
state_after: case intro.intro.intro.intro.intro.intro
α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K✝ : Set X
U✝ : Set Y
this : ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
x : Y
K : Set X
hK : IsCompact K
U : Set (Y × X)
hU : IsOpen U
hKU : {x} ×ˢ K ⊆ U
V : Set Y
W : Set X
hV : IsOpen V
hxV : {x} ⊆ V
hKW : K ⊆ W
hVWU : V ×ˢ W ⊆ U
⊢ ∀ᶠ (a : Y) in 𝓝 x, {a} ×ˢ K ⊆ U

tactic: filter_upwards [hV.mem_nhds (hxV rfl)] with a ha
state_before: case intro.intro.intro.intro.intro.intro
α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K✝ : Set X
U✝ : Set Y
this : ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
x : Y
K : Set X
hK : IsCompact K
U : Set (Y × X)
hU : IsOpen U
hKU : {x} ×ˢ K ⊆ U
V : Set Y
W : Set X
hV : IsOpen V
hxV : {x} ⊆ V
hKW : K ⊆ W
hVWU : V ×ˢ W ⊆ U
⊢ ∀ᶠ (a : Y) in 𝓝 x, {a} ×ˢ K ⊆ U
state_after: case h
α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K✝ : Set X
U✝ : Set Y
this : ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
x : Y
K : Set X
hK : IsCompact K
U : Set (Y × X)
hU : IsOpen U
hKU : {x} ×ˢ K ⊆ U
V : Set Y
W : Set X
hV : IsOpen V
hxV : {x} ⊆ V
hKW : K ⊆ W
hVWU : V ×ˢ W ⊆ U
a : Y
ha : a ∈ V
⊢ {a} ×ˢ K ⊆ U

tactic: exact (prod_mono (singleton_subset_iff.mpr ha) hKW).trans hVWU
state_before: case h
α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K✝ : Set X
U✝ : Set Y
this : ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
x : Y
K : Set X
hK : IsCompact K
U : Set (Y × X)
hU : IsOpen U
hKU : {x} ×ˢ K ⊆ U
V : Set Y
W : Set X
hV : IsOpen V
hxV : {x} ⊆ V
hKW : K ⊆ W
hVWU : V ×ˢ W ⊆ U
a : Y
ha : a ∈ V
⊢ {a} ×ˢ K ⊆ U
state_after: no goals

tactic: simp [mapsTo']
state_before: α : Type u_1
X : Type u_2
Y : Type u_3
Z : Type u_4
T : Type u_5
inst✝³ : TopologicalSpace X
inst✝² : TopologicalSpace Y
inst✝¹ : TopologicalSpace Z
inst✝ : TopologicalSpace T
K : Set X
U : Set Y
⊢ ∀ {a : Y} {K : Set X} {U : Set (Y × X)}, MapsTo (⇑(coev X Y a)) K U ↔ {a} ×ˢ K ⊆ U
state_after: no goals