diff options
| author | herbelin | 2000-10-21 10:35:50 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-21 10:35:50 +0000 |
| commit | c10dd2a7f83b9beae3f8934a5c46e20f0570a54a (patch) | |
| tree | a4caacb15725c5d6f1c6586d77c3bfe78c254b4b /pretyping | |
| parent | 1f6bde4f4555d31a107fc9df2ae6e0f010ff38b9 (diff) | |
Bug indices dans l'instance d'une evar
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@734 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 3f0570dc9e..8cab61c947 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -203,7 +203,7 @@ let make_instance_with_rel env = env [] in snd (fold_rel_context (fun env (_,b,_) (i,l) -> (i-1, if b=None then mkRel i :: l else l)) - env (n+1,vars)) + env (n,vars)) let make_subst env args = snd (fold_named_context |