]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/grafite_engine/grafiteTypes.mli
WARNING: partial commit (does not compile)
[helm.git] / matita / components / grafite_engine / grafiteTypes.mli
index e59e5375a51cf4e2f628c0d8eacd25ee0bfe08e4..f407cc49ba966843dee850f0031a20b92f198bcc 100644 (file)
@@ -34,10 +34,13 @@ val command_error: string -> 'a   (** @raise Command_error *)
 class status :
  string ->
   object ('self)
+   (* Warning: #stack and #obj are meaningful iff #ng_mode is `ProofMode *)
+   inherit NTacStatus.tac_status
+   inherit NCicLibrary.dumpable_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