Expose both monad formulations qualified from Cat.Category.Monad
This commit is contained in:
parent
6229decfb2
commit
7aec22b30a
|
@ -31,10 +31,13 @@ open import Cubical.GradLemma using (gradLemma)
|
||||||
open import Cat.Category
|
open import Cat.Category
|
||||||
open import Cat.Category.Functor as F
|
open import Cat.Category.Functor as F
|
||||||
open import Cat.Category.NaturalTransformation
|
open import Cat.Category.NaturalTransformation
|
||||||
open import Cat.Category.Monad.Monoidal as Monoidal public
|
import Cat.Category.Monad.Monoidal
|
||||||
open import Cat.Category.Monad.Kleisli as Kleisli
|
import Cat.Category.Monad.Kleisli
|
||||||
open import Cat.Categories.Fun
|
open import Cat.Categories.Fun
|
||||||
|
|
||||||
|
module Monoidal = Cat.Category.Monad.Monoidal
|
||||||
|
module Kleisli = Cat.Category.Monad.Kleisli
|
||||||
|
|
||||||
-- | The monoidal- and kleisli presentation of monads are equivalent.
|
-- | The monoidal- and kleisli presentation of monads are equivalent.
|
||||||
module _ {ℓa ℓb : Level} {ℂ : Category ℓa ℓb} where
|
module _ {ℓa ℓb : Level} {ℂ : Category ℓa ℓb} where
|
||||||
private
|
private
|
||||||
|
|
|
@ -16,9 +16,7 @@ open import Cubical.GradLemma using (gradLemma)
|
||||||
open import Cat.Category
|
open import Cat.Category
|
||||||
open import Cat.Category.Functor as F
|
open import Cat.Category.Functor as F
|
||||||
open import Cat.Category.NaturalTransformation
|
open import Cat.Category.NaturalTransformation
|
||||||
open import Cat.Category.Monad using (Monoidal≃Kleisli)
|
open import Cat.Category.Monad
|
||||||
import Cat.Category.Monad.Monoidal as Monoidal
|
|
||||||
import Cat.Category.Monad.Kleisli as Kleisli
|
|
||||||
open import Cat.Categories.Fun
|
open import Cat.Categories.Fun
|
||||||
|
|
||||||
-- Utilities
|
-- Utilities
|
||||||
|
|
Loading…
Reference in a new issue