no goals
α : Type u
β : Type v
ι : Sort w
a : α
s✝ s₁ s₂ t : Set α
p p₁ p₂ : α → Prop
inst✝ : TopologicalSpace α
s : Set α
⊢ frontier (sᶜ) = frontier s
simp only [frontier_eq_closure_inter_closure, compl_compl, inter_comm]