2023-03-06 21:42:52 -05:00
|
|
|
module Data.Profunctor.Yoneda
|
|
|
|
|
|
|
|
import Data.Profunctor
|
|
|
|
|
|
|
|
%default total
|
|
|
|
|
|
|
|
|
|
|
|
public export
|
|
|
|
record Yoneda p a b where
|
|
|
|
constructor MkYoneda
|
|
|
|
runYoneda : forall x, y. (x -> a) -> (b -> y) -> p x y
|
2023-03-06 22:05:33 -05:00
|
|
|
|
|
|
|
|
|
|
|
public export
|
|
|
|
data Coyoneda : (p : Type -> Type -> Type) -> Type -> Type -> Type where
|
|
|
|
MkCoyoneda : (a -> x) -> (y -> b) -> p x y -> Coyoneda p a b
|