{M : Type u_3} →
  [inst : Mul M] →
    {motive : Subsemigroup M → Sort u} →
      (t : Subsemigroup M) →
        ((carrier : Set M) →
            (mul_mem' : ∀ {a b : M}, a ∈ carrier → b ∈ carrier → a * b ∈ carrier) →
              motive { carrier := carrier, mul_mem' := mul_mem' }) →
          motive t