mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-19 10:51:35 +03:00
16 lines
316 B
Plaintext
16 lines
316 B
Plaintext
data Bad : Type where
|
|
MkBad : (Bad -> Int) -> Int -> Bad
|
|
MkBad' : Int -> Bad
|
|
|
|
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
|