cat/src/Cat/Category/Free.agda

40 lines
1.1 KiB
Agda
Raw Normal View History

module Cat.Category.Free where
2017-11-10 15:00:00 +00:00
open import Agda.Primitive
open import Cubical.PathPrelude hiding (Path)
open import Data.Product
2017-11-10 15:00:00 +00:00
open import Cat.Category as C
2017-11-10 15:00:00 +00:00
module _ { ' : Level} ( : Category ') where
2017-11-10 15:00:00 +00:00
private
open module = Category
Obj = .Object
Path : ( a b : Obj ) Set '
2017-11-10 15:00:00 +00:00
Path a b = undefined
postulate emptyPath : (o : Obj) Path o o
postulate concatenate : {a b c : Obj} Path b c Path a b Path a c
private
module _ {A B C D : Obj} {r : Path A B} {q : Path B C} {p : Path C D} where
postulate
p-assoc : concatenate {A} {C} {D} p (concatenate {A} {B} {C} q r)
concatenate {A} {B} {D} (concatenate {B} {C} {D} p q) r
module _ {A B : Obj} {p : Path A B} where
postulate
ident-r : concatenate {A} {A} {B} p (emptyPath A) p
ident-l : concatenate {A} {B} {B} (emptyPath B) p p
Free : Category '
2017-11-10 15:00:00 +00:00
Free = record
{ Object = Obj
; Arrow = Path
; 𝟙 = λ {o} emptyPath o
; _⊕_ = λ {a b c} concatenate {a} {b} {c}
; assoc = p-assoc
; ident = ident-r , ident-l
}