let add_terminates acc spec = (* TODO *)
  let _ = match spec.spec_terminates with None -> ()
    | Some p ->  Wp_parameters.warning
                   "Ignored 'terminates' specification:@, %a@."
                   !Ast_printer.d_predicate_named
                   (Logic_const.pred_of_id_pred p)
  in acc