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
sequent_viewer#load_sequent _metasenv goal;
try
List.assoc goal goal2win ();
- debug_print "set_selection none";
sequent_viewer#set_selection None
with Not_found -> assert false