fact: Fixpoint find_one_aux (n: clauses) (s: list nat) (cs: clauses) {struct n}: option (list nat) := match cs with nil => Some s | (_, nil) :: _ => None | (_, p) :: cs1 => match n with nil => None | _ :: n1 => try_one s p cs1 (find_one_aux n1) end end.
imports: List UList Permutation Div OrderedList ListOp Lia