mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-24 12:14:26 +03:00
15 lines
295 B
Idris
15 lines
295 B
Idris
module Main
|
|
|
|
%default total
|
|
|
|
%logging "declare.data.parameters" 20
|
|
%logging "eval.eta" 10
|
|
|
|
|
|
-- explicit
|
|
data Value : (value : Nat -> Type) -> Type where
|
|
EmptyV : {0 value : Nat -> Type} -> Value (\ n => value n)
|
|
|
|
data TValue : Nat -> Type where
|
|
MkTupleV : Value (\n => TValue n) -> TValue n
|