Mercurial > hg > Members > atton > delta_monad

annotate agda/basic.agda @ 31:33b386de3f56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Proof list-associative
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Sat, 18 Oct 2014 13:38:29 +0900
parents e0ba1bf564dd
children c5cdbedc68ad
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
29
e0ba1bf564dd Apply level to some functions
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
1 open import Level
e0ba1bf564dd Apply level to some functions
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
2
28
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 module basic where
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4
29
e0ba1bf564dd Apply level to some functions
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
5 id : {l : Level} {A : Set} -> A -> A
28
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 id x = x
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7
29
e0ba1bf564dd Apply level to some functions
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
8 _∙_ : {l ll lll : Level} {A : Set l} {B : Set ll} {C : Set lll} -> (B -> C) -> (A -> B) -> (A -> C)
e0ba1bf564dd Apply level to some functions
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
9 f ∙ g = \x -> f (g x)
28
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 postulate String : Set
6e6d646d7722 Split basic functions to file
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 postulate show : {A : Set} -> A -> String