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 /parsing | |
| parent | 3fb2831f37c822674ea072d08dcbf21769b797ff (diff) | |
Commentaires
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@469 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/termast.ml | 3 |
1 files changed, 3 insertions, 0 deletions
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 |