1 files changed, 7 insertions, 6 deletions
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