core syntax, semantic domain, evaluation

1 files changed, 27 insertions, 0 deletions

diff --git a/lib/Domain.ml b/lib/Domain.ml
new file mode 100644
index 0000000..cf07a4b
--- /dev/null
+++ b/lib/Domain.ml
@@ -0,0 +1,27 @@
+open Bwd
+
+type value =
+  | Neutral of ne
+  | Pi of value * clos
+  | Lam of clos
+  | Sg of value * clos
+  | Pair of value * value
+  | Type
+  | Bool
+  | True
+  | False
+
+and ne = ne_head * frame bwd
+and ne_head = Var of int (* De Bruijn levels *)
+and frame = 
+  | BoolElim of {
+      cmot: clos;
+      vtrue: value;
+      vfalse: value;
+    }
+  | App of value
+  | Fst
+  | Snd
+
+and env = value bwd
+and clos = Clos of { body : Syntax.tm; env : env }