X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fgrafite_engine%2FgrafiteTypes.mli;h=95e994350f95bc654f7719a0a67f90ad9ad2a3ec;hb=119da3f9ce130f7c4e8b23fcc491d221472ad657;hp=e59e5375a51cf4e2f628c0d8eacd25ee0bfe08e4;hpb=3f9cb46b5e167955e85b3d2544f1bed90f1a25b7;p=helm.git

diff --git a/matita/components/grafite_engine/grafiteTypes.mli b/matita/components/grafite_engine/grafiteTypes.mli
index e59e5375a..95e994350 100644
--- a/matita/components/grafite_engine/grafiteTypes.mli
+++ b/matita/components/grafite_engine/grafiteTypes.mli
@@ -31,13 +31,21 @@ exception Command_error of string
 
 val command_error: string -> 'a   (** @raise Command_error *)
 
-class status :
+class virtual status :
  string ->
   object ('self)
+   (* Warning: #stack and #obj are meaningful iff #ng_mode is `ProofMode *)
+   inherit NTacStatus.tac_status
+   inherit NCicLibrary.dumpable_status
+   inherit NCicLibrary.status
+   inherit NCicExtraction.status
+   inherit OcamlExtractionTable.status
+   inherit GrafiteParser.status
+   inherit TermContentPres.status
    method baseuri: string
    method set_baseuri: string -> 'self
    method ng_mode: [`ProofMode | `CommandMode]
    method set_ng_mode: [`ProofMode | `CommandMode] -> 'self
-   (* Warning: #stack and #obj are meaningful iff #ng_mode is `ProofMode *)
-   inherit NTacStatus.tac_status
   end
+
+module Serializer: NCicLibrary.SerializerType with type dumpable_status = status