{R : Type u} →
  {A : Type v} →
    [inst : CommSemiring R] →
      [inst_1 : NonUnitalNonAssocSemiring A] →
        [inst_2 : Module R A] →
          [inst_3 : Star A] →
            (toNonUnitalSubalgebra : NonUnitalSubalgebra R A) →
              (∀ {a : A}, a ∈ toNonUnitalSubalgebra.carrier → star a ∈ toNonUnitalSubalgebra.carrier) →
                NonUnitalStarSubalgebra R A