Implementation of Ocaml extraction (largely ported from Coq).

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

diff --git a/matita/components/grafite_engine/grafiteTypes.ml b/matita/components/grafite_engine/grafiteTypes.ml
index 27a5cb61ef179e731572db093c7db67d999ac495..12935e80d6d838e3c6937a957b843eb41f740472 100644 (file)
--- a/matita/components/grafite_engine/grafiteTypes.ml
+++ b/matita/components/grafite_engine/grafiteTypes.ml
@@ -42,6 +42,7 @@ class virtual status = fun (b : string) ->
    inherit NCicLibrary.dumpable_status
    inherit NCicLibrary.status
    inherit NCicExtraction.status
+   inherit OcamlExtractionTable.status
    inherit GrafiteParser.status
    inherit TermContentPres.status
    val baseuri = b