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

Implement strongr for Tambara directly

Browse source
This commit is contained in:
Kiana Sheibani 2023-03-06 16:38:13 -05:00
parent 20c3ce2ee8
commit 3558ea1741
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Data/Profunctor/Strong.idr
View file

@ -106,7 +106,8 @@ Tensor ten i => ProfunctorComonad (GenTambara ten) where
export
Associative ten => Symmetric ten => Profunctor p => GenStrong ten (GenTambara ten p) where
strongl (MkTambara p) = MkTambara $ dimap assoc.bwd assoc.fwd p
strongr = dimap swap swap . strongl {ten,p=GenTambara ten p}
strongr (MkTambara p) = MkTambara $ dimap (assoc.bwd . mapFst swap)
(mapFst swap . assoc.fwd) p
export
Bifunctor ten => Profunctor p => Functor (GenTambara ten p a) where