module Category.Monad where
open import Function
open import Category.Monad.Indexed
open import Data.Unit
RawMonad : (Set → Set) → Set₁
RawMonad M = RawIMonad {⊤} (λ _ _ → M)
RawMonadZero : (Set → Set) → Set₁
RawMonadZero M = RawIMonadZero {⊤} (λ _ _ → M)
RawMonadPlus : (Set → Set) → Set₁
RawMonadPlus M = RawIMonadPlus {⊤} (λ _ _ → M)
module RawMonad {M : Set → Set} (Mon : RawMonad M) where
open RawIMonad Mon public
module RawMonadZero {M : Set → Set} (Mon : RawMonadZero M) where
open RawIMonadZero Mon public
module RawMonadPlus {M : Set → Set} (Mon : RawMonadPlus M) where
open RawIMonadPlus Mon public