Theorem: TotallyBounded.image
File: Mathlib/Topology/UniformSpace/Cauchy.lean

Proof steps:
state_before: α : Type u
β : Type v
uniformSpace : UniformSpace α
inst✝ : UniformSpace β
f : α → β
s : Set α
hs : TotallyBounded s
hf : UniformContinuous f
t : Set (β × β)
ht : t ∈ 𝓤 β
this : {p | (f p.1, f p.2) ∈ t} ∈ 𝓤 α
c : Set α
hfc : c.Finite
hct : s ⊆ ⋃ y ∈ c, {x | (x, y) ∈ {p | (f p.1, f p.2) ∈ t}}
⊢ f '' s ⊆ ⋃ y ∈ f '' c, {x | (x, y) ∈ t}
state_after: α : Type u
β : Type v
uniformSpace : UniformSpace α
inst✝ : UniformSpace β
f : α → β
s : Set α
hs : TotallyBounded s
hf : UniformContinuous f
t : Set (β × β)
ht : t ∈ 𝓤 β
this : {p | (f p.1, f p.2) ∈ t} ∈ 𝓤 α
c : Set α
hfc : c.Finite
hct : s ⊆ ⋃ y ∈ c, {x | (x, y) ∈ {p | (f p.1, f p.2) ∈ t}}
⊢ s ⊆ ⋃ i ∈ c, {a | (f a, f i) ∈ t}
tactic: simp only [mem_image, iUnion_exists, biUnion_and', iUnion_iUnion_eq_right, image_subset_iff,
      preimage_iUnion, preimage_setOf_eq]
state_before: α : Type u
β : Type v
uniformSpace : UniformSpace α
inst✝ : UniformSpace β
f : α → β
s : Set α
hs : TotallyBounded s
hf : UniformContinuous f
t : Set (β × β)
ht : t ∈ 𝓤 β
this : {p | (f p.1, f p.2) ∈ t} ∈ 𝓤 α
c : Set α
hfc : c.Finite
hct : s ⊆ ⋃ y ∈ c, {x | (x, y) ∈ {p | (f p.1, f p.2) ∈ t}}
⊢ s ⊆ ⋃ i ∈ c, {a | (f a, f i) ∈ t}
state_after: α : Type u
β : Type v
uniformSpace : UniformSpace α
inst✝ : UniformSpace β
f : α → β
s : Set α
hs : TotallyBounded s
hf : UniformContinuous f
t : Set (β × β)
ht : t ∈ 𝓤 β
this : {p | (f p.1, f p.2) ∈ t} ∈ 𝓤 α
c : Set α
hfc : c.Finite
hct : ∀ x ∈ s, ∃ i ∈ c, (f x, f i) ∈ t
⊢ s ⊆ ⋃ i ∈ c, {a | (f a, f i) ∈ t}
tactic: simp? [subset_def] at hct says
      simp only [mem_setOf_eq, subset_def, mem_iUnion, exists_prop] at hct
state_before: α : Type u
β : Type v
uniformSpace : UniformSpace α
inst✝ : UniformSpace β
f : α → β
s : Set α
hs : TotallyBounded s
hf : UniformContinuous f
t : Set (β × β)
ht : t ∈ 𝓤 β
this : {p | (f p.1, f p.2) ∈ t} ∈ 𝓤 α
c : Set α
hfc : c.Finite
hct : ∀ x ∈ s, ∃ i ∈ c, (f x, f i) ∈ t
⊢ s ⊆ ⋃ i ∈ c, {a | (f a, f i) ∈ t}
state_after: α : Type u
β : Type v
uniformSpace : UniformSpace α
inst✝ : UniformSpace β
f : α → β
s : Set α
hs : TotallyBounded s
hf : UniformContinuous f
t : Set (β × β)
ht : t ∈ 𝓤 β
this : {p | (f p.1, f p.2) ∈ t} ∈ 𝓤 α
c : Set α
hfc : c.Finite
hct : ∀ x ∈ s, ∃ i ∈ c, (f x, f i) ∈ t
x : α
hx : x ∈ s
⊢ x ∈ ⋃ i ∈ c, {a | (f a, f i) ∈ t}
tactic: intro x hx
state_before: α : Type u
β : Type v
uniformSpace : UniformSpace α
inst✝ : UniformSpace β
f : α → β
s : Set α
hs : TotallyBounded s
hf : UniformContinuous f
t : Set (β × β)
ht : t ∈ 𝓤 β
this : {p | (f p.1, f p.2) ∈ t} ∈ 𝓤 α
c : Set α
hfc : c.Finite
hct : ∀ x ∈ s, ∃ i ∈ c, (f x, f i) ∈ t
x : α
hx : x ∈ s
⊢ x ∈ ⋃ i ∈ c, {a | (f a, f i) ∈ t}
state_after: α : Type u
β : Type v
uniformSpace : UniformSpace α
inst✝ : UniformSpace β
f : α → β
s : Set α
hs : TotallyBounded s
hf : UniformContinuous f
t : Set (β × β)
ht : t ∈ 𝓤 β
this : {p | (f p.1, f p.2) ∈ t} ∈ 𝓤 α
c : Set α
hfc : c.Finite
hct : ∀ x ∈ s, ∃ i ∈ c, (f x, f i) ∈ t
x : α
hx : x ∈ s
⊢ ∃ i ∈ c, (f x, f i) ∈ t
tactic: simp
state_before: α : Type u
β : Type v
uniformSpace : UniformSpace α
inst✝ : UniformSpace β
f : α → β
s : Set α
hs : TotallyBounded s
hf : UniformContinuous f
t : Set (β × β)
ht : t ∈ 𝓤 β
this : {p | (f p.1, f p.2) ∈ t} ∈ 𝓤 α
c : Set α
hfc : c.Finite
hct : ∀ x ∈ s, ∃ i ∈ c, (f x, f i) ∈ t
x : α
hx : x ∈ s
⊢ ∃ i ∈ c, (f x, f i) ∈ t
state_after: no goals
tactic: exact hct x hx