Mercurial > hg > Members > atton > agda > systemT
view 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 |
line wrap: on
line source
module systemT where data Bool : Set where T : Bool F : Bool data Int : Set where O : Int S : Int -> Int R : {U : Set} -> U -> (U -> (Int -> U)) -> Int -> U R u v O = u R u v (S t) = v (R u v t) t D : {U : Set} -> U -> U -> Bool -> U D u v F = v D u v T = u