ApplyTransformation.mml_of_cic_object ~explode_all:true
(unopt_uri uri_opt) annobj ids_to_inner_sorts ids_to_inner_types
in
- debug_print "load_proof: dumping MathML to /tmp/proof";
- ignore (Misc.domImpl#saveDocumentToFile ~name:"/tmp/proof" ~doc:mathml ());
+ debug_print "load_proof: dumping MathML to ./proof";
+ ignore (Misc.domImpl#saveDocumentToFile ~name:"./proof" ~doc:mathml ());
match current_mathml with
| None ->
self#load_root ~root:mathml#get_documentElement ;
ApplyTransformation.mml_of_cic_sequent metasenv sequent
in
current_infos <- Some (ids_to_terms, ids_to_father_ids, ids_to_hypotheses);
- debug_print "load_sequent: dumping MathML to /tmp/prova";
- ignore (Misc.domImpl#saveDocumentToFile ~name:"/tmp/prova" ~doc:mathml ());
+ debug_print "load_sequent: dumping MathML to ./prova";
+ ignore (Misc.domImpl#saveDocumentToFile ~name:"./prova" ~doc:mathml ());
self#load_root ~root:mathml#get_documentElement
end
class sequents_viewer ~(notebook:GPack.notebook)
- ~(sequent_viewer:MatitaTypes.sequent_viewer) ~set_goal ()
+ ~(sequent_viewer:sequent_viewer) ~set_goal ()
=
let tab_label metano =
(GMisc.label ~text:(sprintf "?%d" metano) ~show:true ())#coerce
method private render_page ~page ~goal =
sequent_viewer#load_sequent _metasenv goal;
try
- List.assoc goal goal2win ()
+ List.assoc goal goal2win ();
+ sequent_viewer#set_selection None
with Not_found -> assert false
method goto_sequent goal =
with Not_found -> assert false
in
notebook#goto_page page;
- self#render_page page goal
+ self#render_page page goal;
end
fun () -> Lazy.force instance
let sequents_viewer ~(notebook:GPack.notebook)
- ~(sequent_viewer:MatitaTypes.sequent_viewer) ~set_goal ()
+ ~(sequent_viewer:sequent_viewer) ~set_goal ()
=
new sequents_viewer ~notebook ~sequent_viewer ~set_goal ()
+let check_widget =
+ lazy
+ (let gui = MatitaGui.instance () in
+ sequent_viewer ~show:true ~packing:gui#check#scrolledCheck#add ())
+
+class mathViewer =
+ object
+ method checkTerm sequent metasenv =
+ let (metano, context, expr) = sequent in
+ let widget = Lazy.force check_widget in
+ let gui = MatitaGui.instance () in
+ gui#check#checkWin#show ();
+ gui#main#showCheckMenuItem#set_active true;
+ widget#load_sequent (sequent :: metasenv) metano
+
+ method unload () = (proof_viewer_instance ())#unload
+ end
+
+let mathViewer () = new mathViewer
+