mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2025-01-01 17:23:23 +03:00
13 lines
238 B
Idris
13 lines
238 B
Idris
|
data Foo : Type -> Type where
|
||
|
|
IsNat : Foo Nat
|
||
|
|
IsBool : Foo Bool
|
||
|
|
|
||
|
|
okay : a -> Foo a -> Bool
|
||
|
|
okay Z IsNat = False
|
||
|
|
okay True IsBool = True
|
||
|
|
|
||
|
|
bad : a -> Foo a -> Bool
|
||
|
|
bad Z IsNat = False
|
||
|
|
bad True IsBool = True
|
||
|
|
bad (Just 0) _ = False
|