19 lines
372 B
Plaintext
19 lines
372 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
|
|
|
|
nil : (A : U) -> List A
|
|
nil = \ A L n f => n
|
|
|
|
Bool : U
|
|
|