]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/disambiguation/disambiguate.ml
Disabled debug.
[helm.git] / matita / components / disambiguation / disambiguate.ml
index 5b5b53f52cd8a3b73edc64f35c7cb7670645157a..c8376078285100419e9ba228cadce6fc60170de7 100644 (file)
@@ -28,9 +28,8 @@
 open Printf
 
 open DisambiguateTypes
-open UriManager
 
-module Ast = CicNotationPt
+module Ast = NotationPt
 
 (* the integer is an offset to be added to each location *)
 exception Ambiguous_input
@@ -408,11 +407,6 @@ let domain_diff dom1 dom2 =
 
 let refine_profiler = HExtlib.profile "disambiguate_thing.refine_thing"
 
-type alias_spec =
-  | Ident_alias of string * string        (* identifier, uri *)
-  | Symbol_alias of string * int * string (* name, instance no, description *)
-  | Number_alias of int * string          (* instance no, description *)
-
 let disambiguate_thing 
   ~context ~metasenv ~subst ~use_coercions
   ~string_context_of_context