diff options
| author | Malte Voos <git@mal.tc> | 2024-06-23 01:36:48 +0200 |
|---|---|---|
| committer | Malte Voos <git@mal.tc> | 2024-06-23 01:36:48 +0200 |
| commit | 8d40541003736d5319ec981278338e8c8c66daf6 (patch) | |
| tree | e595d0055af42b6a9d84e504befbe114a8cef5e2 /lib/Domain.ml | |
| parent | 36762e83887b6f917df46c5e40a11d53b697209d (diff) | |
| download | toytt-8d40541003736d5319ec981278338e8c8c66daf6.tar.gz toytt-8d40541003736d5319ec981278338e8c8c66daf6.zip | |
keep track of bound names everywhere to be able to output names instead of de bruijn indices
Diffstat (limited to 'lib/Domain.ml')
| -rw-r--r-- | lib/Domain.ml | 13 |
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 |