fresh names, move case stuff along a little

This commit is contained in:
2024-08-13 07:42:01 -07:00
parent 023e9e61ad
commit 1fef9dcfc6
6 changed files with 67 additions and 15 deletions

View File

@@ -238,8 +238,13 @@ checkAlt scty ctx ty (MkAlt ptm body) = do
-- nameless variable
go ctype [] ctx = do
debug "*** end \{show ctype}"
-- FIXME FIXME - I think I should be unifying ctype against scty and learning stuff from it
-- like n = S k.
-- debug "Unifying constructor"
-- unifyCatch emptyFC ctx ctype scty
-- my first example has issues with Vect Z 0 =?=
check ctx body ty
-- pure ctx -- this should be our constructor.
-- This happens if we run out of runway (more args and no pi)
-- go ctype tm ctx = error (getF "unhandled in checkAlt.go type: \{show ctype} term: \{show tm}"
go ctype args ctx = error (argsFC args) "Extra args"