X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_transformations%2Fbox.mli;h=e4d4bbe767422d0b50b28685fe9fc1aea084dfd3;hb=844c8ec10832e5b03456b622db240e18ce014a57;hp=2c98b296938d1772c2deaab199a3d9bfa3715071;hpb=ac0a12080b434bf0daafc08e9da240eb57f47280;p=helm.git

diff --git a/helm/ocaml/cic_transformations/box.mli b/helm/ocaml/cic_transformations/box.mli
index 2c98b2969..e4d4bbe76 100644
--- a/helm/ocaml/cic_transformations/box.mli
+++ b/helm/ocaml/cic_transformations/box.mli
@@ -36,6 +36,7 @@ type
   'expr box =
     Text of attr * string
   | Space of attr
+  | Ink of attr
   | H of attr * ('expr box) list
   | V of attr * ('expr box) list
   | Object of attr * 'expr
@@ -47,5 +48,13 @@ val smallskip : 'expr box
 val skip: 'expr box
 val indent : 'expr box -> 'expr box
 
+val document_of_box : Mpresentation.mpres box -> Xml.token Stream.t
 
+val b_h: attr -> 'expr box list -> 'expr box
+val b_v: attr -> 'expr box list -> 'expr box
+val b_text: attr -> string -> 'expr box
+val b_object: 'expr -> 'expr box
+val b_indent: 'expr box -> 'expr box
+val b_space: 'expr box
+val b_kw: string -> 'expr box