diff options
Diffstat (limited to 'lib/Domain.ml')
-rw-r--r-- | lib/Domain.ml | 27 |
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 } |