let kCat = ../Category/Cat/semigroupal

let SemigroupalCategory = ../Category/Semigroupal/Kind kCat

let vObject = Type

in  λ(object : Kind) →
    λ(cat : SemigroupalCategory vObject object) →
    λ(m : object) →
      { product : cat.arrow { _1 = cat.product { _1 = m, _2 = m }, _2 = m } }