{R : Type v} →
  [inst : NonAssocSemiring R] →
    [inst_1 : Star R] →
      {motive : StarSubsemiring R → Sort u} →
        ((toSubsemiring : Subsemiring R) →
            (star_mem' : ∀ {a : R}, a ∈ toSubsemiring.carrier → star a ∈ toSubsemiring.carrier) →
              motive { toSubsemiring := toSubsemiring, star_mem' := star_mem' }) →
          (t : StarSubsemiring R) → motive t