]> matita.cs.unibo.it Git - helm.git/commitdiff
Improves the presentation of hypotheses in the goal pane.
authorWilmer Ricciotti <ricciott@cs.unibo.it>
Thu, 12 Jan 2012 12:03:29 +0000 (12:03 +0000)
committerWilmer Ricciotti <ricciott@cs.unibo.it>
Thu, 12 Jan 2012 12:03:29 +0000 (12:03 +0000)
matita/components/content_pres/content2pres.ml

index 23e5a1b56cb68e08c1cd52fa3e10e5e9cefe1368..880024ad9386491fd97ca48628b7fe61c7a8b4da 100644 (file)
@@ -1051,13 +1051,14 @@ let nconjlist2pres0 term2pres context =
           Con.dec_id = dec_id ;
           Con.dec_type = ty } = d in
       let r = 
-        Box.b_h [Some "helm", "xref", dec_id] 
-          [ Box.b_object (p_mi []
-            (match dec_name with
-               None -> "_"
-             | Some n -> n)) ;
-            Box.b_space; Box.b_text [] ":"; Box.b_space;
-            term2pres ty] in
+        Box.b_hv [Some "helm", "xref", dec_id] 
+          [ Box.b_h []
+            [ Box.b_object (p_mi []
+               (match dec_name with
+                  None -> "_"
+               | Some n -> n)) ;
+              Box.b_space; Box.b_text [] ":"; ];
+             Box.indent (term2pres ty)] in
       aux (r::accum) tl
   | (Some (`Definition d))::tl ->
       let