{M : Type v} →
  [inst : Mul M] →
    [inst_1 : Star M] →
      {motive : SubStarSemigroup M → Sort u} →
        (t : SubStarSemigroup M) →
          ((toSubsemigroup : Subsemigroup M) →
              (star_mem' : ∀ {a : M}, a ∈ toSubsemigroup.carrier → star a ∈ toSubsemigroup.carrier) →
                motive { toSubsemigroup := toSubsemigroup, star_mem' := star_mem' }) →
            motive t