Remove unused bindings

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

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))
(func→ (h ∘f (g ∘f f))) (func→ ((h ∘f g) ∘f f))
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
(λ i {c : A .Object} eq→ i (A .𝟙 {c}) D .𝟙 {eq* i c})
(ident ((h ∘f (g ∘f f))))

View file

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