let kCat = ../../Category/Cat/semigroupal

let Functor = ../Type

let Category = ../../Category/Kind kCat

in  λ(vObject : Kind) →
    λ(object : Kind) →
    λ(v : Category Type vObject) →
    λ(cat : Category vObject object) →
      Functor vObject object object v cat cat