diff options
Diffstat (limited to 'src/nbe/Data.ml')
| -rw-r--r-- | src/nbe/Data.ml | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/nbe/Data.ml b/src/nbe/Data.ml index 8589ea5..38739b3 100644 --- a/src/nbe/Data.ml +++ b/src/nbe/Data.ml @@ -2,11 +2,11 @@ open Bwd type syn = | Var of int - | Def of Ident.t * value Lazy.t - | Pi of Ident.local * syn * (* BINDS *) syn - | Lam of Ident.local * (* BINDS *) syn + | Def of Name.t * value Lazy.t + | Pi of Name.local * syn * (* BINDS *) syn + | Lam of Name.local * (* BINDS *) syn | App of syn * syn - | Sg of Ident.local * syn * (* BINDS *) syn + | Sg of Name.local * syn * (* BINDS *) syn | Pair of syn * syn | Fst of syn | Snd of syn @@ -15,7 +15,7 @@ type syn = | True | False | BoolElim of { - motive_var : Ident.local; + motive_var : Name.local; motive : (* BINDS *) syn; true_case : syn; false_case : syn; @@ -25,9 +25,9 @@ type syn = and value = | Neutral of ne | Unfold of unfold - | Pi of Ident.local * value * clo - | Lam of Ident.local * clo - | Sg of Ident.local * value * clo + | Pi of Name.local * value * clo + | Lam of Name.local * clo + | Sg of Name.local * value * clo | Pair of value * value | Type | Bool @@ -40,14 +40,14 @@ and ne_head = and unfold = unfold_head * frm bwd * value Lazy.t and unfold_head = - | Def of Ident.t * value Lazy.t + | Def of Name.t * value Lazy.t and frm = | App of value | Fst | Snd | BoolElim of { - motive_var : Ident.local; + motive_var : Name.local; motive: clo; true_case: value; false_case: value; |