+(*
+ addDebugItem "meets between L and R"
+ (fun _ ->
+ let l = CoercDb.coerc_carr_of_term (CicUtil.term_of_uri
+ (UriManager.uri_of_string "cic:/matita/test/L.ind#xpointer(1/1)" ))
+ in
+ let r = CoercDb.coerc_carr_of_term (CicUtil.term_of_uri
+ (UriManager.uri_of_string "cic:/matita/test/R.ind#xpointer(1/1)" ))
+ in
+ let meets = CoercGraph.meets l r in
+ prerr_endline "MEETS:";
+ List.iter (fun carr -> prerr_endline (CicPp.ppterm (CoercDb.term_of_carr
+ carr))) meets
+ );
+ addDebugSeparator ();
+*)
+ addDebugItem "disable high level pretty printer"
+ (fun _ -> CicMetaSubst.use_low_level_ppterm_in_context := true);
+ addDebugItem "enable high level pretty printer"
+ (fun _ -> CicMetaSubst.use_low_level_ppterm_in_context := false);
+(* ZACK moved to the View menu