type options = option_value StringMap.t
val no_options : 'a StringMap.t
+type ast_command = (CicNotationPt.term, GrafiteAst.obj) GrafiteAst.command
+
type status = {
aliases: DisambiguateTypes.environment; (** disambiguation aliases *)
- moo_content_rev: string list;(*CSC: GrafiteAst.command list would be better *)
+ multi_aliases: DisambiguateTypes.multiple_environment;
+ moo_content_rev: ast_command list;
proof_status: proof_status;
options: options;
objects: (UriManager.uri * string) list; (** in-scope objects, with paths *)
val set_metasenv: Cic.metasenv -> status -> status
+ (** list is not reversed, head command will be the first emitted *)
+val add_moo_content: ast_command list -> status -> status
+
val dump_status : status -> unit
val get_option : status -> StringMap.key -> option_value
val get_string_option : status -> StringMap.key -> string