Move the category of functors

This commit is contained in:
Frederik Hanghøj Iversen 2018-01-22 14:44:25 +01:00
parent 9fdf6b589b
commit fd03049c92
2 changed files with 11 additions and 10 deletions

View file

@ -1,13 +1,13 @@
module Cat where module Cat where
import Cat.Categories.Sets import Cat.Cubical
import Cat.Categories.Cat import Cat.Category
import Cat.Categories.Rel import Cat.Functor
import Cat.Category.Pathy import Cat.Category.Pathy
import Cat.Category.Bij import Cat.Category.Bij
import Cat.Category.Free import Cat.Category.Free
import Cat.Category.Properties import Cat.Category.Properties
import Cat.Category import Cat.Categories.Sets
import Cat.Cubical import Cat.Categories.Cat
import Cat.Functor import Cat.Categories.Rel
import Cat.Naturality import Cat.Categories.Fun

View file

@ -1,5 +1,5 @@
{-# OPTIONS --allow-unsolved-metas #-} {-# OPTIONS --allow-unsolved-metas #-}
module Cat.Naturality where module Cat.Categories.Fun where
open import Agda.Primitive open import Agda.Primitive
open import Cubical open import Cubical
@ -93,8 +93,9 @@ module _ {c c' d d' : Level} { : Category c c'} {𝔻 : Cat
; ident = λ {A B} :ident: {A} {B} ; ident = λ {A B} :ident: {A} {B}
} }
aCat : Category (c (c' (d d'))) (c (c' d')) -- Functor categories. Objects are functors, arrows are natural transformations.
aCat = record Fun : Category (c (c' (d d'))) (c (c' d'))
Fun = record
{ Object = Functor 𝔻 { Object = Functor 𝔻
; Arrow = NaturalTranformation ; Arrow = NaturalTranformation
; 𝟙 = λ {F} identityNat F ; 𝟙 = λ {F} identityNat F