diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-28 21:45:22 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-28 21:45:22 +0000 |
| commit | 02c23401a7a3e54d48084fc2796a485de36383f1 (patch) | |
| tree | 03574e9f1c862f2b5685741c6c9d8ee8029aea21 /transfer/examples/bool.tr | |
| parent | 5a82068ddc0e75ee2f2280ffb5da9cda3e53bac3 (diff) | |
Changed all example programs to use layout syntax.
Diffstat (limited to 'transfer/examples/bool.tr')
| -rw-r--r-- | transfer/examples/bool.tr | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/transfer/examples/bool.tr b/transfer/examples/bool.tr index 291434a9f..401d238ef 100644 --- a/transfer/examples/bool.tr +++ b/transfer/examples/bool.tr @@ -1,8 +1,10 @@ -data Bool : Type where { True : Bool; False : Bool; } ; +data Bool : Type where + True : Bool + False : Bool; -depif : (A:Type) -> (B:Type) -> (b:Bool) -> A -> B -> if Type b then A else B ; -depif _ _ True x _ = x ; -depif _ _ False _ y = y ; +depif : (A:Type) -> (B:Type) -> (b:Bool) -> A -> B -> if Type b then A else B +depif _ _ True x _ = x +depif _ _ False _ y = y -not : Bool -> Bool ; -not b = if b then False else True ; +not : Bool -> Bool +not b = if b then False else True |
