mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-20 10:02:03 +03:00
17 lines
217 B
Idris
17 lines
217 B
Idris
> module Lit
|
|
>
|
|
> %default total
|
|
|
|
a > b
|
|
|
|
a < b
|
|
|
|
> data V a = Empty | Extend a (V a)
|
|
|
|
> isCons : V a -> Bool
|
|
> isCons Empty = False
|
|
> isCons (Extend _ _) = True
|
|
|
|
< namespace Hidden
|
|
< data U a = Empty | Extend a (U a)
|