{R : Type u_1} →
  [inst : CommSemiring R] →
    {A : Type u_2} →
      [inst_1 : Semiring A] →
        [inst_2 : TopologicalSpace A] →
          [inst_3 : Algebra R A] → [IsTopologicalSemiring A] → Subalgebra R A → Subalgebra R A