Mercurial > hg > Members > atton > agda-proofs

comparison systemT/systemT.agda @ 1:fe247f476ecb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Migrate systemT from atton/agda/systemT (13:5a81867278af)
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Sun, 02 Nov 2014 09:40:54 +0900
parents
children
comparison
equal deleted inserted replaced
0:8a5f4ebdd34d 1:fe247f476ecb
1 module systemT where
2
3 data Bool : Set where
4 T : Bool
5 F : Bool
6
7 data Int : Set where
8 O : Int
9 S : Int -> Int
10
11 R : {U : Set} -> U -> (U -> (Int -> U)) -> Int -> U
12 R u v O = u
13 R u v (S t) = v (R u v t) t
14
15 D : {U : Set} -> U -> U -> Bool -> U
16 D u v F = v
17 D u v T = u