let havoc_region hkind caller_frame region prop =
match region with
| None ->
(* Assigns Everythings *)
WpModel.quantify_at_label caller_frame Clabels.Here prop
| Some region ->
let hs =
List.concat
(List.map (WpModel.subst_havoc caller_frame) region) in
begin
match hkind with
| WpAnnot.StmtAssigns -> D.havoc_static hs prop
| WpAnnot.LoopAssigns -> D.havoc_inductive hs prop
end