let labels_loop_inv s = function | LogicLabel (None, "Pre") -> Logic_const.pre_label | LogicLabel (None, "Here") -> Cil2cfg.mk_logic_label s | LogicLabel (None, ("Old" | "Post")) as l -> raise (LabelError l) | l -> l