1) GrafiteAst.NEval => GrafiteAst.NReduce

[helm.git] / helm / software / components / grafite_engine / grafiteTypes.mli

diff --git a/helm/software/components/grafite_engine/grafiteTypes.mli b/helm/software/components/grafite_engine/grafiteTypes.mli
index ce988944bf7e2b574fd57bdf7cd8463ab5c575ba..e75c8aa3c565913032cb096127693052380df6c5 100644 (file)
--- a/helm/software/components/grafite_engine/grafiteTypes.mli
+++ b/helm/software/components/grafite_engine/grafiteTypes.mli
@@ -42,22 +42,18 @@ type proof_status =
   | Proof of ProofEngineTypes.proof
   | Intermediate of Cic.metasenv
 
-(*
-type option_value =
-  | String of string
-  | Int of int
-type options
-val no_options: options
-*)
+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 *)
-(*   options: options; *)
-  objects: UriManager.uri list;  (** in-scope objects *)
-  coercions: UriManager.uri list; (** defined coercions *)
-  universe:Universe.universe;  (** universe of terms used by auto *)
+  proof_status: proof_status;
+  objects: UriManager.uri list;
+  coercions: CoercDb.coerc_db;
+  automation_cache:AutomationCache.cache;  
   baseuri: string;
+  ng_status: ng_status;
 }
 
 val dump_status : status -> unit