metasenv:NCic.metasenv ->
subst:NCic.substitution ->
expty:NCic.term option ->
- mk_implicit: (bool -> 'alias) ->
- description_of_alias:('alias -> string) ->
- fix_instance:(DisambiguateTypes.domain_item -> 'alias list -> 'alias list) ->
- mk_choice:('alias -> NCic.term DisambiguateTypes.codomain_item) ->
- aliases:'alias DisambiguateTypes.Environment.t ->
+ mk_implicit: (bool -> GrafiteAst.alias_spec) ->
+ description_of_alias:(GrafiteAst.alias_spec -> string) ->
+ fix_instance:(DisambiguateTypes.domain_item -> GrafiteAst.alias_spec list -> GrafiteAst.alias_spec list) ->
+ mk_choice:(GrafiteAst.alias_spec -> NCic.term DisambiguateTypes.codomain_item) ->
+ aliases:GrafiteAst.alias_spec DisambiguateTypes.InterprEnv.t ->
universe:GrafiteAst.alias_spec list DisambiguateTypes.Environment.t ->
lookup_in_library:(
DisambiguateTypes.interactive_user_uri_choice_type ->
DisambiguateTypes.input_or_locate_uri_type ->
DisambiguateTypes.Environment.key ->
- 'alias list) ->
+ GrafiteAst.alias_spec list) ->
NotationPt.term Disambiguate.disambiguator_input ->
- (NotationPt.term *
- (DisambiguateTypes.domain_item * 'alias) list *
- NCic.metasenv *
- NCic.substitution *
- NCic.term) list *
- bool
+ (GrafiteAst.alias_spec,NotationPt.term,NCic.metasenv,NCic.substitution,NCic.term,unit) Disambiguate.disamb_result
val disambiguate_obj :
#NCicCoercion.status ->
- mk_implicit:(bool -> 'alias) ->
- description_of_alias:('alias -> string) ->
- fix_instance:(DisambiguateTypes.domain_item -> 'alias list -> 'alias list) ->
- mk_choice:('alias -> NCic.term DisambiguateTypes.codomain_item) ->
- aliases:'alias DisambiguateTypes.Environment.t ->
+ mk_implicit:(bool -> GrafiteAst.alias_spec) ->
+ description_of_alias:(GrafiteAst.alias_spec -> string) ->
+ fix_instance:(DisambiguateTypes.domain_item -> GrafiteAst.alias_spec list -> GrafiteAst.alias_spec list) ->
+ mk_choice:(GrafiteAst.alias_spec -> NCic.term DisambiguateTypes.codomain_item) ->
+ aliases:GrafiteAst.alias_spec DisambiguateTypes.InterprEnv.t ->
universe:GrafiteAst.alias_spec list DisambiguateTypes.Environment.t ->
lookup_in_library:(
DisambiguateTypes.interactive_user_uri_choice_type ->
DisambiguateTypes.input_or_locate_uri_type ->
DisambiguateTypes.Environment.key ->
- 'alias list) ->
+ GrafiteAst.alias_spec list) ->
uri:NUri.uri ->
string * int * NotationPt.term NotationPt.obj ->
- ((DisambiguateTypes.Environment.key * 'alias) list * NCic.metasenv *
- NCic.substitution * NCic.obj)
- list * bool
+ (GrafiteAst.alias_spec,NotationPt.term NotationPt.obj,NCic.metasenv,NCic.substitution,NCic.obj,unit) Disambiguate.disamb_result
-val disambiguate_path: #NCic.status -> NotationPt.term -> NCic.term
+val disambiguate_path: #NCicEnvironment.status -> NotationPt.term -> NCic.term