Add comment

This commit is contained in:
Frederik Hanghøj Iversen 2018-03-06 09:41:29 +01:00
parent 7647a452cd
commit b6457a0b14

View file

@ -28,6 +28,8 @@ module Monoidal {a b : Level} ( : Category a b) where
pureNT : NaturalTransformation F.identity R
joinNT : NaturalTransformation F[ R R ] R
-- Note that `pureT` and `joinT` differs from their definition in the
-- kleisli formulation only by having an explicit parameter.
pureT : Transformation F.identity R
pureT = proj₁ pureNT
pureN : Natural F.identity R pureT