------------------------------------------------------------------------
-- The Agda standard library
--
-- Monads
------------------------------------------------------------------------

-- Note that currently the monad laws are not included here.

{-# OPTIONS --without-K --safe #-}

module Category.Monad where

open import Function
open import Category.Monad.Indexed
open import Data.Unit

RawMonad :  {f}  (Set f  Set f)  Set _
RawMonad M = RawIMonad {I = }  _ _  M)

RawMonadT :  {f} (T : (Set f  Set f)  (Set f  Set f))  Set _
RawMonadT T = RawIMonadT {I = }  M _ _  T (M _ _))

RawMonadZero :  {f}  (Set f  Set f)  Set _
RawMonadZero M = RawIMonadZero {I = }  _ _  M)

RawMonadPlus :  {f}  (Set f  Set f)  Set _
RawMonadPlus M = RawIMonadPlus {I = }  _ _  M)

module RawMonad {f} {M : Set f  Set f}
                (Mon : RawMonad M) where
  open RawIMonad Mon public

module RawMonadZero {f} {M : Set f  Set f}
                    (Mon : RawMonadZero M) where
  open RawIMonadZero Mon public

module RawMonadPlus {f} {M : Set f  Set f}
                    (Mon : RawMonadPlus M) where
  open RawIMonadPlus Mon public