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