Mercurial > hg > Members > atton > delta_monad
view agda/basic.agda @ 125:6dcc68ef8f96
Prove right-unity-law for DeltaM
author | Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 02 Feb 2015 14:09:30 +0900 |
parents | 55d11ce7e223 |
children |
line wrap: on
line source
open import Level module basic where id : {l : Level} {A : Set l} -> A -> A id x = x _∙_ : {l : Level} {A B C : Set l} -> (B -> C) -> (A -> B) -> (A -> C) f ∙ g = \x -> f (g x) postulate String : Set postulate show : {l : Level} {A : Set l} -> A -> String