case intro.intro
V : Type ?u.7090
P : Type u_1
inst✝ : MetricSpace P
ps₁ ps₂ : Set P
hs : ps₁ ⊆ ps₂
c : P
r : ℝ
hcr : ∀ (p : P), p ∈ ps₂ → dist p c = r
⊢ Cospherical ps₁
V : Type ?u.7090
P : Type u_1
inst✝ : MetricSpace P
ps₁ ps₂ : Set P
hs : ps₁ ⊆ ps₂
hc : Cospherical ps₂
⊢ Cospherical ps₁
rcases hc with ⟨c, r, hcr⟩
no goals
case intro.intro
V : Type ?u.7090
P : Type u_1
inst✝ : MetricSpace P
ps₁ ps₂ : Set P
hs : ps₁ ⊆ ps₂
c : P
r : ℝ
hcr : ∀ (p : P), p ∈ ps₂ → dist p c = r
⊢ Cospherical ps₁
exact ⟨c, r, fun p hp => hcr p (hs hp)⟩