X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fcontent_pres%2Fsequent2pres.ml;h=2ae090bb01e1d2f0a0040c21fa7d162bdacde7c4;hb=1c66d874087fd178b21864cd53fc851dd01c2aff;hp=391b178a27c3036fbfa450e1ea9240b7d2ff9968;hpb=4d945e028b3787f5aa26bdb0ef1639cde3ac30fe;p=helm.git

diff --git a/components/content_pres/sequent2pres.ml b/components/content_pres/sequent2pres.ml
index 391b178a2..2ae090bb0 100644
--- a/components/content_pres/sequent2pres.ml
+++ b/components/content_pres/sequent2pres.ml
@@ -64,7 +64,7 @@ let sequent2pres term2pres (_,_,context,ty) =
                (match dec_name with
                   None -> "_"
                 | Some n -> n)) ;
-               Box.b_text [] ":" ;
+               Box.b_space; Box.b_text [] ":"; Box.b_space;
                term2pres ty] in
          aux (r::accum) tl
      | (Some (`Definition d))::tl ->
@@ -77,9 +77,9 @@ let sequent2pres term2pres (_,_,context,ty) =
               [ Box.b_object (p_mi []
                 (match def_name with
                    None -> "_"
-                 | Some n -> n)) ;
-                 Box.b_text [] (Utf8Macro.unicode_of_tex "\\def") ;
-                term2pres bo] in
+                 | Some n -> n)) ; Box.b_space ;
+                Box.b_text [] (Utf8Macro.unicode_of_tex "\\def") ;
+                Box.b_space; term2pres bo] in
          aux (r::accum) tl
       | _::_ -> assert false in
       aux [] context in