Mercurial > hg > Members > atton > agda-proofs
view systemT/systemT.agda @ 64:44d448a978d3
Trying define n-push/n-pop equiv
author | atton <atton@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 14 Jan 2017 05:46:16 +0000 |
parents | fe247f476ecb |
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