diff options
| author | herbelin | 2008-06-08 20:24:51 +0000 |
|---|---|---|
| committer | herbelin | 2008-06-08 20:24:51 +0000 |
| commit | 29863a4dc9feeb75a184587b7b994626db7b94ce (patch) | |
| tree | 0fc4182bbf72bd17b67e5aa8319f14e8fba271a1 /pretyping | |
| parent | 47e5f716f7ded0eec43b00d49955d56c370c3596 (diff) | |
- Patch sur "intros until 0"
- MAJ CHANGES et COMPATIBILITY
- Réservation de || et && dans Notations.v
- code mort et MAJ suite commit 11072 (tactics.ml et changes.txt)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11073 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/detyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index ba2d2fdf39..8d8a9950e3 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -211,7 +211,7 @@ let lookup_index_as_renamed env t n = lookup (n-1) (d+1) c' ) | Cast (c,_,_) -> lookup n d c - | _ -> None + | _ -> if n=0 then Some (d-1) else None in lookup n 1 t (**********************************************************************) |