{-|
A functor from a Kleisli category to the underlying non-Kleisli category.
-}
let kCat = ../../Category/Cat/semigroupal

in  λ(vObject : Kind) →
    λ(object : Kind) →
    λ(v : ../../Category/Kind kCat Type vObject) →
    λ(cat : ../../Category/Kind kCat vObject object) →
    λ(m : kCat.arrow object object) →
      ../Type
        vObject
        object
        object
        v
        (../../Category/Kleisli/category vObject object cat m)
        cat