mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
15 lines
291 B
Idris
15 lines
291 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
|