Remove unused bindings
This commit is contained in:
parent
6e25083a47
commit
ee2e84edfe
|
@ -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))))
|
||||
|
|
|
@ -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 = {!!}
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue