X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteTypes.ml;h=83687277965aaa500c390d4fa406efc208045bc2;hb=9c2f282765ec75a3c9aafc9e73e6626588891abe;hp=244ce615f67f01542759a7a2cc1ecf23dc2a53e1;hpb=84e6cbe962c9a534be48542c098d7bb0d90be9a1;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteTypes.ml b/helm/software/components/grafite_engine/grafiteTypes.ml
index 244ce615f..836872779 100644
--- a/helm/software/components/grafite_engine/grafiteTypes.ml
+++ b/helm/software/components/grafite_engine/grafiteTypes.ml
@@ -44,6 +44,10 @@ type proof_status =
       (* Status in which the proof could be while it is being processed by the
       * engine. No status entering/exiting the engine could be in it. *)
 
+type ng_status =
+  | ProofMode of NTactics.tac_status
+  | CommandMode of LexiconEngine.status
+
 type status = {
   moo_content_rev: GrafiteMarshal.moo;
   proof_status: proof_status;
@@ -51,6 +55,7 @@ type status = {
   coercions: CoercDb.coerc_db;
   universe:Universe.universe;  
   baseuri: string;
+  ng_status: ng_status;
 }
 
 let get_current_proof status =