Mercurial > hg > Members > atton > agda > systemT
annotate systemT.agda @ 2:ca2e9f7a7898
Add De Morgan's laws
author | Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 13 May 2014 11:14:49 +0900 |
parents | f300bd2101d3 |
children | 7138e79615b3 |
rev | line source |
---|---|
1
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
1 module systemT where |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
2 |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
3 data Bool : Set where |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
4 T : Bool |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
5 F : Bool |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
6 |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
7 data Int : Set where |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
8 O : Int |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
9 S : Int -> Int |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
10 |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
11 R : {U : Set} -> U -> (U -> (Int -> U)) -> Int -> U |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
12 R u v O = u |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
13 R u v (S t) = v (R u v t) t |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
14 |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
15 D : {U : Set} -> U -> U -> Bool -> U |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
16 D u v F = v |
f300bd2101d3
Define Bool, Int, D and R
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
17 D u v T = u |
2
ca2e9f7a7898
Add De Morgan's laws
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
1
diff
changeset
|
18 |