diff options
| author | herbelin | 2004-04-13 12:19:03 +0000 |
|---|---|---|
| committer | herbelin | 2004-04-13 12:19:03 +0000 |
| commit | 2e62e97ac5b63dfe2ea97f4da4e341b8ef6eed5d (patch) | |
| tree | bc2be34cfe92347c2139d13c7439cc4fb457f50d | |
| parent | 53af6b5d6dd391c5c528dba50430e3e7217e2a3e (diff) | |
Correction confusion entre la dependance en les termes filtrees dans l'annotation donnee par l'utilisateur et l'annotation utilisee en interne
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5668 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/cases.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 0084fce652..dbd52f5702 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1609,12 +1609,12 @@ let build_initial_predicate isdep pred tomatchl = | [] -> PrCcl pred | tm::ltm -> let nrealargs = cook tm in - let pred, p = + let pred, p, user_p = if isdep then - if dependent (mkRel (nar-n)) pred then pred, 1 - else liftn (-1) (nar-n) pred, 0 - else pred, 0 in - PrLetIn ((nrealargs,p=1), buildrec (n+nrealargs+p) pred ltm) + if dependent (mkRel (nar-n)) pred then pred, 1, 1 + else liftn (-1) (nar-n) pred, 0, 1 + else pred, 0, 0 in + PrLetIn ((nrealargs,p=1), buildrec (n+nrealargs+user_p) pred ltm) in buildrec 0 pred tomatchl let extract_arity_signature env0 tomatchl tmsign = |