diff options
| author | herbelin | 2003-04-10 21:59:38 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-10 21:59:38 +0000 |
| commit | 373091ffbab347d8b75831e17f3e4384018facd8 (patch) | |
| tree | 918e6e94fd1284bc36be530cb6f389d6d7bba09b | |
| parent | 9069cd0c459079103131cd6f805c8669f7ae8a0e (diff) | |
Affichage des inductifs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3913 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | translate/ppvernacnew.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 6ec54c8f16..aa264293bf 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -551,11 +551,9 @@ let rec pr_vernac = function hov 0 (str key ++ spc() ++ pr_id id ++ spc() ++ pr_sbinders indpar ++ str":" ++ spc() ++ pr_lconstr s ++ str" :=") ++ pr_constructor_list lc in - hov 1 - (pr_oneind (if f then "Inductive" else "CoInductive") (List.hd l)) ++ - hov 1 - (prlist (fun ind -> fnl() ++ pr_oneind "with" ind) - (List.tl l)) + hov 1 (pr_oneind (if f then "Inductive" else "CoInductive") (List.hd l)) + ++ + (prlist (fun ind -> fnl() ++ hov 1 (pr_oneind "with" ind)) (List.tl l)) | VernacFixpoint recs -> |