Move the category of functors
This commit is contained in:
parent
9fdf6b589b
commit
fd03049c92
14
src/Cat.agda
14
src/Cat.agda
|
@ -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
|
||||||
|
|
|
@ -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
|
Loading…
Reference in a new issue