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)