{R : Type u} →
  {A : Type v} →
    {inst : CommSemiring R} →
      {inst_1 : NonUnitalNonAssocSemiring A} →
        {inst_2 : Module R A} → {inst_3 : Star A} → [SizeOf R] → [SizeOf A] → NonUnitalStarSubalgebra R A → ℕ