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)