diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-05-15 06:40:28 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-05-15 06:40:28 +0000 |
| commit | 675884d2e03507602f4149eec7917d047b82e941 (patch) | |
| tree | 5b85f92834c603b4d2086b1bd490439deab4622a | |
| parent | 4645fdff5c79865a89444353d4bc6b4b3728fb6f (diff) | |
Correction bug predicat du Cases (suite)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1752 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 df06b4f70..b207f4247 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -932,7 +932,7 @@ let weaken_predicate q pred = let copt, p = if dep then Some (mkRel (q+k)), 1 else None, 0 in (* PrNotInd is a binding iff copt <> None *) PrNotInd (copt, weakrec (n-1) (k+p) pred) - in weakrec q 0 pred + in weakrec q 0 (lift_predicate q pred) (*****************************************************************************) (* pred = [X:=realargs;x:=e]P types the following problem: *) |