+let proof_viewer =
+ let frame = GBin.frame ~packing:(gui#proof#scrolledProof#add) ~show:true () in
+ MatitaMathView.proof_viewer ~show:true ~packing:(frame#add) ()
+let sequent_viewer = MatitaMathView.sequent_viewer ~show:true ()
+let sequents_viewer =
+ let set_goal goal =
+ debug_print (sprintf "Setting goal %d" goal);
+ if not (has_proof ()) then assert false;
+ (get_proof ())#set_goal goal
+ in
+ MatitaMathView.sequents_viewer ~notebook:gui#main#sequentsNotebook
+ ~sequent_viewer ~set_goal ()
+
+let new_proof (proof: MatitaTypes.proof) =
+ let xmldump_observer _ _ = print_endline proof#toString in
+ let proof_observer _ (status, ()) =
+ debug_print "proof_observer";
+ let ((uri_opt, _, _, _), _) = status in
+ let uri = MatitaTypes.unopt_uri uri_opt in
+ debug_print "apply transformation";
+ proof_viewer#load_proof status;
+ debug_print "/proof_observer"
+ in
+ let sequents_observer _ (((_, metasenv, _, _), goal_opt), ()) =
+ sequents_viewer#reset;
+ (match goal_opt with
+ | None -> ()
+ | Some goal ->
+ sequents_viewer#load_sequents metasenv;
+ sequents_viewer#goto_sequent goal)
+ in
+ ignore (proof#attach_observer ~interested_in:StatefulProofEngine.all_events
+ sequents_observer);
+ ignore (proof#attach_observer ~interested_in:StatefulProofEngine.all_events
+ proof_observer);
+ ignore (proof#attach_observer ~interested_in:StatefulProofEngine.all_events
+ xmldump_observer);
+ proof#notify;
+ set_proof (Some proof)