val no_options : 'a StringMap.t
type ast_command = (CicNotationPt.term, GrafiteAst.obj) GrafiteAst.command
+type moo = ast_command list * GrafiteAst.metadata list (** <moo, metadata> *)
type status = {
- aliases: DisambiguateTypes.environment; (** disambiguation aliases *)
- moo_content_rev: ast_command list;
- proof_status: proof_status;
+ aliases: DisambiguateTypes.environment; (** disambiguation aliases *)
+ multi_aliases: DisambiguateTypes.multiple_environment;
+ moo_content_rev: moo;
+ proof_status: proof_status; (** logical status *)
options: options;
objects: (UriManager.uri * string) list; (** in-scope objects, with paths *)
- notation_ids: CicNotation.notation_id list; (** in-scope notation ids *)
+ 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 add_moo_metadata: GrafiteAst.metadata list -> status -> status
val dump_status : status -> unit
val get_option : status -> StringMap.key -> option_value