21 lines
215 B
Text
21 lines
215 B
Text
data Bool () where {
|
|
True : Bool ()
|
|
False : Bool ()
|
|
};
|
|
|
|
even : Int -> Bool ();
|
|
even x = not (odd x) ;
|
|
|
|
odd x = not (even x) ;
|
|
|
|
not x = case x of {
|
|
True => False;
|
|
False => True;
|
|
};
|
|
|
|
f = g;
|
|
g = f;
|
|
|
|
|
|
|
|
|