From 8d40541003736d5319ec981278338e8c8c66daf6 Mon Sep 17 00:00:00 2001
From: Malte Voos <git@mal.tc>
Date: Sun, 23 Jun 2024 01:36:48 +0200
Subject: keep track of bound names everywhere to be able to output names
 instead of de bruijn indices

---
 lib/Domain.ml | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'lib/Domain.ml')

diff --git a/lib/Domain.ml b/lib/Domain.ml
index 67ac4ae..6f5e11c 100644
--- a/lib/Domain.ml
+++ b/lib/Domain.ml
@@ -2,9 +2,9 @@ open Bwd
 
 type t = Data.value =
   | Neutral of ne
-  | Pi of t * clo
-  | Lam of clo
-  | Sg of t * clo
+  | Pi of Ident.local * t * clo
+  | Lam of Ident.local * clo
+  | Sg of Ident.local * t * clo
   | Pair of t * t
   | Type
   | Bool
@@ -18,9 +18,10 @@ and frm = Data.frm =
   | Fst
   | Snd
   | BoolElim of {
-      cmot: clo;
-      vtrue: t;
-      vfalse: t;
+      motive_var : Ident.local;
+      motive : clo;
+      true_case : t;
+      false_case: t;
     }
 
 and env = Data.env
-- 
cgit 1.4.1