let on_definition phi kf =
  match kf.Cil_types.fundec with
    | Cil_types.Declaration _ (* ->
        Wp_parameters.warning ~current:false "Function %s has no body (skipped)"
          (Kernel_function.get_name kf) *)

    | Cil_types.Definition _ -> phi kf