mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 12:42:02 +03:00
17 lines
217 B
Plaintext
17 lines
217 B
Plaintext
|
> 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)
|