fact: Fixpoint gen_init_clauses_aux (s: list nat) (p: pos) (c: clauses) {struct s} : clauses := match s with nil => c | a :: s1 => let p1 := next p in let ll := L p a in if (In_dec eq_nat a ref_list) then let c1 := clauses_update ll (anti_literals ll) c in gen_init_clauses_aux s1 p1 c1 else gen_init_clauses_aux s1 p1 c end.
imports: List UList Permutation Div OrderedList ListOp Lia