diff options
| author | puech | 2011-07-29 14:29:18 +0000 |
|---|---|---|
| committer | puech | 2011-07-29 14:29:18 +0000 |
| commit | 31d034155b5abe0bfc0cfd69b88603c954b6229e (patch) | |
| tree | 2e9da1ef923da97af37175b7c73cbd21753eca5b | |
| parent | 41f651e2b64fbba2bf50777564f24168ad3cf6b5 (diff) | |
Subtac_cases: replaced some generic = on constr by destructors
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14363 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | plugins/subtac/subtac_cases.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/subtac/subtac_cases.ml b/plugins/subtac/subtac_cases.ml index 87b372c38f..68e4e7224d 100644 --- a/plugins/subtac/subtac_cases.ml +++ b/plugins/subtac/subtac_cases.ml @@ -601,7 +601,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 replace_tomatch n c = |