X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_acic%2Fcic2Xml.ml;h=7e97dea6fb0b5fef93d430632c901f8e043688b7;hb=9262517c80e17d46b9bf9931dc879ac653a633e9;hp=5bd9fd1c9878acafebb44c093c154b1d06773c77;hpb=9a0e4f3be9f70662f18d2d3b6dd60ae79fba565b;p=helm.git

diff --git a/helm/ocaml/cic_acic/cic2Xml.ml b/helm/ocaml/cic_acic/cic2Xml.ml
index 5bd9fd1c9..7e97dea6f 100644
--- a/helm/ocaml/cic_acic/cic2Xml.ml
+++ b/helm/ocaml/cic_acic/cic2Xml.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 (*CSC codice cut & paste da cicPp e xmlcommand *)
 
 exception NotImplemented;;
@@ -277,8 +279,10 @@ let xml_of_attrs attributes =
     | `Record field_names ->
         Xml.xml_nempty "class" [None,"value","record"]
          (List.fold_right
-           (fun name res ->
-             [< Xml.xml_empty "field" [None,"name",name]; res >]
+           (fun (name,coercion) res ->
+             [< Xml.xml_empty "field" 
+                [None,"name",if coercion then name ^ " coercion" else name]; 
+              res >]
            ) field_names [<>])
     | `Projection -> Xml.xml_empty "class" [None,"value","projection"]
   in