∀ {R : Type u_1} [inst : CommSemiring R] {A : Type u} [inst_1 : TopologicalSpace A] [inst_2 : Semiring A]
  [inst_3 : Algebra R A] [inst_4 : IsTopologicalSemiring A] {s t : Subalgebra R A},
  s ≤ t → IsClosed ↑t → s.topologicalClosure ≤ t