Define Coyoneda
This commit is contained in:
parent
fec58179c6
commit
038a4c588a
|
@ -9,3 +9,8 @@ public export
|
||||||
record Yoneda p a b where
|
record Yoneda p a b where
|
||||||
constructor MkYoneda
|
constructor MkYoneda
|
||||||
runYoneda : forall x, y. (x -> a) -> (b -> y) -> p x y
|
runYoneda : forall x, y. (x -> a) -> (b -> y) -> p x y
|
||||||
|
|
||||||
|
|
||||||
|
public export
|
||||||
|
data Coyoneda : (p : Type -> Type -> Type) -> Type -> Type -> Type where
|
||||||
|
MkCoyoneda : (a -> x) -> (y -> b) -> p x y -> Coyoneda p a b
|
||||||
|
|
Loading…
Reference in a new issue