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

Syntax

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2018-02-24 20:41:47 +01:00
parent 9d09363f78
commit a447cd9c7c
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -119,7 +119,7 @@ module Kleisli {ℓa ℓb : Level} (ℂ : Category ℓa ℓb) where
-- (>>=) : m a -> (a -> m b) -> m b -- (>>=) : m a -> (a -> m b) -> m b
-- (>=>) : (a -> m b) -> (b -> m c) -> a -> m c -- (>=>) : (a -> m b) -> (b -> m c) -> a -> m c
_>=>_ : {A B C : Object} → ℂ [ A , RR B ] → ℂ [ B , RR C ] → ℂ [ A , RR C ] _>=>_ : {A B C : Object} → ℂ [ A , RR B ] → ℂ [ B , RR C ] → ℂ [ A , RR C ]
f >=> g = ℂ [ rr g ∘ f ] f >=> g = rr g ∘ f
-- fmap id ≡ id -- fmap id ≡ id
IsIdentity = {X : Object} IsIdentity = {X : Object}
@ -182,7 +182,7 @@ module _ {ℓa ℓb : Level} {ℂ : Category ℓa ℓb} where
ζ {X} = η X ζ {X} = η X
rr : {X Y : Object} → ℂ [ X , RR Y ] → ℂ [ RR X , RR Y ] rr : {X Y : Object} → ℂ [ X , RR Y ] → ℂ [ RR X , RR Y ]
rr {X} {Y} f = ℂ [ μ Y ∘ func→ R f ] rr {X} {Y} f = μ Y ∘ func→ R f
forthRaw : K.RawMonad forthRaw : K.RawMonad
Kraw.RR forthRaw = RR Kraw.RR forthRaw = RR
@ -198,7 +198,7 @@ module _ {ℓa ℓb : Level} {ℂ : Category ℓa ℓb} where
isIdentity {X} = begin isIdentity {X} = begin
rr ζ ≡⟨⟩ rr ζ ≡⟨⟩
rr (η X) ≡⟨⟩ rr (η X) ≡⟨⟩
ℂ [ μ X ∘ func→ R (η X) ] ≡⟨ proj₂ isInverse ⟩ μ X ∘ func→ R (η X) ≡⟨ proj₂ isInverse ⟩
𝟙 ∎ 𝟙 ∎
module R = Functor R module R = Functor R