]> matita.cs.unibo.it Git - helm.git/commitdiff
notations for lists adds some breaking points
authorEnrico Tassi <enrico.tassi@inria.fr>
Wed, 16 Jul 2008 16:16:30 +0000 (16:16 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Wed, 16 Jul 2008 16:16:30 +0000 (16:16 +0000)
helm/software/components/content_pres/termContentPres.ml

index fd326e5e99413902675530d2da45f38c9d1d05f9..013e3a872fabcff73824e786fcae9982b52c2a4a 100644 (file)
@@ -346,7 +346,7 @@ let instantiate21 idrefs env l1 =
         let sep =
           match sep_opt with
             | None -> []
-            | Some l -> [ Ast.Literal l ]
+            | Some l -> [ Ast.Literal l; break; space ]
        in
         let rec instantiate_list acc = function
           | [] -> List.rev acc
@@ -359,7 +359,7 @@ let instantiate21 idrefs env l1 =
               let terms = subst pos env p in
               instantiate_list (CicNotationUtil.group (terms @ sep) :: acc) tl
         in
-        instantiate_list [] values
+        [hovbox false false (instantiate_list [] values)]
     | Ast.Opt p ->
         let opt_decls = CicNotationEnv.declarations_of_term p in
         let env =