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