proposition: Lemma check_annot_set_UNIT : forall m cl l (HCL : check_annot has_clause m cl) (EQ : Annot.elt cl = UNIT l), check_annot has_literal m (Annot.set cl l).
proof: Proof. intros. destruct HCL; constructor ; auto. unfold Annot.set, Annot.lift in *. rewrite EQ in *. auto. Qed.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause