let mk_logic_label s =
  LogicLabel (Some s, "wp!stmt_"^(string_of_int s.sid))