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)