diff options
author | Malte Voos <git@mal.tc> | 2024-06-17 17:41:38 +0200 |
---|---|---|
committer | Malte Voos <git@mal.tc> | 2024-06-17 17:41:38 +0200 |
commit | 04d62df9fdd42c603fad7bb1b5e3fb49bf8550c1 (patch) | |
tree | 0a11c38a9f7bfad5624f0821b3a7041a9d4ff4d8 /lib/Data.ml | |
parent | edcd6c17b873b11b18016c9fe6efbe47576574ae (diff) | |
download | toytt-04d62df9fdd42c603fad7bb1b5e3fb49bf8550c1.tar.gz toytt-04d62df9fdd42c603fad7bb1b5e3fb49bf8550c1.zip |
implement typechecking
Diffstat (limited to 'lib/Data.ml')
-rw-r--r-- | lib/Data.ml | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/lib/Data.ml b/lib/Data.ml new file mode 100644 index 0000000..19ca67d --- /dev/null +++ b/lib/Data.ml @@ -0,0 +1,51 @@ +open Bwd + +(** Syntactic terms *) + +type syn = + | Var of int + | Pi of syn * (* BINDS *) syn + | Lam of (* BINDS *) syn + | App of syn * syn + | Sg of syn * (* BINDS *) syn + | Pair of syn * syn + | Fst of syn + | Snd of syn + | Type + | Bool + | True + | False + | BoolElim of { + motive : (* BINDS *) syn; + true_case : syn; + false_case : syn; + scrut : syn; + } + +(** Semantic domain *) + +type value = + | Neutral of ne + | Pi of value * clo + | Lam of clo + | Sg of value * clo + | Pair of value * value + | Type + | Bool + | True + | False + +and ne = ne_head * frm bwd +and ne_head = Var of int (* De Bruijn levels *) +and frm = + | App of value + | Fst + | Snd + | BoolElim of { + cmot: clo; + vtrue: value; + vfalse: value; + } + +and env = value bwd +and clo = Clo of { body : syn; env : env } |