let convert_label = function | StmtLabel _ -> predicate_alarm () | LogicLabel (_, "Pre") -> Pre | LogicLabel (_, "Here") -> Here | LogicLabel (_, "Old") -> Old | LogicLabel (_, "Post") -> Post | LogicLabel _ -> predicate_alarm ()