Implement strongr for Tambara directly

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

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