Cosmetics

This commit is contained in:
Frederik Hanghøj Iversen 2018-03-01 14:19:46 +01:00
parent e8b29e1f7f
commit 64a0292755

View file

@ -21,6 +21,7 @@ module Monoidal {a b : Level} ( : Category a b) where
open NaturalTransformation
record RawMonad : Set where
field
-- TODO rename fields here
-- R ~ m
R : EndoFunctor
-- η ~ pure
@ -316,6 +317,7 @@ module _ {a b : Level} { : Category a b} where
Kraw.bind forthRaw = bind
module _ {raw : M.RawMonad} (m : M.IsMonad raw) where
private
module MI = M.IsMonad m
module KI = K.IsMonad
forthIsMonad : K.IsMonad (forthRaw raw)
@ -328,10 +330,7 @@ module _ {a b : Level} { : Category a b} where
Kleisli.Monad.isMonad (forth m) = forthIsMonad (M.Monad.isMonad m)
module _ (m : K.Monad) where
private
module = Category
open K.Monad m
open NaturalTransformation
module MR = M.RawMonad
backRaw : M.RawMonad
@ -339,13 +338,11 @@ module _ {a b : Level} { : Category a b} where
MR.ηNatTrans backRaw = ηNatTrans
MR.μNatTrans backRaw = μNatTrans
module _ (m : K.Monad) where
open K.Monad m
open M.RawMonad (backRaw m)
module Mis = M.IsMonad
backIsMonad : M.IsMonad (backRaw m)
backIsMonad = {!!}
module MI = M.IsMonad
-- also prove these in K.Monad!
backIsMonad : M.IsMonad backRaw
MI.isAssociative backIsMonad = {!isAssociative!}
MI.isInverse backIsMonad = {!!}
back : K.Monad M.Monad
Monoidal.Monad.raw (back m) = backRaw m