fact: Definition check_no_fault nids (ls: list StepStarArgs.Label) (s: State) := (List.forallb (fun l => match l with | fault_label _ => false | _ => true end) ls && List.forallb (fun n => match prog (s n) with | KVStore.fault _ => false | _ => true end) nids)%bool.
imports: Coq(FunctionalExtensionality List Arith Lia) Chapar(Predefs KVStore)