fact: Definition intro_impl (acc: list literal) (f: LForm) (hf: HFormula) := match f with | LAT a => if hf.(is_dec) then ((NEG hf) :: acc , None) else (acc , Some hf) | LOP o l => if hf.(is_dec) then (NEG hf::acc, None) else (acc, Some hf) | LIMPL l r => if r.(is_dec) then (NEG r :: xrev_map POS acc l, None) else (xrev_map POS acc l, Some r) end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause