diff options
| author | barras | 2008-01-18 17:20:28 +0000 |
|---|---|---|
| committer | barras | 2008-01-18 17:20:28 +0000 |
| commit | f57b2e6cf26316ec7df340ab95399039dae5143e (patch) | |
| tree | 3a432e1eba11ac8fcc595f33a67c6343ae8b66cd /tactics | |
| parent | 72dccfa0f5edb59b1ba2668e91828742ab91bb1d (diff) | |
bug in accessing n-th abstraction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10451 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/inv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index d8d7661be7..baa77f9c4b 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -117,7 +117,7 @@ let make_inv_predicate env sigma indf realargs id status concl = (* We lift to make room for the equations *) (hyps,lift nrealargs bodypred) in - let nhyps = List.length hyps in + let nhyps = rel_context_length hyps in let env' = push_rel_context hyps env in let realargs' = List.map (lift nhyps) realargs in let pairs = list_map_i (compute_eqn env' sigma nhyps) 0 realargs' in |