let inconsistent_array ar = try TimeFormula.start (); let _ = Array.fold_left inconsistent_aux ([], [], [], [], [], [], []) ar in TimeFormula.pause (); false with Exit -> TimeFormula.pause (); true