let havoc_region hkind caller_mem region prop =
match region with
| A_everything ->
WpModel.quantify caller_mem prop
| A_region region ->
let hs =
List.concat
(List.map (WpModel.subst_havoc caller_mem) region) in
begin
match hkind with
| WpPropId.StmtAssigns -> D.havoc_static hs prop
| WpPropId.LoopAssigns -> D.havoc_inductive hs prop
end