]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/ng_disambiguation/disambiguateChoices.mli
Bug fixed: the indty can be typed with a Prod, not only with a Sort.
[helm.git] / matita / components / ng_disambiguation / disambiguateChoices.mli
index 4d1ed53296ba70c7608d396ed93303a5eebe5ddd..391fd67ca748bae2741628562260df1447345dd5 100644 (file)
@@ -30,20 +30,9 @@ open DisambiguateTypes
   (** raised by lookup_XXXX below *)
 exception Choice_not_found of string Lazy.t
 
-  (** register a new number choice *)
-val add_num_choice: Cic.term codomain_item -> unit
-
-  (** register a new number choice *)
-val nadd_num_choice: NCic.term codomain_item -> unit
-
 (** {2 Choices lookup}
  * for user defined aliases *)
 
-val lookup_num_choices: unit -> Cic.term codomain_item list
-
-  (** @param dsc description (1st component of codomain_item) *)
-val lookup_num_by_dsc: string -> Cic.term codomain_item
-
   (** @param dsc description (1st component of codomain_item) *)
 val nlookup_num_by_dsc: string -> NCic.term codomain_item
 
@@ -51,21 +40,17 @@ val nlookup_num_by_dsc: string -> NCic.term codomain_item
    * @param dsc description (1st component of codomain_item)
    *)
 val lookup_symbol_by_dsc: 
+  #Interpretations.status ->
   mk_appl: ('term list -> 'term) ->
   mk_implicit: (bool -> 'term) ->
-  term_of_uri: (UriManager.uri -> 'term) ->
   term_of_nref: (NReference.reference -> 'term) ->
   string -> string -> 'term codomain_item
 
-val cic_lookup_symbol_by_dsc: 
-  string -> string -> Cic.term codomain_item
-
 val mk_choice:
   mk_appl: ('term list -> 'term) ->
   mk_implicit: (bool -> 'term) ->
-  term_of_uri: (UriManager.uri -> 'term) ->
   term_of_nref: (NReference.reference -> 'term) ->
-  string * CicNotationPt.argument_pattern list *
-  CicNotationPt.cic_appl_pattern ->
+  string * NotationPt.argument_pattern list *
+  NotationPt.cic_appl_pattern ->
     'term codomain_item