if CicEnvironment.in_library uri then
raise (AlreadyDefined uri)
else begin
+ (*CicUniv.reset_spent_time ();
+ let before = Unix.gettimeofday () in*)
typecheck_obj uri obj; (* 1 *)
+ (*let after = Unix.gettimeofday () in
+ let univ_time = CicUniv.get_spent_time () in
+ let total_time = after -. before in
+ prerr_endline
+ (Printf.sprintf "QED: %%univ = %2.5f, total = %2.5f, univ = %2.5f, %s\n"
+ (univ_time *. 100. /. total_time) (total_time) (univ_time)
+ (UriManager.name_of_uri uri));*)
let _, ugraph, univlist =
CicEnvironment.get_cooked_obj_with_univlist CicUniv.empty_ugraph uri in
try