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