X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteTypes.mli;h=4d693ea6b3be77bbf56fc3469a68a7fe18102eae;hb=62a12215bbf8686fab44e8db25babd3095983c8f;hp=b159a7fe6b2caf260c3e39256da7672de25d53c6;hpb=42f25c258b0b199ee96dd8eaa3d44c86eb6916ab;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteTypes.mli b/helm/software/components/grafite_engine/grafiteTypes.mli
index b159a7fe6..4d693ea6b 100644
--- a/helm/software/components/grafite_engine/grafiteTypes.mli
+++ b/helm/software/components/grafite_engine/grafiteTypes.mli
@@ -43,15 +43,15 @@ type proof_status =
   | Intermediate of Cic.metasenv
 
 type ng_status =
-  | ProofMode of NTactics.tac_status
-  | CommandMode of LexiconEngine.status
+  | ProofMode of NTacStatus.tac_status
+  | CommandMode of NEstatus.extra_status
 
 type status = {
   moo_content_rev: GrafiteMarshal.moo;
   proof_status: proof_status;
   objects: UriManager.uri list;
   coercions: CoercDb.coerc_db;
-  universe:Universe.universe;  
+  automation_cache:AutomationCache.cache;  
   baseuri: string;
   ng_status: ng_status;
 }
@@ -73,7 +73,21 @@ 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_lexicon : status -> LexiconEngine.status
+val get_estatus : status -> NEstatus.extra_status
+val get_rstatus : status -> NRstatus.refiner_status
+val get_hstatus : status -> NCicUnifHint.db
+val get_library_db : status -> NCicLibrary.timestamp
+val get_dump : status -> (NRstatus.refiner_status -> NRstatus.refiner_status)
+val get_coercions: status -> NCicCoercion.db
 
 val set_stack: Continuationals.Stack.t -> status -> status
 val set_metasenv: Cic.metasenv -> status -> status
+val set_lexicon : LexiconEngine.status -> status -> status
+val set_coercions: NCicCoercion.db -> status -> status 
+val set_estatus : NEstatus.extra_status -> status -> status
+val set_rstatus : NRstatus.refiner_status -> status -> status
+val set_hstatus : NCicUnifHint.db -> status -> status
+val set_library_db : NCicLibrary.timestamp -> status -> status
+val set_dump : (NRstatus.refiner_status -> NRstatus.refiner_status) -> status -> status