let make_clause name ali sz_ali is_learnt premise = let atoms = Vec.from_list ali sz_ali dummy_atom in { name = name; atoms = atoms; removed = false; learnt = is_learnt; activity = 0.; cpremise = premise}