mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 12:42:02 +03:00
22 lines
417 B
Idris
22 lines
417 B
Idris
|
data Bad = MkBad (Bad -> Int) Int
|
||
|
|
| MkBad' Int
|
||
|
|
|
||
|
|
foo : Bad -> Int
|
||
|
|
foo (MkBad f i) = f (MkBad' i)
|
||
|
|
foo (MkBad' x) = x
|
||
|
|
|
||
|
|
foo2 : Bad -> Int
|
||
|
|
foo2 b = case b of
|
||
|
|
MkBad f i => f (MkBad' i)
|
||
|
|
MkBad' x => x
|
||
|
|
|
||
|
|
data T : Type -> Type where
|
||
|
|
MkT : T (T a) -> T a
|
||
|
|
|
||
|
|
mutual
|
||
|
|
data Bad1 = MkBad1 (Bad2 -> Int)
|
||
|
|
data Bad2 = MkBad2 (Bad1 -> Int)
|
||
|
|
|
||
|
|
data T2 : Type -> Type where
|
||
|
|
MkT2 : T a -> T2 a
|