| Proof of ProofEngineTypes.proof
| Intermediate of Cic.metasenv
+(*
type option_value =
| String of string
| Int of int
type options
val no_options: options
+*)
type status = {
moo_content_rev: GrafiteMarshal.moo;
proof_status: proof_status; (** logical status *)
- options: options;
+(* options: options; *)
objects: UriManager.uri list; (** in-scope objects *)
coercions: UriManager.uri list; (** defined coercions *)
universe:Universe.universe; (** universe of terms used by auto *)
(** 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 get_baseuri: status -> string
val get_current_proof: status -> ProofEngineTypes.proof