12 lines
319 B
Agda
12 lines
319 B
Agda
module Test1
|
|
|
|
-- This is not total
|
|
nat : U
|
|
nat = {C : U} -> C -> (nat -> C) -> C
|
|
|
|
-- TESTCASE This was broken when I wasn't expanding Ref ty in check
|
|
-- Also broken when I tried to put Def in VRef
|
|
-- Broken if I don't `nf` the type of a function before putting in TopContext
|
|
succ : nat -> nat
|
|
succ = \n => \ z s => s n
|