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