let sequent_mml,(ids_to_terms,ids_to_father_ids,ids_to_hypotheses) =
mml_of_cic_sequent metasenv sequent
in
-prerr_endline "PRIMA DI SALVARE IL FILE" ;
self#load_root ~root:sequent_mml#get_documentElement ;
-prerr_endline "SALVO IL FILE IN TEMP" ;
ignore (Misc.domImpl#saveDocumentToFile ~name:"/tmp/pippo" ~doc:sequent_mml ());
current_infos <-
Some (ids_to_terms,ids_to_father_ids,ids_to_hypotheses)