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