X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_transformations%2Fbox.mli;h=296b14c156b50f3bac62d42a7147473ccb13dff5;hb=12cc5b2b8e7f7bb0b5e315094b008a293a4df6b1;hp=e4d4bbe767422d0b50b28685fe9fc1aea084dfd3;hpb=9ab5ca8acba80b19a939eea2cd87761507e7128b;p=helm.git

diff --git a/helm/ocaml/cic_transformations/box.mli b/helm/ocaml/cic_transformations/box.mli
index e4d4bbe76..296b14c15 100644
--- a/helm/ocaml/cic_transformations/box.mli
+++ b/helm/ocaml/cic_transformations/box.mli
@@ -39,6 +39,8 @@ type
   | Ink of attr
   | H of attr * ('expr box) list
   | V of attr * ('expr box) list
+  | HV of attr * ('expr box) list
+  | HOV of attr * ('expr box) list
   | Object of attr * 'expr
   | Action of attr * ('expr box) list
 
@@ -48,7 +50,16 @@ 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 box2xml:
+  obj2xml:('a -> Xml.token Stream.t) -> 'a box ->
+    Xml.token Stream.t
+
+val map: ('a -> 'b) -> 'a box -> 'b box
+
+(*
+val document_of_box :
+  ~obj2xml:('a -> Xml.token Stream.t) -> 'a box -> Xml.token Stream.t
+*)
 
 val b_h: attr -> 'expr box list -> 'expr box
 val b_v: attr -> 'expr box list -> 'expr box