let label env l wp =
let lab = Clabels.c_label l in
on_context env "label" wp Keep_opened (Label_assigns lab)
(fun env _assigns p ->
let frame = L.get_frame env in
if lab = Clabels.Here then p
else
let wp = WpModel.update_at_label frame lab p in
Clabels.label F.p_named lab wp)