fact: Fixpoint keep_all (k:kind) (f: BForm k) : bool := match f with | BTT k => true | BFF k => true | BAT k i => keep_atom k i | BOP k o f1 f2 => keep_all k f1.(elt) && keep_all k f2.(elt) | BPROP _ f1 f2 => keep_all IsBool f1.(elt) && keep_all IsBool f2.(elt) | BITE k _ c f1 f2 => keep_all _ c.(elt) && keep_all k f1.(elt) && keep_all k f2.(elt) end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause