diff options
| author | puech | 2011-07-29 14:25:34 +0000 |
|---|---|---|
| committer | puech | 2011-07-29 14:25:34 +0000 |
| commit | 630e1d8c8b8652406e453309ba8d01fce3e3e72f (patch) | |
| tree | d2302c8ab210d5ff0d5b32a60a62d9bbdf4b9803 | |
| parent | 8bb15cf06201f98356f8676a3a1c607151c2aec6 (diff) | |
Cases: generic equality on constr replaced by destructors
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14327 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/cases.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 331cd01231..304ffc7662 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -595,7 +595,7 @@ let regeneralize_index_tomatch n = genrec 0 let rec replace_term n c k t = - if t = mkRel (n+k) then lift k c + if isRel t && destRel t = n+k then lift k c else map_constr_with_binders succ (replace_term n c) k t let length_of_tomatch_type_sign (dep,_) = function |