X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteTypes.mli;h=22386ebbf9b8a2c0a2753f6d7a400d30e29d2ff6;hb=d58b48162ad53fb369d285e60a99f746a497ad89;hp=3a833f6da056bb029915a80f204234670f8473e3;hpb=b225178112c2c5ef1a717ac7e647d854d94b2e52;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteTypes.mli b/helm/software/components/grafite_engine/grafiteTypes.mli
index 3a833f6da..22386ebbf 100644
--- a/helm/software/components/grafite_engine/grafiteTypes.mli
+++ b/helm/software/components/grafite_engine/grafiteTypes.mli
@@ -42,14 +42,18 @@ type proof_status =
   | Proof of ProofEngineTypes.proof
   | Intermediate of Cic.metasenv
 
+type ng_status =
+  | ProofMode of NTacStatus.tac_status
+  | CommandMode of LexiconEngine.status
+
 type status = {
   moo_content_rev: GrafiteMarshal.moo;
-  proof_status: proof_status;                             (** logical status *)
-  objects: UriManager.uri list;  (** in-scope objects *)
+  proof_status: proof_status;
+  objects: UriManager.uri list;
   coercions: CoercDb.coerc_db;
-  universe:Universe.universe;  (** universe of terms used by auto *)
+  universe:Universe.universe;  
   baseuri: string;
-  ng_status: NTactics.tac_status option;
+  ng_status: ng_status;
 }
 
 val dump_status : status -> unit