diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-01-12 23:24:02 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-01-12 23:24:02 +0000 |
| commit | 34f5b0b4adce95d8eebc7f8667e841c4d4022067 (patch) | |
| tree | 6a9b60626e110b06c2172582ce6d49f5935eb786 | |
| parent | 7442f065a00526a7f44b67eda0143a7882a8f705 (diff) | |
un saut de ligne ...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9483 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/ocaml.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/contrib/extraction/ocaml.ml b/contrib/extraction/ocaml.ml index 46b98dba5..547ad73e8 100644 --- a/contrib/extraction/ocaml.ml +++ b/contrib/extraction/ocaml.ml @@ -417,8 +417,10 @@ let pp_one_ind prefix ip ip_equiv pl cv = let pp_logical_ind packet = pp_comment (pr_id packet.ip_typename ++ str " : logical inductive") ++ - fnl () ++ pp_comment (str "with constructors : " ++ - prvect_with_sep spc pr_id packet.ip_consnames) + fnl () ++ + pp_comment (str "with constructors : " ++ + prvect_with_sep spc pr_id packet.ip_consnames) ++ + fnl () let pp_singleton kn packet = let l = rename_tvars keywords packet.ip_vars in |