| Proof of ProofEngineTypes.proof
| Intermediate of Cic.metasenv
-(*
-type option_value =
- | String of string
- | Int of int
-type options
-val no_options: options
-*)
+type ng_status =
+ | ProofMode of NTacStatus.tac_status
+ | CommandMode of LexiconEngine.status
type status = {
moo_content_rev: GrafiteMarshal.moo;
- proof_status: proof_status; (** logical status *)
-(* options: options; *)
- objects: UriManager.uri list; (** in-scope objects *)
- coercions: UriManager.uri list; (** defined coercions *)
- universe:Universe.universe; (** universe of terms used by auto *)
+ proof_status: proof_status;
+ objects: UriManager.uri list;
+ coercions: CoercDb.coerc_db;
+ universe:Universe.universe;
baseuri: string;
+ ng_status: ng_status;
}
val dump_status : status -> unit