X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_transformations%2Fmpresentation.mli;h=83f243e6d3ba440bb1ab988ef3a5afe0a107f786;hb=b41886e9d21d756279bd6a2ec3f19c17b1a64401;hp=53eb9927e5ebaa2f69fb7111bf2bcb52035a1a9f;hpb=f7b2e35a7bdadb4fdf0e640428e694703ddf67a5;p=helm.git

diff --git a/helm/ocaml/cic_transformations/mpresentation.mli b/helm/ocaml/cic_transformations/mpresentation.mli
index 53eb9927e..83f243e6d 100644
--- a/helm/ocaml/cic_transformations/mpresentation.mli
+++ b/helm/ocaml/cic_transformations/mpresentation.mli
@@ -57,17 +57,11 @@ type
   (* Enlivening Expressions *)
   | Maction of attr * mpres list
 
-and
+and row = Mtr of attr * mtd list
 
-  row = Mtr of attr * mtd list
+and mtd = Mtd of attr * mpres
 
-and 
-
-  mtd = Mtd of attr * mpres
-
-and
-  
-  attr = (string * string) list
+and attr = (string option * string * string) list
 
 ;;
 
@@ -79,6 +73,6 @@ val two_rows_table_with_brackets : attr -> mpres -> mpres -> mpres -> mpres
 val two_rows_table_without_brackets : attr -> mpres -> mpres -> mpres -> mpres
 val row_with_brackets : attr -> mpres -> mpres -> mpres -> mpres
 val row_without_brackets : attr -> mpres -> mpres -> mpres -> mpres
-val print_mpres :
-  mpres -> Xml.token Stream.t
+val print_mpres : mpres -> Xml.token Stream.t
+val document_of_mpres : mpres -> Xml.token Stream.t