diff options
| -rw-r--r-- | test-suite/output/set.out | 6 | ||||
| -rw-r--r-- | 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 |