mk_implicit:(bool -> 'alias) ->
description_of_alias:('alias -> string) ->
fix_instance:(DisambiguateTypes.domain_item -> 'alias list -> 'alias list) ->
- aliases:'alias DisambiguateTypes.Environment.t ->
- universe:'alias list
- DisambiguateTypes.Environment.t option ->
+ aliases:'alias 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 ->
'alias list) ->
uri:'uri ->
pp_thing:('ast_thing -> string) ->
+ pp_term:(NotationPt.term -> string) ->
domain_of_thing:
(context: string option list -> 'ast_thing -> Disambiguate.domain) ->
interpretate_thing:(
context:'context ->
- env:'alias DisambiguateTypes.Environment.t ->
+ env:'alias DisambiguateTypes.InterprEnv.t ->
+ universe:GrafiteAst.alias_spec list DisambiguateTypes.Environment.t ->
uri:'uri ->
is_path:bool ->
'ast_thing ->
'metasenv -> 'subst -> 'context -> 'uri -> use_coercions:bool ->
'raw_thing -> 'refined_thing option -> 'ugraph -> localization_tbl:'cichash ->
('refined_thing, 'metasenv,'subst,'ugraph) Disambiguate.test_result) ->
+ visit:(pp_term:(NotationPt.term -> string) ->
+ (NotationPt.term -> bool) -> 'ast_thing ->
+ ((NotationPt.term -> 'ast_thing) * NotationPt.term) option) ->
mk_localization_tbl:(int -> 'cichash) ->
string * int * 'ast_thing ->
- ((DisambiguateTypes.Environment.key * 'alias) list *
- 'metasenv * 'subst * 'refined_thing * 'ugraph)
- list * bool
+ ('ast_thing * 'metasenv * 'subst * 'refined_thing * 'ugraph) list * bool