fact: Definition checker_debug d used_roots (c:certif) := let (nclauses, t, confl) := c in let s := add_roots (S.make nclauses) d used_roots in let '(_, nb, failure) := List.fold_left (fun acc step => match acc with | (s, nb, None) => let nb := S nb in let s := step_checker s step in if negb (ignore_true_step step) && C.has_true (S.get s (position_of_step step)) then (s, nb, Some step) else (s, nb, None) | _ => acc end ) (fst t) (s, O, None) in match failure with | Some st => Some (nb, name_of_step st) | None => None end .
imports: Bool Int63 PArray Misc State SMT_terms Syntactic Arithmetic Operators Assumptions Cnf Euf Lia BVList Bva_checker Array_checker