diff options
| author | herbelin | 2009-04-08 12:58:07 +0000 |
|---|---|---|
| committer | herbelin | 2009-04-08 12:58:07 +0000 |
| commit | 92696abcaab68c70461c285ada87e50dacf3bb34 (patch) | |
| tree | 879c41374e123e6890bc078ca3dc8aa75c2b71de /toplevel/command.ml | |
| parent | 231ab951f0da54d81c74afefc11a43be4057e662 (diff) | |
- Backport of 12053 (fixing parsing segfault bug #2087) and 12058 (fixing
Not_found bug in Theorem with) from V8.2 to trunk.
- Improving indentation in presence of tabulation and utf-8 when
reporting error messages with "^^^^^^".
- Updating a few svn:ignore properties.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12059 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 50c78d0eda..70087ecbfc 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -1132,9 +1132,9 @@ let look_for_mutual_statements thms = let n = List.length thms in let inds = List.map (fun (id,(t,_) as x) -> let (hyps,ccl) = 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 + let whnf_hyp_hds = fold_map_rel_context + (fun env c -> fst (whd_betadeltaiota_stack env Evd.empty c)) + (Global.env()) hyps in let ind_hyps = List.flatten (list_map_i (fun i (_,b,t) -> match kind_of_term t with |