| 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;
- objects: UriManager.uri list; (** in-scope objects *)
- coercions: UriManager.uri list; (** defined coercions *)
-}
+class status :
+ string ->
+ object ('self)
+ method moo_content_rev: GrafiteMarshal.moo
+ method set_moo_content_rev: GrafiteMarshal.moo -> 'self
+ method proof_status: proof_status
+ method set_proof_status: proof_status -> 'self
+ method objects: UriManager.uri list
+ method set_objects: UriManager.uri list -> 'self
+ method coercions: CoercDb.coerc_db
+ method set_coercions: CoercDb.coerc_db -> 'self
+ method automation_cache:AutomationCache.cache
+ method set_automation_cache:AutomationCache.cache -> 'self
+ method baseuri: string
+ method set_baseuri: string -> 'self
+ method ng_mode: [`ProofMode | `CommandMode]
+ method set_ng_mode: [`ProofMode | `CommandMode] -> 'self
+ (* Warning: #stack and #obj are meaningful iff #ng_mode is `ProofMode *)
+ inherit NTacStatus.tac_status
+ end
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
-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_current_proof: status -> ProofEngineTypes.proof
val get_proof_metasenv: status -> Cic.metasenv
val get_stack: status -> Continuationals.Stack.t