Define Coyoneda
This commit is contained in:
parent
fec58179c6
commit
038a4c588a
|
@ -9,3 +9,8 @@ public export
|
|||
record Yoneda p a b where
|
||||
constructor MkYoneda
|
||||
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