]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/content_pres/cicNotationPres.ml
Minor code clean-up to simplify module dependencies.
[helm.git] / matita / components / content_pres / cicNotationPres.ml
index 5f9f202caeaf09b8d7b299444018106abe8a6062..d3465d30a4e21d46b903f70ac0afa67df7c6990f 100644 (file)
@@ -200,13 +200,6 @@ let add_parens child_prec curr_prec t =
       BoxPp.render_to_string (function x::_->x|_->assert false)
         ~map_unicode_to_tex:false 80 t);*)t)
 
-let lookup_uri ids_to_uris id =
- try
-   let uri = Hashtbl.find ids_to_uris id in
-   Some (NReference.string_of_reference uri)
- with Not_found -> None
-;;
-
 let render ~lookup_uri ?(prec=(-1)) =
   let module A = Ast in
   let module P = Mpresentation in