let loop_head_label s =
  LogicLabel (None"wp!loop_"^(string_of_int s.sid)^"_head")