diff options
| -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 46b98dba5c..547ad73e83 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 |