let labels_assert before_after s l = match l with | LogicLabel "Pre" -> l | LogicLabel "Here" -> if before_after then StmtLabel (ref s) else (* TODO *) raise (LabelError l) | StmtLabel _ -> l | _ -> raise (LabelError l)