| 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 NTactics.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
(** list is not reversed, head command will be the first emitted *)
val add_moo_content: GrafiteMarshal.ast_command list -> status -> status
+(* REOMVE ME
val get_option : status -> string -> option_value
val get_string_option : status -> string -> string
val set_option : status -> string -> string -> status
-
-val qualify: status -> string -> string
+*)
+val get_baseuri: status -> string
val get_current_proof: status -> ProofEngineTypes.proof
val get_proof_metasenv: status -> Cic.metasenv
val set_stack: Continuationals.Stack.t -> status -> status
val set_metasenv: Cic.metasenv -> status -> status
+