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

Renaming

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2018-03-06 09:45:04 +01:00
parent b6457a0b14
commit cfb7925cb5
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -264,8 +264,8 @@ module Kleisli {ℓa ℓb : Level} (ℂ : Category ℓa ℓb) where
module R² = Functor R² module R² = Functor R²
pureT : Transformation R⁰ R pureT : Transformation R⁰ R
pureT A = pure pureT A = pure
pureTNatural : Natural R⁰ R pureT pureN : Natural R⁰ R pureT
pureTNatural {A} {B} f = begin pureN {A} {B} f = begin
pureT B ∘ R⁰.func→ f ≡⟨⟩ pureT B ∘ R⁰.func→ f ≡⟨⟩
pure ∘ f ≡⟨ sym (isNatural _) ⟩ pure ∘ f ≡⟨ sym (isNatural _) ⟩
bind (pure ∘ f) ∘ pure ≡⟨⟩ bind (pure ∘ f) ∘ pure ≡⟨⟩
@ -273,8 +273,8 @@ module Kleisli {ℓa ℓb : Level} (ℂ : Category ℓa ℓb) where
R.func→ f ∘ pureT A ∎ R.func→ f ∘ pureT A ∎
joinT : Transformation R² R joinT : Transformation R² R
joinT C = join joinT C = join
joinTNatural : Natural R² R joinT joinN : Natural R² R joinT
joinTNatural f = begin joinN f = begin
join ∘ R².func→ f ≡⟨⟩ join ∘ R².func→ f ≡⟨⟩
bind 𝟙 ∘ R².func→ f ≡⟨⟩ bind 𝟙 ∘ R².func→ f ≡⟨⟩
R².func→ f >>> bind 𝟙 ≡⟨⟩ R².func→ f >>> bind 𝟙 ≡⟨⟩
@ -304,11 +304,11 @@ module Kleisli {ℓa ℓb : Level} (ℂ : Category ℓa ℓb) where
pureNT : NaturalTransformation R⁰ R pureNT : NaturalTransformation R⁰ R
proj₁ pureNT = pureT proj₁ pureNT = pureT
proj₂ pureNT = pureTNatural proj₂ pureNT = pureN
joinNT : NaturalTransformation R² R joinNT : NaturalTransformation R² R
proj₁ joinNT = joinT proj₁ joinNT = joinT
proj₂ joinNT = joinTNatural proj₂ joinNT = joinN
isNaturalForeign : IsNaturalForeign isNaturalForeign : IsNaturalForeign
isNaturalForeign = begin isNaturalForeign = begin