X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Fcic_transformations%2Fcic2Xml.ml;h=b3467ad9e013ae0b378f7ba081883d6d1c938200;hb=b1bd861e3aaeef9e65ce1d35e5ae7d8db5f0d0e9;hp=ea7d1958df50af969c4530683ff1e26ec71554aa;hpb=ebfab836e9e047756b7a53c3f46f69ec4532685a;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]