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)