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