let labels_spec_pre stmt l = match l with
  | LogicLabel "Pre" -> l (* fct pre-state *)
  | LogicLabel "Here" -> StmtLabel (ref stmt)
  | StmtLabel _ -> l
  | _ -> raise (LabelError l)