let B =
      https://sellout.github.io/dhall-bhat/package.dhall
        sha256:67617847fca913d17863ad857224cd9b3904297bb15a9674146d5e120c5ff08a

in  λ(a : Type) →
        { map =
            λ(b : Type) →
            λ(c : Type) →
            λ(_ : b → c) →
              B.Function.category.identity a
        }
      : B.Functor.Type (./Type a)