diff options
| author | herbelin | 2000-10-01 13:39:28 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-01 13:39:28 +0000 |
| commit | 42085181ecb76f83fe34c74ff668d2cf0b26678a (patch) | |
| tree | 89b09fd0a7c1a239c1da3a1c70589f648c3acbe6 /pretyping | |
| parent | 3dc7ac2dcfdf8e8255a23c868de29a03a11ceb2e (diff) | |
renommage map_constr_with_named_binders
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@625 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evarutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 8afaf83692..6407284be6 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -189,7 +189,7 @@ let real_clean isevars sp args rhs = if i<=k then t else (try List.assoc (mkRel (i-k)) subst with Not_found -> t) | IsVar _ -> (try List.assoc t subst with Not_found -> t) - | _ -> map_constr_with_binders (fun na k -> k+1) subs k t + | _ -> map_constr_with_binders succ subs k t in let body = subs 0 rhs in (* if not (closed0 body) then error_not_clean CCI empty_env sp body; *) |