let labels_spec_post s l = match l with
  | LogicLabel "Pre" -> l (* fct pre-state *)
  | LogicLabel "Old" ->  StmtLabel (ref s) (* contract pre-state *)
  | LogicLabel "Here" | LogicLabel "Post" -> (* TODO *) raise (LabelError l)
  | StmtLabel _ -> l
  | _ -> raise (LabelError l)