let find_fun_postcond_nodes pdg p =
  let f_interpret kf =
    let f_ctx = !Db.Properties.Interp.To_zone.mk_ctx_func_contrat 
                  ~state_opt:(Some false) kf in
    let named_p = { name = []; loc = locUnknown; content = p } in
      !Db.Properties.Interp.To_zone.from_pred named_p f_ctx
  in find_nodes_for_function_contract pdg f_interpret