fact: Fixpoint fold_update {A : Type} (F : A -> state -> dresult) (l: list A) (st:state) : dresult := match l with | nil => Progress st | e::l => match F e st with | Success p => Success p | Progress st' => fold_update F l st' | Fail s => Fail s end end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause