bsc-leon-vatthauer/src/Monad/Morphism.lagda.md

module Monad.Morphism {o ℓ e} (C : Category o ℓ e) where
  open Category C

Monad morphisms

This file contains the definition of morphisms between (strong) monads on the same category

Morphisms between monads

A morphism between monads is a natural transformation that preserves η and μ, this notion is already formalized in the categories library, but since we are only interested in monads on the same category we rename their definitions.

  Monad⇒ = Monad⇒-id

Morphisms between strong monads

A morphism between strong monads is a morphism between the underlying monads that also preverses strength.

  record IsStrongMonad⇒ {monoidal : Monoidal C} (M N : StrongMonad monoidal) (α : NaturalTransformation (StrongMonad.M.F M) (StrongMonad.M.F N)) : Set (o ⊔ ℓ ⊔ e) where
    private
      module M = StrongMonad M
      module N = StrongMonad N
      module α = NaturalTransformation α
    open Monoidal monoidal
    
    field
      η-comm : ∀ {U} → α.η U ∘ M.M.η.η U ≈ N.M.η.η U
      μ-comm : ∀ {U} → α.η U ∘ (M.M.μ.η U) ≈ N.M.μ.η U ∘ α.η (N.M.F.₀ U) ∘ M.M.F.₁ (α.η U)
      τ-comm : ∀ {U V} → α.η (U ⊗₀ V) ∘ M.strengthen.η (U , V) ≈ N.strengthen.η (U , V) ∘ (id ⊗₁ α.η V)

  record StrongMonad⇒ {monoidal : Monoidal C} {M N : StrongMonad monoidal} : Set (o ⊔ ℓ ⊔ e) where
    field
      α : NaturalTransformation (StrongMonad.M.F M) (StrongMonad.M.F N)
      isStrongMonad⇒ : IsStrongMonad⇒ M N α

    open IsStrongMonad⇒ isStrongMonad⇒ public