Add note about haskell

This commit is contained in:
Frederik Hanghøj Iversen 2018-02-24 15:25:07 +01:00
parent e4e327d1d2
commit 5d9c820fa2

View file

@ -88,7 +88,18 @@ module Kleisli {a b : Level} ( : Category a b) where
-- Note name-change from [voe] -- Note name-change from [voe]
ζ : {X : Object} [ X , RR X ] ζ : {X : Object} [ X , RR X ]
rr : {X Y : Object} [ X , RR Y ] [ RR X , RR Y ] rr : {X Y : Object} [ X , RR Y ] [ RR X , RR Y ]
-- Name suggestions are welcome! -- Note the correspondance with Haskell:
--
-- RR ~ m
-- ζ ~ pure
-- rr ~ flip (>>=)
--
-- Where those things have these types:
--
-- m : 𝓤𝓤
-- pure : x → m x
-- flip (>>=) :: (a → m b) → m a → m b
--
IsIdentity = {X : Object} IsIdentity = {X : Object}
rr ζ 𝟙 {RR X} rr ζ 𝟙 {RR X}
IsNatural = {X Y : Object} (f : [ X , RR Y ]) IsNatural = {X Y : Object} (f : [ X , RR Y ])