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)