20 lines
437 B
Plaintext
20 lines
437 B
Plaintext
-- foo
|
|
module Foo
|
|
|
|
id : (a : U) -> a -> a
|
|
id = \ a => \ x => x
|
|
|
|
-- if I put foo here, it fails with 'extra toks' at "module"
|
|
-- errors aren't cutting to the top
|
|
-- I think we need the errors to be fatal if anything is consumed (since the nearest alt)
|
|
|
|
List : U -> U
|
|
List = \ A => (L : U) -> L -> (A -> L -> L) -> L
|
|
|
|
-- need more sugar for lambdas
|
|
nil : (A L : U) -> L -> (A -> L -> L) -> L
|
|
nil = \ A => \ L => \ n => \ f => n
|
|
|
|
Bool : U
|
|
|