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)