let compute_with_initial_state kf initial_state =
match kf.fundec with
| Declaration _ -> assert false
| Definition (f,_) ->
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
let initial_state = check_fct_preconditions kf initial_state in
compute_using_cfg kf initial_state