Mercurial > hg > Members > atton > similar_monad

view agda/basic.agda @ 42:1df4f9d88025 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Proof Monad-law-3 (haskell)
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Fri, 24 Oct 2014 14:08:50 +0900
parents 743c05b98dad
children
line wrap: on
line source

open import Level

module basic where

id : {l : Level} {A : Set l} -> A -> A
id x = x

_∙_ : {l ll lll : Level} {A : Set l} {B : Set ll} {C : Set lll} -> (B -> C) -> (A -> B) -> (A -> C)
f ∙ g = \x -> f (g x)

postulate String : Set
postulate show   : {l : Level} {A : Set l} -> A -> String