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