let get_terminates spec =
  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)