Implementation of Ocaml extraction (largely ported from Coq).

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

diff --git a/matita/components/grafite_engine/grafiteTypes.mli b/matita/components/grafite_engine/grafiteTypes.mli
index 4e226f7033af211e89497a26655163d1640ed087..95e994350f95bc654f7719a0a67f90ad9ad2a3ec 100644 (file)
--- a/matita/components/grafite_engine/grafiteTypes.mli
+++ b/matita/components/grafite_engine/grafiteTypes.mli
@@ -31,13 +31,15 @@ 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