let do_labels wenv e obj =
let do_lab o l =
Wp_parameters.debug ~level:3 "[do_label] process %a@."
Wp_error.pp_logic_label l;
W.label wenv l o
in
let obj = do_lab obj Logic_const.here_label in
let labels = Cil2cfg.get_edge_labels e in
let obj = List.fold_left do_lab obj labels in
obj