]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/grafite_engine/grafiteTypes.mli
(Part of previous two commits)
[helm.git] / matita / components / grafite_engine / grafiteTypes.mli
index f407cc49ba966843dee850f0031a20b92f198bcc..65cda299c7938c6a51379f48b1d8bf180a52b144 100644 (file)
@@ -31,12 +31,16 @@ 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 GrafiteParser.status
+   inherit TermContentPres.status
    method baseuri: string
    method set_baseuri: string -> 'self
    method ng_mode: [`ProofMode | `CommandMode]