X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcontent_pres%2Fsequent2pres.ml;h=549f5c7c58d6437216b9c1d9320d19856938ee62;hb=f9abd21eb0d26cf9b632af4df819225be4d091e3;hp=41683b94f51744dbd7d615e7f82e7c40dba99e46;hpb=a970a6b5d44947e466b94ff3df4fa66d85d0d9ca;p=helm.git

diff --git a/helm/software/components/content_pres/sequent2pres.ml b/helm/software/components/content_pres/sequent2pres.ml
index 41683b94f..549f5c7c5 100644
--- a/helm/software/components/content_pres/sequent2pres.ml
+++ b/helm/software/components/content_pres/sequent2pres.ml
@@ -102,13 +102,19 @@ let sequent2pres ~ids_to_inner_sorts =
        TermAcicContent.ast_of_acic ~output_type:`Term ids_to_inner_sorts annterm
       in
       CicNotationPres.box_of_mpres
-        (CicNotationPres.render ids_to_uris
+        (CicNotationPres.render
+          ~lookup_uri:(CicNotationPres.lookup_uri ids_to_uris)
           (TermContentPres.pp_ast ast)))
 
-let nsequent2pres =
+let nsequent2pres ~ids_to_nrefs ~subst =
+ let lookup_uri id =
+  try
+   let nref = Hashtbl.find ids_to_nrefs id in
+    Some (NReference.string_of_reference nref)
+  with Not_found -> None
+ in
   sequent2pres0
-    (fun term ->
-      let ast = NTermCicContent.nast_of_cic term in
-       CicNotationPres.box_of_mpres
-        (CicNotationPres.render (Hashtbl.create 1)
-          (TermContentPres.pp_ast ast)))
+    (fun ast ->
+      CicNotationPres.box_of_mpres
+       (CicNotationPres.render ~lookup_uri
+         (TermContentPres.pp_ast ast)))