10 lines
158 B
Text
10 lines
158 B
Text
data Bool () where {
|
|
True : Bool ()
|
|
False : Bool ()
|
|
};
|
|
|
|
main : Bool () -> a -> Int ;
|
|
main b = case b of {
|
|
False => (\x. 1);
|
|
True => \x. 0;
|
|
};
|