mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-24 20:23:11 +03:00
31 lines
478 B
Idris
31 lines
478 B
Idris
|
namespace L0
|
||
|
|
public export
|
||
|
|
data List0 : Type
|
||
|
|
|
||
|
|
|
||
|
|
namespace L1
|
||
|
|
public export
|
||
|
|
data List1 : Type where
|
||
|
|
Lin : List1
|
||
|
|
Cons1 : List0 -> Nat -> List1
|
||
|
|
|
||
|
|
public export
|
||
|
|
(:<) : List0 -> Nat -> List1
|
||
|
|
(:<) = Cons1
|
||
|
|
|
||
|
|
namespace L2
|
||
|
|
public export
|
||
|
|
data (:<) : List0 -> Nat -> Type where
|
||
|
|
|
||
|
|
namespace L0
|
||
|
|
public export
|
||
|
|
data List0 : Type where
|
||
|
|
Lin : List0
|
||
|
|
(:<) : Type -> Nat -> List0
|
||
|
|
|
||
|
|
m : Nat
|
||
|
|
m = believe_me %MkWorld
|
||
|
|
|
||
|
|
Rainbow : Nat -> Type
|
||
|
|
Rainbow n = [< n , m , n ]
|