Mercurial > hg > Members > atton > delta_monad
annotate agda/basic.agda @ 37:743c05b98dad
Use level in basic/list
author | Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 19 Oct 2014 12:22:54 +0900 (2014-10-19) |
parents | c5cdbedc68ad |
children | 55d11ce7e223 |
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 |
35
c5cdbedc68ad
Proof Monad-law-2-2
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
29
diff
changeset
|
5 id : {l : Level} {A : Set l} -> 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 |
37
743c05b98dad
Use level in basic/list
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
35
diff
changeset
|
12 postulate show : {l : Level} {A : Set l} -> A -> String |