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