let quantify_loop_assigns _assigns pred = (* TODO : use assigns *) Some (Fol.forall_pred M.prop_in_data ~fresh:true (Lazy.force M.cur_mem_var) pred)