let labels_stmt_post s l_post = function
  | LogicLabel (None"Pre"-> Logic_const.pre_label (* fct pre-state *)
  | LogicLabel (None"Old"->  Cil2cfg.mk_logic_label s (* contract pre-state *)
  | LogicLabel (None, ("Here" | "Post")) as l -> 
      begin match l_post with Some l -> l 
        | None -> (* TODO ? *) raise (LabelError l)
      end
  | LogicLabel (Some s, _) -> Cil2cfg.mk_logic_label s
  | StmtLabel rs -> Cil2cfg.mk_logic_label !rs
  | l -> raise (LabelError l)