diff options
author | 2003-09-23 19:32:12 +0000 | |
---|---|---|
committer | 2003-09-23 19:32:12 +0000 | |
commit | 8a95a21a90188d8ef4bd790563a63fdf9b4318a9 (patch) | |
tree | 1cf2957bf6fb5bcec5b05cbd1ca587eefbfdb724 /tactics | |
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
Diffstat (limited to 'tactics')
-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 41dce0fef..4f9ab4ad1 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 |