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