- (fun proof -> (* TODO Zack: this function should probably be smarter taking
- care also of unregistering notifications subscriber and so on *)
- current_proof := proof),
- (fun () -> !current_proof <> None))
-
-(** {2 Settings} *)
-
-let debug_print = MatitaTypes.debug_print
-
-let save_dom =
- let domImpl = lazy (Gdome.domImplementation ()) in
- fun ~doc ~dest ->
- ignore
- ((Lazy.force domImpl)#saveDocumentToFile ~doc ~name:dest ~indent:true ())
+ (fun proof -> (* set_proof *)
+ current_proof := proof),
+ (fun () -> (* has_proof *)
+ !current_proof <> None))