proposition: Lemma units_has_literal_of_form : forall m u f b, IntMap.get' f.(id) u = Some b -> has_form m f -> (units_has_literal m u ((Annot.map (fun b => literal_of_bool b f) b))).
proof: Proof. intros. unfold units_has_literal. unfold Annot.lift, Annot.map. simpl. rewrite id_of_literal_of_bool. rewrite H. destruct b ; simpl. rewrite is_positive_literal_of_bool. split ; auto. destruct elt0 ; auto. Qed.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause