toki/idris2-profunctors
1
0
Fork 0
Code Issues Pull requests Activity

Define profunctor adjunctions

Browse source
This commit is contained in:
Kiana Sheibani 2023-03-05 00:00:50 -05:00
parent f2392954c2
commit 80fb506448
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Data/Profunctor/Functor.idr
View file

@ -10,11 +10,20 @@ interface ProfunctorFunctor (0 t : (Type -> Type -> Type) -> k -> k' -> Type) wh
promap : Profunctor p => p :-> q -> t p :-> t q promap : Profunctor p => p :-> q -> t p :-> t q
public export public export
interface ProfunctorFunctor t => ProfunctorMonad (0 t : (Type -> Type -> Type) -> Type -> Type -> Type) where interface ProfunctorFunctor t =>
ProfunctorMonad (0 t : (Type -> Type -> Type) -> Type -> Type -> Type) where
propure : Profunctor p => p :-> t p propure : Profunctor p => p :-> t p
projoin : Profunctor p => t (t p) :-> t p projoin : Profunctor p => t (t p) :-> t p
public export public export
interface ProfunctorFunctor t => ProfunctorComonad (0 t : (Type -> Type -> Type) -> Type -> Type -> Type) where interface ProfunctorFunctor t =>
ProfunctorComonad (0 t : (Type -> Type -> Type) -> Type -> Type -> Type) where
proextract : Profunctor p => t p :-> p proextract : Profunctor p => t p :-> p
produplicate : Profunctor p => t p :-> t (t p) produplicate : Profunctor p => t p :-> t (t p)
public export
interface (ProfunctorFunctor f, ProfunctorFunctor u) =>
ProfunctorAdjunction (0 f : (Type -> Type -> Type) -> Type -> Type -> Type)
(0 u : (Type -> Type -> Type) -> Type -> Type -> Type) | f, u where
prounit : Profunctor p => p :-> u (f p)
procounit : Profunctor p => f (u p) :-> p