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;
- moo_content_rev : string list;
- proof_status : proof_status;
- options : options;
- objects : (UriManager.uri * string) list;
+ aliases: DisambiguateTypes.environment; (** disambiguation aliases *)
+ 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 *)
+ notation_ids: CicNotation.notation_id list; (** in-scope notation ids *)
}
+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