]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/content_pres/cicNotationPres.ml
Minor code uniformization.
[helm.git] / matita / components / content_pres / cicNotationPres.ml
index 26370ff228db5d68cebe2a4a59f919cc04f16ec8..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 (UriManager.string_of_uri uri)
- with Not_found -> None
-;;
-
 let render ~lookup_uri ?(prec=(-1)) =
   let module A = Ast in
   let module P = Mpresentation in