fredefox/cat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Use a module

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2018-02-25 03:12:23 +01:00
parent 4c298855e0
commit 12dddc2067
1 changed files with 15 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/Cat/Category/Monad.agda
View file

@ -302,21 +302,25 @@ module _ {ℓa ℓb : Level} {ℂ : Category ℓa ℓb} where
Monoidal.Monad.raw (back m) = backRaw m Monoidal.Monad.raw (back m) = backRaw m
Monoidal.Monad.isMonad (back m) = backIsMonad m Monoidal.Monad.isMonad (back m) = backIsMonad m
-- I believe all the proofs here should be `refl`.
forthRawEq : (m : K.Monad) → forthRaw (backRaw m) ≡ K.Monad.raw m module _ (m : K.Monad) where
K.RawMonad.RR (forthRawEq m _) = K.RawMonad.RR (K.Monad.raw m) open K.RawMonad (K.Monad.raw m)
K.RawMonad.ζ (forthRawEq m _) = K.RawMonad.ζ (K.Monad.raw m) forthRawEq : forthRaw (backRaw m) ≡ K.Monad.raw m
-- stuck K.RawMonad.RR (forthRawEq _) = RR
K.RawMonad.rr (forthRawEq m i) = {!!} K.RawMonad.ζ (forthRawEq _) = ζ
-- stuck
K.RawMonad.rr (forthRawEq i) = {!!}
fortheq : (m : K.Monad) → forth (back m) ≡ m fortheq : (m : K.Monad) → forth (back m) ≡ m
fortheq m = K.Monad≡ (forthRawEq m) fortheq m = K.Monad≡ (forthRawEq m)
backRawEq : (m : M.Monad) → backRaw (forth m) ≡ M.Monad.raw m module _ (m : M.Monad) where
-- stuck open M.RawMonad (M.Monad.raw m)
M.RawMonad.R (backRawEq m _) = ? backRawEq : backRaw (forth m) ≡ M.Monad.raw m
M.RawMonad.ηNat (backRawEq m x) = {!!} -- stuck
M.RawMonad.μNat (backRawEq m x) = {!!} M.RawMonad.R (backRawEq i) = {!!}
M.RawMonad.ηNat (backRawEq i) = {!!}
M.RawMonad.μNat (backRawEq i) = {!!}
backeq : (m : M.Monad) → back (forth m) ≡ m backeq : (m : M.Monad) → back (forth m) ≡ m
backeq m = M.Monad≡ (backRawEq m) backeq m = M.Monad≡ (backRawEq m)