mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 20:51:43 +03:00
13 lines
234 B
Idris
13 lines
234 B
Idris
|
%default total
|
||
|
|
|
||
|
|
data Tree a = Node a (Tree a) (Tree a)
|
||
|
|
|
||
|
|
failing "Nope is not total, not strictly positive"
|
||
|
|
|
||
|
|
data Nope : Type where
|
||
|
|
MkNope : Tree (Not Nope) -> Nope
|
||
|
|
|
||
|
|
covering
|
||
|
|
data Yep : Type where
|
||
|
|
MkYep : Tree (Not Yep) -> Yep
|