let labels_stmt_pre s = function
  | LogicLabel (None"Pre"-> Logic_const.pre_label (* fct pre-state *)
  | LogicLabel (None"Here"-> Cil2cfg.mk_logic_label s
  | LogicLabel (Some s, _) -> Cil2cfg.mk_logic_label s
  | StmtLabel rs -> Cil2cfg.mk_logic_label !rs
  | l -> raise (LabelError l)