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)