diff options
| -rw-r--r-- | kernel/generic.mli | 2 | ||||
| -rw-r--r-- | parsing/termast.ml | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/kernel/generic.mli b/kernel/generic.mli index 6825c3978b..5f632a94ad 100644 --- a/kernel/generic.mli +++ b/kernel/generic.mli @@ -116,6 +116,8 @@ val decomp_DLAMV : int -> 'a term -> 'a term array val decomp_DLAMV_name : int -> 'a term -> name list * 'a term array val decomp_all_DLAMV_name : 'a term -> name list * 'a term array val put_DLAMSV_subst : identifier list -> 'a term array -> 'a term + +(* [rel_list n m] and [rel_vect n m] compute [[Rel (n+m);...;Rel(n+1)]] *) val rel_vect : int -> int -> 'a term array val rel_list : int -> int -> 'a term list diff --git a/parsing/termast.ml b/parsing/termast.ml index ce180ba1c7..f92f9cef42 100644 --- a/parsing/termast.ml +++ b/parsing/termast.ml @@ -338,6 +338,9 @@ let ast_of_rawconstr = ast_of_raw type used_idents = identifier list +(* This avoids var names, const/ind/construct names but also names of + de Bruijn variables bound in env *) + let occur_id env id0 c = let rec occur n = function | VAR id -> id=id0 |