fredefox/cat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Leftovers...

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2017-12-12 12:39:58 +01:00
parent 3e717d4b1f
commit 4a98b2aa3d
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Category.agda
View file

@ -4,9 +4,11 @@ module Category where
open import Agda.Primitive open import Agda.Primitive
open import Data.Unit.Base open import Data.Unit.Base
open import Data.Product open import Data.Product renaming (proj₁ to fst ; proj₂ to snd)
open import Cubical.PathPrelude
open import Data.Empty open import Data.Empty
open import Function
open import Cubical
postulate undefined : {ℓ : Level} → {A : Set ℓ} → A postulate undefined : {ℓ : Level} → {A : Set ℓ} → A
@ -216,7 +218,7 @@ module _ {ℓ ℓ' : Level} where
ident-l : identity ⊛ f ≡ f ident-l : identity ⊛ f ≡ f
ident-l = {!!} ident-l = {!!}
CatCat : Category {ℓ-suc (ℓ ⊔ ℓ')} {ℓ ⊔ ℓ'} CatCat : Category {lsuc (ℓ ⊔ ℓ')} {ℓ ⊔ ℓ'}
CatCat = CatCat =
record record
{ Object = Category {ℓ} {ℓ'} { Object = Category {ℓ} {ℓ'}