X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite%2FgrafiteAstPp.ml;h=fd3c444b9d26e009e55b23453949e60bd1df5ebe;hb=2d3dd15c6dd0e84bf16bb8d5d5f0bcb3899dd8c2;hp=cf9106ea374d44527481c5e12297be63ee52f9f2;hpb=1ca749a387695a5a4abc138a06de496a63abac4a;p=helm.git

diff --git a/helm/software/components/grafite/grafiteAstPp.ml b/helm/software/components/grafite/grafiteAstPp.ml
index cf9106ea3..fd3c444b9 100644
--- a/helm/software/components/grafite/grafiteAstPp.ml
+++ b/helm/software/components/grafite/grafiteAstPp.ml
@@ -265,9 +265,9 @@ let pp_default what uris =
     (String.concat " " (List.map UriManager.string_of_uri uris))
 
 let pp_coercion uri do_composites arity saturations=
-   Printf.sprintf "coercion %s %d %d (* %s *)"
+   Printf.sprintf "coercion %s %d %d %s"
     (UriManager.string_of_uri uri) arity saturations
-    (if do_composites then "compounds" else "no compounds")
+    (if do_composites then "" else "nocomposites")
     
 let pp_command ~term_pp ~obj_pp = function
   | Index (_,_,uri) -> "Indexing " ^ UriManager.string_of_uri uri