let command_error msg = raise (Command_error msg)
-class status = fun (b : string) ->
+class virtual status = fun (b : string) ->
let fake_obj =
NUri.uri_of_string "cic:/matita/dummy.decl",0,[],[],
NCic.Constant([],"",None,NCic.Implicit `Closed,(`Provided,`Theorem,`Regular))
end
module Serializer =
- NCicLibrary.Serializer(struct type dumpable_status = status end)
+ NCicLibrary.Serializer(struct
+ type dumpable_s = status
+ let get status = (status : #status :> NCicLibrary.dumpable_status)
+ let set (status : dumpable_s) dump_status = status#set_dumpable_status dump_status
+ end)