Mercurial > hg > Members > atton > delta_monad

annotate agda/basic.agda @ 28:6e6d646d7722

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Split basic functions to file
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Tue, 07 Oct 2014 14:55:40 +0900
parents
children e0ba1bf564dd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
28
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 module basic where
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 id : {A : Set} -> A -> A
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 id x = x
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 _∙_ : {A B C : Set} -> (A -> B) -> (B -> C) -> (A -> C)
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 f ∙ g = \x -> g (f x)
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 postulate String : Set
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 postulate show : {A : Set} -> A -> String