fact: Definition nform (F: LForm -> LForm) (f: HFormula) := match F (elt f) with | LOP LAND nil => hTT | LOP LOR nil => hFF | LOP _ (e::nil) => e | LAT i => HCons.mk i (is_dec f) (LAT i) | LOP o l => HCons.mk (id f) (List.forallb is_dec l) (LOP o l) | LIMPL nil r => r | LIMPL l r => HCons.mk (id f) (List.forallb is_dec l && is_dec r) (LIMPL l r) end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause