diff options
| author | Malte Voos <git@mal.tc> | 2024-07-08 22:10:12 +0200 |
|---|---|---|
| committer | Malte Voos <git@mal.tc> | 2024-07-08 22:10:12 +0200 |
| commit | 66cf5d3c5fff84a1cac333c1aa81a8e1f21ee6f4 (patch) | |
| tree | bfbd237f12a3b973d0b93556e6235ced045db701 /src/nbe/Data.ml | |
| parent | 97f84ccace4e634b4e02178a702818e69292dc9f (diff) | |
| download | toytt-66cf5d3c5fff84a1cac333c1aa81a8e1f21ee6f4.tar.gz toytt-66cf5d3c5fff84a1cac333c1aa81a8e1f21ee6f4.zip | |
rename Ident -> Name
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; |