let labels_stmt_pre s = function
| LogicLabel (None, "Pre") -> Logic_const.pre_label (* fct pre-state *)
| LogicLabel (None, "Here") -> Clabels.mk_logic_label s
| LogicLabel (Some s, _) -> Clabels.mk_logic_label s
| StmtLabel rs -> Clabels.mk_logic_label !rs
| l -> raise (LabelError l)