diff options
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 |