diff options
| author | herbelin | 2008-10-28 14:37:56 +0000 |
|---|---|---|
| committer | herbelin | 2008-10-28 14:37:56 +0000 |
| commit | adc2d160c5ee9f750a5a360f97a01fc500bbae78 (patch) | |
| tree | 60cb1b35610ce45394c5b43aa26e4b5d34a9f1f0 /toplevel/command.ml | |
| parent | 52973d783e8a97680ea48b5e2fb43f7bc15c42c5 (diff) | |
11511 continued (bug in set.out + incohérence dans "Theorem with"
entre le calcul des arguments récursifs possibles -- bien que bidon en
attendant mieux -- et ce la tactique fix attend -- le premier expanse
les produits au maximum le second non)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11515 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 050d7ff265..5d144f1961 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -1120,7 +1120,7 @@ let look_for_mutual_statements thms = (* common coinductive conclusion *) let n = List.length thms in let inds = List.map (fun (id,(t,_) as x) -> - let (hyps,ccl) = splay_prod_assum (Global.env()) Evd.empty t in + let (hyps,ccl) = Sign.decompose_prod_assum t in let whnf_hyp_hds = map_rel_context_with_binders (fun i c -> fst (whd_betadeltaiota_stack (Global.env()) Evd.empty (lift i c))) hyps in |