X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite%2FgrafiteAstPp.ml;h=de7af826370d8c87acd36762cf9ac19c4475130c;hb=5da42f6120f3075c3da8ab3082ead39ea57955fa;hp=14b7d180ca15ef61a41e86f969a527b2945731e1;hpb=f6bf40d380bdb66e1cb3315edebb3d276ba7a125;p=helm.git

diff --git a/helm/software/components/grafite/grafiteAstPp.ml b/helm/software/components/grafite/grafiteAstPp.ml
index 14b7d180c..de7af8263 100644
--- a/helm/software/components/grafite/grafiteAstPp.ml
+++ b/helm/software/components/grafite/grafiteAstPp.ml
@@ -263,13 +263,15 @@ let pp_default what uris =
   Printf.sprintf "default \"%s\" %s" what
     (String.concat " " (List.map UriManager.string_of_uri uris))
 
-let pp_coercion uri do_composites arity =
-   Printf.sprintf "coercion %s %d (* %s *)" (UriManager.string_of_uri uri) arity
-     (if do_composites then "compounds" else "no compounds")
+let pp_coercion uri do_composites arity saturations=
+   Printf.sprintf "coercion %s %d %d (* %s *)"
+    (UriManager.string_of_uri uri) arity saturations
+    (if do_composites then "compounds" else "no compounds")
     
 let pp_command ~term_pp ~obj_pp = function
   | Index (_,_,uri) -> "Indexing " ^ UriManager.string_of_uri uri
-  | Coercion (_, uri, do_composites, i) -> pp_coercion uri do_composites i
+  | Coercion (_, uri, do_composites, i, j) ->
+     pp_coercion uri do_composites i j
   | Default (_,what,uris) -> pp_default what uris
   | Drop _ -> "drop"
   | Include (_,path) -> "include \"" ^ path ^ "\""