-let proof_viewer =
- let mml_of_cic_object = BuildTimeConf.Transformer.mml_of_cic_object in
-(*
- let frame = GBin.frame ~packing:(gui#proof#scrolledProof#add) ~show:true () in
- MatitaMathView.proof_viewer ~show:true ~packing:(frame#add) ()
-*)
- MatitaMathView.proof_viewer ~show:true ~packing:(gui#proof#scrolledProof#add) ()
-(*
-let sequent_viewer =
- let mml_of_cic_sequent = BuildTimeConf.Transformer.mml_of_cic_sequent in
- MatitaMathView.sequent_viewer ~mml_of_cic_sequent ~show:true
- ~packing:(gui#main#scrolledSequents#add) ()
-*)
-
-let new_proof (proof: MatitaTypes.proof) =
- (* TODO Zack a lot:
- * - ids_to_inner_types, ids_to_inner_sorts handling
- * - sequent viewer notification
- *)
- let xmldump_observer _ _ = print_endline proof#toString in
- let proof_observer _ (status, metadata) =
- debug_print "proof_observer";
- let (acic, ids_to_terms, ids_to_father_ids, ids_to_inner_sorts,
- ids_to_inner_types, ids_to_conjectures, ids_to_hypotheses) =
- metadata
- in
- let ((uri_opt, _, _, _), _) = status in
- let uri = MatitaTypes.unopt_uri uri_opt in
- debug_print "apply transformation";
- let mathml =
- BuildTimeConf.Transformer.mml_of_cic_object
- ~explode_all:true uri acic ids_to_inner_sorts ids_to_inner_types
- in
- if BuildTimeConf.debug then save_dom ~doc:mathml ~dest:"/tmp/matita.xml";
- proof_viewer#load_proof mathml metadata;
- debug_print "/proof_observer"
- in
- ignore (proof#attach_observer ~interested_in:StatefulProofEngine.all_events
- xmldump_observer);
- ignore (proof#attach_observer ~interested_in:StatefulProofEngine.all_events
- proof_observer);
- proof#notify;
- set_proof (Some proof)
-
-let quit () = (* quit program, asking for confirmation if needed *)
- if not (has_proof ()) ||
- (ask_confirmation ~gui
- ~msg:("Proof in progress, are you sure you want to quit?") ())
- then
- GMain.Main.quit ()
-
-let proof_handler =
- { MatitaTypes.get_proof = get_proof;
- MatitaTypes.set_proof = set_proof;
- MatitaTypes.has_proof = has_proof;
- MatitaTypes.new_proof = new_proof;
- MatitaTypes.quit = quit;
- }