let labels_loop_inv s l = match l with
  | LogicLabel "Pre" -> l
  | LogicLabel "Here" -> StmtLabel (ref s)
  | StmtLabel _ -> l
  | _ -> raise (LabelError l)