check in test from dependent record fix
This commit is contained in:
16
tests/DepRecord.newt
Normal file
16
tests/DepRecord.newt
Normal file
@@ -0,0 +1,16 @@
|
||||
module DepRecord
|
||||
|
||||
import Prelude
|
||||
|
||||
infixr 6 _:-_
|
||||
data Vect : (0 n : Nat) → (0 a : U) → U where
|
||||
VNil : ∀ a. Vect Z a
|
||||
_:-_ : ∀ k a. a → Vect k a → Vect (S k) a
|
||||
|
||||
|
||||
data Foo : U where
|
||||
Bar : {n : Nat} → Vect n Int → Foo
|
||||
|
||||
record DepPair where
|
||||
n : Nat
|
||||
stuff : Vect n Int
|
||||
Reference in New Issue
Block a user