proposition: Lemma eval_impl_list_iff : forall l r l' r', (eval_and_list l <-> eval_and_list l') -> (r <-> r') -> eval_impl_list l r <-> eval_impl_list l' r'.
proof: Proof. intros. rewrite <- ! eval_impl_list_eq. rewrite! eval_and_list_eq in *. tauto. Qed.
imports: Bool ZifyBool ZArith ZifyUint63 Uint63 Lia List Cdcl.Lib Cdcl.Syntax Cdcl.Lit