fact: Fixpoint hcons (m : hmap) (f : LForm) : hmap := match f with | LAT a => m | LOP o l => List.fold_left (fun m f => IntMap.set' f.(id) (f.(is_dec),f.(elt)) (hcons m f.(elt))) l m | LIMPL l r => List.fold_left (fun m f => IntMap.set' f.(id) (f.(is_dec),f.(elt)) (hcons m f.(elt))) (r::l) m end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause