let compute_with_initial_state kf initial_state =
  match kf.fundec with
    | Declaration _ -> assert false
    | Definition (f,_) ->
        let initial_state = check_precondition kf initial_state in
        let initial_state =
          List.fold_left
            (fun acc local ->
               Relations_type.Model.add_binding_unspecified
                 acc
                 (Locations.loc_of_varinfo local))
            initial_state
            f.slocals
        in
        compute_using_cfg kf (ref (State_set.singleton initial_state))