X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fgrafite_engine%2FgrafiteTypes.mli;h=ce988944bf7e2b574fd57bdf7cd8463ab5c575ba;hb=fa0347cc0a604ba8743da9479117e1f13ab60482;hp=8d9b81ed8dc4e37503f0c6ca0d9d4955c7a437b8;hpb=e5141edaab98baafa31173da8164fa5d87b808c5;p=helm.git

diff --git a/components/grafite_engine/grafiteTypes.mli b/components/grafite_engine/grafiteTypes.mli
index 8d9b81ed8..ce988944b 100644
--- a/components/grafite_engine/grafiteTypes.mli
+++ b/components/grafite_engine/grafiteTypes.mli
@@ -42,16 +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 status = {
   moo_content_rev: GrafiteMarshal.moo;
   proof_status: proof_status;                             (** logical status *)
-  options: options;
+(*   options: options; *)
   objects: UriManager.uri list;  (** in-scope objects *)
   coercions: UriManager.uri list; (** defined coercions *)
   universe:Universe.universe;  (** universe of terms used by auto *)
@@ -63,9 +65,11 @@ 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
 
+(* REOMVE ME
 val get_option : status -> string -> option_value
 val get_string_option : status -> string -> string
 val set_option : status -> string -> string -> status
+*)
 val get_baseuri: status -> string 
 
 val get_current_proof: status -> ProofEngineTypes.proof