diff options
| author | herbelin | 2003-09-23 19:32:12 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-23 19:32:12 +0000 |
| commit | 8a95a21a90188d8ef4bd790563a63fdf9b4318a9 (patch) | |
| tree | 1cf2957bf6fb5bcec5b05cbd1ca587eefbfdb724 | |
| parent | 58b3bc4b3151bc5f8b81fbc7a1943f99b081f80e (diff) | |
Correction bug NewInduction pour les inductifs de type 'ordinaux'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4462 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tactics.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 41dce0fef9..4f9ab4ad18 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1333,7 +1333,9 @@ let compute_induction_names n names = names let is_indhyp p n t = - let c,_ = decompose_app t in + let l, c = decompose_prod t in + let c,_ = decompose_app c in + let p = p + List.length l in match kind_of_term c with | Rel k when p < k & k <= p + n -> true | _ -> false |