From 66cf5d3c5fff84a1cac333c1aa81a8e1f21ee6f4 Mon Sep 17 00:00:00 2001 From: Malte Voos Date: Mon, 8 Jul 2024 22:10:12 +0200 Subject: rename Ident -> Name --- src/nbe/Data.ml | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'src/nbe/Data.ml') 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; -- cgit 1.4.1