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

Remove unused bindings

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2018-01-25 14:11:28 +01:00
parent 6e25083a47
commit ee2e84edfe
2 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Cat/Categories/Cat.agda
View file

@ -34,8 +34,6 @@ module _ (ℓ ℓ' : Level) where
(λ i → {x y : A .Object} → A .Arrow x y → D .Arrow (eq* i x) (eq* i y)) (λ i → {x y : A .Object} → A .Arrow x y → D .Arrow (eq* i x) (eq* i y))
(func→ (h ∘f (g ∘f f))) (func→ ((h ∘f g) ∘f f)) (func→ (h ∘f (g ∘f f))) (func→ ((h ∘f g) ∘f f))
eq→ = refl eq→ = refl
id-l = (h ∘f (g ∘f f)) .ident -- = func→ (h ∘f (g ∘f f)) (𝟙 A) ≡ 𝟙 D
id-r = ((h ∘f g) ∘f f) .ident -- = func→ ((h ∘f g) ∘f f) (𝟙 A) ≡ 𝟙 D
postulate eqI : PathP postulate eqI : PathP
(λ i → ∀ {c : A .Object} → eq→ i (A .𝟙 {c}) ≡ D .𝟙 {eq* i c}) (λ i → ∀ {c : A .Object} → eq→ i (A .𝟙 {c}) ≡ D .𝟙 {eq* i c})
(ident ((h ∘f (g ∘f f)))) (ident ((h ∘f (g ∘f f))))

3
src/Cat/Category/Properties.agda
View file

@ -74,6 +74,7 @@ module _ {ℓ : Level} {ℂ : Category ℓ ℓ} where
:func*: A = {!!} :func*: A = {!!}
-- prsh = presheaf {ℂ = ℂ} -- prsh = presheaf {ℂ = ℂ}
-- k = prsh {!!}
-- :func*:' : ℂ .Object → Presheaf ℂ -- :func*:' : ℂ .Object → Presheaf ℂ
-- :func*:' = prsh -- :func*:' = prsh
-- module _ {A B : ℂ .Object} (f : ℂ .Arrow A B) where -- module _ {A B : ℂ .Object} (f : ℂ .Arrow A B) where
@ -83,7 +84,7 @@ module _ {ℓ : Level} {ℂ : Category ℓ ℓ} where
yoneda : Functor ℂ (Setz ⇑ (Opposite ℂ)) yoneda : Functor ℂ (Setz ⇑ (Opposite ℂ))
yoneda = record yoneda = record
{ func* = :func*: { func* = :func*:
; func→ = {!:func→:'!} ; func→ = {!!}
; ident = {!!} ; ident = {!!}
; distrib = {!!} ; distrib = {!!}
} }