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