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)