#status as 'status ->
(Stdpp.location * GrafiteAst.alias_spec) list -> 'status
+(* val print_interpr:
+ #status as 'status -> unit *)
+
val add_to_disambiguation_univ:
#status as 'status ->
(DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list -> 'status