let use_assigns env hid kind assigned wp =
    on_context env "use_assigns" wp Close_context Keep_assigns
      (fun env assignsgoal p ->
         Datalib.Collector.add_depend hid "assigns hypothesis" ;
         let asgnd = assigned_of_assigns env assigned in
         let p0 = check_assigns assignsgoal asgnd p in
         havoc_region kind (L.get_frame env) asgnd p0)