From adc2d160c5ee9f750a5a360f97a01fc500bbae78 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 28 Oct 2008 14:37:56 +0000
Subject: 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
---
 test-suite/output/set.out | 6 +++---
 toplevel/command.ml       | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/test-suite/output/set.out b/test-suite/output/set.out
index 4c82d7295a..333fbb86d5 100644
--- a/test-suite/output/set.out
+++ b/test-suite/output/set.out
@@ -1,18 +1,18 @@
 1 subgoal
-
+  
   y1 := 0 : nat
   x := 0 + 0 : nat
   ============================
    x = x
 1 subgoal
-
+  
   y1 := 0 : nat
   y2 := 0 : nat
   x := y2 + 0 : nat
   ============================
    x = x
 1 subgoal
-
+  
   y1 := 0 : nat
   y2 := 0 : nat
   y3 := 0 : nat
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
-- 
cgit v1.2.3