let kCat = ../Category/Cat/semigroupal

let vObject = Type

let object = Type

let v =
      ../Category/Monoidal/Cartesian/extractMonoidal
        kCat
        Type
        vObject
        ../Category/Set/monoidal/cartesian

in  λ(cat : ../Category/Kind kCat vObject object) →
    λ(category : ../Category/Type object v cat) →
      ../Lan/lift
        v
        cat
        (../Category/extractSemigroupoid object v cat category)
        (../Identity/Type object)
        (../Identity/comonad object cat category)