X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_transformations%2Fcic2Xml.ml;h=b3467ad9e013ae0b378f7ba081883d6d1c938200;hb=c5d5bf37b1e4c4b9b499ed2cbfe27cf2ec181944;hp=ea7d1958df50af969c4530683ff1e26ec71554aa;hpb=7af6bb6e640a44489bdab79a38300cf103e45bd4;p=helm.git

diff --git a/helm/ocaml/cic_transformations/cic2Xml.ml b/helm/ocaml/cic_transformations/cic2Xml.ml
index ea7d1958d..b3467ad9e 100644
--- a/helm/ocaml/cic_transformations/cic2Xml.ml
+++ b/helm/ocaml/cic_transformations/cic2Xml.ml
@@ -74,7 +74,7 @@ let print_term ~ids_to_inner_sorts =
          function
             C.Prop  -> "Prop"
           | C.Set   -> "Set"
-          | C.Type  -> "Type"
+          | C.Type _ -> "Type" (* TASSI *)
 	  | C.CProp -> "CProp"
         in
          X.xml_empty "SORT" [None,"value",(string_of_sort s) ; None,"id",id]