let add_variant acc spec = (* TODO *)
  let _ = match spec.spec_variant with None -> ()
    | Some v ->
        Wp_parameters.warning "Ignored 'decrease' specification:@, %a@."
                   Cil.d_decreases v
  in acc