Mercurial > hg > Members > atton > agda > systemT
view systemT.agda @ 13:5a81867278af default tip
Imporve proof for sum-sym
author | Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 23 May 2014 13:53:30 +0900 |
parents | 7138e79615b3 |
children |
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