let update_to_pred post_state (location,vals) =
let loc = Cil_datatype.Location.unknown in
let intv = List.fold_left (treat_val location) Logic_const.pfalse vals in
match post_state.multi_state with
| None -> intv
| Some(set,aux) ->
(* [VP 2011-09-05] In fact, not all the pebble come from the considered
pre-state. Will this lead to too strong post-conditions?
*)
let set = Data_for_aorai.pebble_set_at set Logic_const.here_label in
pebble_post ~loc set aux intv