diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-19 09:27:36 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-19 09:27:36 +0000 |
| commit | fd561b8d22aa7b04904d6fcd85036fdd6b255ca3 (patch) | |
| tree | 1b17ffdf31c13815579b4ee4c81ef87750f5292f /tactics/tacticals.ml | |
| parent | 5378c756b3aa114c4def0ec116a0654eea7bf95f (diff) | |
Elim dependente n'appelait pas la bonne fonction pour calculer le predicat
d'elimination (d'ou le bug avec Dependent Inversion)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2484 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacticals.ml')
| -rw-r--r-- | tactics/tacticals.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index 78e80a0ec..69141302c 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -364,7 +364,7 @@ let case_then_using tac predicate (indbindings,elimbindings) c gl = let (ity,t) = pf_reduce_to_quantified_ind gl (pf_type_of gl c) in let sigma = project gl in let sort = elimination_sort_of_goal gl in - let elim = Indrec.make_case_gen (pf_env gl) sigma ity sort in + let elim = Indrec.make_case_dep (pf_env gl) sigma ity sort in general_elim_then_using elim case_sign tac predicate (indbindings,elimbindings) c gl |