diff options
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 |