8 lines
149 B
Text
8 lines
149 B
Text
data Bool () where
|
|
True : Bool ()
|
|
False : Bool ()
|
|
|
|
main : Bool () -> a -> Int
|
|
main b = case b of
|
|
False => (\x. 1)
|
|
True => (\x. 0)
|