mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
10 lines
160 B
Idris
10 lines
160 B
Idris
data Foo : Nat -> Type where
|
|
|
|
0 G : (0 yv : Nat) -> Type
|
|
G yv = Foo yv -> Bool
|
|
|
|
partial
|
|
f : (0 x : Nat) -> Nat
|
|
f x = case G x of
|
|
(Foo x' -> _) => x'
|