+ let symb_list = Stats.parse_symbols passives g_passives in
+ prerr_endline "Hypotheses statistics :";
+ List.iter (fun (t,occ,ar,g_occ) -> prerr_endline
+ (Printf.sprintf "%s %d %d %d %s"
+ (B.pp t) ar occ g_occ
+ (String.concat ","
+ (List.map B.pp (Stats.dependencies t passives))));
+ if List.exists
+ (fun (u,occ2,ar2,g_occ2) -> not (B.eq t u) && occ = occ2
+ && ar = ar2 && g_occ = g_occ2) symb_list
+ then prerr_endline ((B.pp t) ^ " clashes")
+ ) symb_list;