Split neutrals from canonical values so stuck eliminators arent encoded via constructor overloading

2026-04-19 15:03:40 +00:00
parent bb002a4d92
commit 963c9f3e94
5 changed files with 245 additions and 207 deletions
@@ -11,7 +11,7 @@ structure Cxt where
 def Cxt.empty : Cxt := ⟨[], [], 0⟩

 def Cxt.bind (cxt : Cxt) (x : Name) (a : Val) : Cxt :=
-  { env   := .var cxt.lvl :: cxt.env
+  { env   := .neu (.var cxt.lvl) :: cxt.env
  , types := (x, a) :: cxt.types
  , lvl   := cxt.lvl + 1 }