diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-05 15:07:43 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-05 15:07:43 +0000 |
commit | 73057cde43cf66a2fb8c771c4ed5214346a7e94a (patch) | |
tree | 93e825d6cbff2068078831c77825abe581aaf809 | |
parent | 339c2d75a026189372969850b5b043afa8e08ce3 (diff) |
2 espaces en trop
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4812 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | proofs/refiner.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 5e63c717c..601359590 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -959,7 +959,7 @@ let rec print_script nochange sigma osign pf = (print_script nochange sigma sign) spfl) let print_treescript nochange sigma _osign pf = - let rec aux pf = + let rec aux top pf = let {evar_hyps=sign; evar_concl=cl} = pf.goal in match pf.ref with | None -> @@ -972,10 +972,10 @@ let print_treescript nochange sigma _osign pf = pr_rule_dot r ++ match spfl with | [] -> mt () - | [spf] -> fnl () ++ aux spf + | [spf] -> fnl () ++ (if top then mt () else str " ") ++ aux top spf | _ -> fnl () ++ str " " ++ - hov 0 (prlist_with_sep fnl (fun spf -> hov 2 (aux spf)) spfl) - in hov 0 (aux pf) + hov 0 (prlist_with_sep fnl (aux false) spfl) + in hov 0 (aux true pf) let rec print_info_script sigma osign pf = let {evar_hyps=sign; evar_concl=cl} = pf.goal in |