diff options
| author | herbelin | 2000-05-22 19:58:53 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-22 19:58:53 +0000 |
| commit | eeaaff36995a664a6eed57b68fdea1446f6c0b9b (patch) | |
| tree | 17a5be785534c47741b7f8bfa718328d85481c0f | |
| parent | 3fb2831f37c822674ea072d08dcbf21769b797ff (diff) | |
Commentaires
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@469 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 |