X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite%2FgrafiteMarshal.ml;h=836f592b01a40c1e7684ca764a3173d602ead248;hb=186c1171d37f5d1cde9bb6f38a863be16debf3f0;hp=7731902b4adbf73b4c02566deafa9c6693e8c9c2;hpb=5da42f6120f3075c3da8ab3082ead39ea57955fa;p=helm.git

diff --git a/helm/software/components/grafite/grafiteMarshal.ml b/helm/software/components/grafite/grafiteMarshal.ml
index 7731902b4..836f592b0 100644
--- a/helm/software/components/grafite/grafiteMarshal.ml
+++ b/helm/software/components/grafite/grafiteMarshal.ml
@@ -45,7 +45,7 @@ let rehash_cmd_uris =
       let uris = List.map rehash_uri uris in
       GrafiteAst.Default (loc, name, uris)
   | GrafiteAst.Coercion (loc, uri, close, arity, saturations) ->
-      GrafiteAst.Coercion (loc, rehash_uri uri, close, arity, saturations)
+      GrafiteAst.Coercion (loc, CicUtil.rehash_term uri, close, arity, saturations)
   | GrafiteAst.Index (loc, key, uri) ->
       GrafiteAst.Index (loc, HExtlib.map_option CicUtil.rehash_term key, rehash_uri uri)
   | cmd ->