Write Nat/Unit/Empty/Id Eliminators Through NbE and Bidir Elaboration

2026-04-19 13:55:05 +00:00
parent a154e2b98c
commit 85be37b1d6
8 changed files with 374 additions and 2 deletions
@@ -12,6 +12,18 @@ mutual
    | pi   : Val → Closure → Val
    | sig  : Val → Closure → Val
    | pair : Val → Val → Val
+    | nat  : Val
+    | zero : Val
+    | succ : Val → Val
+    | natElim : Val → Val → Val → Val → Val
+    | unit : Val
+    | triv : Val
+    | unitElim : Val → Val → Val → Val
+    | empty : Val
+    | emptyElim : Val → Val → Val
+    | id   : Val → Val → Val → Val
+    | refl : Val
+    | idElim : Val → Val → Val → Val → Val
    | univ : Nat → Val

  inductive Closure where