| Proof of ProofEngineTypes.proof
| Intermediate of Cic.metasenv
-type ng_status =
- | ProofMode of NTacStatus.tac_status
- | CommandMode of NEstatus.status
-
class status :
- GrafiteMarshal.moo ->
- proof_status ->
- UriManager.uri list ->
- CoercDb.coerc_db ->
- AutomationCache.cache ->
string ->
- ng_status ->
object ('self)
method moo_content_rev: GrafiteMarshal.moo
method set_moo_content_rev: GrafiteMarshal.moo -> 'self
method set_automation_cache:AutomationCache.cache -> 'self
method baseuri: string
method set_baseuri: string -> 'self
- method ng_status: ng_status
- method set_ng_status: ng_status -> '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_baseuri: status -> string
-
val get_current_proof: status -> ProofEngineTypes.proof
val get_proof_metasenv: status -> Cic.metasenv
val get_stack: status -> Continuationals.Stack.t
val get_proof_context : status -> int -> Cic.context
val get_proof_conclusion : status -> int -> Cic.term
-val get_estatus : status -> NEstatus.status
val set_stack: Continuationals.Stack.t -> status -> status
val set_metasenv: Cic.metasenv -> status -> status
-val set_estatus : NEstatus.status -> status -> status