Simplify Category

This commit is contained in:
Frederik Hanghøj Iversen 2018-02-20 16:25:49 +01:00
parent 10df9511a4
commit 8ef61d9db0

View file

@ -190,26 +190,13 @@ record Category (a b : Level) : Set (lsuc (a ⊔ b)) where
raw : RawCategory a b raw : RawCategory a b
{{isCategory}} : IsCategory raw {{isCategory}} : IsCategory raw
-- What happens if we just open this up to the public? open RawCategory raw public
private
module = RawCategory raw
open RawCategory raw public using ( Isomorphism ; Epimorphism ; Monomorphism )
Object : Set a
Object = .Object
Arrow = .Arrow
𝟙 = .𝟙
_∘_ = ._∘_
_[_,_] : (A : Object) (B : Object) Set b _[_,_] : (A : Object) (B : Object) Set b
_[_,_] = .Arrow _[_,_] = Arrow
_[_∘_] : {A B C : Object} (g : .Arrow B C) (f : .Arrow A B) .Arrow A C _[_∘_] : {A B C : Object} (g : Arrow B C) (f : Arrow A B) Arrow A C
_[_∘_] = ._∘_ _[_∘_] = _∘_
module _ {a b : Level} ( : Category a b) where module _ {a b : Level} ( : Category a b) where